loginok.asp

<%

if trim(session("yanzheng"))<>"" then

if trim(session("yanzheng"))>3 then

′如果session的值超过一定的数值，封锁用户20分，值到session.timeout过期，自动清空所有session中的值

response.write “您的帐户已经被锁定，请您20分钟以后再次进行输入！”

response.end

end if

end if

DbPath = SERVER.MapPath("database.mdb")

′定义数据库名称为database.mdb

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

c1.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath

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

rs.open ”select * from 用户表 where 用户名=’”&trim(request(“name”))&”’ and 密码=’”&trim(request(“pwd”))&”’”,c1,1,1

‘进行循环查找，如果表中有符合条件的数据，验证通过，否则验证不通过

if rs.eof=false then

′表示目前表中存在记录，数据没有到达表的结尾

    response.write “验证通过”

else

if session("yanzheng”)="" then

′设定session，如果第一次出现错误，则赋session值为0

    session("yanzheng”)=0

else

′设定session，如果不是第一次出现错误，则赋session值为加1

session("yanzheng")=session("yanzheng")+1

    end if

response.write “验证失败”

end if

%>