
<%
'////////////////////////// 獲取From的值
if Request.ServerVariables("Request_Method")="POST" then
set Rs=server.createobject("adodb.recordset")
Username=trim(request.form("name"))
psw=trim(request.form("password"))
'/////////////////////////// 判斷不能為空
if Username="" or psw="" then
Response.write "<script>alert('用戶名和登陸密碼不能為空');</script>"
Response.write "<script>history.go(-1);</script>"
Response.end
end if
'/////////////////////////// 用Session來限制錯誤輸入次數(shù)(3次)
if Session("err")>=3 then
errorr=1
errmsg="你已經(jīng)重試這么多次了,累了吧,請歇會再來,或者聯(lián)系管理員!"
else
sql="select * from WebMaster where UserName='"&UserName&"'"
Rs.open sql,cn,3,1
if Rs.eof and Rs.bof then
errorr=1
Session("err")=Session("err")+1
errmsg="用戶名不存在,請返回重新填寫確認!"
Rs.close
elseif psw<>Rs("PassWord") then
errorr=1
Session("err")=Session("err")+1
errmsg="用戶名和密碼不符,請確認后再輸一次!"
Rs.close
end if
end if
if errorr=1 then
Response.write "<script>alert('"&errmsg&"');</script>"
Response.write "<script>history.go(-1);</script>"
Rs.close
Set Rs=Nothing
Cn.Close
Response.end
end if
'/////////////////////////// 檢驗成功賦值給Session,后重定向頁面。
Response.cookies("UserName")=Rs("UserName")
Response.cookies("UserKey")=Rs("UserKey")
Rs.close
Set Rs=Nothing
Cn.Close
Session("err")=0
Response.write "<script>location.href='MasterMain.asp';</script>"
end if
%>