<% top if Request.ServerVariables("request_method") = "POST" then if SiteSettings("EnableAntiSpamTextGenerateForLogin")=1 then if Request.Form("VerifyCode")<>Session("VerifyCode") then error("
  • 验证码错误") end if ReturnUrl=LCase(Request.Form("ReturnUrl")) UserName=HTMLEncode(Request.Form("UserName")) Userpass=md5(Trim(Request.Form("Userpass"))) 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"))<16 then if Request("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 Request("IsSave")=1 then Expires=9999 else Expires=0 end if if Request("Eremite")="1" then Eremite="1" else Eremite="0" end if ResponseCookies"UserID",Rs("ID"),Expires ResponseCookies"UserPass",UserPass,Expires ResponseCookies"Eremite",Eremite,Expires Session("VerifyCode")="" if ""&ReturnUrl&""<>"" and instr(ReturnUrl,"login.asp")=0 then response.redirect ReturnUrl else response.write "" end if end if select case Request("menu") case "" %>
       <%ClubTree%> → 登录论坛

    " name="ReturnUrl"> <%if SiteSettings("EnableAntiSpamTextGenerateForLogin")=1 then%> <%end if%>
    登录论坛
    用户名称:   没有注册?
    用户密码:   找回密码?
    验 证 码:   
    登录方式:
     

    BACK
    <% case "out" Conn.execute("Delete from [BBSXP_UsersOnline] where sessionid='"&session.sessionid&"'") CleanCookies() succtitle="已经成功退出" Message=Message&"
  • 社区首页" succeed(""&Message&"") end select htmlend %>