<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
flagpd=0
flagxz=0
flagtk=0
randomize
set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=no or 补考成绩<>0) order by id desc ")
if rss.eof then
qi=1
else
qi=rss("id")+1
end if
set rss=conn.execute("select top 1 * from report where 学生id="&session("id")&" and (是否补考=yes and
补考成绩=0) order by id desc ")
if not rss.eof then
qi=rss("id")
end if
set rss=conn.execute("select top 1 * from test order by id desc")
if rss.eof then
%>
<script language=javascript>
alert("请先出题！再进行考试！");
history.back();
</script>
<%
else
pd=rss("判断题数")
pds=rss("判断题每题分数")
xz=rss("选择题数")
xzs=rss("选择题每题分数")
tk=rss("填空题数")
tks=rss("填空题每题分数")
session("EndTime")=rss("考试时间")
zf=pd*pds+xz*xzs+tk*tks
testid=rss("id")
set rs=conn.execute("select top 1 * from type1 order by id desc")
maxtype1=rs("id")
set rs=conn.execute("select top 1 * from type2 order by id desc")
maxtype2=rs("id")
set rs=conn.execute("select top 1 * from type3 order by id desc")
maxtype3=rs("id")
sqlfind="select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=False or 补考成绩<>0)"
set rsfind=conn.execute (sqlfind)
if not rsfind.eof then
%>
<script language=javascript>
alert("你已经参加过这次考试了，请等待下一次考试！");
window.navigate("index.asp");
</script>
<%
else
if Session("startTime") = "" then
NowTime = Now()
Session("startTime") = NowTime
end if
set rsfinds=conn.execute("select * from report where 试卷id="&testid&" and 学生id="&session("id")&" and (是否补考=True and
补考成绩=0)")
if not rsfinds.eof then
else
sqlin="insert into report (id,试卷id,学生id,分数) values("&qi&","&testid&","&session("id")&",0)"
'response.write sqlin
'response.end
set rsin=conn.execute(sqlin)
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上考试系统</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file = "top.htm" -->
<table border="1" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" height ="100" align="center">
<tr>
<td align="center">
<font class=test1>第 <%=qi%> 期考试</font>
<br>（本期考试 <%=pd%> 道判断题，<%=xz%>
道选择题，<%=tk%> 道填空题，总分 <%=zf%> 分）
</td>
</tr>
<tr>
<td align="center">
<!--#include file="js2.asp" -->
</td>
</tr>
<form name="form1" action="test_over.asp" method="post">
<tr>
<td align="center" bgcolor="#CBEFDC">
<font color="#000080">
<input type="hidden" name=qi value=<%=qi%>>
<input type="hidden" name=testid value=<%=testid%>>
<input type="hidden" name=pd value=<%=pd%>>
<input type="hidden" name=xz value=<%=xz%>>
<input type="hidden" name=tk value=<%=tk%>>
<input type="hidden" name=zf value=<%=zf%>>
<input type="hidden" name=pds value=<%=pds%>>
<input type="hidden" name=xzs value=<%=xzs%>>
<input type="hidden" name=tks value=<%=tks%>>
考生姓名：<%=session("student")%>
性别： <%=session("sex")%>
班级：<%=session("classes")%>
学号：<%=session("number")%></font>
</td>
</tr>
<tr>
<td align="center">
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" align="center">
<tr>
<td bgcolor="#CBEFDC">
一、判断题（共 <%=pd%> 道，每题 <%=pds%> 分）
</td>
</tr>
<%
if pd=0 then
Response.write "<input type='hidden' name=messagepd value='本次考无判断题'>"
flagpd=1
%>
<tr>
<td align=center>本次不考判断题</td>
</tr>
<%
else
for i=1 to pd
if maxtype1=0 then
Response.write "<input type='hidden' name=messagepd value='题库里暂无判断题'>"
flagpd=1
%>
<tr>
<td align=center>题库里暂无判断题</td>
</tr>
<%
else
randomize
sid=int((maxtype1+1)*rnd+1)
set rst=conn.execute("select * from type1 where id="&sid)
while rst.eof
randomize
sid=int((maxtype1+1)*rnd+1)
set rst=conn.execute("select * from type1 where id="&sid)
wend
%>
<tr>
<td>
<%=i%>、<%=rst("题干")%>
<input type="hidden" name="tgpd<%=i%>" value="<%=rst("题干")%>">
<select name="cate<%=i%>" size="1" style="background-color: rgb(224,252,255)">
<option selected value=True>对</option>
<option value=False>错</option>
</select>
<input type="hidden" name="pdda<%=i%>" value="<%=rst("正确答案")%>">
</td>
</tr>
<%
end if
next
end if %>
</table>
<br>
<table align="center" border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">二、选择题（共 <%=xz%> 道，每题 <%=xzs%> 分）</td>
</tr>
<%
if xz=0 then
response.write "<input type='hidden' name=messagexz value='本次考无选择题'>"
flagxz=1
%>
<tr>
<td align=center>
本次考无选择题
</td>
</tr>
<%
else
for i=1 to xz
if maxtype2=0 then
response.write "<input type='hidden' name=messagexz value='题库里暂无选择题'>"
flagxz=1
%>
<tr>
<td align=center>
题库里暂无选择题
</td>
</tr>
<%
else
randomize
sid=int((maxtype2+1)*rnd+1)
set rst=conn.execute("select * from type2 where id="&sid)
while rst.eof
randomize
sid=int((maxtype2+1)*rnd+1)
set rst=conn.execute("select * from type2 where id="&sid)
wend
%>
<tr>
<td>
<%=i%>、<%=rst("题干")%>
<input type="hidden" name="tgxz<%=i%>" value="<%=rst("题干")%>">
</td>
</tr>
<tr>
<td>
<input
type="radio" value="A" name="sele<%=i%>">
A.<%=rst("选项1")%>
<input type="hidden" name="xzxx1<%=i%>" value="<%=rst("选项1")%>" >
<input
type="radio" value="B" name="sele<%=i%>">
B.<%=rst("选项2")%>
<input type="hidden" name="xzxx2<%=i%>" value="<%=rst("选项2")%>" >
<input
type="radio" value="C" name="sele<%=i%>">
C.<%=rst("选项3")%>
<input type="hidden" name="xzxx3<%=i%>" value="<%=rst("选项3")%>" >
<input
type="radio" value="D" name="sele<%=i%>">
D.<%=rst("选项4")%>
<input type="hidden" name="xzxx4<%=i%>" value="<%=rst("选项4")%>" >
<input type="hidden" name="xzda<%=i%>" value="<%=rst("正确答案")%>" >
</td>
</tr>
<%
end if
next
end if
%>
</table>
</center>
</div>
<br>
<div align="center">
<center>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td bgcolor="#CBEFDC">
三、填空题（共 <%=tk%> 道，每题 <%=tks%> 分）
</td>
</tr>
<%
if tk=0 then
response.write "<input type='hidden' name=messagetk value='本次考无填空题'>"
flagtk=1
%>
<tr>
<td align=center>
本次考无填空题
</td>
</tr>
<%
else
for i=1 to tk
if maxtype3=0 then
response.write "<input type='hidden' name=messagetk value='题库里暂无填空题'>"
flagtk=1
%>
<tr>
<td align=center>
题库里暂无填空题
</td>
</tr>
<%
else
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from type3 where id="&sid)
while rst.eof
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from type3 where id="&sid)
wend
%>
<tr>
<td>
<%=i%>、<%=rst("题干")%>
<input type="hidden" name="tgtk<%=i%>" value="<%=rst("题干")%>">
您的答案：<input type="text" name="T<%=i%>" size="20" class="line">
</td>
<input type="hidden" name="tkda<%=i%>" value="<%=rst("正确答案")%>">
</tr>
<%
end if
next
end if
%>
</table>
</center>
</div>
<br>
<input type="hidden" name="flagpd" value=<%= flagpd %>>
<input type="hidden" name="flagxz" value=<%= flagxz %>>
<input type="hidden" name="flagtk" value=<%= flagtk %>>
<input type="submit" value="提交" name="B1">
<input type="reset" value="重置" name="B2">
<p>
<br>
</td>
</tr>
</table>
</form>
</center>
</div>
<!--#include file="adv.htm"-->
</body>
</html>
<%
end if
%>
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from type3 where id="&sid)
while rst.eof
randomize
sid=int((maxtype3+1)*rnd+1)
set rst=conn.execute("select * from type3 where id="&sid)
wend
看了一下代码大致明白了二次随机数的目的，一次随机数只产生一个提干，再循环时容易出现重复，所以增加一个循环产生一个二次随机数，两次循环后题干就不会重复出现了。
