一． 数据库设计

　　首先建立一数据库exercise.mdb，其中包括两个表：user和test，user表中有包括三个字段：

　　字段名称：user；字段类型：文本；字段大小：20。存储用户名

　　字段名称：passwd；字段类型：文本；字段大小：20。存储用户密码

　　字段名称：score；字段类型：数字；字段大小：整型。存储用户成绩
　　test表中有五个字段：
　　字段名称：question；字段类型：文本；字段大小：255。存储考试题目

　　字段名称：a；字段类型：文本；字段大小：100。存储选项A的答案

　　字段名称：b；字段类型：文本；字段大小：100。存储选项B的答案

　　字段名称：c；字段类型：文本；字段大小：100。存储选项C的答案

　　字段名称：d；字段类型：文本；字段大小：100。存储选项D的答案

　　字段名称：ans；字段类型：文本；字段大小：2。存储正确答案

　　二．程序原代码

　　下面是该系统中较核心的三段原程序，希望对开发类似系统的读者取到抛砖引玉的作用，读者也可对其进行改进以适应自己的系统。

　　‘Login.asp源程序，检验用户是否合法
　　< %@ 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.MapPath("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="" > < /P >
　　< P title="" > < /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 >
　　< INPUT id=submit1 name=submit1
　　type=submit value=" 进入 " style="FONT-SIZE:
　　medium; FONT-STYLE: normal;
　　FONT-VARIANT: normal; FONT-WEIGHT:
　　bold" title="" >< /P >
　　< P title="" align=center >
　　< /P >
　　< /FORM >
　　< /BODY >
　　< /HTML >

　　‘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 )
　　% >
　　‘计时函数
　　< SCRIPT LANGUAGE="JavaScript" >
　　var isn1=null;
　　var isn2=false;
　　today=new Date();

　　function stopit(){
　　if(isn2){
　　　　clearTimeout(isn1);
　　　　}
　　isn2 = false;
　　}
　　function startit(){
　　stopit();
　　isnclock();
　　}

　　function isnclock(){
　　var now=new Date();
　　var hrs=now.getHours();
　　var min=now.getMinutes();
　　var sec=now.getSeconds();
　　document.clckh.disp.value=""+((hrs >12) ?
　　hrs-12 : hrs);
　　document.clckm.disp.value=((min< 10) ? "0" : "")+min;
　　document.clcks.disp.value=((sec< 10) ? "0" : "")+sec;
　　document.clck.disp.value=(hrs >=12) ? "p.m." : "a.m.";
　　isn1=setTimeout("isnclock()",1000);
　　isn2=true;
　　}
　　< /SCRIPT >

　　< 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 >
　　‘显示试题供解答
　　< FORM action="result.asp" id=FORM1
　　method=post name=FORM1 >
　　< P > < /P >
　　< P >
　　　　< %
　　　　i=1
　　　　rs.movefirst
　　　　do while not rs.eof% >
　　　　< P > < %=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=Submit >< INPUT id=reset1 name=reset1
　　type=reset value=Reset >< /P >< /FORM >
　　< /BODY >
　　< /HTML >

　　
　　‘result.asp源程序，对用户答卷评分，
　　并将分数记录入库
　　< %@ Language=VBScript % >
　　< HTML >
　　< HEAD >
　　< META NAME="GENERATOR" Content="Microsoft
　　Visual Studio 6.0" >
　　< /HEAD >
　　< BODY >
　　< P > < /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 " 优秀！"
　　‘将成绩登记入库
　　strSql=”insert into user (result) values (”&score&”)
　　where user=’”&name&”’”
　　conn.execute(strSql)
　　% >
　　< /BODY >
　　< /HTML >