asp系统登录的代码的简单介绍

今天给各位分享asp系统登录的代码的知识，其中也会对进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、ASP登录代码
• 2、asp 登录代码
• 3、用ASP制作登陆页面的代码

ASP登录代码

用DW就可以简单实现

1.建立连接字符串

连接字符串以及解释如下:

connstr="driver={SQL Server};server=(local);uid=sa;pwd=sa;database=Your database"

语法介绍：

(1)、driver={SQL Server};始终为这个形式，不变

(2)、server：可以是local、你计算机的IP、计算机的名称中的任意一个

(3)、uid：登陆SQL的用户名

(4)、pwd：登陆SQL的密码

(5)、database：要连接的数据库名称。

2.建立记录集

3.设置显示区域，记录集为空，则显示“用户名密码错误”,不为空则显示"欢迎你"

还有不懂得就发消.息

asp 登录代码

%

dim pwd,pwd1,pwd2，username

username=trim(request.Form("username"))

pwd=trim(request.Form("password1"))

pwd1=trim(request.Form("newpassword1"))

pwd2=trim(request.Form("newpassword2"))

sql="select * from userinfo where username='"username"'"

set rs=server.CreateObject("adodb.recordset")

rs.open sql,conn,1,3

if rs("password")md5(pwd) then

'从程序来看 你的数据库里面的密码应该加密过的 所以

response.Write("你的原始密码输入错误，请重新输入"）

else

if pwd1=pwd2 then

rs("password")=md5(pwd1)

rs.update

success="修改成功"

response.Write(success)

else response.Write("你两次输入的密码不一样，请重新输入")

end if

end if

rs.close

set rs=nothing

response.Write("你已经成功的修改了密码】")

%

用ASP制作登陆页面的代码

时间关系，没给你写 所以就复制了一段 可到我论坛看看

代码如下：

1.connection.asp里的代码是:

%

set conn=server.createobject("adodb.connection")

conn.open "provider=microsoft.jet.oledb.4.0;data source="server.MapPath("student.mdb")

%

2.yanzheng.asp里的代码是:

!--#include file="connection.asp"--

%

dim zhanghao,mima

zhanghao=request("zhanghao")

mima=request("mima")

if zhanghao="" then

%

script language=javascript

alert("帐号为空");

location.href="denglu.asp"

/script

% end if %

% if mima="" then

%

script language=javascript

alert("密码为空");

location.href="denglu.asp"

/script

% end if %

%set rs=server.createobject("adodb.recordset")

rs.open "select * from student where zhanghao='"zhanghao"'",conn,1,3

if not rs.eof then

if mima=rs("mima") then

session("zhanghao")=zhanghao

Response.write("scriptlocation.href('index.asp')/script" )

else

response.write ("scriptalert('用户密码错误');location.href('denglu.asp')/script")

end if

end if

if rs.eof then

response.write ("scriptalert('用户帐号错误');location.href('denglu.asp')/script")

end if

set rs=nothing

rs.close

%

二、

conn.asp

%

Set conn=Server.CreateObject("ADODB.Connection")

connstr="DBQ="+server.mappath("haha.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"

conn.Open connstr

%

index.asp

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" ""

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title无标题文档/title

/head

body

form name="form1" method="post" action="login.asp"

table width="50%" height="108" border="0" cellpadding="0" cellspacing="0"

tr

td用户名：/td

tdinput name="us" type="text" id="us"/td

/tr

tr

td密码：/td

tdinput name="pa" type="password" id="pa" value=""/td

/tr

tr

td /td

tdinput type="submit" name="Submit" value="提交"/td

/tr

/table

/form

/body

/html

login.asp

!--#include file="conn.asp"--

%

us=replace(request.form("us"),"'","’")

pa=replace(request.form("pa"),"'","’")

%

%

set rs=server.createobject("adodb.recordset")

sql="select * from haha where us='"us"' and pa='"pa"'"

rs.open sql,conn,1,1

%

%

if rs.eof or rs.bof then

response.write"密码错误~"

else

response.redirect"main.asp"

end if

%

三、

连接数据库(conn.asp)

%

dim db,conn,connstr

db="@data.mdb"

set Conn = server.CreateObject("ADODB.Connection")

connstr="provider=microsoft.jet.oledb.4.0;data source=" server.MapPath("../data/"db"")

conn.Open connstr

%

登录页面（login.asp）

% @language=vbscript %

!--#include file="conn.asp"--

%

On Error Resume Next

dim uid

dim pwd

uid=trim(request.Form("uid")) '获得用户名

pwd=trim(request.form("pwd")) '获得密码

dim rs

set rs=server.createobject("adodb.recordset")

if uid"" then

dim sqlstr

sqlstr="select uid,pwd from admin where uid='"replace(uid,"'","''")"' and pwd='"replace(pwd,"'","''")"'"

rs.open sqlstr,conn,3,1

if not rs.eof then

session("uid")=uid

response.redirect "login_ok.asp" '重定位url

else

response.redirect "error.htm"

end if

else

response.redirect "error.htm"

end if

%

关于asp系统登录的代码和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。