📄 reg3.asp
字号:
<!--#include file="top.asp"-->
<%
Response.Cookies("9cool_reg")=""
groups=request.form("groups")
username=htmlencode2(request.form("username"))
if request.form("username")="" or request.form("groups")="" then WriteErrMsg("您的必填资料没有填写完全，请重新输入！")
if Checkchar(username,"")=false then WriteErrMsg("用户名中含有非法字符,请重新输入！")
if filters<>"" then
filters=split(filters,"|")
for i = 0 to ubound(filters)
if LCase(username)=filters(i) then
WriteErrMsg("此用户名为系统保留或禁用，请重试另外一个！")
exit for
end if
next
end if
set rshost=Server.CreateObject("ADODB.Recordset")
sqlhost="select * from [host] where id="&cint(groups)
rshost.open sqlhost,conn,1,1
'判断此类型空间是否关闭注册
if rshost("ifreg")=False then WriteErrMsg("系统已经暂停此类型空间的申请！")
if rshost("dayreg")<>0 then
'获取此类型空间今天注册用户数
Set rsday = conn.Execute("select Count(*) from [user] where groups="&groups&" and regdate=Date()")
if cint(rsday(0))>=cint(rshost("dayreg")) then
WriteErrMsg("今天申请此类型空间的人数已经达到系统设定最大人数，请明天再来申请！")
end if
end if
if rshost("maxreg")<>0 then
'获取此类型空间总注册并且已经开通的用户数
Set rsmax = conn.Execute("select Count(*) from [user] where groups="&groups&"")
if cint(rsmax(0))>=cint(rshost("maxreg")) then
WriteErrMsg("此类型空间申请的人数已经饱和了，请隔段时间再来！")
end if
end if
'判断用户名是否重复
If not conn.Execute("Select userid From [user] where username='"&request("username")&"'" ).eof Then
WriteErrMsg("您所选择的用户名已经注册过了！")
end if
%>
<script language="JavaScript" src="js/reg.js"></script>
<TABLE class=tableborder cellSpacing=0 cellPadding=0 width=778 align=center
border=0>
<TBODY>
<TR>
<TD bgColor=#efefef height=22>
<TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width="4%"><IMG height=13
src="images/class_ar.gif" width=13></TD>
<TD width="74%">您当前的位置：<A href="<%=siteurl%>"><%=site%></A> -> 会员注册</TD>
<TD align=middle width="22%"> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD bgColor=#d9d9d9 height=1></TD>
</TR>
<TR>
<TD height=5></TD>
</TR>
</TBODY>
</TABLE>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" class="tableborder">
<tr>
<td width="12" class=linebar> </td>
<td valign="top" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="4" cellspacing="0">
<form name="reg" action="regpost.asp" method="post" onSubmit="return check_input()">
<input name="groups" type="hidden" value="<%=groups%>">
<input name="username" type="hidden" value="<%=username%>">
<tr>
<td colspan="2"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TR>
<TD width=150 bgColor=#AEC0EC><IMG height=18 src="" width=5><STRONG><SPAN class=clear>第三步</SPAN></STRONG></TD>
<TD width=1 rowSpan=2><IMG height=1 src="" width=1></TD>
<TD bgColor=#e6e8ed><IMG height=15 src="" width=8> <font color="#FF0000">请认真填写以下注册信息</font></TD>
</TR>
<TR>
<TD bgColor=#416194><IMG height=1 src="" width=1></TD>
<TD bgColor=#b7c1ce><IMG height=1 src="" width=1></TD>
</TR>
</TABLE></td>
</tr>
<tr bgcolor="efefef">
<td colspan="2"><strong>帐号信息</strong></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">用户名：</td>
<td width="82%" valign="top" bgcolor="ffffff"><b><font face="Arial, Helvetica, sans-serif"><%=username%></font></b></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">密码安全性：</td>
<td bgcolor="ffffff"><DIV id=PwdLevel>
<SCRIPT language=javascript src="js/PwdStrengthEx.js"
type=text/ecmascript></SCRIPT>
</DIV></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">密 码：</td>
<td bgcolor="ffffff"><input name=password type=password size=12 maxlength=12 id=Pwd
onkeyup=SetPwdStrengthEx(this.value);>
<font color="#FF0000"">*</font>（6-12位，区分大小写）</td>
</tr>
<tr bgcolor="ffffff">
<td align="right">确认密码：</td>
<td bgcolor="ffffff"><input name=password2 type=password id="password2" size=12 maxlength=12>
<font color="#FF0000"">*</font></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">密码问题：</td>
<td bgcolor="ffffff"><input name="question" type=text id="question" size=30 maxLength=50>
<font color="#FF0000"">*</font> （如：你最爱的人是谁）</td>
</tr>
<tr bgcolor="ffffff">
<td align="right">问题答案：</td>
<td bgcolor="ffffff"><input name="answer" type=text size=30 maxLength=20>
<font color="#FF0000"">*</font> （答案：Nana）</td>
</tr>
<tr bgcolor="efefef">
<td colspan="2"><strong>基本资料</strong></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">真实姓名：</td>
<td width="82%" bgcolor="ffffff">
<input name="truename" type="text" size="12" maxlength="4">
<font color="#FF0000"">*</font></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">性 别：</td>
<td width="82%" bgcolor="ffffff"><select name="sex">
<option selected>请选择</option>
<option value="男">男</option>
<option value="女">女</option>
</select>
<font color="#FF0000"">*</font></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">年 龄：</td>
<td width="82%" bgcolor="ffffff" ><input name="age" type="text" size="8" maxlength="2" ONKEYPRESS="event.returnValue=IsDigit();">
<font color="#FF0000"">*</font>(填写数字)</td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">所在省份：</td>
<td width="82%" bgcolor="ffffff"><select name=add size=1>
<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>
<option value=浙江>浙江</option>
<option value=香港 >香港</option>
<option value=澳门 >澳门</option>
<option value=台湾 >台湾</option>
<option value=其它国家或地区 >其它国家或地区</option>
</select>
<font color="#FF0000""> * </font></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">邮政编码：</td>
<td width="82%" bgcolor="ffffff"><input name="zip" type="text" ONKEYPRESS="event.returnValue=IsDigit();" size="12" maxlength="6">
<font color="#FF0000"">*</font>(填写6位数字)></td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">电话号码：</td>
<td width="82%">
<input name="tel" type="text" size="23" maxlength="15">
（可选择填写）</td>
</tr>
<tr bgcolor="ffffff">
<td width="18%" align="right">电子邮箱：</td>
<td width="82%" bgcolor="ffffff"><input name="email" type="text" size="23" maxlength="60">
<font color="#FF0000"">*</font>（用来接收您的帐号信息及密码
<%if rshost("active")=2 then Response.Write("，<font class=hong>并且接收帐户激活信息</font>")%>
）</td>
</tr>
<tr bgcolor="efefef">
<td colspan="2"><strong>网站信息</strong></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">网站名称：</td>
<td bgcolor="ffffff"><input name="sitename" type="text" size="12" maxlength="12">
<font color="#FF0000"">*</font></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">网站分类：</td>
<td bgcolor="ffffff">
<select name="sitetype" size="1">
<option selected>请选择</option>
<%
sql="select * from [siteclass]"
rs.open sql,conn,1,1
do while not rs.eof%>
<option value=<%=rs("id")%>><%=rs("sitetype")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
<font color="#FF0000"">*</font></td>
</tr>
<tr bgcolor="ffffff">
<td align="right">网站地址[URL]：</td>
<td bgcolor="ffffff"><input name="intro" type="text" size="50" maxlength="50">
<font color="#FF0000"">*</font></td>
</tr>
<%if Request.Cookies("9cool_agentid")<>empty then%>
<input name="commends" type="hidden" value="<%=Request.Cookies("9cool_agentid")%>">
<%else%>
<tr bgcolor="ffffff">
<td align="right">推荐人用户名：</td>
<td><input name="commends" type="text" size="12" value="<%=Request.Cookies("agentid")%>">
（可增加推荐人的积分，如没有可不填）</td>
</tr>
<%end if%>
<tr bgcolor="ffffff">
<td align="right">验证码：</td>
<td><input name=verifycode type=text size=4 ONKEYPRESS='event.returnValue=IsDigit();' maxlength=4 autoComplete="off">
<a href='javascript:refreshimg()'><img id='checkcode' src="inc/VerifyCode.asp" border=0 alt='验证码,看不清楚?请点击刷新验证码'></a>（验证码，看不清楚？请点击刷新）</td>
</tr>
<tr bgcolor="ffffff">
<td height="28" colspan="2" align="center"><hr size="1" noshade="noshade" class="hui_t" /></td>
</tr>
<tr bgcolor="ffffff">
<td height="28" colspan="2" align="center"><input name="submit" type="submit" class="button" value=" 递交 ">
<input name="重置" type="reset" class="button" value=" 重填 "></td>
</tr>
</form>
</table> </td>
</tr>
</table>
<!--#include file="links.asp"-->
<!--#include file="bottom.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -