帮我看看这个ASP网页程序错在哪里
错误提示是:MicrosoftVBScript编译器错误'800a03ee'缺少')'\www\index.asp,line69*********************...
错误提示是:
Microsoft VBScript 编译器错误 '800a03ee'
缺少 ')'
\www\index.asp, line 69
*******************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="">
<p>
请输入你的姓名:</p>
<p> <input type="text" name="name">
</p>
1.我老家是哪个城市?<br/>
<p>西安
<input type="radio" name="q1" value="西安" />
<br/>
昆明
<input type="radio" name="q1" value="昆明" />
<br/>
厦门
<input type="radio" name="q1" value="厦门" />
<br/>
南宁
<input type="radio" name="q1" value="南宁" />
<br/>
海口
<input type="radio" name="q1" value="海口" />
<br/>
<br/>
2.我是在哪里上大学的?<br/>
<p>西安
<input type="radio" name="q2" value="西安" />
<br/>
昆明
<input type="radio" name="q2" value="昆明" />
<br/>
厦门
<input type="radio" name="q2" value="厦门" />
<br/>
杭州
<input type="radio" name="q2" value="海口" />
<br/>
南宁
<input type="radio" name="q2" value="南宁" />
<br/>
3.我是什么星座?<br/>
<p>天秤座
<input type="radio" name="q2" value="天秤座" />
<br/>
牧羊座
<input type="radio" name="q2" value="牧羊座" />
<br/>
射手座
<input type="radio" name="q2" value="射手座" />
<br/>
狮子座
<input type="radio" name="q2" value="狮子座" />
<br/>
巨蟹座
<input type="radio" name="q2" value="巨蟹座" />
<br/>
<br/>
<input type="submit" name="submit" value="提交" />
</p>
</form>
<%
Dim qn(1 to 3) As string '//此行为line69
n=1
do until n=3
qn(n)="q" & n
qnvalue = request.form(qn(n))
If qnvalue = "" Then
response.Write "第"&n&"题回答错误!"
End If
n=n+1
loop
If qn(1) = "南宁" Then
qn(1) = "true"
Else
qn(1) = "false"
End If
If qn(2) = "西安" Then
qn(2) = "true"
Else
qn(2) = "false"
End If
If qn(3) = "射手座" Then
qn(3) = "true"
Else
qn(3) = "false"
End If
for n=1 to 3
qnvalue=qn(n)
if qnvalue="false" then
response.Write "第"&n&"题回答错误!"
endif
next n
%>
</body>
</html>
2L的,不AS STRING 那AS什么啊? 3L的,换哪种定义方式呢,不声明好像不行 展开
Microsoft VBScript 编译器错误 '800a03ee'
缺少 ')'
\www\index.asp, line 69
*******************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form name="form1" method="post" action="">
<p>
请输入你的姓名:</p>
<p> <input type="text" name="name">
</p>
1.我老家是哪个城市?<br/>
<p>西安
<input type="radio" name="q1" value="西安" />
<br/>
昆明
<input type="radio" name="q1" value="昆明" />
<br/>
厦门
<input type="radio" name="q1" value="厦门" />
<br/>
南宁
<input type="radio" name="q1" value="南宁" />
<br/>
海口
<input type="radio" name="q1" value="海口" />
<br/>
<br/>
2.我是在哪里上大学的?<br/>
<p>西安
<input type="radio" name="q2" value="西安" />
<br/>
昆明
<input type="radio" name="q2" value="昆明" />
<br/>
厦门
<input type="radio" name="q2" value="厦门" />
<br/>
杭州
<input type="radio" name="q2" value="海口" />
<br/>
南宁
<input type="radio" name="q2" value="南宁" />
<br/>
3.我是什么星座?<br/>
<p>天秤座
<input type="radio" name="q2" value="天秤座" />
<br/>
牧羊座
<input type="radio" name="q2" value="牧羊座" />
<br/>
射手座
<input type="radio" name="q2" value="射手座" />
<br/>
狮子座
<input type="radio" name="q2" value="狮子座" />
<br/>
巨蟹座
<input type="radio" name="q2" value="巨蟹座" />
<br/>
<br/>
<input type="submit" name="submit" value="提交" />
</p>
</form>
<%
Dim qn(1 to 3) As string '//此行为line69
n=1
do until n=3
qn(n)="q" & n
qnvalue = request.form(qn(n))
If qnvalue = "" Then
response.Write "第"&n&"题回答错误!"
End If
n=n+1
loop
If qn(1) = "南宁" Then
qn(1) = "true"
Else
qn(1) = "false"
End If
If qn(2) = "西安" Then
qn(2) = "true"
Else
qn(2) = "false"
End If
If qn(3) = "射手座" Then
qn(3) = "true"
Else
qn(3) = "false"
End If
for n=1 to 3
qnvalue=qn(n)
if qnvalue="false" then
response.Write "第"&n&"题回答错误!"
endif
next n
%>
</body>
</html>
2L的,不AS STRING 那AS什么啊? 3L的,换哪种定义方式呢,不声明好像不行 展开
4个回答
展开全部
错误:
1. 第3个问题,你的 name="q2" ,还是q2;
2. do until用的很失败,你还是用for吧,还有,for的next不用跟n,还有,如果用两个for,最好用不同的变量,i啊n啊j啊,都可以用
3. If qn(1) = "南宁" Then....
你这里的qn(1)根本就没赋值,还是那个前面的qn(n)="q" & n
4. 最后的endif中间没打空格...
5. (待发现)
1. 第3个问题,你的 name="q2" ,还是q2;
2. do until用的很失败,你还是用for吧,还有,for的next不用跟n,还有,如果用两个for,最好用不同的变量,i啊n啊j啊,都可以用
3. If qn(1) = "南宁" Then....
你这里的qn(1)根本就没赋值,还是那个前面的qn(n)="q" & n
4. 最后的endif中间没打空格...
5. (待发现)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Dim qn(1 to 3) As string '//此行为line69
-------------
这个电脑认为保留词是dim,to ,和 as string
所以它认为你1的右边少了“)”,3的左边少了“(”
你要就换一种定义方式,或者不定义
-------------
这个电脑认为保留词是dim,to ,和 as string
所以它认为你1的右边少了“)”,3的左边少了“(”
你要就换一种定义方式,或者不定义
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Microsoft VBScript 编译器错误 '800a03ee'
缺少 ')'
\www\index.asp, line 69
就是你的程序的第69行,缺少一个')'。所以要check一下
缺少 ')'
\www\index.asp, line 69
就是你的程序的第69行,缺少一个')'。所以要check一下
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询