%
username=HTMLEncode(Trim(Request("username")))
if instr(username,"#")>0 or instr(username,"`")>0 or instr(username,"|")>0 or instr(username," ")>0 or instr(username," ")>0 or Instr(username,"%")>0 or Instr(username,"&")>0 or Instr(username,"") or Instr(username,"+")>0 then
error2("用户名中不能含有特殊符号")
end if
if Request("menu")="face" then
%>
BBSxp--头像列表 - Powered By BBSxp
<%
responseend
end if
if Request("menu")="Check" then
If conn.Execute("Select id From [user] where username='"&username&"'" ).eof Then
response.write "用户名" "&HTMLEncode(username)&" "可以正常注册!"
else
response.write "您所选的用户名" "&username&" "已经有用户使用,请另外选择一个用户名。"
end if
responseend
end if
if CloseRegUser = 1 then error("本论坛暂时不开放新用户注册!")
top
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request.ServerVariables("request_method") = "POST" then
if instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 then error("来源错误")
password=Trim(Request("password"))
userpass2=Trim(Request("userpass2"))
usermail=HTMLEncode(Request("usermail"))
userhome=HTMLEncode(Request("userhome"))
question=HTMLEncode(Request("question"))
answer=HTMLEncode(Request("answer"))
realname=HTMLEncode(Request("realname"))
birthday=HTMLEncode(Request("birthday"))
userface=HTMLEncode(Request("userface"))
sex=HTMLEncode(Request("sex"))
country=HTMLEncode(Request("country"))
province=HTMLEncode(Request("province"))
city=HTMLEncode(Request("city"))
blood=HTMLEncode(Request("blood"))
character=HTMLEncode(Request("character"))
belief=HTMLEncode(Request("belief"))
college=HTMLEncode(Request("college"))
marital=HTMLEncode(Request("marital"))
education=HTMLEncode(Request("education"))
personal=""&HTMLEncode(Request("personal"))&""
occupation=HTMLEncode(Request("occupation"))
userqq=HTMLEncode(Request("userqq"))
icq=HTMLEncode(Request("icq"))
sign=HTMLEncode(Request.Form("sign"))
temp=UCase(sign)
if instr(temp,"[/FLASH]")>0 or instr(temp,"[/RM]")>0 or instr(temp,"[/MP]")>0 then message=message&"签名档中不能含有[FLASH] [RM] [MP]代码"
if username="" then message=message&"您的用户名没有填写"
if Len(username)>16 then message=message&"您的用户名中不能超过16个字节"
if password="" then
password=session.sessionid
elseif password<>userpass2 then
message=message&"您2次输入的密码不正确"
end if
if instr(usermail,"@")=0 then message=message&"您的电子邮件地址填写错误"
if not isnumeric(userqq) and userqq<>"" then message=message&"QQ号码请用数字填写"
if not isnumeric(icq) and icq<>"" then message=message&"ICQ号码请用数字填写"
if Len(personal)>255 then message=message&"个人简介不能大于 255 个字节"
if Len(sign)>255 then message=message&"签名档不能大于 255 个字节"
If not conn.Execute("Select id From [user] where username='"&username&"'" ).eof Then
message=message&"此用户名已经被别人注册了"
end if
if RegOnlyMail = 1 then
If not conn.Execute("Select id From [user] where usermail='"&usermail&"'" ).eof Then
message=message&"此Email已经被别人注册了"
end if
end if
if message<>"" then error(""&message&"")
for each ho in request.form("character")
allcharacter=""&allcharacter&""&ho&""
next
rs.Open "[user]",conn,1,3
rs.addnew
rs("username")=username
rs("userpass")=md5(password)
rs("usermail")=usermail
rs("userhome")=userhome
rs("question")=question
rs("membercode")=ActivationUser
if Request("answer")<>empty then rs("answer")=md5(Request("answer"))
rs("realname")=realname
rs("birthday")=birthday
rs("userface")=userface
rs("sex")=sex
rs("country")=country
rs("province")=province
rs("city")=city
rs("blood")=blood
rs("character")=allcharacter
rs("belief")=belief
rs("occupation")=occupation
rs("college")=college
rs("marital")=marital
rs("education")=education
if icq<>empty then rs("icq")=icq
if userqq<>empty then rs("userqq")=userqq
rs("personal")=personal
rs("sign")=sign
rs("friend")="|"
rs("regtime")=""&Date()&""
rs.update
rs.close
Application.Lock
Application(CacheName&"NewUserName")=username
Application(CacheName&"CountUser") = Application(CacheName&"CountUser")+1
Application.UnLock
mailaddress=usermail
mailtopic="用户名注册成功"
body=""&vbCrlf&"亲爱的"&username&", 您好!"&vbCrlf&""&vbCrlf&" 恭喜! 您已经成功地注册了您的资料, 非常感谢您使用"&homename&"的服务!"&vbCrlf&""&vbCrlf&" * 您的帐号是:"&username&" 密码是:"&password&""&vbCrlf&""&vbCrlf&" * "&clubname&"("&cluburl&"Default.asp)"&vbCrlf&""&vbCrlf&" * 最后, 有几点注意事项请您牢记"&vbCrlf&"1、请遵守《计算机信息网络国际联网安全保护管理办法》里的一切规定。"&vbCrlf&"2、使用轻松而健康的话题,所以请不要涉及政治、宗教等敏感话题。"&vbCrlf&"3、承担一切因您的行为而直接或间接导致的民事或刑事法律责任。"&vbCrlf&""&vbCrlf&""&vbCrlf&"论坛服务由 "&homename&"("&homeurl&") 提供 程序制作:Yuzi工作室(http://www.yuzi.net)"&vbCrlf&""&vbCrlf&""&vbCrlf&""
%>
<%
if SendPassword<>1 and ActivationUser<>0 then
userword="用户名:"&username&"密码:"&password&""
Response.Cookies("username")=username
Response.Cookies("userpass")=md5(password)
end if
message=message&""&userword&"注册新用户资料成功返回论坛首页"
succeed(""&message&"")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%ClubTree%> → 注册新用户 |
<%
htmlend
%>