gusucode.com > ASP+ACCESS在线考试系统设计(源代码+论文) > ASP+ACCESS在线考试系统设计(源代码+论文)\郭晓璇论文第二稿\test\os.asp
<html>
<head>
<title>选择试卷</title>
</head>
<body background="../images/bkg35.jpg">
<h1 align=center>请选择做题形式</h1>
<div align="center">
<form action="test.asp" id="FORM1" method="post" name="FORM1">
<div align="center"><center><table border="1" width="80%" height="136">
<tr>
<th width="26%" height="16">
<P align=left><font color="#0000ff">使用说明：如果您有断线而留下的卷子，您可以“<FONT
color=darkorange>继续</FONT>”考试，如果选择“<FONT
color=orange>不继续</FONT> ”将删除上次的断线记录。</font></P></th>
</tr>
<%
papername=request("papername")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../试题库.mdb")
set rs= server.createobject("adodb.recordset")
bj=0
sql="select * from 成绩登记表 where 试卷名称='"& session("user") & papername &"' and 当前状态='正在考试'"
set base2=conn.execute(sql)
if base2.eof then
bj=1
else
bj=0
end if
if bj=0 then
%>
<tr>
<td width="26%" height="20" align="middle"><A href="test.asp?papername=<%=papername%>"><%=papername%>(有断线纪录，继续)</a></td>
</tr>
<tr>
<td width="26%" height="20" align="middle"><A href="test1.asp?papername=<%=papername%>"><%=papername%>(有断线纪录，不继续)</a></td>
</tr>
<%
else
%>
<tr>
<td width="26%" height="20" align="middle"><A href="test1.asp?papername=<%=papername%>">直接进入<%=papername%></a></td>
</tr>
<%
end if
'base.movenext
'loop
%>
</table>
</center></div>
</form>
<div align="center">
<A href="../mainselect.asp" ><IMG src="../Images/back.bmp"></img></a>
</div></div>
</body>
</html>