考试系统中如何判断多选题是否正确？

[yzflying]

多选试题的标准答案比如说是A, B, C, D

用户通过复选框提交上来的答案如何这个标准答案比较，并且记分？

[yzflying]

score=50
j=0
answer=replace(request("aa")," ","")
result=request("result")
u=split(answer,",")
v=split(result,",")
if ubound(u)=ubound(v) then
for i=0 to ubound(u)
if instr(result,u(i))>0 then
j=j+1
end if
next
end if
if j=ubound(v)+1 then
score=score+4
end if

自己写了，就是完全符合给分，少选不给分。

还值得完善

[aojiankd]

同意皮子，你用instr函数判断

[yong1268]

同意皮子.

[skywatcher]

同意皮子，只是假如还要判断半选，还要更麻烦一些

[qxg1123]

用instr比较就够了

[pizixt]

标准答案用"A, B, C, D"形式（中间加一个空格）可以直接比较
要注意答题页面答案编号的顺序

<input type="checkbox" name="answer_1" value="A">
<input type="checkbox" name="answer_1" value="B">
<input type="checkbox" name="answer_1" value="C">
<input type="checkbox" name="answer_1" value="D">

<%
answer_1=request("answer_1")
right_1="A, C" '标准答案
response.write answer_1=right_1
%>

[yzflying]

我知道提交后的答案是是一个以,为分隔的字符串，标准答案的格式是A, B, C, D也是以，号分开，就是这两个字符串如何比较的？

[jiffer]

用split函数区分然后把值赋给数组，对数组进行循环，就可以

[efei]

你对多选题进行判分的时候是不是错一个就全错？如果是的话，那就整体比较好了，比如标准答案是ACD，你只要把提交上来的答案去掉中间的逗号就可以了，只要不一样就不正确啊
不过好象VBSCRIPT里没有比较字符串的函数，可以这样：
if len(str1)=len(str2) and instr(str1,str2)=1 then
sngScore=sngTotalScore
else
sngScore=0
end if

[a_zhe_20]

比较方法同上，但是需要注意，从前面获取到的值中间会包含空格

即“a, b, c”这样，如果标准答案没有空格，则应先把获取到的答案中空格去掉
replace(reqanswer," ","")

[webdevelop]

用select去比较就行了嘛。

或者在判断时先读出正确答案然后再比较。
rs(answer_true)=answer_true '正确答案
total=0 '记录总分
if answer_true=request.form("answer")%> '判断是否正确
then total+1 总分加1
end if

[flying310]

用一个数组和你的标准答案去比较。

[fason]

name相同时
Request.Form("answer")是一个以,为分隔的字符串

[pizixt]

<input type="checkbox" name="answer_1[]" value="A">
<input type="checkbox" name="answer_1[]" value="B">
<input type="checkbox" name="answer_1[]" value="C">
<input type="checkbox" name="answer_1[]" value="D">

<%answer_1=request("answer_1[]")%>

如果选择A、C、D ，则abswer_1的值为"A,C,D"
和标准答案比较,要看你的标准答案字符串是什么形式