请高手赐教代码!请高手赐教BBS
bbsxp。cn 不错
:找到:
您已经连续 5 次输入错误密码,系统不允许您登陆。 ")
end if
if Request。ServerVariables("request_method") = "POST" then
2:找到:
if UserName=empty then error("用户名没有输入")
sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs=Conn。 Execute(SQL)
if Rs。eof then error("此用户名还未注册")
if Rs("UserAcc...全部
bbsxp。cn 不错
:找到:
您已经连续 5 次输入错误密码,系统不允许您登陆。 ")
end if
if Request。ServerVariables("request_method") = "POST" then
2:找到:
if UserName=empty then error("用户名没有输入")
sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs=Conn。
Execute(SQL)
if Rs。eof then error("此用户名还未注册")
if Rs("UserAccountStatus")=0 then error("您的帐号尚未激活")
if Len(Rs("Userpass"))Rs("Userpass") then error("您输入的密码错误")
Conn。
execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
elseif Len(Rs("Userpass"))=16 then
mdfive=16
if md5(Request("UserPass"))<>Rs("UserPass") then error("您输入的密码错误")
Conn。
execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
else
if UserPass<>Rs("UserPass") then error("您输入的密码错误")
end if
替换成:
if UserName=empty then error("用户名没有输入")
sql="select * from [BBSXP_Users] where UserName='"&UserName&"'"
Set Rs=Conn。
Execute(SQL)
if Rs。eof then error("此用户名还未注册")
if Rs("UserAccountStatus")=0 then error("您的帐号尚未激活")
if Len(Rs("Userpass"))Rs("Userpass") then
Response。
Cookies("QYLogin")=QYLogin+1
error("您输入的密码错误!您还有"&(5-QYLogin)&"次重新输入的机会~")
end if
Conn。execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
elseif Len(Rs("Userpass"))=16 then
mdfive=16
if md5(Request("UserPass"))<>Rs("UserPass") then
Response。
Cookies("QYLogin")=QYLogin+1
error("您输入的密码错误!您还有"&(5-QYLogin)&"次重新输入的机会~")
end if
Conn。execute("update [BBSXP_Users] set Userpass='"&Userpass&"' where UserName='"&UserName&"'")
else
if UserPass<>Rs("UserPass") then
Response。
Cookies("QYLogin")=QYLogin+1
error("您输入的密码错误!您还有"&(5-QYLogin)&"次重新输入的机会~")
end if
end if
。
收起