<% UserName=HTMLEncode(Request.Form("UserName")) errorchar=array(" ","","","","","","","#","`","|","%","&","+") for i=0 to ubound(errorchar) if instr(username,errorchar(i))>0 then error2("用户名中不能含有特殊符号") next if SiteSettings("BannedRegUserName")<>"" then filtrate=split(""&SiteSettings("BannedRegUserName")&"","|") for i = 0 to ubound(filtrate) if instr(UserName,filtrate(i))>0 then error2("用户名中不能含有系统禁止注册的字符“"&filtrate(i)&"”") next end if if SiteSettings("CloseRegUser")= 1 then error("
  • 本论坛暂时不开放新用户注册!") top ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' if Request("menu")="AddUserName" then if SiteSettings("EnableAntiSpamTextGenerateForRegister")=1 then if Request.Form("VerifyCode")<>Session("VerifyCode") then Message=Message&"
  • 验证码错误" end if UserSign=HTMLEncode(Request.Form("UserSign")) password=Trim(Request.Form("password")) Userpass2=Trim(Request.Form("Userpass2")) UserMail=HTMLEncode(Request.Form("UserMail")) Userhome=HTMLEncode(Request.Form("Userhome")) PasswordQuestion=HTMLEncode(Request.Form("PasswordQuestion")) PasswordAnswer=HTMLEncode(Request.Form("PasswordAnswer")) Userface=HTMLEncode(Request.Form("Userface")) UserSex=HTMLEncode(Request.Form("UserSex")) if SiteSettings("BannedText")<>empty then filtrate=split(SiteSettings("BannedText"),"|") for i = 0 to ubound(filtrate) UserSign=ReplaceText(UserSign,""&filtrate(i)&"",string(len(filtrate(i)),"*")) next end if if UserName="" then Message=Message&"
  • 您的用户名没有填写" if Len(UserName)>16 then Message=Message&"
  • 您的用户名中不能超过16个字节" if SiteSettings("EnableUser")=1 then Randomize password=int(rnd*999999)+1 else if Len(password)<6 then Message=Message&"
  • 密码必须至少包含 6 个字符" if password<>Userpass2 then Message=Message&"
  • 您2次输入的密码不相同" end if if instr(UserMail,"@")=0 then Message=Message&"
  • 您的电子邮箱地址填写错误" birthday=""&Request.Form("Year")&"-"&Request.Form("Month")&"-"&Request.Form("Day")&"" if Len(birthday)<3 then birthday="" else if Not IsDate(birthday) then Message=Message&"
  • 出生日期输入格式错误" end if if Len(UserSign)>255 then Message=Message&"
  • 签名档不能大于 255 个字节" if instr(Userface,";")>0 or instr(Userface,"%")>0 or instr(Userface,"javascript:")>0 then Message=Message&"
  • 头像URL中不能含有特殊符号" If not Conn.Execute("Select id From [BBSXP_Users] where UserName='"&UserName&"'" ).eof Then Message=Message&"
  • 此用户名已经被别人注册了" if SiteSettings("OnlyMailReg") = 1 then If not Conn.Execute("Select id From [BBSXP_Users] where UserMail='"&UserMail&"'" ).eof Then Message=Message&"
  • 此Email已经被别人注册了" end if if Message<>"" then error(""&Message&"") for each ho in request.form("character") allcharacter=""&allcharacter&""&ho&"" next Rs.Open "select top 1 * from [BBSXP_Users]",Conn,1,3 Rs.addNew Rs("UserName")=UserName Rs("Userpass")=md5(password) Rs("UserMail")=UserMail Rs("Userhome")=Userhome Rs("PasswordQuestion")=PasswordQuestion if Request("PasswordAnswer")<>empty then Rs("PasswordAnswer")=md5(Request("PasswordAnswer")) if IsDate(birthday) then Rs("birthday")=birthday if SiteSettings("EnableUser")=2 then Rs("UserAccountStatus")=0 Rs("Userface")=Userface Rs("UserSex")=UserSex Rs("UserSign")=UserSign Rs("UserMobile")=""&HTMLEncode(Request("UserMobile"))&"" Rs("UserRegTime")=""&now()&"" Rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR") Rs("UserLandTime")=""&now()&"" Rs("UserInfo")=""&HTMLEncode(Request("realname"))&"\"&HTMLEncode(Request("country"))&"\"&HTMLEncode(Request("province"))&"\"&HTMLEncode(Request("city"))&"\"&HTMLEncode(Request("Postcode"))&"\"&HTMLEncode(Request("blood"))&"\"&HTMLEncode(Request("belief"))&"\"&HTMLEncode(Request("occupation"))&"\"&HTMLEncode(Request("marital"))&"\"&HTMLEncode(Request("education"))&"\"&HTMLEncode(Request("college"))&"\"&HTMLEncode(Request("address"))&"\"&HTMLEncode(Request("phone"))&"\"&HTMLEncode(Request("character"))&"\"&HTMLEncode(Request("personal"))&"" Rs("UserIM")=""&HTMLEncode(Request("qq"))&"\"&HTMLEncode(Request("icq"))&"\"&HTMLEncode(Request("uc"))&"\"&HTMLEncode(Request("aim"))&"\"&HTMLEncode(Request("msn"))&"\"&HTMLEncode(Request("Yahoo"))&"" Rs.update UserID=Rs("ID") Rs.close Conn.execute("update [BBSXP_SiteSettings] set DaysUsers=DaysUsers+1,TotalUsers=TotalUsers+1,NewUsers='"&UserName&"'") Mailaddress=UserMail MailTopic="用户名注册成功" body=""&vbCrlf&"亲爱的"&UserName&", 您好!"&vbCrlf&""&vbCrlf&"  恭喜! 您已经成功地注册了您的资料, 非常感谢您使用"&SiteSettings("CompanyName")&"的服务!"&vbCrlf&""&vbCrlf&" * 您的帐号是:"&UserName&" 密码是:"&password&""&vbCrlf&""&vbCrlf&" * "&SiteSettings("SiteName")&"("&SiteSettings("SiteURL")&"Default.asp)"&vbCrlf&""&vbCrlf&" * 最后, 有几点注意事项请您牢记"&vbCrlf&"1、请遵守《计算机信息网络国际联网安全保护管理办法》里的一切规定。"&vbCrlf&"2、使用轻松而健康的话题,所以请不要涉及政治、宗教等敏感话题。"&vbCrlf&"3、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。"&vbCrlf&""&vbCrlf&""&vbCrlf&"论坛服务由 "&SiteSettings("CompanyName")&"("&SiteSettings("CompanyURL")&") 提供 程序制作:YUZI工作室(http://www.yuzi.net)"&vbCrlf&""&vbCrlf&""&vbCrlf&"" if SiteSettings("EnableUser")=0 then ResponseCookies"UserID",UserID,"365" ResponseCookies"Userpass",md5(password),"365" elseif SiteSettings("EnableUser")=1 then %><% end if Message=Message&"
  • 注册新用户资料成功
  • 返回论坛首页" succeed(""&Message&"") elseif Request("menu")="write" then If not Conn.Execute("Select id From [BBSXP_Users] where UserName='"&UserName&"'" ).eof or UserName="" Then error2("您所选的用户名 "&UserName&" 已经有人使用,请另外选择一个用户名。") %>
       <%ClubTree%> → 注册协议检查用户名 → 填写用户资料

    <%if SiteSettings("EnableAntiSpamTextGenerateForRegister")=1 then%> <%end if%> <%if SiteSettings("EnableUser")<>1 then%> <%end if%>
     个人社区资料(以下内容必填)
    用户名: <%=UserName%>
    验证码:
    密码:
    密码必须至少包含 6 个字符
    密码强度:
    重新键入密码:
    请与您的密码保持一致
    您的Email地址:
    <%if SiteSettings("EnableUser")=1 then%>密码将通过Email发送<%end if%>
     个人生活资料(以下内容建议填写)
     真实姓名:
     头像地址:    

     出生日期:

     个人主页:

     性 格

     个人简介:
     

     签名档:
     

     性  别:
     国  家:
     省  份:
     城  市:
     邮政编号:
     血  型:
     信  仰:
     职  业:
     婚姻状况:
     最高学历:
     毕业院校:
     私人联系资料(以下资料不公开)
     联系地址:
     电话号码:
     手机号码:
     即时通讯资料
     QQ号码:  ICQ IM:
     UC号码:  AOL IM:
     MSN IM:    Yahoo IM:
     密码保护资料
    密码提示问题:
    如果您忘记了密码, 系统会向您询问机密答案
     
    机密答案:  
    <% elseif Request("menu")="" then %>
       <%ClubTree%> → 注册协议



    <% elseif Request("menu")="Check" then %>
       <%ClubTree%> → 注册协议 → 检查用户名


    请输入您要注册的用户名


    <% end if htmlend %>