一、基础总体目标

最先在Access数据库查询Database.mdb中存有着用户信息表test:

ASP 连接Access数据库的登陆系统 登陆系统 Access ASP ASP编程  第1张

撰写一个登录系统软件,假如客户键入的用户名在表格中沒有,则提醒“查无此人”,假如输入支付密码不正确,则提醒“密码错误”

ASP 连接Access数据库的登陆系统 登陆系统 Access ASP ASP编程  第2张

假如客户键入的用户名与登陆密码都恰当,则自动跳转到登录取得成功页

ASP 连接Access数据库的登陆系统 登陆系统 Access ASP ASP编程  第3张

登录取得成功页在一般状况下,不允许根据输入网址就能浏览

ASP 连接Access数据库的登陆系统 登陆系统 Access ASP ASP编程  第4张

二、基础观念

应用asp的session目标保证了用户名与登陆密码的传送。

弹出来一部分应用了javascript的开发语言,应用asp对用户信息表开展查寻。

网站的基础构造以下:

ASP 连接Access数据库的登陆系统 登陆系统 Access ASP ASP编程  第5张

三、制作过程
全部网站使用utf-8码确保不容易错码,因此 每一页在页头务必有<meta http-equiv="Content-Type" content="text/HTML; charset=utf-8" />,假如应用DW的高版本号则全自动加上,低版请把gb2312改为utf-8,文本文档自便。 

1、网页登陆login.html只是是一个表格的静态网页。关键是用post方式 信息传递,Action是到login.asp

 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>login</title>
</head>

<body>
<form method="post" action="login.asp"> 
username:<input type="text" name="username" />
password:<input type="password" name="password" />
<input type="submit" value="login" />
</form>
</body>
</html>

 2、login.asp登录认证网页页面是本系统软件最关键的网页页面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>login</title>
</head>

<body>

<%
'向把login.html传过来的2个信息内容用自变量保存
username=Request.Form("username")
password=Request.Form("password")
'数据库查询是上一级目录的Database.mdb
%>
<%
db="../Database.mdb"
'数据库连接特定姿势,这一段务必单独地占有一个<%%>不然在一些状况下IE8会错误
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db) 
%>
<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
'看表中是不是有此username
sql = "select * from test where username='" username "';"
rs.open sql,conn,1,3
'假如全都查不出,弹出窗口,弹回去login.html
if (rs.bof and rs.eof) then
%>
<script>
alert("查无此人");
window.location.href = "login.html";
</script>
<%
'不然拿查出的登陆密码,与客户键入的登陆密码作比照,看是不是一致
'查出的登陆密码务必先用一个自变量抓住,在ASP中不可以立即较为
else
dbpwd=rs("password")
'假如不一致,则弹出窗口,ASP沒有!=,表明并不等于请使用<>
if password<>dbpwd then
%>
<script>
alert("密码错误");
window.location.href = "login.html";
</script>
<%
else
'假如用户名登陆密码都键入恰当,则有此客户,timeout是为了更好地避免 客户异常撤出的,假如五分钟沒有一切实际操作则判断其早已撤出,ok是一切正常登录的标示
Session.Timeout=5
Session("username")=username
Session("login")="ok"
%>
<script>
alert("登录取得成功");
window.location.href = "success.asp";
</script>
<%
end if
end if
'用完数据库查询还记得关
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>

 3、success.asp
 没有什么好说的,关键是看他是不是有一切正常登录标示,login的內容是不是为ok,沒有则将其弹出来网页登陆 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>热烈欢迎登录</title>
</head>

<body>
<%
if Session.Contents("login")<>"ok" then 
%>
<script>
alert("请一切正常登录!");
window.location.href = "login.html";
</script>
<%
else
Response.Write("热烈欢迎登录," Session.Contents("username"))
end if
%>
<a href="exit.asp">一切正常撤出</a>
</body>
</html>

4、exit.asp撤出解决网页页面 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>已经撤出...</title>
</head>

<body>
<%
'全部session马上请求超时,而且清除全部session
Session.Abandon
Session.Contents.RemoveAll()
%>
<script>
window.location.href = "login.html";
</script>
</body>
</html>

之上便是文中的所有内容,期待对大伙儿的学习培训有一定的协助,也期待大伙儿多多的适用。