我想做个在线的考试程序，下面这个评分的代码就常出问题，
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

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

[此贴子已经被作者于2005-10-26 23:43:43编辑过]

自己顶

超级谢谢~~~~~~ 我自己还发现了一个问题,, 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

[此贴子已经被作者于2005-10-27 0:38:26编辑过]

有道理