asp网上考试系统代码分析

网上考试

随着互连网技术的发展网上教学将成为人们接受再教育和终身教育的主要形式。在网上学校中，人们可以不受时间和空间的限制，随时随地选学任何地方的任何课程。网上学校的发展对网上考试的发展提出了迫切的要求。这里是我用Asp和Access数据库实现的一个网上考试系统。当用户凭用户名和口令登录时，系统首先检查该用户是否已参加过考试，若是则进行成绩查询，若否则从题库中提取考题供用户解答。等用户提交答卷后，系统进行评分并将成绩登记入库。

一． 数据库设计

首先建立一数据库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 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" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clckm" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clcks" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clck"
>
< 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 > 
时间： 2024-12-03 16:31:24

asp网上考试系统代码分析的相关文章

用ASP实现网上考试系统

随着互连网技术的发展网上教学将成为人们接受再教育和终身教育的主要形式.在网上学校中,人们可以不受时间和空间的限制,随时随地选学任何地方的任何课程.网上学校的发展对网上考试的发展提出了迫切的要求.这里是我用Asp和Access数据库实现的一个网上考试系统.当用户凭用户名和口令登录时,系统首先检查该用户是否已参加过考试,若是则进行成绩查询,若否则从题库中提取考题供用户解答.等用户提交答卷后,系统进行评分并将成绩登记入库. 一． 数据库设计 首先建立一数据库exercise.mdb,其中包括两个表:u

利用ASP.NET构建网上考试系统

asp.net 随着计算机网络的普及,基于数据库的B/S网上考试系统得到广泛地应用,现以ASP.net(C#)+SQL server(或ACCESS)为例说明开发网上考试系统的实现方法. 一.数据库的设计: 建立数据库netexam,在库中添加考生信息表StuInfo,分别建立以下字段:考号ExamId(c)(主键).考生姓名Name(c).是否登录考试LogYn(c).得分Score(c).随机生成的试题答案mca(c) (注:此处以多选题为例,单选题.判断题同理).添加多选题题库表mc,建立

谁有用ASP做的网上考试系统

问题描述 谁有用ASP做的网上考试系统要那种有倒计时并且自动评分和给评语的有的联系我我的QQ是28446687或者直接给我发到邮箱xb28446687@126.com谢谢!谢谢!

网上考试系统编制中的随机抽取试题的四种算法

算法|随机 因为教学的需要,我决定编写一个asp+ms sql2000的网上考试系统,其功能主要为:实现判断题.单项多项选择题和填空题的在线自动答题.改卷:并将学生的错误答案记入数据库,供教师分析.在编写从题库中随机抽取试题这一模块的算法上,却颇费了一番周折,现将解决过程记录如下,以供大家参考. 为了便于说明问题,文中提供的代码中的变量pd为从题库中要抽取出来考试的试题数量,数据库表名与字段名我都使用了中文,并仅以判断题为例. 算法一 由于不知道如何实现从题库中随机抽取试题的sql语句,我在网上

jsp java mysql-基于jsp的网上书店系统代码调试

问题描述 基于jsp的网上书店系统代码调试 从网上下载了一个网上书店系统的代码,导入到myeclipse中好多错误,数据库用的是mysql,我只学了一点点jsp的内容,自己不会调,这个系统我急着用,谁能帮我弄一下,可以加我qq帮我远程调一下吗?谢谢了~qq:1096273561 解决方案 你可以把项目发给我么?2970569542@qq.com这个邮箱里面,我帮你看看

求用java框架写的网上选课系统代码

问题描述 求用java框架写的网上选课系统代码 解决方案 解决方案二: 解决方案三:http://57share.net解决方案四: 解决方案五:给你你看得懂么?给你你用得了么?

ASP.NET考试系统考试提交后不跳转，如果正确就不显示，如果错误就显示正确答案在题目的旁边。怎么实现的！考试题目答错后，显示正确答案代码怎么写，写在什么地方？

问题描述 由于字数的问题我只写了单选题if(!IsPostBack){if(Session["power"]==null){Response.Write("<script>alert("对不起,您还未登录!");</script>");Response.Write("<script>window.location.href='announcement.aspx';</script>&quo

网上考试系统的一点心得

心得 注:使用asp.net+sqlserver2000,题目只针对选择题 一.数据库设计 1.题目存在一个表中 字段包括:编号ID(标识字段),题目内容,题目答案 2.选项存在一个表中 字段包括:编号(标识字段),题目ID,显示顺序 二.页面设计 人员的登录什么的就不说了,重点就说说出题 1. 如果随机出题,那么可以在数据库中查询题目时使用order by newid() 如:select * from tablename order by newid() 读出题目后根据题目ID去选项表中搜题

asp 天气查询系统代码

 代码如下 复制代码 <!--#include file=Function.asp--> <% Dim Url,Html,time time=Request("time") Url="http://weather.cncn.com/get_weather.php?action=get_city&time='"&time&"'"// 读取cncn上的天气信息 Html = getHTTPPage(Url)