帮我看看这个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的,换哪种定义方式呢,不声明好像不行
展开
 我来答
beshycn
2010-01-31 · TA获得超过127个赞
知道答主
回答量:244
采纳率:0%
帮助的人:197万
展开全部
不能As String
天驴英才
2010-01-31 · TA获得超过548个赞
知道小有建树答主
回答量:401
采纳率:0%
帮助的人:332万
展开全部
错误:
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. (待发现)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
永远的杨辰
2010-01-31 · TA获得超过1607个赞
知道小有建树答主
回答量:1091
采纳率:0%
帮助的人:1105万
展开全部
Dim qn(1 to 3) As string '//此行为line69
-------------
这个电脑认为保留词是dim,to ,和 as string
所以它认为你1的右边少了“)”,3的左边少了“(”
你要就换一种定义方式,或者不定义
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友1375adc
2010-01-31 · TA获得超过1168个赞
知道小有建树答主
回答量:407
采纳率:0%
帮助的人:448万
展开全部
Microsoft VBScript 编译器错误 '800a03ee'

缺少 ')'

\www\index.asp, line 69

就是你的程序的第69行,缺少一个')'。所以要check一下
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式