<% dim action action=www.dvbhispano.com/9bbs/request.querystring("action") select case action case"" %>
  用户注册条款和声明

继续注册前请先阅读论坛协议
欢迎您加入本站点参加交流和讨论,本站点为公共论坛,为维护网上公共秩序和社会稳定,请您自觉遵守以下条款:

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播下列信息:
(一)煽动抗拒、破坏宪法和法律、行政法规实施的;
(二)煽动颠覆国家政权,推翻社会主义制度的;
(三)煽动分裂国家、破坏国家统一的;
(四)煽动民族仇恨、民族歧视,破坏民族团结的;
(五)捏造或者歪曲事实,散布谣言,扰乱社会秩序的;
(六)宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的;
(七)公然侮辱他人或者捏造事实诽谤他人的,或者进行其他恶意攻击的;
(八)损害国家机关信誉的;
(九)其他违反宪法和法律行政法规的;
(十)进行商业广告行为的。

二、互相尊重,对自己的言论和行为负责。

<%case"agree"%>
<%=ttop%>
  用户注册资料
 必填资料:

用户名
注册用户名不能超过16个字符(8个汉字) 。

 

性别
请选择您的性别

  帅哥      靓女

密码(最多16位)
请不要使用任何类似 '*'、' ' 或 HTML 字符。

 

重复密码(最多16位)
请再输一遍确认 。

 

Email地址
请输入有效的邮件地址,这将使您能用到论坛中的所有功能 。

 

注册验证码
如无法显示或看不清,请刷新本页 。

  请输入:
 选填资料:

生日:(请按照2000-01-01格式填写)

 

主页:
填写你的个人主页,让大家见识见识。

 

OICQ号码
填写您的QQ地址,方便与他人的联系 。

 

我的头像:
使用论坛自带的图像。


  [ 查看所有头像 ]
 

自定义头像
如果图像位置中有连接图片将以自定义的为主 。

  完整Url地址
  图像宽度:> 高度: >(宽最大<%=checknum(application(prefix&"picw"))%>   高最大<%=checknum(application(prefix&"pich"))%>)

个性签名
最多255个字符
文字将出现在您发表的文章的结尾处。体现您的个性。

  
<%=tbottom%>
<%case"save"%><% dim name,password,repassword,email,sex,burn1,burn2,burn3,burn,home,qq,gxqm,picw,pich,bbspic,mypic,toupic dim canreg,badwords,z,adminid,sickpass,userinfo,regtime,sql,userid,newuserinfo,bad,b function checkbad(str) if isnull(str) then exit function bad=split(application(prefix&"badcontent"), "|") for b=0 to ubound(bad) str=Replace(str,bad(b),string(len(bad(b)),"*")) next checkbad=str end function name=Replace(Request.Form("name"),"'","''") password=Replace(Request.Form("password"),"'","''") repassword=Replace(Request.Form("repassword")," ","") email=Replace(Request.Form("email"),"'","''") adminid=Replace(Request.Form("adminid"),"'","''") sex=checknum(request.form("sex")) burn1=replace(Request.Form("burn1"),"'","") burn2=replace(Request.Form("burn2"),"'","") burn3=replace(Request.Form("burn3"),"'","") home=Replace(Request.Form("home"),"'","''") home=ubbg(home) qq=Replace(Request.Form("qq"),"'","''") gxqm=Request.Form("gxqm") gxqm=Replace(left(gxqm,255),"'","''") gxqm=replace(gxqm,"|","│") gxqm=checkbad(gxqm) picw=Replace(Request.Form("picw"),"'","''") pich=Replace(Request.Form("pich"),"'","''") mypic=Replace(Request.Form("mypic"),"'","''") mypic=ubbg(mypic) bbspic=Replace(Request.Form("bbspic"),"'","''") canreg=true function checkStr(str) if isnull(str) then checkStr = "" exit function end if checkStr=replace(str,"'","''") end function if name="" or password="" or repassword="" or email="" or adminid="" or sex="" then canreg=false mes="·请填写完整必填的资料。
" else mes="" if strlength(name)>16 then canreg=false mes="·你的用户名长度超过了16。
" end if if not pass_name(name) then canreg=false mes=mes&"·你的用户名含有非法字符。
" end if badwords=split(application(prefix&"badwords"),"|") for z=0 to ubound(badwords) if instr(name,badwords(z))>0 then canreg=false mes=mes&"·你的用户名含有论坛禁止使用的字词。
" exit for end if next if canreg=true then if not conn.execute("select top 1 userid from [user] where name='"&name&"'").eof then canreg=false:mes=mes&"·该用户名已经被注册了。
" end if if len(password)>16 then canreg=false : mes=mes&"·你填写的密码长度超过了16。
" sickpass=array(123,1234,12345,123456,1234567,12345678,"aaa",111) for i=0 to ubound(sickpass) if len(password)<3 or password=sickpass(i) then canreg=false mes=mes&"·你的密码属于弱口令,请更换密码。
" exit for end if next '限制用户名密码不能相同 if password=name then canreg=false mes=mes&"·你的密码属于弱口令,请更换密码。
" end if '结束 if repassword<>password then canreg=false : mes=mes&"·你两次输入的密码不一样。
" email=server.HTMLEncode(email) if not IsValidEmail(email) then canreg=false : mes=mes&"·你的E-mail填写错误。
" if session("adminid")<>adminid or not isnumeric(session("adminid")) then canreg=false:mes=mes&"·你输入的验证码错误。
" end if burn=burn1&"-"&burn2&"-"&burn3 if not isdate(burn) then burn="--" if qq<>"" and (not isnumeric(qq) or (len(qq)<5 or len(qq)>12)) then canreg=false:mes=mes&"·你的 QQ 号码填写错误。
" if mypic="" then toupic="headpic/"&bbspic&".gif|"&checknum(application(prefix&"autopicw"))&"|"&checknum(application(prefix&"autopich")) else if picw<>"" and checknum(picw)<=checknum(application(prefix&"picw")) and pich<>"" and checknum(pich)<=checknum(application(prefix&"pich")) then toupic=mypic&"|"&picw&"|"&pich else canreg=false mes=mes&"·你的头像大小设置错误。
" end if end if if checknum(application(prefix&"headpicset"))<>1 and instr(toupic,"://")>0 then canreg=false mes=mes&"·本论坛不允许使用外部头像。
" end if if canreg=false then tl=" 注 册 失 败" mes="对不起!你不能成功地注册用户,可能存在以下问题。
"&mes&"· 返回重新填写。" elseif canreg=true then tl=" 注 册 成 功" mes="恭喜你!"&kbbs(name)&" 注册成功。
·现在登陆论坛。
·进入论坛首页。"%> <% regtime=FormatDateTime(now+timeset/24,2) userinfo=email&"|"&home&"|"&burn&"|"&qq&"|"&sex&"|"&toupic&"|"&gxqm&"|"®time&"|" password=md5(password) set rs = Server.CreateObject("ADODB.Recordset") sql="select top 1 userid,name,password,userinfo,lasttime from [user]" rs.open sql,conn,0,2 rs.addnew rs("name")=name rs("password")=password rs("userinfo")=userinfo rs("lasttime")=regtime rs.update userid=rs("userid") rs.close set rs=nothing newuserinfo=userid&"|"&name conn.execute("update [config] set newuser='"&newuserinfo&"',usernum=usernum+1") end if call sendinfo(tl,mes) %> <%end select call down %>