做了个在线考试系统，求助：现在想实现一个断点续考的功能，就是防止出现断电、掉线等意外事故，达到重新进入系统的时候，将接着上次的答题继续进行的目的。哪位高手能帮帮忙，万分感谢！

这需要每答一题就要保存数据库一次,且没答完之前有修改权限,

当答完提交后,去掉修改权限!

再帮忙看看代码这样设计有没有问题，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
%>

试试不就知道有没有问题了,
好像没有数据连接
conn = "DBQ=" + server.mappath("answer.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"

改成:
dim connstr
set conn=server.createobject("ADODB.CONNECTION")
connstr = "DBQ=" + server.mappath("answer.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr