<% Dim Action If Session(YxBBs.CacheName&"LoginTime")+YxBBs.BBSSetting(28)/1440>now() then YxBBs.Error("在同一用户来源限制注册间隔"&YxBBs.BBSSetting(28)&" 分钟！") If YxBBs.BBSSetting(0)="1" then YxBBs.Error("论坛暂不允许新用户注册！") Call YxBBs.Head("注册新用户") Action=Request.QueryString("action") Select Case Action Case"agree" Register() Case"check" RegSaveData() Case Else RegMain() End Select YxBBs.Footer() Set YxBBs=Nothing Sub RegMain() Dim Caption,Content Caption="注册协议" Content=""&_ "

"&_ "欢迎您加入【"&YxBBs.BBSName&"】参加交流和讨论，【"&YxBBs.BBSName&"】为公共论坛，为维护网上公共秩序和社会稳定，请遵守以下条款： "& vbCrLf&_ " "& vbCrLf&_ "一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站传播下列信息： "& vbCrLf&_ " "& vbCrLf&_ "（一）煽动抗拒、破坏宪法和法律、行政法规实施的； "& vbCrLf&_ "（二）煽动颠覆国家政权，推翻社会主义制度的； "& vbCrLf&_ "（三）煽动分裂国家、破坏国家统一的； "& vbCrLf&_ "（四）煽动民族仇恨、民族歧视，破坏民族团结的； "& vbCrLf&_ "（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的； "& vbCrLf&_ "（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的； "& vbCrLf&_ "（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的； "& vbCrLf&_ "（八）损害国家机关信誉的； "& vbCrLf&_ "（九）其他违反宪法和法律行政法规的； "& vbCrLf&_ "（十）进行商业广告行为的。 "& vbCrLf&_ " "& vbCrLf&_ "二、互相尊重，对自己的言论和行为负责。"& vbCrLf&_ "

" Call YxBBs.ShowTable(Caption,Content) End Sub Function Jncode(Istr) Dim japArr,ArrNum japArr=Array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ズ","ヅ","デ","ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ","ヂ","ダ","ゾ","ゼ") For ArrNum=0 to Ubound(japArr) Istr=Replace(Istr,japArr(ArrNum),"&#"&AscW(japArr(ArrNum))&";") Next Jncode=Istr End Function Sub RegSaveData() YxBBs.Fun.CheckMake Dim Temp,Caption,Content,Rs,Sql,Name,password,RePassword,Clue,Answer,Mail,PicUrl,HeadPic,PicW,PicH,Home,Sign,QQ,IsQQpic,Sex,Birthday Name=YxBBs.Fun.GetStr("Name") password=YxBBs.Fun.GetStr("Password") RePassword=YxBBs.Fun.GetStr("RePassword") Clue=YxBBs.Fun.GetStr("Clue") Answer=YxBBs.Fun.GetStr("Answer") Mail=YxBBs.Fun.GetStr("Mail") If name="" or Password="" or RePassword="" or Mail="" or Clue="" or Answer="" Then YxBBs.Error("请填写完整的必填项目！") If Not YxBBs.Fun.CheckName(name) Then YxBBs.Error("用户名中有非法字符或被屏蔽字符！") If YxBBs.Fun.StrLength(name)>14 or YxBBs.Fun.strLength(password)>14 or YxBBs.Fun.StrLength(name)<3 Then YxBBs.Error("用户名或密码长度不符合字符个数.") If instr("@@"&lcase(YxBBs.BadName)&"@@","@@"& lcase(Name) &"@@")>0 Then YxBBs.Error("用户名中有非法字符或被屏蔽字符！") If Not YxBBs.Execute("SELECT name FROM [YX_user] where Name='"&Name&"'").Eof Then YxBBs.Error("您申请注册的这个昵称已经被另一个用户使用了！") IF len(Password)<6 Then YxBBs.Error("密码长度不能小于6个字符！") If Repassword<>Password Then YxBBs.Error("两次输入密码不一致！") Mail=Server.HTMLEncode(Mail) If Not YxBBs.Fun.IsValidEmail(Mail) Then YxBBs.Error("错误的E-Mail地址！") PicUrl=YxBBs.Fun.HtmlCode(YxBBs.Fun.GetStr("PicUrl")) HeadPic=YxBBs.Fun.HtmlCode(YxBBs.Fun.GetStr("HeadPic")) Home=YxBBs.Fun.HtmlCode(YxBBs.Fun.GetStr("Home")) Sex=YxBBs.Fun.GetStr("Sex") Birthday=Trim(YxBBs.Fun.GetStr("BirthYear"))&"-"&Trim(YxBBs.Fun.GetStr("BirthMonth"))&"-"&Trim(YxBBs.Fun.GetStr("Birthday")) QQ=YxBBs.Fun.GetStr("QQ") IsQQpic=YxBBs.Fun.GetStr("IsQQpic") If Instr(Home,"://")=0 Then Home="" If IsQQpic<>"1" Then IsQQpic="0" Sign=Left(YxBBs.Fun.HtmlCode(YxBBs.Fun.GetStr("Sign")),255) PicH=YxBBs.Fun.GetStr("PicH") PicW=YxBBs.Fun.Getstr("PicW") Name=Jncode(Name) If PicUrl="" then PicUrl="Images/UserHead/"& HeadPic &".gif" PicW= YxBBs.BBSSetting(16) PicH= YxBBs.BBSSetting(17) End If If (QQ<>"" And not isnumeric(QQ)) Or (IsQQpic="1" and QQ="") then YxBBs.Error("您的QQ号码填写错误！") If Len(Clue)>70 Or Len(Answer)>70 or Len(Mail)>50 or Len(HeadPic)>220 or Len(QQ)>20 or Len(Home)>250 Then YxBBs.Error("您填写的一些字符数超过了论坛的限制！") If Not isnumeric(PicW) or Not isnumeric(PicH) Then YxBBs.Error("头像宽度和高度必须用数字填写！") If PicW>int(YxBBs.BBSSetting(15)) or PicH>int(YxBBs.BBSSetting(15)) then PicW=YxBBs.BBSSetting(16) PicH=YxBBs.BBSSetting(17) End If Birthday=Replace(Replace(Birthday,",","-")," ","") If Not isdate(Birthday) then Birthday="1900-01-01" Dim GradeNum,Grs,Isdel,Auditing Set Grs=YxBBs.Execute("Select GradeNum from YX_UserGrade where ClassID=5 Order By UserMinPostNum Asc") GradeNum=Grs(0) Set Grs=Nothing If YxBBs.BBSSetting(34)="0" Then Isdel="0" Auditing="

恭喜您在注册成功！

您的用户名是："&name&".

但目前论坛开启了用户审核机制，请您稍后登陆！

返回首页

" else Isdel="1" Auditing="

恭喜您成为本论坛会员

您的用户名是："&name&"，请记住您的密码！

现在登陆？  返回首页

" end if YxBBs.Execute("Insert into [YX_User](Name,[Password],Clue,Answer,Mail,Home,Sex,IsQQpic,Birthday,QQ,GradeNum,ClassID,Pic,PicW,PicH,RegTime,LastTime,Sign,Regip,LastIp,isdel)VALUES('"&Name&"','"&Md5(password)&"','"&Clue&"','"&Md5(Answer)&"','"&Mail&"','"&Home&"',"&Sex&","&IsQQpic&",'"&Birthday&"','"&QQ&"',"&GradeNum&",5,'"&PicUrl&"',"&PicW&","&PicH&",'"&YxBBs.NowBbsTime&"','"&YxBBs.NowBbsTime&"','"&Sign&"','"&YxBBs.MyIP&"','"&YxBBs.MyIP&"','"&isdel&"')") YxBBs.Execute("update [YX_Config] set NewUser='"&name&"',UserNum=UserNum+1") If YxBBs.BBSSetting(5)="0" Then YxBBs.Execute("insert into [YX_sms](name,MyName,Title,Content,ubbString) values('系统消息','"&name&"','"&YxBBs.BBSName&"欢迎您！','"&YxBBs.RegAutoSms&"',',')") YxBBs.Execute("update [YX_User] set NewSmsNum=NewSmsNum+1 Where Name='"&name&"'") End If Caption="注册成功" Content=Auditing Call YxBBs.ShowTable(Caption,Content) End Sub Sub Register() Dim Caption,Content,HeadPic HeadPic=HeadPicOpt() Caption="新用户注册" Content="

"&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ ""&_ "

+=必填资料=+
用户名称： 注册用户名不能超过14个字符（7个汉字）
您的性别：	帅哥   靓女
密码(最少6位,最多16位)： 请不要使用任何标点或HTML字符
重复密码： 请再输一遍确认
密码问题： 忘记密码的提示问题
问题答案： 忘记密码的提示问题答案，用于取回论坛密码
Email地址： 请输入有效的邮件地址
+=选填资料=+
"&_ "
生日： 请把年月日全部填写	年月日
主页： 填写你的个人主页促进大家展现自我
OICQ号码： 填写您的QQ地址，方便与他人的联系	启用QQ形象作为头像
我的头像： 使用论坛自带的图像	" & HeadPic &"
自定义头像： 如果图像位置中有连接图片将以自定义的为主	完整Url地址 图像宽度： 高度：(最大限度:"&YxBBs.BBSSetting(15)&")
个性签名： 最多255个字符 文字将出现在您发表的文章的结尾处 体现您的个性

" Call YxBBs.ShowTable(Caption,Content) End Sub Function HeadPicOpt() Dim Temp,i for i=2 to Int(YxBBs.BBSSetting(14)) Temp=Temp&""&i&"" Next HeadPicOpt="1"&Temp&"" End Function %>