ASP 连接Access数据库的登陆系统_应用技巧_

 username: password:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% '向把login.html传过来的两个信息用变量保存起来 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 %><% '否则拿查出来的密码，与用户输入的密码作对比，看是否一致 '查出来的密码必须先用一个变量接住，在ASP中不能直接比较 else dbpwd=rs("password") '如果不一致，则弹窗，ASP没有!=，表示不等于请用<> if password<>dbpwd then %><% else '如果用户名密码都输入正确，则有此用户，timeout是为了防止用户非正常退出的，如果5分钟没有任何操作则判定其已经退出，ok是正常登陆的标志 Session.Timeout=5 Session("username")=username Session("login")="ok" %><% end if end if '用完数据库记得关 rs.close set rs=nothing conn.close set conn=nothing %>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% if Session.Contents("login")<>"ok" then %><% else Response.Write("欢迎登陆，"+Session.Contents("username")) end if %>正常退出

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><% '所有session立即超时，并且移除所有session Session.Abandon Session.Contents.RemoveAll() %>