该例子涵盖了文本框、密码框、下拉菜单、单选框、复选框及文本区的使用
同时在数据的使用方面涵盖了文本型、数值型、日期型、布尔型的使用
也涵盖了在会员信息入数据库前，进行严格的数据检查
不足处，JS验证还不是太完善，不过有服务端认证足够了
<title>会员注册</title>
<script type="text/javascript">
<!--function CheckForm()
{
if(document.userinfo.username.value == "")
{ alert("请输入姓名,姓名不能为空！")
document.userinfo.username.focus()
return false
}
if(document.userinfo.username.value.length >10)
{
alert("输入的姓名长度最多为10个字符！")
document.userinfo.username.focus()
return false
}
}
//--></script>
</head>
<body>
<table border="1" width="53%" bordercolorlight="#000000" cellspacing="0" id="table1" height="358" bordercolor="#000000" bordercolordark="#FFFFFF" cellpadding="0">
<form method="POST" action="bb.asp" name="userinfo" onsubmit="return CheckForm()">
<tr><td colspan="2" height="37"> <p align="center">会员注员</td></tr>
<tr> <td width="37%" align="right">姓名：</td> <td width="61%"><input type="text" name="username" value="libin" size="13"> </td></tr>
<tr> <td width="37%" align="right">密码：</td> <td width="61%"> <input type="password" name="userPassword" size="20" value="123"></td></tr>
<tr> <td width="37%" align="right">性别：</td> <td width="61%"><input type="radio" value="True" checked name="Sex">男 <input type="radio" name="Sex" value="False">女</td></tr>
<tr> <td width="37%" align="right">生日：</td> <td width="61%"> <input type="text" name="userSR" size="11" value="1985-03-12"></td></tr>
<tr> <td width="37%" align="right">年龄：</td> <td width="61%"><input type="text" name="userNL" size="9" value="13"></td></tr>
<tr> <td width="37%" align="right">爱好：</td> <td width="61%"> <input type="checkbox" name="ah" value="sw">上网<input type="checkbox" name="ah" value="ds" checked>读书 <input type="checkbox" name="ah" value="ty">体育</td></tr>
<tr> <td width="37%" align="right">上网方式：</td> <td width="61%">
<select size="1" name="swfs"><option selected value="bhsw">拨号上网</option><option value="wxsw">无线上网</option><option value="gxsw">光纤上网</option> </select>
</td></tr>
<tr> <td width="37%" align="right">个人简介：</td> <td width="61%"><textarea rows="9" name="userGrjs" cols="34"></textarea></td></tr><tr> <td colspan="2" height="38"> <p align="center"><input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"></td>
</tr>
</form>
</table>
====bb.asp的会员注册非法数据监测====
<%
username = Request("username")
userPassword = Request("userPassword")
Sex = Request("Sex")
userSR = Request("userSR")
userNL = Request("userNL")
ah = Request("ah")
swfs = Request("swfs")
userGrjs = Request("userGrjs")
'判断数据合法性，绝对不能让非法数据进入系统
'判断姓名username合不合法，是否包含非法数据
username = Trim(username) '例如：" 张 三 "经过处理之后变成"张 三"
If username ="" Then
Response.write "姓名不能为空"
Response.End
End If
If Len(username)>10 Then
Response.write "姓名字数不能超过10个字" 'Len("Z")=1 Len("国")=2
Response.End
End If
For i = 1 To Len(username)
q = Mid(username,i,1)
If InStr("!@#$%^&*()_-+|<>?/"",.",q)>0 Then
Response.write "姓名不能包含特殊符号!@#$%^&*()_-+|<>?/"",."
Response.End
End If
Next
'判断密码合不合法，是否包含非法数据userPassword = Trim(userPassword)If userPassword ="" Then Response.write "密码不能为空" Response.EndEnd If
If Len(userPassword)>20 Then
Response.write "密码字数不能超过20个字"
Response.End
End If
'判断密码合不合法，是否包含非法数据
Sex = Trim(Sex)
If Sex = "" Then
Response.write "性别不能为空"
Response.End
End If
If Sex <>"True" And Sex <>"False" Then
Response.write "性别不能为不男不女"
Response.End
End If
'判断生日合不合法，是否包含非法数据
userSR = Trim(userSR)
If userSR ="" Then
Response.write "生日不能为空"
Response.End
End If
If Len(userSR)<8 Or Len(userSR)>10 Then '例如：2012-6-3 2012-11-23
Response.write "你输入的生日字数不对，应为2012-6-3或2012-11-23格式"
Response.End
End If
If IsDate(userSR)=False Then
Response.write "你输入的生日格式不能转化为日期，请核实"
Response.End
End If
If DateDiff("yyyy",userSR,Date())<1 Or DateDiff("yyyy",userSR,Date())>200 Then
Response.write "根据你输入的生日你可能小于1岁或已经超过200岁了，请核查重新输入"
Response.End
End If
'判断年龄合不合法，是否包含非法数据userNL = Trim(userNL)If userNL ="" Then
Response.write "年龄不能为空"
Response.End
End If
If IsNumeric(userNL)=False Then
Response.write "你输入的年龄不能转化为数值，请核查"
Response.End
End If
userNL = CInt(userNL)
If userNL<0 Or userNL>200 Then
Response.write "你输入的年龄不能小于0岁或者大于200岁，请核查"
Response.End
End If
'判断爱好合不合法，是否包含非法数据ah = Trim(ah) '选择多个爱好则系统会用，分开 //测试
ah = Replace(ah," ","")
arrAh = Split(ah,",")
For i = LBound(arrAh) To UBound(arrAh)
If arrAh(i)<>"sw" And arrAh(i)<>"ds" And arrAh(i)<>"ty" Then
Response.write i &"你选择的爱好有问题，请核查" &arrAh(i)
Response.End
End If
Next
'判断上网方式合不合法，是否包含非法数据swfs = Trim(swfs)If swfs = "" Then
Response.write "上网方式不能为空"
Response.End
End If
If swfs<>"bhsw" And swfs<>"wxsw" And swfs<>"gxsw" Then
Response.write "你选择的上网方式有问题，请核查"
Response.End
End If
'判断个人简介是否为空，是否超出1000个字
userGrjs = Trim(userGrjs)
If userGrjs = "" Then
Response.write "个人简介不能为空"
Response.End
End If
If Len(userGrjs) >1000 Then
Response.write "个人简介不能超过1000个字"
Response.End
End If
Response.write "数据合法性检测通过"
%>
====登陆的HTML代码可相信楼主参照会员注册代码应该没问题了====
分5个文件：1：登录页面 login.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title>登录</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="33%" height="64" id="table1">
<form name="form" action="go.asp" method="post"><tr>
<td>用户名：<input name="user"></td>
</tr>
<tr>
<td>密 码：<input type="password" name="pwd"></td>
</tr>
<tr>
<td><input name="sub" value="登录" type="submit"></td>
</tr></form>
</table>
</body>
</html>
------------------------
2.数据库连接文件 conn.asp
<%set rs=server.createobject("adodb.recordset")
conn = "driver={Microsoft Access Driver (*.mdb)}DBQ="&server.mappath("data.mdb")
%>
-------------------------
3:登录检测页面 go.asp
<!-- #include file="conn.asp" -->
<%
pwd=request.Form("pwd")
set rs=server.createobject("adodb.recordset")
sql="select * from user where name='"&request.Form("user")&"'"
rs.open sql,conn,1,1
if rs.eof or rs.bof then'如果用户名不存在
response.Write"<script language=javascript>alert('请输入正确的用户名！')history.go(-1)</script>"
Response.End()
else
if rs("pwd")<>pwd then'如果密码不对
response.write "<script language=JavaScript>alert('密码有误！')history.back()</script>"
else
response.write("登录成功")'
end if
end if%>
-------------------------------
4。注册文件 add.asp
<!-- #include file="conn.asp" -->
<%
sql="select * from user where u_user='"&request.Form("user")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.BOF or rs.EOF then
rs.addnew
rs("name")=request.Form("user")
rs("pwd")=request.Form("pwd")
rs.update
rs.close
set rs=nothing
response.Write ("注册成功!")
else
rs.close
set rs=nothing
response.write ("此用户已被注册")
end if
%>
4。注册页面 re.htm
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">
<title>注册</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="33%" height="64" id="table1">
<form name="form" action="add.asp" method="post"><tr>
<td>用户名：<input name="user" size="23"></td>
</tr>
<tr>
<td>密 码：<input name="pwd" size="23" id="pwd"></td>
</tr>
<tr>
<td><input name="sub" value="注册" type="submit"></td>
</tr></form>
</table>
</body>
</html>
将这几个文件和数据库“data.mdb”放在同一目录内
数据库建一个USER表
含name pwd 两个字段 文本类型
运行login.htm测试登录
运行re.htm测试注册
<input type="button" name="submit" value="Log in" class="left" onclick="OnSubmits()" />
