高手赐教呀~

请高手赐教代码!请高手赐教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 。
  收起