| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2206 人关注过本帖
标题:[求助]asp中的类型不匹配如何修改呢???
取消只看楼主 加入收藏
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
 问题点数:0 回复次数:10 
[求助]asp中的类型不匹配如何修改呢???
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>用户名:&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>
</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>


搜索更多相关主题的帖子: asp 类型 
2007-10-28 10:04
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
错误类型:
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[string: "F"]'
/feng/verify.asp, 第 48 行
2007-10-28 10:06
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
    ElseIf  Not CheckLetter(Username) Then
2007-10-28 17:55
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
<%
Function Validate(Str)
Validate=ture
invalid=""
if InStr(str,invalid)>0 Then
Validate=False
End if
End Function
%>
<%
Function CheckLetter(str)
CheckLetter=True
Letters="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for i=1 to len(str)
checkletter=UCase(MId(str,i,1))
if(InStr(Letters,checkchar)<=0) then
CheckLetter=False
Exit Function
End if
Next
End Function
%>
<script language="javascript">
function checkemail()
{
var filter=/^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$/;
if(!filter.test(document.MyForm.email.value))
{
window.alert("邮箱格式不正确!");
document.MyForm.email.focus();
return false;
}
return true;
}
</script>



2007-10-29 12:15
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
还是不行呢!!!
2007-11-01 16:20
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
你说的是那一行阿???
2007-11-01 16:38
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
不好意思你的意思是在修改那一部分呢?谢谢!!!
2007-11-01 16:46
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
好了,实在很感谢你!谢谢!!!
2007-11-01 16:49
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
可是页面只显示的是输入的不完全是大写或者小写字母,又是什么回事吗?好郁闷呢!
2007-11-01 16:58
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
有谁呢看看阿!谢谢阿!
2007-11-01 21:41
快速回复:[求助]asp中的类型不匹配如何修改呢???
数据加载中...
 
   



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

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