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

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-10-28 11:16
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
    ElseIf  Not CheckLetter(Username) Then
2007-10-28 17:55
永夜的极光
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:2721
专家分:1
注 册:2007-10-9
收藏
得分:0 
CheckLetter函数呢???

从BFS(Breadth First Study)到DFS(Depth First Study)
2007-10-28 17:59
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 
CheckLetter()

把这个函数粘贴出来看看,对了,Username这个文本框你输入的是什么值出的错!

改变一切,须从改变观念开始!
2007-10-28 18:01
枫吹过的季节
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
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 

你这里好多错误啊!

首先:

<%
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
%>

你把文本框中的每个字符都转换成大写赋值给checkletter变量,但引用时却变成了checkchar变量

改为:

<%
Function CheckLetter(str)
CheckLetter=True
Letters="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
for i=1 to len(str)
checkchar=UCase(MId(str,i,1))
if(InStr(Letters,checkchar)<=0) then
CheckLetter=False
Exit Function
End if
Next
End Function
%>


改变一切,须从改变观念开始!
2007-10-29 12:32
枫吹过的季节
Rank: 1
等 级:新手上路
帖 子:120
专家分:0
注 册:2007-7-8
收藏
得分:0 
还是不行呢!!!
2007-11-01 16:20
放任一切
Rank: 2
等 级:新手上路
威 望:4
帖 子:217
专家分:0
注 册:2007-3-22
收藏
得分:0 
ElseIf CheckLetter(Username)=false Then
这样试试
2007-11-01 16:29
快速回复:[求助]asp中的类型不匹配如何修改呢???
数据加载中...
 
   



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

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