该例子涵盖了文本框、密码框、下拉菜单、单选框、复选框及文本区的使用
同时在数据的使用方面涵盖了文本型、数值型、日期型、布尔型的使用
也涵盖了在会员信息入数据库前,进行严格的数据检查
不足处,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代码可相信楼主参照会员注册代码应该没问题了====
这是我曾经写过的一个登录页面的详细代码,供你参考,asp的代码,不知道你看得懂不?\x0d\x0a文件名是:deafaule.asp\x0d\x0a \x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a欢迎使用 \x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0afunction FrontPage_valid() {\x0d\x0a if (document.FrontPage_Form.loginName.value == "") {\x0d\x0a alert("请先输入 [用户名] !\n如果没有帐号请先 注册!")\x0d\x0a document.FrontPage_Form.loginName.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginName.value.length < 2) {\x0d\x0a alert("在 [用户名] 中,请至少输入 2 个字符!")\x0d\x0a document.FrontPage_Form.loginName.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginPassword.value == "") {\x0d\x0a alert("请输入[密码]!")\x0d\x0a document.FrontPage_Form.loginPassword.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.loginPassword.value.length < 5) {\x0d\x0a alert("在 [密码] 中,请至少输入 5 个字符!")\x0d\x0a document.FrontPage_Form.loginPassword.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value == "") {\x0d\x0a alert("请输入[验证码]!")\x0d\x0a document.FrontPage_Form.FrontPage_Yzm.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value.length != 5) {\x0d\x0a alert("在 [验证码] 中,请输入 5 位数字!")\x0d\x0adocument.FrontPage_Form.FrontPage_Yzm.focus()\x0d\x0a return false\x0d\x0a }\x0d\x0a else if (document.FrontPage_Form.FrontPage_Yzm.value.length == 5) {\x0d\x0a var i=0,ch\x0d\x0a for (i=0i\x0d\x0a \x0d\x0a")\x0d\x0a }\x0d\x0a else if (screen.width == 1280){\x0d\x0a document.write("
")\x0d\x0a }\x0d\x0a else {\x0d\x0a document.write("
")\x0d\x0a }\x0d\x0a\x0d\x0a建议使用 IE8.0或更高版本的浏览器,推荐分辨率1440×900 或更高
\x0d\x0a\x0d\x0a\x0d\x0a\x0d\x0a