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>