如何實現網上考試？

2020-06-19 13:41:57

字體：大中小

來源：轉載

供稿：網友

' 考生驗證.
<％@ Language=VBScript％>
<％
name=trim(request("name"))
passwd=trim(request("passwd"))
if name<>"" and passwd<>"" then

' 檢查考生是否輸入用戶名和密碼.
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver(＊.mdb)};

dbq="＆ Server.MapPat("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql= "select ＊ from user where user=
'" ＆name＆"' and passwd='" ＆ passwd ＆"'"
Set rs= conn.Execute(sql)

' 驗證考生合法性.
if not(rs.eof) then
if rs("score")<>0 then

' 檢查考生是否已參加過考試,若是則進行成績查詢.
response.write rs("user")＆"的考試成績是"＆rs("score")
else
session("pass")=1
session("user")=name
response.redirect "test.asp"
end if
else
Response.Write "噢,您輸入的用戶名或密碼不正確!"
end if
else
end if
％>
<html>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>撼雪噴云之考生登錄</title>
</head>
<body>
<FORM action="login.asp" id=
FORM1 method=post name=FORM1>
<P title="">＆nbsp;</P>
<P title="">＆nbsp;</P>
<P title="" align=center>考生:
<INPUT id=text1 name=name style="HEIGHT:22px; WIDTH: 103px"></P>
<P title="" align=center>密碼:
<INPUT id=password1 name=passwd style="HEIGHT: 23px; WIDTH: 101px" type=password></P>
<P title="" align=center>

test.asp

' 從題庫中取題考試.
<％@ Language=VBScript ％>
<％
if session("pass")<>1 then
response.redirect "login.asp"
else
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (＊.mdb)};
dbq="＆ Server.MapPath("exercise.mdb")
sql="select ＊ from test"
Set rs = conn.Execute( sql )

' 提取試題.
％>

' 以上是一個計時函數.

<html>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body onLoad="startit()" BGCOLOR="FFFFFF">
<center>
' 調用計時函數顯示時間.
<TABLE BORDER=2>
<tr>
<td>Time</td><td>Hour</td><td>Min</td><td>Sec</td><td></td>
</tr>
<tr>
<td></td>
<td VALIGN=TOP><FORM NAME="clckh" onSubmit="0">
<INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="">
</FORM></td>
<td VALIGN=TOP><FORM NAME="clckm" onSubmit="0">
<INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="">
</FORM></td>
<td VALIGN=TOP><FORM NAME="clcks" onSubmit="0">
<INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="">
</FORM></td>
<td VALIGN=TOP><FORM NAME="clck" onSubmit="0">
<INPUT TYPE="text" NAME="disp" SIZE=4 VALUE ="">
</FORM></td></tr>
</center>

' 顯示試題.
<P>＆nbsp;</P>
<P>
<％
i=1
rs.movefirst
do while not rs.eof％>
<P>＆nbsp;＆nbsp; <％=rs("question")％></P>
<TABLE align=center border=1 cellPadding=1
cellSpacing=1 width="80％">
<tr>
<td style="WIDTH: 50％" width="50％">
<INPUT name=ans<％=i％> type=radio value="A"><％=rs("a")％></td>
<td><INPUT name=ans<％=i％＞
type=radio value="B"><％=rs("b")％></td></tr>
<tr>
<td><INPUT name=ans<％=i％>
type=radio value="C"><％=rs("c")％></td>
<td><INPUT name=ans<％=i％>
type=radio value="D"><％=rs("d")％></td>
</tr>
</TABLE>
<％
i=i＋1
rs.movenext
loop
％>
</P>
<P></P>
<P align=center><INPUT id=submit1 name=submit1 type=submit value=交卷>

result.asp

' 評分并將成績記錄到數據庫.
<％@ Language=VBScript ％>
<html>
<head>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body>
<P>＆nbsp;</P>
<％
name=session("user")
dim score
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver(＊.mdb)};

dbq=" ＆ Server.MapPath("exercise.mdb")
sql="select ans from test"
Set rs = conn.Execute( sql )
ycorrect=0
rsCount=0

Response.Write "標準答案:"

' 給出標準答案并評分.
Do while not rs.eof
Response.Write rs("ans")
rsCount=rsCount＋1
if Request.Form(rsCount)=rs("ans") then
ycorrect=ycorrect＋1
end if
rs.movenext
loop
Response.Write "<br>您的答案:"
score=int(ycorrect/rscount＊100)
for i=1 to Request.Form.Count－1
Response.Write Request.Form(i)
next
Response.Write "<br>"
Response.Write "您的成績:"＆score
if score<60 then Response.Write "別難過,您不及格!"＆"<br>"
else if score>=60 Response.Write "幸好,您及格了!"＆"<br>"
else Response.Write "恭喜,您獲得了優秀!"