<% stats="用户注册" dim username dim sex dim pass1 dim pass2 dim password dim useremail dim face,width,height dim oicq dim sign dim showRe dim rs,sql dim founderr dim errmsg dim boardtype founderr=false call chkinput sub chkinput() if request("name")="" or strLength(request("name"))>20 then errmsg=errmsg+"
"+"

请输入您的用户名(长度不能大于20)。" founderr=true else username=trim(request("name")) end if if Instr(request("name"),"=")>0 or Instr(request("name"),"%")>0 or Instr(request("name"),chr(32))>0 or Instr(request("name"),"?")>0 or Instr(request("name"),"&")>0 or Instr(request("name"),";")>0 or Instr(request("name"),",")>0 or Instr(request("name"),"'")>0 or Instr(request("name"),",")>0 or Instr(request("name"),chr(34))>0 or Instr(request("name"),"+") >0 then errmsg=errmsg+"
"+"

用户名中含有非法字符。" founderr=true else username=trim(request("name")) end if if request("sex")="" then errmsg=errmsg+"
"+"

请选择您的性别。" founderr=true elseif request("sex")=0 or request("sex")=1 then sex=request("sex") else errmsg=errmsg+"
"+"

您输入的字符非法。" founderr=true end if if request("showRe")="" then errmsg=errmsg+"
"+"

请选择您的帖子有回复时是否要提示您。" founderr=true elseif request("showRe")=0 or request("showRe")=1 then showRe=request("showRe") else errmsg=errmsg+"
"+"

您输入的字符非法。" founderr=true end if if request("psw")="" or strLength(request("psw"))>10 then errmsg=errmsg+"
"+"

请输入您的密码(长度不能大于10)。" founderr=true else pass1=request("psw") end if if request("pswc")="" or strLength(request("pswc"))>10 then errmsg=errmsg+"
"+"

请输入确认密码(长度不能大于10)。" founderr=true else pass2=request("pswc") end if if pass1<>pass2 then errmsg=errmsg+"
"+"

您输入的密码和确认密码不一致。" founderr=true else password=pass2 end if if IsValidEmail(trim(request("e_mail")))=false then errmsg=errmsg+"
"+"

您的Email有错误。" founderr=true else useremail=trim(request("e_mail")) end if if request.form("myface")<>"" then if request("width")="" or request("height")="" then errmsg=errmsg+"
"+"

请输入图片的宽度和高度。" founderr=true elseif not isInteger(request("width")) or not isInteger(request("height")) then errmsg=errmsg+"
"+"

您输入的字符不合法。" founderr=true elseif request("width")<20 or request("width")>80 then errmsg=errmsg+"
"+"

您输入的图片宽度不符合标准。" founderr=true elseif request("height")<20 or request("height")>80 then errmsg=errmsg+"
"+"

您输入的图片高度不符合标准。" founderr=true else face=request("myface") width=request("width") height=request("height") end if else if request("face")="" then errmsg=errmsg+"
"+"

请选择您的个性头像。" founderr=true elseif Instr(request("face"),picurl)>0 then face=request("face") width=32 height=32 else errmsg=errmsg+"
"+"

您选择了错误的头像。" founderr=true end if end if if request("oicq")<>"" then if not isnumeric(request("oicq")) or len(request("oicq"))>10 then errmsg=errmsg+"
"+"

Oicq号码只能是4-10位数字，您可以选择不输入。" founderr=true end if end if end sub sub saveuserinfo() set rs=server.createobject("adodb.recordset") sql="select * from [user] where username='"&username&"'" rs.open sql,conn,3,3 if not rs.eof and not rs.bof or username="动网小精灵" then errmsg=errmsg+"
"+"

对不起，您输入的用户名已经被注册，请重新输入。" founderr=true else rs.addnew rs("username")=username rs("userpassword")=password rs("useremail")=useremail rs("userclass")=1 if request("Signature")<>"" then rs("sign")=trim(request("Signature")) end if if request("oicq")<>"" then rs("oicq")=request("oicq") end if Rs("article")=0 Rs("lockuser")=0 Rs("sex")=sex Rs("showRe")=showRe Rs("addDate")=NOW() rs("face")=face Rs("width")=width Rs("height")=height rs("logins")=1 Rs("lastlogin")=NOW() rs("userWealth")=wealthReg rs("userEP")=epReg rs("usercP")=cpReg rs.update rs.close set rs=nothing conn.execute("update config set usernum=usernum+1,lastuser='"&username&"'") end if end sub call nav() call headline(1) if founderr=true then call error() else call saveuserinfo() if founderr=true then call error() else call reginfo() end if end if call endline() sub reginfo() %> align=center>

> > > > > > > > > > > > > > > 用户注册成功 <% topic="您在"&ForumName&"注册的个人资料" mailbody=mailbody &"" mailbody=mailbody &"" mailbody=mailbody &" " mailbody=mailbody &"***********************************************************************************************" mailbody=mailbody &"动网先锋论坛为您及时解决任何学习当中的问题：动网论坛" mailbody=mailbody &"动网先锋教学为您提供最好的ASP在先学习文章：动网网校" mailbody=mailbody &"动网先锋原码下载为您提供最好ASP原程序：动网下载" mailbody=mailbody &"***********************************************************************************************" mailbody=mailbody &""&Copyright&"  "&Version&"" mailbody=mailbody &" " mailbody=mailbody &""&htmlencode(username)&"，您好： " mailbody=mailbody &"欢迎您注册本论坛，我们将提供给您最好的论坛服务！ " mailbody=mailbody &"下面是您的注册信息： " mailbody=mailbody &"注册名："&htmlencode(username)&" " mailbody=mailbody &"密 码："&htmlencode(password)&" " mailbody=mailbody &" " mailbody=mailbody &"再次感谢您注册本系统，让我们一起来建设这个网上家园！" mailbody=mailbody &" " mailbody=mailbody &" ASPSKY.NET "&now()&" " on error resume next %> <%if EmailFlag=0 then%> 欢迎使用本系统，有任何问题，请与网管(><%=systememail%>)联系! <%elseif EmailFlag=1 then Response.Write " 一封注册信已经发送到你您注册时填写的信箱，请查收！" email = useremail call Jmail(email) %> <%elseif EmailFlag=2 then Response.Write " 一封注册信已经发送到你您注册时填写的信箱，请查收！" email = useremail call Cdonts(email) %> <%elseif EmailFlag=3 then Response.Write " 一封注册信已经发送到你您注册时填写的信箱，请查收！" email = useremail call Aspemail(email) end if %> 注 册 名** <%=htmlencode(username)%> 性 别 <%if sex=1 then%> 男 <%else%> 女 <%end if%> 密    码** <%=htmlencode(password)%> Email地址 ** <%=useremail%> 形象** 财 产 <%=wealthReg%> 经验值 <%=EPReg%> 魅力值 <%=CPReg%> 有回帖时是否提示 <%if showRe=1 then response.write "提示" else response.write "不提示" end if %> OICQ号码 <%if request("oicq")="" then%> 未注册 <%else%> <%=request("oicq")%> <%end if%> 签 名 文字将出现在您发表的文章的结尾处。体现您的个性。 <%if trim(request("Signature"))="" then%> 未填写 <%else%> <%=trim(request("Signature"))%> <%end if%> Cookie的保留时间 <% if request("usercookies")=0 then response.write "不保留" elseif request("usercookies")=1 then response.write "1天" elseif request("usercookies")=2 then response.write "1个月" elseif request("usercookies")=3 then response.write "1年" end if%> 请登陆论坛

<% end sub %>