做了个在线考试系统,求助:现在想实现一个断点续考的功能,就是防止出现断电、掉线等意外事故,达到重新进入系统的时候,将接着上次的答题继续进行的目的。哪位高手能帮帮忙,万分感谢!
再帮忙看看代码这样设计有没有问题,thx
<%
dim rs
dim sql
dim conn
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("answer.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from answer00 where pass='1'"
rs.open sql,conn,1,1
if rs.eof then
response.write"<script language=javascript>"& chr(13) & "alert('您已经答完,谢谢您的参与!');"&history.back( )"&"</script>"
Response.Write "<P align=center><STRONG> </p></STRONG>"
Response.Write "<P align=center><STRONG> </p></STRONG>"
Response.Write "<P align=center><STRONG> </p></STRONG>"
Response.Write "<P align=center><STRONG><font color='#FF0000' size='5' face='黑体'>您已经答完,谢谢您的参与!</font></p></STRONG>"
Response.End
else
session("countnum")=rs("id")-1
end if
set rs=nothing
set conn=nothing
%>