asp注册页面代码

表面代码（regist.asp）：

<form name="form1" method="post" action="regists.asp">
      <table width="600" height="356" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#999999" bgcolor="#FFFFFF">
        <tr>
          <th height="89" colspan="2" scope="col"><h2 class="STYLE5">用户注册</h2></th>
        </tr>
        <tr>
          <td width="120" align="right">用户名：</td>
          <td width="350"><label></label>
            <label>
            <input name="username" type="text" id="username" />
            </label></td>
        </tr>
        <tr>
          <td align="right">密&nbsp;&nbsp;码：</td>
          <td><label>
            <input name="password" type="password" id="password" />
          </label></td>
        </tr>
        <tr>
          <td align="right">重复密码：</td>
          <td><label>
          <input name="repassword" type="password" id="repassword" />
          </label></td>
        </tr>
        <tr>
          <td align="right">性&nbsp;&nbsp;别：</td>
          <td><label>
            <input name="sex" type="radio" value="男" checked="checked" />
            男&nbsp;&nbsp;
            <input type="radio" name="sex" value="女" />
            女
           
          </label></td>
        </tr>
        <tr>
          <td align="right">E-mail:&nbsp;</td>
          <td><label>
            <input name="E-mail" type="text" id="E-mail" />
          </label></td>
        </tr>
        <tr>
          <td height="31" align="right">公&nbsp;&nbsp;司：</td>
          <td><label>
            <input name="company" type="text" id="company" />
          </label></td>
        </tr>
       
        <tr>
          <td height="89" colspan="2" align="center"><label>
            <input name="post" type="submit" id="post" value="提交" />
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit2" value="重置" />
          </label></td>
        </tr>
      </table>
      </form>

 

处理页面代码(regists.asp)：

<title>用户注册页面</title><!--#include file="access/conn.asp"-->

<%
if trim(request("username"))<>"" and trim(request("password"))<>"" then
call a
else
response.Write"<script language='javascript'>"& "alert('用户名和密码不能为空！');history.go(-1);</script>"
end if
%>
<%
private sub a
if (len(trim(request("username")))>5) and (len(trim(request("password")))>5) then
call b
else
response.Write"<script language='javascript'>"& "alert('用户名和密码长度不能少于6个字符');history.go(-1);</script>"
end if
end sub
%>
<%
private sub b
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from regist where username='" & trim(request("username")) & "'",conn,1,3
if not (rs.bof and rs.eof) then
rs.close
set rs=close
response.Write"<script language='javascript'>"& "alert('对不起，该用户名已存在！');history.go(-1);</script>"
else
call c
end if
end sub

%>
<%
private sub c
dim pwd1
pwd1=Request("password")
dim pwd2
pwd2=Request("repassword")
if pwd1<>pwd2 then
rs.close
response.Write"<script language='javascript'>"& "alert('用户密码前后输入不一致！');history.go(-1);</script>"
else
call d
end if
end sub

%>
<%
private sub d
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from regist where username='" & trim(request("username")) & "'",conn,1,3
rs.close
rs.open "select * from regist",conn,1,3
rs.addnew
rs("username")=trim(request("username"))
rs("password")=trim(request("password"))
rs("sex")=trim(request("sex"))
rs("E-mail")=trim(request("E-mail"))
rs("company")=trim(request("company"))
rs.update
rs.close
response.Write "恭喜您!"& trim(request("username")) & "注册成功！"
response.Write "<p><a href=index.asp>返回首页</a></p>"
set rs1=nothing
end sub
%>

转：http://hi.baidu.com/xun530/blog/item/5091d37a5a0fd5fe0ad1877c.html