show.asp

上机考试系统,可以做与sql数据库相关知识的测试

<!--#include file=conn.inc-->
<%
dim xh,xm,num1,n1,k,j,i,str1,str2
xh=request.querystring("xh")
xm=request.querystring("xm")
response.write "<font color=blue><b>" & xh & " - - " & xm & " </b></font>参加考试，以下是你要完成的题目，请将调试后的正确答案写在答题纸上（注意写上序号）<font color=red><b>切记不要点刷新</b></font><br><hr>"
num1=cint(right((cint(right(xh,2)) xor second(now)),2))/100
Set rs=Server.CreateObject("ADODB.RecordSet")
Set rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select * from record",conn1,3,3
%>
<table border=1 bgcolor=#c0c0c0>
<tr><th>序号</th><th>章节</th><th>题目内容</th></tr>
<%
for k=1 to 8
str1="select * from 题目 where 章节=" & k
rs.open str1,conn1,3
%>
  <%for j=1 to rs.recordcount
   n1=int(rs.recordcount*num1)
   if n1=j then%>
   <tr>
    <%for i=0 to rs.fields.count-1%>
     <td><%=rs.fields(i).value%></td>
    <%next%>
   </tr>
   <%str2=str2 & " " & rs.fields(0).value
   end if
   rs.movenext
  next
rs.close
 next%>
</table>
<%
rs2.addnew
rs2("xh")=xh
rs2("xm")=xm
rs2("tm")=str2
rs2("worktime")=now
rs2.update
rs2.close
Set rs2=nothing
Set rs=nothing
conn1.close
Set conn1=nothing
%>