基于Web技术的网络考试系统

：存放填空题的题目、试卷代号及答案（问答题的处理与填空题类似，这里不作描述）
在ASP程序中，与数据库相关的典型语句如下：
<% exec_xzt="select * from xuanzt "
set conn=server.createobject("adodb.connection")
conn.open "dsn=test_net;uid=db2admin;pwd=db2admin"
set rs_xzt=conn.execute(exec_xzt) %>
在上述四行语句执行完后，rs_xzt中为符合条件的记录集。
三、 考试系统的实现方案
考试子系统是网络考试系统的核心部分，下面就该系统中一些常见问题的程序设计方案作一下具体说明。
（一）安全性考虑
1、 考试时间
（1）进入考试网站时首先检查当前时间是否为考试时间，以控制考生在规定的时间内参加考试；
<% dim time_cur
time_cur=now 'time_cur为当前时间
if time_cur>=cdate("2000-06-08 8:30:00 ") and time_cur<=cdate("2000-06-08 10:30:00 ") then%>
'显示登录页面…………
<%else%>
<font face="隶书" color="#0000FF" size="6">现在不是考试时间</font>
<%end if %>
（2）在进入试卷页面后还要控制考试的总时间，在卷面上动态显示目前剩余时间，当总时间已到，系统会自动提交考生的答案，并且把数据库中的相关字段，如jsjjc_dl设置为1，这样他就不能再次进入试卷页面，这段程序利用客户端程序实现，而且在试卷页面加载时就要设置timeout()的参数，本例中设它为1000ms，即每隔1秒timeout过程执行一次。
<script language="vbscript">
'客户端程序，求出剩余时间，利用timeout（每1000ms产生一次事件）
dim counter,t,fen,miao
counter=61 '这里假设考试时间为1分,即60秒
'页面的加栽事件
sub window_onload
    t=settimeout("timeout()",1000) '每隔1000毫秒timeout过程被执行一次
end sub
sub timeout
counter=counter - 1
if counter>=0 then '还有剩余时间
'根据counter的值求出剩余的分、秒，并把它显示在页面上
fen=counter \ 60 ：miao=counter mod 60 : T1.value=fen : T2.value=miao
t=settimeout("timeout()",1000)
else
form1.submit '假如考试时间已到，则自动提交表单中的内容
end if
end sub
</script>
2、 身份验证
根据考生的姓名、身份证号码、密码到数据库中查找相应记录，如果库中有该考生的记录，则允许进入，并且把考生信息记录在session中，否则给出信息，不允许进入。
<% dim xm,sfzhm,dw,mm,sjdh,exec1,xm_tj,sfzhm_tj,mm_tj,condition,exec2
'（略）……根据上一个页面中的信息查询库中是否有该考生的记录记录
if (not rs.eof) then ' 如果条件为真,则表示库中有该考生的记录
if rs("jsjjc_dl")=0 then '如果库中有该考生记录,则继续判断该考生是否参加过这门课程的考试
    '如果该考生没有参加过这门课程的考试,则用session记录下考生信息
    session("xingming")=xm ：session("shenfzh")=sfzhm：session("mima")=mm %>
'………… 显示试卷页面
<%else
response.write "您已经参加过测试，不能再次进入" '如果rs("jsjjc_dl")<>0 则表明考生已经
end if '参加过考试
else%>
<script language=vbscript>
alert("您输入的信息不对，请重新输入！") '如果表中没有查到该考生的记录,则显示提示窗口
set w2=open("default.asp") '并且重新定位到登录页面,使考生重新输入信息。
</script>
<%end if%>
（二） 试卷的生成：
试卷页面是采用ASP技术动态生成的。数据库中有一个字段，标记试卷代号，可以根据考生输入的试卷代号从数据库中选取相应记录，并把它按照一定的布局显示在页面上。从前面我们可以知道，选择题有一个表，先从选择题表中取出相应记录，同时动态生成表单域。然后从填空题表中选取符合条件的记录，本例以生成选择题为例说明试卷页面的生成。
<% '……从数据库中取出符合条件的记录，并存放在rs_xzt中
<p> <% i=1 'I为题号
do whil

《基于Web技术的网络考试系统(第2页)》