本人正编一个答题页,多项选择题,库中存有正常答案字段内容如2,4
用户提交复选后提交 ,得出正确与错误的判断,全选对才输出正确.这段码怎么写

sub hd1()
    'response.Write("<font color=red>现在在hd1()函数</font>")
    if session("checkpage")="" or session("aid")="" then
        call out()
    end if
   
    dim ok1,ok2

    if request("R1")=session("aok") then    '答案正确      这是单项选择的判断


你的意思多项就可以改成

sub hd1()
    'response.Write("<font color=red>现在在hd1()函数</font>")
    if session("checkpage")="" or session("aid")="" then
        call out()
    end if
   
    dim ok1,ok2,R1

R1 = request.form("R1")
R1 = replace(R1," ","")

    if request("R1")=session("aok") then    '答案正确

if replace(R1," ","")=session("aok") then     这样判断出来了。


还有个问题答错后有个可以查看答案，单项写<%=session("akey"&session("aok"))%>就可以正常显示，，多项的要如何  写呢?

for i = 0 i < ubound(arr)这行报错

数据库里答案是1，2，4的数组，切割循环的问题吧

把for    句删除



<%=session("akey"&arr(i)) & "<br>"%>这样只能显示多选的第一个正确答案，且只显这一个。

这一行是不报错了，，下面的的

end sub     报缺少语句。是上面缺少什么?

end sub 前加了 next 不报错了，但还是只输出第一个正确答案