账号 密码
<%if Request.ServerVariables("Request_Method")="POST" then set rs=server.createobject("adodb.recordset") name=trim(request.form("name")) psw=trim(request.form("password")) if name="" or psw="" then response.write "" response.write "" response.end end if psw=md5(psw) errorr=0 if session("err")>=3 then errorr=1 errmsg="你已经重试这么多次了，累了吧，请歇会再来，或者联系管理员!" else sql="select * from admin where username1='"&name&"'" rs.open sql,conn,3,1 if rs.eof and rs.bof then errorr=1 session("err")=session("err")+1 errmsg="用户名不存在，请返回重新填写确认！" rs.close elseif psw<>rs("password1") then errorr=1 session("err")=session("err")+1 errmsg="用户名和密码不符，请确认后再输一次！" rs.close end if end if if errorr=1 then response.write "" response.write "" session.abandon() call rsclose() call connclose() response.end end if response.cookies("name")=rs("username1") response.cookies("password")=rs("password1") response.cookies("fzlm")=rs("fzlm1") response.cookies("quanxian")=rs("quanxianid1") rs.close call rsclose() call connclose() session("err")=0 response.redirect "gengxin.asp" end if %>