|
#2
枫吹过的季节2007-10-28 10:06
|
asp中的类型不匹配如何修改呢？？？源代码是
<!--#include file="CheckLetter.asp"-->
<html>
<style type="text/css">
<!--.STYLE2 {font-size: 12px; }-->
</style>
<head>
</head>
<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="#" >
<table width="800" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>用户名：
<label>
<input type="text" name="Username">
</label></td>
</tr>
<tr>
<td>密码：
<input type="password" name="UserPwd"></td>
</tr>
<tr>
<td height="18">电子邮箱 ：
<input type="text" name="Email"></td>
</tr>
<tr>
<td height="19"><div align="center">
<input type="submit" name="Submit" value="提交">
<input type="submit" name="Submit2" value="重置">
</div></td>
</tr>
</table>
</form>
<p align="center"> </p></td>
</tr>
</table>
</body>
<%
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
%>
</html>
