IDC资讯中心 <%@ 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
%>
<html>
<head>
<meta name="generator" content="microsoft visual studio 6.0">
</head>
<body>
<form action="stestmain.asp" method=post id=form1 name=form1>
<p align=center>
<table border=1 cellpadding=1 cellspacing=1 width=75%>
<tr>
<td>
<div align=center>第<%=session("page")%>题</div></td></tr>
<tr>
<td>
<%
从试题库中取出下一道题
mrs.source="select * from question where sub=" & session("subname") & " and teachid=" & session("teachid") & ""
mrs.open ,,1,1
mrs.pagesize=1
mrs.absolutepage=session("page")
session("questionid")=mrs("questionid")
response.write "<pre>"
response.write mrs("question")
response.write "</pre><hr>"
response.write "a. " & mrs("a") & "<br>"
response.write "b. " & mrs("b") & "<br>"
response.write "c. " & mrs("c") & "<br>"
response.write "d. " & mrs("d") & "<br>"
关闭数据库对象
mrs.close
set mrs=nothing
%>
</td></tr>
<tr>
<td><input id=radio1 name=choose type=radio value=a>a
<input id=radio2 name=choose type=radio value=b>b
<input id=radio3 name=choose type=radio value=c>c
<input id=radio4 name=choose type=radio value=d>d
<input id=submit1 name=submit1 type=submit value=确定>
</td>
</tr>
</table>
</p>
</form>
</body>
</html>
网络考场（5）（转）stestmain.asp
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » 网络考场（5）（转）stestmain.asp
相关推荐
- 暂无文章
