网络考场（5）（转）stestmain.asp

set mrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="dsn=testsys"
if Request.ServerVariables("http_method")="POST" then
    '将学生的回答写入到数据库中
    mrs.Source="select * from tbanswer"
    mrs.Open,,1,3
    mrs.AddNew
    mrs("answer")=Request.Form("choose")
    mrs("stid")=session("stid")
    mrs("questionid")=session("questionid")
    mrs.Update
    mrs.Close
end if    
gotime=hour(now())*60+minute(now())-hour(session("starttime"))*60-minute(session("starttime"))
lefttime=session("testtime")-gotime
if session("page")=cint(session("testnum")) or lefttime    '如果考试时间已到，关闭数据库对象，并重定向到sevalue.asp文件
    set mrs=nothing
    Response.Redirect "sevalue.asp"
end if
if Request.ServerVariables("http_method")="GET" then
    '已考的题目数
    session("page")=1
else
    '每做一道题，用“POST”方式提交，已考的题目数+1
    session("page")=session("page")+1
end if
%>
>