<%
end function
//科目列表
function listSubj()
sql="SELECT * from subject"
set rs=conn.execute(sql)
response.Write ""
end function
//题型列表
function listClass()
response.Write ""
end function
function showQuiz(subjID,quizClass)
dim quizCount
sql="select count(1) as quizCount from quizLib where subjID=" &subjID &" and quizClass='"&quizClass&"'"
set rs=conn.execute(sql)
quizCount=rs("quizCount")
if quizCount<=0 then
response.Write("系统中没有足够的当前种类试题！
请返回重新选择")
else
call showQuizInfo(subjID,quizClass,quizCount)
end if
end function
function showQuizInfo(subjID,quizClass,quizCount)
dim page
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from quizLib where subjID=" &subjID &" and quizClass='"&quizClass&"'"
rs.Open Sql,Conn,1,1
//产生随机题号
Randomize
page = Int(Rnd * quizCount + 1)
//找到试题
rs.move page-1,1
%>