reg3.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<%
session("reg")=""
groups=request.form("groups")
username=request.form("username")
if request.form("username")="" or request.form("groups")="" then
response.redirect("error.asp?error=illegal")
response.end
end if
if filters<>"" then
filters=split(filters,"|")
for i = 0 to ubound(filters)
if LCase(username)=filters(i) then
response.redirect("error.asp?error=filters")
exit for
response.end
end if	
next
end if
set rshost=Server.CreateObject("ADODB.Recordset")
sqlhost="select * from [host] where id="&groups
rshost.open sqlhost,conn,1,1
'判断此类型空间是否关闭注册
if rshost("ifreg")=False then
response.redirect("error.asp?error=ifreg")
response.end
end if
if rshost("dayreg")<>0 then
 '获取此类型空间今天注册人数
Set rsday= Server.CreateObject("ADODB.Recordset")
sqlday="select * from user where groups='"&groups&"' and regdate='"&Date()&"'"
rsday.open sqlday,conn,1,1
if rsday.recordcount >=cint(rshost("dayreg")) then
response.redirect("error.asp?error=dayreg")
response.end
end if
end if
if rshost("maxreg")<>0 then
'获取此类型空间总注册人数
Set rsmax= Server.CreateObject("ADODB.Recordset") 
sqlmax="select * from [user] where groups='"&groups&"' and state=1"
rsmax.open sqlmax,conn,1,1
if rsmax.recordcount >=cint(rshost("maxreg")) then
response.redirect("error.asp?error=maxreg")
response.end
end if
end if
'判断用户名是否重复
If not conn.Execute("Select userid From [user] where username='"&request("username")&"'" ).eof Then
response.redirect("error.asp?error=rname")
response.end
end if
sql="select * from siteclass"
rs.open sql,conn,1,1
%>
<script language="JavaScript" src="js/reg.js"></script>
<table width='770' border=0 align="center" cellpadding=0 cellspacing=0>
  <tr valign=top align=center>
    <td width='190'> 
      <img src='images/reg_left_2.gif' name=reg_left width="160" height="200" border=0> 
    </td>
    <td width='1' background="images/bg_vline.gif"></td>
    <td> 
      <table border=0 width='100%' cellspacing=0 cellpadding=0>
        <tr> 
          <td width="100%" align=center><table align="center" background="images/line01.gif" border="0" cellpadding="0" cellspacing="0" height="24" width="100%">
            <tr>
              <td height="21">&nbsp;<img height="12" src="images/arrow.gif" width="12"> 当前位置：<a href="index.asp" title="首页"><%=site%></a> -&gt; 用户注册</td>
              </tr>
          </table>
          <br></td>
        </tr>
        <tr>
          <td align=center><table align="center" border="0" bordercolor="#000000" cellpadding="0" cellspacing="0" width="100%">
            <tr>
              <td background="images/bar_bg.gif" width="18%"><img src="images/bar_left.gif" width="29" height="24" border="0"></td>
              <td background="images/bar_bg.gif" width="79%"><font color="#993300">第三步：填写资料</font></td>
              <td width="4%"><img src="images/bar_right.gif" width="20" height="25" border="0"></td>
            </tr>
          </table>            
            <table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="cccccc">
              <form name="reg" action="regpost.asp" method="post" onSubmit="return check_input()">
			  <input name="groups" type="hidden" value="<%=request("groups")%>">
			  <input name="username" type="hidden" value="<%=request("username")%>">
			  <input name="asp" type="hidden" value="<%=rshost("asp")%>">
			  <input name="spaces" type="hidden" value="<%=rshost("space")%>">
                <tr bgcolor="#FFFBFF"> 
                  <td colspan="2">::帐号信息::</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">用户名：</td>
                  <td width="82%" valign="top"><b><font face="Arial, Helvetica, sans-serif"><%=request("username")%></font></b></td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">密　码：</td>
                  <td><input name=password   type=password class="input" id="password" size=12 maxlength=12 onpaste="return false"> 
                  <font color="#FF0000">*</font> （至少6位）</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">确认密码：</td>
                  <td><input name=password2   type=password class="input" id="password2" size=12 maxlength=12 onpaste="return false"> 
                  <font color="#FF0000">*</font></td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">密码问题：</td>
                  <td><input name="question" type=text class="input" id="question" size=30 maxLength=50 onpaste="return false"> 
                  <font color="#FF0000">*</font> （如：你最亲爱的人是谁）</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">问题答案：</td>
                  <td><input name="answer" type=text class="input" size=30 maxLength=20 onpaste="return false"> 
                  <font color="#FF0000">*</font> （答案：Nana） </td>
                </tr>
                <tr bgcolor="#FFFBFF"> 
                  <td colspan="2">::基本资料::</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">真实姓名：</td>
                  <td width="82%"> <input name="truename" type="text" class="input" size="12" maxlength="4" onpaste="return false"> 
                  <font color="#FF0000">*</font>（请使用中文）</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">性　　别：</td>
                  <td width="82%"><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%" ><input name="age" type="text" class="input" size="8" ONKEYPRESS="event.returnValue=IsDigit();" maxlength="2"> 
                  <font color="#FF0000">*</font>(填写数字)</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">所在省份：</td>
                  <td width="82%">
                    <select name=add>
                      <option>请选择</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%"><input name="zip" type="text" class="input" size="12" ONKEYPRESS="event.returnValue=IsDigit();" maxlength="6" onpaste="return false">
                  <font color="#FF0000">*</font>(填写6位数字)</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">电话号码：</td>
                  <td width="82%"> <input name="tel" type="text" class="input" size="23" maxlength="15" onpaste="return false">
                  （可选择填写）</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td width="18%" align="right">电子邮箱：</td>
                  <td width="82%"><input name="email" type="text" class="input" size="23" maxlength="60" onpaste="return false"> 
                  <font color="#FF0000">*</font>（用来接收您的帐号信息及密码）</td>
                </tr>
                <tr bgcolor="#FFFBFF"> 
                  <td colspan="2">::网站信息::</td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">网站名称：</td>
                  <td><input name="sitename" type="text" class="input" size="12" maxlength="12" onpaste="return false"> 
                  <font color="#FF0000">*</font></td>
                </tr>
                <tr bgcolor="ffffff"> 
                  <td align="right">网站分类：</td>
                  <td> <select name="sitetype" size="1">
                      <option selected>请选择</option>
				  <%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">网站介绍：</td>
                  <td><textarea name="intro"  cols="40" rows="3" onpaste="return false" onClick="this.value=''">请用30以内文字简单介绍您的网站</textarea>
                  (建议30字以内)</td>
                </tr>
				                <tr bgcolor="ffffff">
                  <td align="right">推荐人用户名：</td>
                  <td><input name="commends" type="text" class="input" size="12">                    　
                  （可增加推荐人的积分，如没有可不填）</td>
                </tr><%
				if rshost("domain")="True" then
set rsym1=Server.CreateObject("ADODB.RecordSet")
sqlym1="select * from domain"
rsym1.open sqlym1,conn,1,1
if not rsym1.eof then
%>
                <tr bgcolor="ffffff"> 
                  <td align="right">二级域名：</td>
                  <td><input type="hidden" value="<%=rsym1("ad")%>" name="ad">http://<%=request("username")%><b>.</b><select name="domainname" class="input">
                    <option value="">请选择</option>
                    <option value="<%=rsym1("domain")%>"><%=rsym1("domain")%></option>
                    <%do while not rsym1.eof%>
                    <%rsym1.movenext
                  loop
                  rsym1.close
                  set rsym1=nothing
                  %>
                  </select> 
                  (选择需要的二级域名，注册后可修改)</td>
                </tr>
				<%end if
				end if%>
                <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>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->