页面1.asp
...... '前面省略
elseif t_type = 3 then '多项选择题
response.Write(q_num&". "&rs("TRY_SUBJECT")&"<br>") '题目
response.Write(" A."&rs("a")&"<br>") 'A 答案
response.Write(" B."&rs("b")&"<br>") 'B 答案
response.Write(" C."&rs("c")&"<br>") 'C 答案
response.Write(" D."&rs("d")&"<br>") 'D 答案
duo_DA(j) = Trim(rs("TRY_KEY")) '读取正确答案
response.Write(" 请输入第"&q_num&"题的答案:<input name=duo"&q_num&" type=text >"&"<br><br>") '考生录入的答案
response.Write(" <input name=duo_DA"&q_num&" type=hidden value="&duo_DA(j)&">"&"<br><br>") '将正确答案传值
end if
------------------------------------------------------------------------------------------------------------------------------------------------------
页面2.asp
......前面省略
response.Write "<br><font color = ff0000>★ 多项选择题中做错的有:</font><br><br>"
for d3 = 1 to 20
duo_TJ(d3) = request("duo"&d3) '考生录入的答案 取值到duo_tj
duo_DA(d3) = request("duo_DA"&d3) '正确的答案 取值到duo_da
if duo_TJ(d3) = "" then duo_TJ(d3) = "g" '判断是否,没有做题,就统赋一个值g ,只要不是ABCD就行
if duo_TJ(d3)=duo_DA(d3) then '两个文本框进行比较
duo_FS = duo_FS + 2 '相等就+2分
else
response.Write "<font color = ff0000>"&d3&"</font>题错,正确答案是"&duo_DA(d3)&" | "
end if
next
response.Write "<br><font color = 0000ff>多项选择题得:"&duo_FS&"分</font><br><br>"