<% 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&"" Next HeadPicOpt="" End Function %>