| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 491 人关注过本帖
标题:[求助]麻烦看一下有什么错误?怎么实现递交?
取消只看楼主 加入收藏
mnll
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-8-28
收藏
 问题点数:0 回复次数:1 
[求助]麻烦看一下有什么错误?怎么实现递交?
<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>用户名:&nbsp;&nbsp;&nbsp;&nbsp;
<label>
<input type="text" name="Username">
</label></td>
</tr>
<tr>
<td>密码:&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;
<input type="text" name="UserPwd"></td>
</tr>
<tr>
<td>电子邮箱 :&nbsp;
<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="提交">&nbsp;&nbsp;
<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代码没有实现验证表单的功能!

搜索更多相关主题的帖子: 递交 麻烦 
2007-10-20 16:43
mnll
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2007-8-28
收藏
得分:0 
回复:(yms123)
<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>用户名:&nbsp;&nbsp;&nbsp;&nbsp;
<label>
<input type="text" name="Username">
</label></td>
</tr>
<tr>
<td>密码:&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;
<input type="password" name="UserPwd"></td>
</tr>
<tr>
<td height="18">电子邮箱 :&nbsp;
<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>
<%
Dim IsValidEmail,CheckLetter,Numertic
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
%>
</table>
</body>
</html>
但是不管怎么提交都显示填写不完全阿!????


2007-10-21 09:37
快速回复:[求助]麻烦看一下有什么错误?怎么实现递交?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.052358 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved