|
#2
tianyu1232007-10-20 16:47
|
<html>
<style type="text/css">
<!--
.STYLE2 {font-size: 12px; }
-->
</style>
<body>
<table width="800" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td width="800" height="200" valign="top"><form name="form1" method="post" action="">
<label></label>
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>用户名：
<label>
<input type="text" name="Username">
</label></td>
</tr>
<tr>
<td>密码：
<input type="text" name="UserPwd"></td>
</tr>
<tr>
<td>电子邮箱 ：
<input type="text" name="Email"></td>
</tr>
</table>
</form>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form2" method="post" action="">
<div align="center">
<input type="submit" name="Submit" value="提交">
<input type="submit" name="Submit2" value="重置">
</div>
</form>
</td>
</tr>
</table>
<p align="center"> </p>
</td>
</tr>
</table>
<%
UserName=Trim(Request.Form("Username"))
UserPwd=Request.Form("UserPwd")
Email=Request.Form("Email")
If Username="" or UserPwd=""or Email="" then
Response.Write"<script>alert('填写不完全！');history.back();</script>"
Response.End
ElseIf Not CheckLetter(Username) Then
Response.Write"<script>alert('输入的用户名没有全部是大写或小写字母!');history.back();</script>"
Response.End
ElseIf Not Numertic(UserPwd) Then
Response.Write"<script>alert('输入的密码不能为非数字!')</script>;history.back();</script>"
Response.End
ElseIf Not ISValidEmail(Email) Then
Response.Write"<script>alert('输入的邮件地址格式不正确!');history.back();</script>"
Response.End
Else
Response.Write"<center>输入正确！"
End If
%>
就是后面的asp代码没有实现验证表单的功能！
