?? stestmain.asp
字號:
<%@ Language=VBScript %>
<%
db="testsys.MDB"
set mrs=server.CreateObject("adodb.recordset")
mrs.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -