<% ALi_dbflag() Function GetIp() Dim DulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") If DulIp="" Then GetIp=ProIP Else GetIp=DulIp End If End Function Function NoHtmlHackInput(Str) '过滤跨站脚本和HTML标签 Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Pattern = "<|>|(script)|on(mouseover|mouseon|mouseout|click|dblclick|blur|focus|change)|eval|\t" If regEx.Test(LCase(Str)) Then Response.Write "警告
  • 您提交的数据有恶意字符
  • 您的数据已经被记录!

  • 您的IP:"&Request.ServerVariables("Remote_Addr")&"

  • 操作日期:"&Now&"
  • " Response.End End If Set regEx = Nothing NoHtmlHackInput = Str End Function u=Request.QueryString("u") If u<>"" Then NoHtmlHackInput(u) End If comefrm=Request.QueryString("comefrm") If comefrm<>"" Then NoHtmlHackInput(comefrm) End If Action=Request.Form("Action") If Action="Add" Then '-----检查是否外部输入 isHttp = False strReferer = Request.ServerVariables("HTTP_REFERER") strHostName = "wy213" If InStr(strReferer, Trim(strHostName)) > 0 Then isHttp = True If IsNull(strReferer) Or isHttp = False Then Response.Write "非法提交地址" Response.End End If realname=Request.Form("realname") shengfz=Request.Form("shengfz") address=Request.Form("address") username=Request.Form("username") loginpass=Request.Form("loginpass") verifypass=Request.Form("verifypass") sex=Request.Form("sex") email=Request.Form("email") verifycode=Request.Form("verifycode") RegIP=GetIp() comefrm=Request.Form("comefrm") NoHtmlHackInput(comefrm) u=Request.Form("u") NoHtmlHackInput(u) If comefrm="" Then comefrm="wy213" End if comefrm_url=Request.Cookies("c_id") '来源ID if comefrm_url<>"" then comefrm=comefrm_url end if If username&""="" Then Response.write "" Response.End End If If len(u)>6 Then u="" End If If loginpass="" Or verifypass="" Or loginpass<>verifypass Then Response.write "" Response.End End If If email&""="" Then Response.write "" Response.End End If If verifycode&""="" Or cstr(Session("GetCode"))<>cstr(verifycode) Then Session("GetCode")="" Response.Write("") Response.End End If Dim Conn ALi_Conn '检测姓名 Set Rs=Conn.execute("select uid from aliuser where aliname='"&username&"'") If Not(Rs.eof Or Rs.bof) Then Rs.close:Set Rs=Nothing Conn.close:Set Conn=Nothing Response.write "" Response.End End If Set Rs=Nothing 'ip Set ipRs=Conn.execute("select count(*) as ipnum from aliuser where regip='"&RegIP&"' and datediff(d,regtime,getdate())=0") ipnum=ipRs("ipnum") If ipnum>5 Then Set ipRs=Nothing Conn.close:Set Conn=Nothing Response.write "" Response.End End If Set ipRs=Nothing '检测邮箱 Set mRs=Conn.execute("select uid from aliuser where email='"&email&"'") If Not mRs.eof Then Set mRs=Nothing Conn.close:Set Conn=Nothing Response.write "" Response.End End If Set mRs=Nothing conn.execute("insert into aliuser(aliname,alipass,sex,email,regip,zip,comefrm,gameplay,realname,ads,alicard) values('"&username&"','"&md5(loginpass,16)&"',"&sex&",'"&email&"','"&RegIP&"','"&RegIP&"','"&comefrm&"','"&u&"','"&realname&"','"&address&"','"&shengfz&"')") Set tRs=Conn.execute("select top 1 uid from aliuser where aliname='"&username&"'") If Not tRs.eof Then Uid=tRs(0) End If tRs.close:Set tRs=Nothing Conn.close:Set Conn=Nothing Session("AliID")=Uid Session("AliName") = username session("loginpass") = md5(loginpass,32) If u&""="" Then Response.Redirect "/" Else Response.Redirect "http://"&u&".wy213.com/" End If Response.End End if %> 通行证注册-我游网页游戏平台
    当前的位置:我游平台 >> 注册我游通行证
    用户名:
    用户名格式错误!只能由英文字母、数字和下划线组成,首位必须为英文字母!
    长度6-16个字符,可由英文字母、数字和下划线组成,首位必须为英文字母
    密码:
    密码不符合规则
    长度6-20个字符!
    确认密码:
    两次输入的密码不一致!
    长度6-20个字符!
    性别:
    电子邮箱地址:
    邮件格式不正确
    请输入有效的邮件地址,当密码遗失时凭此领取
    真实姓名:
    真实姓名不能为空
    请填写您的真实姓名
    身份证:
    身份证错误
    请填写您的身份证
    通讯地址:
    请填写您的通讯地址
    验证码:
    图片看不清?点击重新得到验证码
    请输入验证码