📄 reg_u.asp
字号:
<!-- #include file="CONST.ASP" -->
<!--#include file="inc/chkinput.asp"-->
<!--#include file="inc/md5Fix.asp"-->
<!-- #include file="inc/htmlhead.asp" -->
<!--#include FILE="inc/coo_footer.asp"-->
<!--#include FILE="inc/Emailchar.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function noInput()
{
if ((form1.UserName.value=="")||(form1.UserPass.value=="")||(form1.UserPass1.value==""))
{return (!!(window.alert('用户,密码,确认密码输入不能有空')));}
else{return true;}
}
function onlyNum()
{ var keys=event.keyCode
if (!((keys>=48&&keys<=57)||(keys>=96&&keys<=105)
||(keys==8)||(keys==46)||(keys==37)||(keys==39)||(keys==13)||(keys==229)
))
event.returnValue=false;}
function onlyChar()
{ var keys=event.keyCode
if (!((keys>=48&&keys<=57)||(keys>=96&&keys<=105)||(keys>=65&&keys<=90)||(keys>=97&&keys<=122)
||(keys==8)||(keys==46)||(keys==37)||(keys==39)||(keys==13)||(keys==229)
))
event.returnValue=false;}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
function chkChar(char)
dim i,testChar,chrNum
if char="" then
chkChar=""
exit function
end if
chkChar=""
for i=1 to len(char)
testChar=mid(char,i,1)
chrNum=asc(testChar)
if (chrNum>=48 and chrNum<=57) _
or (chrNum>=96 and chrNum<=105) _
or (chrNum>=65 and chrNum<=90) _
or (chrNum>=97 and chrNum<=122) then
chkChar=chkChar&testChar
end if
next
End Function
//-->
</SCRIPT>
<%dim membername
membername=request.cookies("CooSel")("username")%>
</head>
<body bgcolor=#e8e8e8 leftmargin="0" rightmargin="0" topmargin="0" bottommargin="20">
<!--#include file="TopNav.asp" -->
<br><br>
<%helpID=7
if regFlag=0 then
Call GetError ("<li>用户注册已经关闭，不能注册！")
end if
Select CASE GetAction
CASE "Active"
call Active()
CASE "saveReg"
call saveReg()
CASE "main"
call Main()
CASE else
call reglic()
End Select
call Footer()
SUB Main()
%><table width="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#333369"><tr><td>
<table width="100%" height="100%" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#ffffff"><tr><td>
<table width="100%" height="100%" align="center" cellpadding="0" cellspacing="0" bgcolor="#C6DBD8" border=0>
<form name="form1" method="post" action="reg_u.asp?action=saveReg" onSubmit="return noInput();">
<tr>
<td height="24" bgcolor="#4662C1"> <strong><font color="#FFFFFF">方舟网免费空间用
户 注 册</font></strong></td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#C6DBD8">
<tr>
<td height="24" colspan="2" align="center" valign="bottom"></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr bgcolor="#A2C4BE">
<th height=26 colspan=2><font color=#ffffff>帐号信息</font></th>
</tr>
<tr>
<td align="right"><b>帐号名称 </b></td>
<td align="left" width="70%">http://free.99081.com/<input name="UserName" onKeyDown="onlyChar();" onkeyup="this.value=chkChar(this.value)" type="text" style="width:176;" class="textField" size="20" maxlength="20">
<font color="#aa0000"> *(必须英文26个字母和数字)</font></td>
</tr>
<tr>
<td align="right"><b>帐号密码 </b></td>
<td align="left"><input name="UserPass" type="password" style="width:176;" class="textField" size="20" maxlength="16">
<font color="#aa0000"> *至少5位</font> </td>
</tr>
<tr>
<td align="right"><b>核对密码 </b></td>
<td align="left"><input name="UserPass1" type="password" style="width:176;" class="textField" size="20" maxlength="16">
<font color="#aa0000"> *核对输入的帐号密码</font></td>
</tr>
<tr>
<td align="right"><b>联系邮箱 </b></td>
<td align="left"><input name="UserEmail" type="text" class="textField" style="width:176;" size="20" maxlength="50">
<font color="#aa0000"> *请务必填写,否则无法完成注册</font></td>
</tr>
<!-- <tr>
<td align="right"><b>管理目录 </b></td>
<td align="left"><input name="UserPath" type="text" style="width:176;" class="textField" size="20" maxlength="20"></td>
</tr> -->
<% dim reg_config,rNameArr,TexAtt,i
set rs=server.createobject("adodb.recordset")
rs.open "select reg_config from [config]",conn,0,1
reg_config=split(rs(0),"|")
rs.close
sql="select * from [reginfo] where 1=0"
rs.open sql,CONN,0,1
rNameArr=array("Reg_Name","Reg_Number","Reg_phone","Reg_moCall","Reg_OICQ","Reg_MSN","Reg_From","Reg_work","Reg_for","Reg_birthday","Reg_descript")
TexAtt =array("真实姓名","身份证号码","联系电话","联系手机","OICQ","MSN","所在地","从事职业","空间用途","出生日期","个人简历")
%>
<tr bgcolor="#A2C4BE">
<th height=26 colspan=2><font color=#ffffff>用户档案</font></th>
</tr>
<%for i=0 to 5%>
<tr>
<td align="right"><b><%=TexAtt(i)%> </b></td>
<td align="left"><input name="<%=rNameArr(i)%>" maxlength="<%=rs(rNameArr(i)).definedsize%>" type="text" class="textField" style="width:176;" size="20" ><%if reg_config(i)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<%next%>
<tr>
<td align="right"><b><%=TexAtt(6)%> </b></td>
<td align="left"><select name="<%=rNameArr(6)%>" class="textField" style="width:176;">
<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=贵州>贵州</OPTION>
<OPTION value=海南>海南</OPTION>
<OPTION value=河北>河北</OPTION>
<OPTION value=河南>河南</OPTION>
<OPTION value=黑龙江>黑龙江</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=湖北>湖北</OPTION>
<OPTION value=天津>天津</OPTION>
<OPTION value=西藏>西藏</OPTION>
<OPTION value=新疆>新疆</OPTION>
<OPTION value=云南>云南</OPTION>
<OPTION value=浙江>浙江</OPTION>
</select><%if reg_config(6)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td align="right"><b><%=TexAtt(7)%> </b></td>
<td align="left">
<select name="<%=rNameArr(7)%>" class="textField" style="width:176;">
<OPTION value="" selected>[请选择一种职业]
<OPTION value="财会/金融">财会/金融
<OPTION value=工程师>工程师
<OPTION value=顾问>顾问
<OPTION value=计算机相关行业>计算机相关行业(Internet)
<OPTION value="计算机相关行业（其他）">计算机相关行业（其他）
<OPTION value=家庭主妇>家庭主妇
<OPTION value="教育/培训">教育/培训
<OPTION value="客户服务/支持">客户服务/支持
<OPTION value="零售商/手工工人">零售商/手工工人
<OPTION value=退休>退休
<OPTION value=无职业>无职业
<OPTION value="销售/市场/广告">销售/市场/广告
<OPTION value=学生>学生
<OPTION value=研究和开发>研究和开发
<OPTION value=一般管理>一般管理
<OPTION value="政府/军队">政府/军队
<OPTION value="执行官/高级管理">执行官/高级管理
<OPTION value="制造/生产/操作">制造/生产/操作
<OPTION value="专业人员（医药、法律等）">专业人员（医药、法律等）
<OPTION value="自雇/业主">自雇/业主
<OPTION value="其他">其他</OPTION>
</select><%if reg_config(7)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td align="right"><b><%=TexAtt(8)%> </b></td>
<td align="left">
<select name="<%=rNameArr(8)%>" class="textField" style="width:176;">
<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=投资理财>投资理财</OPTION>
<OPTION value=少儿乐园>少儿乐园</OPTION>
<OPTION value=情感天地>情感天地</OPTION>
<OPTION value=体育运动>体育运动</OPTION>
<OPTION value=黑龙江>黑龙江</OPTION>
<OPTION value=游戏世界>游戏世界</OPTION>
<OPTION value=新闻时事>新闻时事</OPTION>
<OPTION value=美眉天地>美眉天地</OPTION>
<OPTION value=家庭与消费>家庭与消费</OPTION>
<OPTION value=旅游户外>旅游户外</OPTION>
<OPTION value=教育就业>教育就业</OPTION>
</select><%if reg_config(8)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td align="right"><b><%=TexAtt(9)%> </b></td>
<TD width=336><input type=hidden name="<%=rNameArr(9)%>" value="--" class=textField style="width:176;">
<INPUT class=textField maxLength=4 size=5 name=Reg_Year onkeyup="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}" autocomplete="OFF"> <SPAN class=PPSubDesTxt>年（例如 1999）</SPAN> <LABEL for=Month>
<SELECT id=Reg_Month tabIndex=691 onpropertychange="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}"
name=Reg_Month >
<OPTION selected>月份
<OPTION value=01>1 月
<OPTION value=02>2 月
<OPTION value=03>3 月
<OPTION value=04>4 月
<OPTION value=05>5 月
<OPTION value=06>6 月
<OPTION value=07>7 月
<OPTION value=08>8 月
<OPTION value=09>9 月
<OPTION value=10>10 月
<OPTION value=11>11 月
<OPTION value=12>12 月</OPTION>
</SELECT></LABEL>
<LABEL for=Day>
<SELECT tabIndex=721 name=Reg_Day onpropertychange="{document.all.<%=rNameArr(9)%>.value=document.all.Reg_Year.value+'-'+document.all.Reg_Month.value+'-'+document.all.Reg_Day.value}">
<OPTION selected>日期
<OPTION value=01>1 日
<OPTION value=02>2 日
<OPTION value=03>3 日
<OPTION value=04>4 日
<OPTION value=05>5 日
<OPTION value=06>6 日
<OPTION value=07>7 日
<OPTION value=08>8 日
<OPTION value=09>9 日
<OPTION value=10>10 日
<OPTION value=11>11 日
<OPTION value=12>12 日
<OPTION value=13>13 日
<OPTION value=14>14 日
<OPTION value=15>15 日
<OPTION value=16>16 日
<OPTION value=17>17 日
<OPTION value=18>18 日
<OPTION value=19>19 日
<OPTION value=20>20 日
<OPTION value=21>21 日
<OPTION value=22>22 日
<OPTION value=23>23 日
<OPTION value=24>24 日
<OPTION value=25>25 日
<OPTION value=26>26 日
<OPTION value=27>27 日
<OPTION value=28>28 日
<OPTION value=29>29 日
<OPTION value=30>30 日
<OPTION value=31>31 日</OPTION>
</SELECT></LABEL><%if reg_config(9)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td align="right" valign=top><img height=2px width=0><br><b><%=TexAtt(10)%> </b></td>
<td align="left"><textarea name="<%=rNameArr(10)%>" class="textField" style="width:262;" rows="5" maxlength="2048"></textarea><%if reg_config(10)="1" then response.write "<font color=""#aa0000""> *</font>" end if%></td>
</tr>
<tr>
<td height="5" colspan="2"></td>
</tr>
<tr>
<td> </td> <td><input type="submit" name="Submit32" value="确 认" class="btx" >
<input type="reset" name="Submit42" value="重 填" class="btx">
<input name="button122" type=button class="btxx" onClick="location.href='login.asp?action=exit';" value="退 出"></td>
</tr>
<tr>
<td height="26" colspan="2"><br><font color=#888888> 注:1.欢迎注册方舟网免费ASP空间，本站免费空间大小为30M，支持ASP，FSO。采用即时开通。<br>
2.申请成功后您的网址将是：http://free.99081.com/用户名，所以您的用户名请不要使用汉语，以免出现无法访问现象。<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -