<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("DataBase.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Admin where ZhangHao='" + request("UserID") + "' and MiMa='" + request("Password") + "'"
rs.open sql,conn,1,3
if rs.eof then
rs.close
conn.close
response.redirect "answer.html"
else
Session("ZhangHao")=rs("ZhangHao")
Session("MiMa")=rs("MiMa")
Session("UserName")=request("UserID")
Session("PSW")=request("Password")
end if
%>
其他需要登陆后才能浏览的网页加上下面
<%
if Session("ZhangHao")=Session("UserName") and Session("MiMa") = Session("UserName") then
response.redirect "answer.html" '比较是否验证过帐号密码!
else