28,409
社区成员
发帖
与我相关
我的任务
分享jscript 和 VBSCRIPT函数类型不匹配问题，请大家帮忙
源代码如下：
<!-- #include file="db.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<script language="jscript">
<!--
function len_check(lenschool,lenplace){
if(lenschool>20)
{
window.alert("学校名称太长");
return (false);
}
if(lenplace>20)
{
window.alert("请简短填写队内职务");
return (false);
}
return(true);
}
-->
</script>
<body>
<%
dim strname,strschool,strplace
dim strphoto,boolPassed
dim lenschool,lenplace
strname=Session("I D")
'Response.write(strname)
boolPassed=Session("firstPassed")
'Response.write(boolPassed)
if(Not boolPassed) Then
Response.Redirect "LoginFail.asp"
else
strschool=Request("schoolname")
strplace=Request("place")
'获取长度
lenschool=len(strschool)
lenplace=len(strplace)
if (len_check(lenschool,lenplace)) then
mysql="insert into t_apply(username,schoolname,place)values('"&strname&"','"&strschool&"','"&strplace&"')"
conn.Execute(mysql)
end if
end if
%>
</body>
</html>
执行的时候总是提示如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'len_check'
/addapply.asp，行110
大家帮我看一下问题处在什么地方
非常感谢
<!-- #include file="db.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<script language="jscript">
<!--
function len_check(lenschool,lenplace){
if(lenschool>20)
{
window.alert("学校名称太长");
return (false);
}
if(lenplace>20)
{
window.alert("请简短填写队内职务");
return (false);
}
return(true);
}
-->
</script>
<body>
<%
dim strname,strschool,strplace
dim strphoto,boolPassed
dim lenschool,lenplace
strname=Session("I D")
'Response.write(strname)
boolPassed=Session("firstPassed")
'Response.write(boolPassed)
if(Not boolPassed) Then
Response.Redirect "LoginFail.asp"
else
strschool=Request("schoolname")
strplace=Request("place")
'获取长度
lenschool=len(strschool)
lenplace=len(strplace)
if (len_check(lenschool,lenplace)) then
mysql="insert into t_apply(username,schoolname,place)values('"&strname&"','"&strschool&"','"&strplace&"')"
conn.Execute(mysql)
end if
end if
%>
</body>
</html>
执行的时候总是提示如下：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配: 'len_check'
/addapply.asp，行110
大家帮我看一下问题处在什么地方
非常感谢
...全文
请发表友善的回复…
发表回复
seeknet 2003-10-09
- 打赏
- 举报
你一个是客户端脚本<Script Language="JScript">..</Script>
一个是服务器端脚本<%...%>
当然不行
还是在客户端判断好了，再向服务器端递交。
在客户端写一个表单有效性验证函数chkform
<form name="form1" .. onSubmit="JavaScript:return chkform(this);">
..
..
</form>
fangpeng2003 2003-10-09
- 打赏
- 举报
同意 wanderingbird(流浪鸟)的观点,要么把len_check写成服务器端函数,要么把它提前到前一页进行判断.
建议使用第二种方法.
建议使用第二种方法.
不老书生 2003-10-09
- 打赏
- 举报
想起来了，
你怎么能把种判断放在服务器端呢、一点资源也不能浪费啊！
呢应该在提交表单的那一页就应该在前台判断，名称太长的就不让它提交！
你怎么能把种判断放在服务器端呢、一点资源也不能浪费啊！
呢应该在提交表单的那一页就应该在前台判断，名称太长的就不让它提交！
不老书生 2003-10-09
- 打赏
- 举报
用vbscript 写一个function len_check(lenschool,lenplace)
放在<%%>里
放在<%%>里
