最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
网络考场（5）（转）stestmain.asp
时间：2022-07-02 23:32:26 编辑：袖梨 来源：一聚教程网
<%@ Language=VBScript %>
<%
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<0 then
'如果考试时间已到，关闭数据库对象，并重定向到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
%>
>
<%
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<0 then
'如果考试时间已到，关闭数据库对象，并重定向到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
%>