本人做了一个在线考试系统。考试内容分成三个部分,分别是判断题,单选题和多选题。三种题型分别存放在三个表文件中,每个表中存放六次考试的题目,表文件名分别为type1,type2,type3.共一百道题目。题目出现顺序随机。现在我碰到的一个问题是,因为题目存放在三个表中,分页不知如何实现。请高手指教。
部分原代码如下:
<!--#include file="conn.asp"--> <!--#include file="check.asp"--> <%set rst=conn.execute("select * from type1 where sfkh=TRUE")%> <form name="form1" method="post" action="ztested.asp">
<head> <title></title> </head>
<body background="back.GIF" topmargin="0"> <table align=center border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" width=95% height="100"> ………… ………… …………… <tr><td colspan=3 align="left"> 一、判断题(共20题,每题1分)</td></tr> <% dim n(20) for j=1 to 20 n(j)=0 next i=0 do while i<20 randomize sid=int(20*rnd)+1 if n(sid)=1 then else set rst1=conn.execute("select * from type1 where pdtmh="&sid) n(sid)=1 i=i+1 %> <tr><td colspan=3 align="left"><%=i%>.<%=rst1("tm")%></td></tr> <tr><td colspan=3 align="left"><input type=radio name=pd<%=i%> value="A">对 <input type=radio name=pd<%=i%> value="B">错</td></tr> <input type=hidden name="pda<%=i%>" value="<%=rst1("pdda")%>" > <tr height="9"><td colspan=3 ></td></tr> <%end if loop %>
<tr><td colspan=3 align="left">二、单选题(共50题,每题1分)</td></tr> <% dim m(50) for dj=1 to 50 m(dj)=0 next di=0 do while di<50 randomize dsid=int(50*rnd)+1 if m(dsid)=1 then else set rst2=conn.execute("select * from type2 where dxtmh="&dsid) m(dsid)=1 di=di+1 %> <tr><td colspan=3 align="left"><%=di%>.<%=rst2("dxtm")%></td></tr> <tr><td colspan=3 align="left"><input type=radio name=dxa<%=di%> value="A">A.<%=rst2("dx1")%> <input type=radio name=dxa<%=di%> value="B">B.<%=rst2("dx2")%> <input type=radio name=dxa<%=di%> value="C">C.<%=rst2("dx3")%> <input type=radio name=dxa<%=di%> value="D">D.<%=rst2("dx4")%></td></tr> <input type=hidden name="dxzda<%=di%>" value="<%=rst2("dxda")%>" > <tr height="8"><td colspan=3 ></td></tr> <%end if loop %> ……………… <tr><td colspan=3 align="left">三、多选题(共30题,每题1分)</td></tr> ……………………… <tr height="100"><td colspan=3 ></td></tr> <tr><td colspan=4 align="center"> <input type="Submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"></td></tr> <input type="hidden" name="cxh" value="<%=session("student")%>">
</table> </form>