考试系统答案判断

[zivliao]

不定项选择题：多选，错选0分；全对得全分，少选对一个得N分。如何判断？谢谢大家~~~帮忙解决！！

[zivliao]

谢谢！！gingerkang

[ab520ah]

顶楼主你一下。
http://qzshi.com
网站建设技术论坛
另外招版主，或合作管理员，有兴趣的加群4228406

[gingerkang]

需求:
正确答案：数组或字符串a,b,c
答题答案：数组或字符串 a or b,d or a,b,c,d or a,b,c
分别得N分,无分,无分,全分

<%a="a,b,c"
b="a,b,c,d"
response.write getscore(a,b)
'a是正确答案字符串,b是答题答案字符串,已排序,返回0无分,1 N分,2全分
function getscore(a,b)
   dim i,arr,f
   if a=b then
		getscore=2
		exit function
   end if
   if b="" then
		getscore=0
		exit function
   end if
   f=false
   arr=split(b,",")
   for i=0 to ubound(arr)
		if instr(","& a &",",","& arr(i) &",")=0 then
			f=true
			exit for
		end if
   next
   if f then
		getscore=0
   else
		getscore=1
   end if
end function
%>