📄 reg.asp
字号:
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">出生日期：</td>
<td align="left" bgcolor="#F7F7F7"><input name="b_year" type="text" class="input1" id="b_year" style="ime-mode:disabled" onkeyup="value=value.replace(/[^\d]/g,'') " size="4" maxlength="4"onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
年
<input name="b_month" type="text" class="input1" id="b_month" style="ime-mode:disabled" onkeyup="value=value.replace(/[^\d]/g,'') " size="2" maxlength="2"onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
月
<input name="b_day" type="text" class="input1" id="b_day" style="ime-mode:disabled" onkeyup="value=value.replace(/[^\d]/g,'') " size="2" maxlength="2"onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
日</td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">所在地点：</td>
<td align="left" bgcolor="#F7F7F7"><select name="u_add" size="1" class="select1" id="u_add">
<option value="" selected>-请选择-</option>
<option value="北京">* 北京</option>
<option value="上海">* 上海</option>
<option value="天津">* 天津</option>
<option value="重庆">* 重庆</option>
<option value="台湾">* 台湾</option>
<option value="香港">* 香港</option>
<option value="澳门">* 澳门</option>
<option value="安徽">a 安徽</option>
<option value="福建">f 福建</option>
<option value="甘肃">g 甘肃</option>
<option value="贵州">g 贵州</option>
<option value="广东">g 广东</option>
<option value="广西">g 广西</option>
<option value="黑龙江">h 黑龙江</option>
<option value="河北">h 河北</option>
<option value="湖北">h 湖北</option>
<option value="湖南">h 湖南</option>
<option value="河南">h 河南</option>
<option value="海南">h 海南</option>
<option value="吉林">h 吉林</option>
<option value="江苏">h 江苏</option>
<option value="江西">h 江西</option>
<option value="辽宁">l 辽宁</option>
<option value="宁夏">l 宁夏</option>
<option value="内蒙古">l 内蒙古</option>
<option value="青海">q 青海</option>
<option value="陕西">s 陕西</option>
<option value="山西">s 山西</option>
<option value="四川">s 四川</option>
<option value="山东">s 山东</option>
<option value="新疆">x 新疆</option>
<option value="西藏">x 西藏</option>
<option value="云南">y 云南</option>
<option value="浙江">z 浙江</option>
</select></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">E-Mail地址：</td>
<td align="left" bgcolor="#F7F7F7"><input name="u_email" type="text" class="input1" id="u_email" size="20" style="ime-mode:disabled"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">腾讯QQ：</td>
<td align="left" bgcolor="#F7F7F7"><input name="u_qq" type="text" class="input1" id="u_qq" style="ime-mode:disabled" onkeyup="value=value.replace(/[^\d]/g,'') " size="20" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">MSN账号：</td>
<td align="left" bgcolor="#F7F7F7"><input name="u_msn" type="text" class="input1" id="u_msn" size="20" style="ime-mode:disabled"></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">固定电话：</td>
<td align="left" bgcolor="#F7F7F7"><input name="u_tel" type="text" class="input1" id="u_tel" style="ime-mode:disabled" onKeyUp="value=value.replace(/[^\d]/g,'') " size="20" maxlength="11" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
<br>
<span class="f7">(请填写区号，区号与电话号码之间不需要-等符号间隔)</span></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">移动电话：</td>
<td align="left" bgcolor="#F7F7F7"><input name="u_mtel" type="text" class="input1" id="u_mtel" style="ime-mode:disabled" onkeyup="value=value.replace(/[^\d]/g,'') " size="20" maxlength="11" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">
<br>
<span class="f7">(手机号码前请不要加0或86等数字)</span></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">推荐注册人账号：</td>
<td align="left" bgcolor="#F7F7F7"><input name="cmd_userid" type="text" class="input1" id="cmd_userid" size="20" maxlength="24" style="ime-mode:disabled" onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9">
<br> <span class="f7">推荐人账号可或得一定的奖励</span></td>
</tr>
<tr>
<td height="25" align="right" bgcolor="#E7E7E7">验证代码：</td>
<td align="left" bgcolor="#F7F7F7"><input name="vcode" type="text" class="input1" id="vcode" size="4" maxlength="4" style="ime-mode:disabled" onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))" onkeydown="if(event.keyCode==13)event.keyCode=9">
<img src="../inc/vcode.asp" alt="如果您看不到此验证代码图片，请与管理员联系解决"></td>
</tr>
<tr align="center">
<td height="30" colspan="2"><input name="ok" type="checkbox" id="ok" value="true">
我已查看并同意 <a href="#" class="f8">《用户注册协议》</a></td>
</tr>
<tr align="center">
<td height="50" colspan="2"><input name="Submit" type="submit" class="button1" value="确定注册">
<input name="userid" type="hidden" id="userid" value="<%=LCase(request.form("userid"))%>">
<input name="u_type" type="hidden" id="u_type" value="<%=request.form("u_type")%>"></td>
</tr>
</form>
</table>
<table width="550" height="50" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<%end sub%>
<%
sub save_data()
call myobj.chkrq()
if request.Form("userid")="" then
response.write"<script language=javascript>alert('错误！用户账号值为空');history.back();</Script>"
response.end
end if
if myobj.ChkLen(request.Form("userid"))<3 or myobj.ChkLen(request.Form("userid"))>12 then
response.write"<script language=javascript>alert('用户账号不能少于3个或大于12人字符');history.back();</Script>"
response.end
end if
if myobj.ChkID(request.Form("userid"))=false then
response.write"<script language=javascript>alert('用户账号只能是字母、数字及下划线');history.back();</Script>"
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from member where userid = '"&request.Form("userid")&"'",conn,1,1
if not rs.eof then '该账号存在
call nr()
response.write"<script language=javascript>alert('该用户账号已经有人使用，请重新填写');history.back();</Script>"
response.end
end if
rs.close
if request.Form("u_type")="" then
response.write"<script language=javascript>alert('错误！用户类型值为空');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.form("u_type"))=false then
response.write"<script language=javascript>alert('用户类型的值错误');history.back();</Script>"
response.end
end if
if cint(request.form("u_type"))<>1 and cint(request.form("u_type"))<>2 and cint(request.form("u_type"))<>3 then
response.write"<script language=javascript>alert('用户类型的值错误');history.back();</Script>"
response.end
end if
if request.form("u_pwd")="" then
response.write"<script language=javascript>alert('用户密码必须填写');history.back();</Script>"
response.end
end if
if myobj.ChkLen(request.form("u_pwd"))<6 or myobj.ChkLen(request.form("u_pwd"))>24 then
response.write"<script language=javascript>alert('用户密码长度必须为6-24个字符');history.back();</Script>"
response.end
end if
if request.form("u_pwd")<>request.form("re_u_pwd") then
response.write"<script language=javascript>alert('两次输入的用户密码必须相同');history.back();</Script>"
response.end
end if
if request.form("pwd_qu")="" then
response.write"<script language=javascript>alert('密码提示问题必须填写');history.back();</Script>"
response.end
end if
if myobj.ChkLen(request.form("pwd_qu"))<8 or myobj.ChkLen(request.form("pwd_qu"))>50 then
response.write"<script language=javascript>alert('密码提示问题长度必须为8-50个字符(汉字占两个字符)');history.back();</Script>"
response.end
end if
if request.form("pwd_qu")=request.form("u_pwd") then
response.write"<script language=javascript>alert('密码提示问题不能与用户密码相同');history.back();</Script>"
response.end
end if
if request.form("pwd_an")="" then
response.write"<script language=javascript>alert('密码提示答案必须填写');history.back();</Script>"
response.end
end if
if myobj.ChkLen(request.form("pwd_an"))<8 or myobj.ChkLen(request.form("pwd_an"))>50 then
response.write"<script language=javascript>alert('密码提示答案长度必须为8-50个字符(汉字占两个字符)');history.back();</Script>"
response.end
end if
if request.form("pwd_an")=request.form("pwd_qu") then
response.write"<script language=javascript>alert('密码提示的答案不能与密码提示问题相同');history.back();</Script>"
response.end
end if
if request.form("pwd_an")=request.form("u_pwd") then
response.write"<script language=javascript>alert('密码提示答案不能与用户密码相同');history.back();</Script>"
response.end
end if
if request.form("is_vip")="" then
response.write"<script language=javascript>alert('请选择是否申请成为VIP用户');history.back();</Script>"
response.end
end if
if myobj.chkbool(request.form("is_vip"))=false then
response.write"<script language=javascript>alert('VIP用户值类型错误');history.back();</Script>"
response.end
end if
if request.form("u_type")=3 then
if pb_vip=false and cbool(request.form("is_vip"))=true then
response.write"<script language=javascript>alert('对不起，系统限制不允许网吧用户申请VIP用户');history.back();</Script>"
response.end
end if
if request.form("bdip0")="" or request.form("bdip1")="" or request.form("bdip2")="" or request.form("bdip3")="" then
response.write"<script language=javascript>alert('请将与该网吧包月用户账号绑定的IP地址填写完整');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.form("bdip0"))=false or myobj.ChkNum(request.form("bdip1"))=false or myobj.ChkNum(request.form("bdip2"))=false or myobj.ChkNum(request.form("bdip3"))=false then
response.write"<script language=javascript>alert('IP地址只能填写0-255的数字');history.back();</Script>"
response.end
end if
if request.form("bdip0")=0 and request.form("bdip1")=0 and request.form("bdip2")=0 and request.form("bdip3")=0 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("bdip0")=255 and request.form("bdip1")=255 and request.form("bdip2")=255 and request.form("bdip3")=255 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("bdip0")=127 and request.form("bdip1")=0 and request.form("bdip2")=0 and request.form("bdip3")=1 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("bdip0")=224 and request.form("bdip1")=0 and request.form("bdip2")=0 and request.form("bdip3")=1 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("bdip0")=224 and request.form("bdip1")=0 and request.form("bdip2")=0 and request.form("bdip3")=2 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("bdip0")=169 and request.form("bdip1")=254 then
response.write"<script language=javascript>alert('绑定的IP地址是无效的或是保留的特殊IP地址，请重新填写');history.back();</Script>"
response.end
end if
if request.form("max_online")="" then
response.write"<script language=javascript>alert('请填写要注册的网吧客户机数量');history.back();</Script>"
response.end
end if
if myobj.ChkNum(request.form("max_online"))=false then
response.write"<script language=javascript>alert('注册客户机数量只能填写整数');history.back();</Script>"
response.end
end if
if cint(max_pc_count)<cint(request.form("max_online")) then
response.write"<script language=javascript>alert('对不起，系统限制最多只允许注册客户机"&max_pc_count&"台');history.back();</Script>"
response.end
end if
reg_bdip=request.form("bdip0")&"."&request.form("bdip1")&"."&request.form("bdip2")&"."&request.form("bdip3")
set rs=server.createobject("adodb.recordset")
rs.open "select * from member where u_type=3 and bd_ip='"®_bdip&"'",conn,1,1
if not rs.eof then
call nr()
response.write"<script language=javascript>alert('您要绑定的IP地址已经被本站其它用户绑定!');history.back();</Script>"
response.end
end if
rs.close
end if
if request.form("u_name")<>"" then
if myobj.chkcn(request.form("u_name"))=false then
response.write"<script language=javascript>alert('真实姓名只能填写汉字');history.back();</Script>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -