用HTML编邮箱注册网页

Question

制作一个免费邮箱的注册页面，要求用户填写下列资料，要求验证完成输入信息的验证工作：
1. 用户名，首字符只能是字符；
2. 密码，要求在6到15位之间；
3. 确认密码，必须和密码一致；
4. 要求有爱好、性别、信息输入
当用户输入与要求不符时，给出必要提示
很谢谢你写了这么长，不过要用HTML编写啊。

Answer 1

<%
dim conn,connstr,rs
connstr="DBQ="+server.mappath("../db/dir.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>
<%
Dim action
action=Trim(Request("action"))
if action="usreg" then
Dim nid,pid,qq,nick,sex,mail,rsc,dsql,zNum
pws=Trim(Request.Form("pws"))
nid =Trim(Request.Form("nid"))
pid =Trim(Request.Form("pid"))
qq =Trim(Request.Form("qq"))
nick =Trim(Request.Form("nick"))
sex =Trim(Request.Form("sex"))
mail =Trim(Request.Form("mail"))
if request("GetCode")<>Session("GetCode") then
Response.Write "<script>alert('非法操作：验证码错误！');this.location.href='userreg.asp';</SCRIPT>"
Response.End
end if
if len(nid)>16 or len(nid)<2 then
Response.Write "<script>alert('账户名称必需为2-16个字符！');history.back();</script>"
Response.End
end if
if len(pid)>16 or len(pid)<6 Then
Response.Write "<script>alert('密码必需为6-16个字符！');history.back();</script>"
Response.End
end if
If nid="" or pid="" or qq="" or nick="" or sex="" or mail="" Then
Response.Write "<script>alert('资料不完整，请重新填写！');history.back();</script>"
Response.End
end if
nid=request.Form("nid")
dsql="Select Top 1 * From users where nid='"& nid &"'"
set rsc=Conn.Execute(dsql)
if not rsc.eof then
Response.Write "<script>alert('该账户已经存在！');this.location.href='userreg.asp';</SCRIPT>"
Response.End
Else '存在满足条件的记录
sql = "Select * from users"
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,3,2
rs.addnew
Rs("nid")=nid
Rs("pid")=pid
Rs("qq")=qq
Rs("nick")=nick
Rs("mail")=mail
Rs("sex")=sex
Rs("dates")=date()
rs.update
rs.close
Set rs = Nothing
Session("nid")=nid
Session("nick")=nick
Response.Write "<script>alert('账户创建成功，马上提交网站！');this.location.href='addsite.asp';</SCRIPT>"
End If
end if
%>
<script language="javascript">
function chkForm()
{
var pid = document.uform.pid.value;
var pws = document.uform.pws.value;
if(pid!=pws)
{
alert("两次密码输入不一致");
return false;
}
return true;
}
</SCRIPT>

<form method="POST" action="?action=usreg" name="uform" onsubmit="return chkForm();">
<div style="width:610px;height:485px;float:right;">
<div class="us_logs">
<strong>如果已有账户 请<a href="login.asp" style="color:#0000FF;TEXT-DECORATION:none;">登陆</a></strong>
</div>
<div class="us_log">
<strong>用户注册：<span style="font-weight:normal;">（均为必填）</span></strong >
<li id="log1"><span>账户名称：</span><label for="hitme"><input type="text" name="nid" size="25"></label></li>
<li id="log2"><span>由2-16位字母、数字、下划线组成。</span></li>
<li id="log1"><span>设置密码：</span><label for="hitme"><input type="password" name="pid" size="25"></label></li>
<li id="log2"><span>由6-16位字母、数字组成，区分大小写。</span></li>
<li id="log1"><span>确认密码：</span><label for="hitme"><input type="password" name="pws" size="25"></label></li>
<li id="log1"><span>QQ：</span><label for="hitme"><input type="text" name="qq" size="25"></label></li>
<li id="log1"><span>昵称：</span><label for="hitme"><input type="text" name="nick" size="25"></label></li>
<li id="log2"><span>用于对网站点评时显示。</span></li>
<li id="log1"><span>性别：</span><label for="hitme"><input type="radio" value="男性" checked name="sex">男性  <input type="radio" name="sex" value="女性">女性</label></li>
<li id="log1"><span>电子邮箱：</span><label><input type="text" name="mail" size="25"></label></li>
<li id="log2"><span>例：[email protected]，用以找回密码。</span></li>
<li id="log1"><span>验证码：</span><label for="hitme"><input type="text" id="GetCode" name="GetCode" size="4"> 
<img src="getcode.asp" alt="验证码,看不清楚?请点击刷新验证码" height="10" style="cursor : pointer;" onclick="this.src='getcode.asp?t='+(new Date().getTime());" /></label></li>
<li id="log1"><span> </span><label for="hitme"><input type="submit" value="登陆" name="B1">  <input type="reset" value="重置" name="B2"></label></li>
</div>
</form>
</div>

我用着的,自己改改吧!