网上考试系统设计
前言：本站为你精心整理了网上考试系统设计范文，希望能为你的创作提供参考价值，我们的客服老师可以帮助你提供个性化的参考范文，欢迎咨询。
摘要给出了用ASP和SQL技术实现网上考试系统的一个实例。
关键词：ADOASPSQL
0.引言
随着网络技术的发展，传统的考试形式已日益显示出其不足。本文用asp技术和sql结构化查询语言实现了网上的无纸化考试。
1.设计
系统基本原理是：用access建立一个数据库文件，用来存储试题及用户的验证信息。当用户登陆时，首先提示要输入验证信息，当输入用户信息后，通过sql语言查询此用户是否合法，如果不合法，则显示提示信息。否则，进入考试系统，由服务器抽取试题并显示到考生屏幕上。当考生做完题并递交后，由系统自动评分并显示成绩。
在本系统中，数据库的建立是用ACCESS实现的。其中包括两个表：user和test。
User表存储用户信息，test表存储考试内容。
user表结构如下：
字段名类型含义
User文本存储用户名
Passwd文本存储密码
Score数字存储成绩
Test表结构如下：
字段名类型含义
Question文本存储考试题目
A文本存储选项A的答案
B文本存储选项B的答案
C文本存储选项C的答案
D文本存储选项D的答案
Answer文体存储正确答案
在提取用户端信息以及反馈信息时用到了ASP的内置对象。现说明如下：
Request对象
可以使用Request对象访问任何用HTTP请求传递的信息，包括从HTML表格用POST方法或GET方法传递的参数、cookie和用户认证。本系统通过REQUEST获取用户输入的用户名和密码。代码为：
REQUEST.FORM(“name”)和REQUEST.FORM(“passwd”)。
Response对象
可以使用Response对象控制发送给用户的信息。包括直接发送信息给济览器、重定向浏览器到另一个URL或设置Cookie的值。本系统通过RESPONSE将成绩反馈给用户。
RESPONSE.WRITE“你的成绩是”&score
试题的读取和成绩的录入是通过ADO来进行的。ADO(ActiveXDataObject,ActiveX数据对象)是一个ASP内置的ActiveX服务器组件(ActiveXServerComponet)，用于数据库访问，对数据库进行查询、插入、更新、删除等操作。对数据库的查询是用SQL的select命令，成绩的录入是用SQL的update命令。
存取数据库的具体步骤是：首先确定数据源，然后打开或连接数据库，，并执行响应的操作，执行完毕关闭数据库。以上操作是通过ADO对象来实现的。connection对象负责打开或连接数据库，recordset对象负责存取数据表，execute负责执行SQL命令。
设定数据来源的方法是：在服务器上打开“我的电脑”中的“控制面板”，双击“ODBC”；在“系统DSN”下选“添加”，选出预先设好的数据库种类、名称和位置。这里要用到的是access数据库，数据源名称为exam，主数据库名称为excise.mdb。打开或连接数据库的方法是：先用Server.CreatObject取得对象“ADODB.Connection”的一个实例，然后用“Open”打开待访问的数据库：
SetConn=Server.CreatObject(“ADODB.Connection”)
Conn.Open“exam"
然后执行SQL命令，即对数据库进行操作，这里要使用Execute命令
setrs=server.createobject(“adodb.recordset")
sql=“select*fromrest"
setrs=conn.execute(sql)
2.具体实现
主页文件index.asp的源代码如下：
〈html〉
〈head〉
〈metahttp-equiv=”Content-Type"content=”text/html;charset=gb2312"〉
〈metaname=“GENERATOR"content=”MicrosoftFrontPage4.0"〉
〈metaname=“Progld"content=”Fronpage.Editor.Document"〉
〈title〉用户口令检查〈/title〉
〈/head〉
〈bodybgcolor=”#008080”〉
〈formmethod=”post"action=”login.asp"〉
〈palign=”center"〉〈fontsize=”6"face=”黑体"〉网上考试系统v4.0〈/font〉〈/p>
〈palign=”center"〉〈fontcolor=“#0000FF"〉作者：尹春勇孙如霞〈/font>〈/p〉
〈palign=”center"〉2002.4.24〈/p〉
〈palign=”center"〉用户:〈inputtype=”text"name”name"size=”20"〉〈/p〉
〈palign=”center”〉口令:〈inputtype=”password”name=”passwd”size=“20"〉〈/p>
〈pailgn=”center"〉〈inputtype=”submit"value=“提交"name=“B1"〉
〈inputtype=“reset"value=”全部重写"name=”B2"〉〈/p〉
〈/form〉
〈/body〉
〈/html〉
信息递交后验证源代码login.asp如下：
〈％
name=request.form(“name")
passwd=request.form(“passwd")
setrs=server.createobject(“adodb.recordset”)
setconn=server.createobject(“adodb.connection")
connstr=“excise"
conn.openconnstr
sql=“select*fromuserwhereuser=`“&name&"’"
setrs=conn.execute(sql)
ifnot(rs.eof)then
ifrs(“score")〈〉Othen
response.writers(“user")&“的成绩是"&rs(“score")
else
session(“pass")=1
session(“user")=name
response.redirect“test.asp"
endif
else
response.write“对不起，用户和口令不正确!"
endif
％〉信息通过后抽取试题源代码test.asp如下：
〈％@language=vbscript％〉
〈％
ifsession(“pass")〈〉1thenresponse.redirect”login.asp"
setrs=server.createobject(“adodb.recordset")
setconn=server.createobject(“adodb.connection")
connstr=“excise"
conn.openconnstr
sql=“select*fromtest"
setrs=conn.execute(sql)
％〉
〈html〉
〈bodybgcolor=“#COCOCO"〉
〈formmethod=“POST"action=“result.asp"〉
〈％
i=1
rs.movefirst
dowhilenot(rs.eof)％〉
〈％=i％〉
〈％=rs(“question")％〉
〈br〉〈hr〉
〈tableborder=“O"width=“100%"〉
〈tr〉
〈tdwidth=”50%"〉〈inputtype=radioname=ans〈%=i%〉value=”a"〉A〈%=rs(“a")%〉〈/td〉
〈tdwidth=“50%"〉〈inputtype=radioname=ans〈%=i%〉value=”b"〉B〈%=rs(“b")%〉〈/td〉
〈/tr〉
〈tr〉
〈tdwidth=”50%”〉〈inputtype=radioname=ans〈%=i%〉value=”c”〉C〈%=rs(“c”)%〈/td〉
〈tdwidth=”50%"〉〈inputtype=radioname=ans〈%=i%〉value=”d"〉D〈%=rs(“d")%〉〈/td〉
〈/tr〉
〈/table〉
〈%
i=i+1
rs.movenext
loop
％〉
〈inputtype=”submit"name=”submit1"value=”交卷"〉
〈inputtype=”reset"name=”reset1"value=“重做"〉
〈/form〉
〈/body〉
〈/html〉
评分源代码result.asp如下：
〈％@language=vbscript％〉
〈%
setrs=server.createobject(“adodb.recorbset”)
setconn=server.createobje
ct(“adodb.connection")
connser=”excise"
conn.openconnstr
sql=”selectansfromtest"
setrs=conn.execute(sql)
correct=0
count=0
dowhilenotrs.eof
count=count+1
ifrequest.form(count)=rs(“ans")then
correct=correct+1
endif
rs.movenext
loop
scores=correct/count*100
response.write“你的成绩是："&scores
sql=”updateusersetscore=”&scores&whereuser=''''”&session(“user")&"''''"
conn.execute(sql)
％〉
