效率比较高的抽题算法（asp考试系统）

以抽取选择题为例。根据科目不同抽题组卷，没有增加根据题目难度抽题的条件。







dim q_all()'所有试题数组
dim q_number'要抽取试题数
dim q_select()'抽取完成的试题存放数组
dim j
dim t_sunum '试卷科目数
dim t_qunum()'这个科目的试题数
dim t_suid()'科目id
dim k
dim selbegin'当前已选题数
dim selend'当前应选试题结束数
dim single_num'单选题试题总数

single_num=0
selnum=1
selbegin=0
t_sunum=0
q_number=0
selend=0
'试卷所包含科目及科目试题数
set resbuff=server.CreateObject("adodb.recordset")
strsql="select * from k_temp_relation where k_t_r_examid="&cint(session("exam")) &" and k_t_r_type=1 "'查出试卷所有包含试题科目的信息
resbuff.open strsql,conn,1,1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
response.redirect"error.htm"
else
if not resbuff.eof and not resbuff.bof then
t_sunum=resbuff.RecordCount'获得包含所有科目
redim t_suid(t_sunum)
redim t_qunum(t_sunum)
resbuff.movefirst
for i=1 to t_sunum
t_suid(i)=resbuff("k_t_r_suid")
t_qunum(i)=resbuff("k_t_r_num")
single_num=single_num+cint(t_qunum(i))
resbuff.movenext
next
end if
end if
set resbuff=nothing
redim q_select(single_num)'定义单选题的总数

'抽题过程
for k=1 to t_sunum
set resbuff=server.CreateObject("adodb.recordset")
strsql="select k_q_id from k_question where k_q_subjectid="&cint( t_suid(k)) & " and k_q_type=1 "'查询出所有符合条件的试题，从中随机抽取。
resbuff.open strsql,conn,1,1
if err.number <> 0 then
response.write "数据库操作失败："&err.description
response.redirect"error.htm"
else
if not resbuff.eof and not resbuff.bof then
q_number=resbuff.RecordCount'获得科目所有试题
redim q_all(q_number)
resbuff.movefirst
for i=1 to q_number
q_all(i)=resbuff("k_q_id")
resbuff.movenext
next
end if
end if
set resbuff=nothing
'随机抽取所有试题中的指定数目试题
randomize

selend=t_qunum(k)+selbegin

for i=selbegin+1 to selend
temp=int(q_number*rnd+1)
q_select(i)=q_all(temp)
q_number=q_number-1
for j=temp to q_number
q_all(j)=q_all(j+1)
next
next
selbegin=selend '一个科目抽题结束，将最后抽题数设为下一科目抽题数开始

next '所有科目抽题结束

评论 (0) | 固定链接 | 类别 (软件设计) |