网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏IP生成   开区服务  
红月游戏帐号注册之三
文章作者:管理员 文章来源:红月私服中心-Www.hy45.Net 更新时间:2012/9/1 7:56:53 

<!--#include file="conn.asp" -->
<%
if not instr(1,Request.ServerVariables("http_Referer"),Request.ServerVariables ("SERVER_NAME"),1)=8 then
response.write "<b>请不要从非本服务器的页面提交信息</b>"
response.end
end if
posttime=session("posttime")
if posttime+600/86400>now() then
response.write "<script language='javascript'>"
   response.write "alert('为防止乱注册,本网站申请帐号时间间隔最小时间为10分钟!');"
   response.write "history.go(-1);"
   response.write "</script>"
   Response.End
end if
ps_loginname=trim(request.form("ps_loginname"))
ps_email=trim(request.form("ps_email"))
ps_password=trim(request.form("ps_password"))
ps_repassword=trim(request.form("ps_repassword"))
ps_answer=trim(request.form("ps_answer"))
ps_question=trim(request.form("ps_question"))
SecurityNum1=trim(request.form("year"))
dim  month,day
month=trim(request.form("month"))
day=trim(request.form("day"))
SecurityNum2=month&day
if instr(ps_loginname,"'")<>0 then hk=1
if instr(ps_loginname,"=")<>0 then hk=1
if instr(ps_loginname,"%")<>0 then hk=1
if instr(ps_email,"'")<>0 then hk=1
if instr(ps_email,"=")<>0 then hk=1
if instr(ps_email,"%")<>0 then hk=1
if instr(ps_password,"'")<>0 then hk=1
if instr(ps_password,"=")<>0 then hk=1
if instr(ps_password,"%")<>0 then hk=1
if instr(SecurityNum1,"'")<>0 then hk=1
if instr(SecurityNum1,"=")<>0 then hk=1
if instr(SecurityNum1,"%")<>0 then hk=1
if instr(ps_question,"'")<>0 then hk=1
if instr(ps_question,"=")<>0 then hk=1
if instr(ps_question,"%")<>0 then hk=1
if instr(ps_answer,"'")<>0 then hk=1
if instr(ps_answer,"=")<>0 then hk=1
if instr(ps_answer,"%")<>0 then hk=1
if hk=1 then
  response.write "<script language=javascript>alert('\n\n请不要在任何输入信息中加入 ’ %  = 等字符!');history.back()</script>"
  response.end
end if
%>
<% 
dim errormsg
errormsg="请重新填写注册资料!"
if instr(ps_loginname,"'")<>0 or instr(ps_loginname,"=")<>0 or instr(ps_loginname,"&")<>0 or instr(ps_loginname,"%")<>0 then
response.write "<script language=javascript>alert('您输入的用户名不符合要求!');history.back();</script>"
response.end
end if
if len(ps_loginname) < 4 then
    errormsg="<br>您设定的用户帐号长度小于4位,服务器不能接受!<br>"  & errormsg
end if
if len(ps_loginname) > 10 then 
    errormsg="<br>您设定的用户帐号长度大于10位,服务器不能接受!<br>"  & errormsg
end if
if len(ps_password) < 4 then 
    errormsg="<br>您的密码长度小于4位,服务器不能接受!<br>"  & errormsg
end if
if len(ps_password) > 10 then 
    errormsg="<br>您的密码长度大于10位,服务器不能接受!<br>"  & errormsg
end if
if ps_password <> ps_repassword then 
   errormsg="<br> 您两次输入的密码不相同,请返回上一步正确输入您的密码!<br>"  & errormsg
end if
old1="1999"
old2="1940"
if old2 > SecurityNum1 > old1 then 
    errormsg="<br>您的出生年份大于"&old1&"年啦,或者小于"&old2&"年啦!请不要误填写啊!<br>"  & errormsg
end if

if len(ps_question) < 6 then 
    errormsg="<br>您的密码问题小于6位,服务器不能接受!<br>"  & errormsg
end if
if len(ps_answer) < 6 then 
    errormsg="<br>您的密码答案小于6位,服务器不能接受!<br>"  & errormsg
end if
 hk=0
%>
<HTML><HEAD><TITLE>魔影论坛插件WWW.MOYSS.COM 秋风无痕整理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="text.css" rel=stylesheet>
<META content="Microsoft FrontPage 6.0" name=GENERATOR></HEAD>
<body bgcolor=#E7E7D6 leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0 width="458">
  <TBODY> 
  <TR vAlign=top><!-- row 2 -->
    <TD bgColor=#E7E7D6 colSpan=3 rowSpan=3>
      <TABLE align=center border=0 width="189">
        <TBODY>
        <TR>
          <TD width="183">
            <DIV align=center style="width: 377; height: 287">
              <P>                                           <br>
                <br>
                 </P>
                  <% 
  if errormsg="请重新填写注册资料!" then 
%>
                  <%
set rs1 = Server.CreateObject("ADODB.Recordset")
sql="select * from tblBillID  where BillID = '"&ps_loginname&"'" 

rs1.open sql,conn ,1,1

if not rs1.eof then 
       
   response.write "<script language=JavaScript>" & chr(13) & "alert('用户名已经有人使用');" & "history.back()" & "</script>"
else

set rs2 = Server.CreateObject("ADODB.Recordset")
 First
sql="INSERT INTO tblBillID (BillID,password,EMAIL,note9,note10,SecurityNum1,SecurityNum2) VALUES ('"&ps_loginname&"','"&ps_password&"','"&ps_email&"','"&ps_question&"','"&ps_answer&"','"&SecurityNum1&"','"&SecurityNum2&"')"
set rs2=conn.execute(sql)
session("regposttime")=Now() 
end if
%>
                  <table width="91%"  border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
                    <tr bgcolor="#E7E7D6"> 
                      <td colspan="2" align="center"><font color="#FF0000"><span class="content style2">注册成功,请牢记您的注册资料<br>
                        希望您的游戏旅程愉快! </span></font></td>
                    </tr>
                    <tr bgcolor="#E7E7D6"> 
                      <td width="36%" align="center">用 户 名</td>
                      <td width="64%"><%=ps_loginname%></td>
                    </tr>
                    <tr bgcolor="#E7E7D6"> 
                      <td align="center">密  码</td>
                      <td><%=ps_password%></td>
                    </tr>
                    <tr bgcolor="#E7E7D6"> 
                      <td align="center">电子信箱</td>
                      <td><%=ps_email%></td>
                    </tr>
                    <tr bgcolor="#E7E7D6"> 
                      <td align="center">生日</td>
                      <td><%=SecurityNum1%>年<%=month%>月<%=day%>日</td>
                    </tr>
                     <tr bgcolor="#E7E7D6"> 
                      <td align="center">密码提示问题</td>
                      <td><%=ps_question%></td>
                    </tr>
                    <tr bgcolor="#E7E7D6"> 
                      <td align="center">密码问题回答</td>
                      <td><%=ps_answer%></td>
                    </tr>
                  </table>
                  <%else%>
                  <table width="91%"  border="0" cellpadding="4" cellspacing="1">
                    <tr> 
                      <td align="center"><span class="content style2">很抱歉,您没有注册成功。<br>
                        原因如下:</span></td>
                    </tr>                    <tr> 
                      <td><%=errormsg%></td>
                    </tr>
                    </table><%end if%>
            </DIV></TD></TR></TBODY></TABLE></TD>
</TBODY></TABLE></BODY></HTML>

浏览次数:222
最新文章
· 2003系统任务栏显示桌面图标不见了处理办法...
· 修改红月私服某特定怪属性...
· 红月管理工具使用的配置...
· 教你怎么1个怪1级(去除10%限制)...
· 红月游戏帐号注册之二...
· 红月游戏帐号注册之三...
· 红月游戏帐号注册之一...
· 红月私服带杀人次数排行榜...
· 带防盗码生化排行...
· 出身完成任务一级发针存储过程...
热门文章
· 红月技能点属性上限...
· 3.8C红月私服限制部分外挂的方法...
· 调皮外挂不能正常使用...
· 红月私服角色之说...
· 升华原版升级代码...
· 红月私服自由军团存储汉化之自由军解散原因...
· 红月B2战争规则...
· 红月NPC各地点坐标...
· 红月服务器如何做到冲卡的...
· 红月外挂不能使用新解决办法...
关于我们 开区服务 网站帮助 全部私服
 
CopyRight @2010 hy45.net, Inc. All Rights Reserved  

备案登记号:苏ICP备11017169号-1