ASP 連接Access數(shù)據(jù)庫(kù)的登陸系統(tǒng)

 !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>

%@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傳過(guò)來(lái)的兩個(gè)信息用變量保存起來(lái)
username=Request.Form("username")
password=Request.Form("password")
'數(shù)據(jù)庫(kù)是上一級(jí)目錄的Database.mdb
%>
%
db="../Database.mdb"
'連接數(shù)據(jù)庫(kù)指定動(dòng)作，這段必須獨(dú)立地占用一個(gè)％％>否則在某些情況下IE8會(huì)出錯(cuò)
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("查無(wú)此人");
window.location.href = "login.html";
/script>
%
'否則拿查出來(lái)的密碼，與用戶輸入的密碼作對(duì)比，看是否一致
'查出來(lái)的密碼必須先用一個(gè)變量接住，在ASP中不能直接比較
else
dbpwd=rs("password")
'如果不一致，則彈窗，ASP沒(méi)有!=，表示不等于請(qǐng)用>
if password>dbpwd then
%>
script>
alert("密碼錯(cuò)誤");
window.location.href = "login.html";
/script>
%
else
'如果用戶名密碼都輸入正確，則有此用戶，timeout是為了防止用戶非正常退出的，如果5分鐘沒(méi)有任何操作則判定其已經(jīng)退出，ok是正常登陸的標(biāo)志
Session.Timeout=5
Session("username")=username
Session("login")="ok"
%>
script>
alert("登陸成功");
window.location.href = "success.asp";
/script>
%
end if
end if
'用完數(shù)據(jù)庫(kù)記得關(guān)
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
/body>
/html>

%@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("請(qǐng)正常登陸！");
window.location.href = "login.html";
/script>
%
else
Response.Write("歡迎登陸，"+Session.Contents("username"))
end if
%>
a href="exit.asp">正常退出/a>
/body>
/html>

%@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立即超時(shí)，并且移除所有session
Session.Abandon
Session.Contents.RemoveAll()
%>
script>
window.location.href = "login.html";
/script>
/body>
/html>