哪位大虾帮我看看这段代码，哪里出问题了？

[复制链接]

满天星

电梯直达

1^#

发表于 2010-1-18 07:52:39 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我想做个在线的考试程序，下面这个评分的代码就常出问题，
set rsend=conn.execute("select * from test1")
f=0
i=1
do while not rsend.eof
if request.Form("Q"&i)=rsend("answer") then
f=f+1
i=i+1
rsend.movenext
end if
loop
fs=100/i*f

我想应该是这段出问题，，但我不知怎样解决，，大虾，，看你们的了！

收藏0

使用道具举报

tp寶寶^ō^

2^#

发表于 2010-1-18 07:52:47 | 只看该作者

自己顶

回复支持反对

使用道具举报

踏破^ō^凌云

3^#

发表于 2010-1-18 07:52:51 | 只看该作者

set rsend=conn.execute("select * from test1") f=0 i=1 do while not rsend.eof if request.Form("Q"&i)=rsend("answer") then f=f+1 i=i+1 rsend.movenext end if loop 代码两处地方首先循环记录集用Do Until rsend.eof就很管用。还有就是rsend.movenext的位置不对，这个错误可能会导致的后果是死循环。网页执行当机。 set rsend=conn.execute("select * from test1") f=0 i=1 Do Until rsend.eof if request.Form("Q"&i)=rsend("answer") then f=f+1 i=i+1 end if rsend.movenext loop 以上为修改后的代码。

回复支持反对

使用道具举报

づ嗳嘚亽鈊↑

4^#

发表于 2010-1-18 07:52:55 | 只看该作者

超级谢谢~~~~~~ 我自己还发现了一个问题,, set rsend=conn.execute("select * from test1") f=0 i=1 Do Until rsend.eof if request.Form("Q"&i)=rsend("answer") then f=f+1 i=i+1 end if rsend.movenext loop 在判断答案对错时,,如果答案不对,,那就不执行 "i=i+1" 这句了,, 如果"i"还没加1就继续判断答案,,那后面的就乱了. 不知我这样分析对不? 我认为正确的处理方法应该如下: set rsend=conn.execute("select * from test1") f=0 i=1 Do Until rsend.eof if request.Form("Q"&i)=rsend("answer") then f=f+1 end if i=i+1 rsend.movenext loop