用ASP实现网上考试系统

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【用ASP实现网上考试系统】，下面是详细的分享！

用ASP实现网上考试系统

以下为引用的内容：
‘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 > 

以上所分享的是关于用ASP实现网上考试系统，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：网上考试系统制作方法

　　答：题库表、考生登录表、开考设置等表 1、在题库表录入相应答题及参考答案 2、考生身份证证 3、登录后系统自动跟据设置抽取试题形成试卷； 4、跟据设置考试时间进行答题，时间到即自动提示退出。 类似乎这种考试系统相应简单，有一定的ASP或其它程... >>详细

　　相关问题：ASP网上考试系统答案比较

　　答：数据库里添加一字段，记录题目的正确答案，然后根据用户的选择作比较 就行了 >>详细

　　相关问题：我想做一个简单的网上考试系统，是网页版的，请提...

　　答：http://www.w3school.com.cn/quiz/quiz.asp?quiz=sql 给你个网站，希望对你有帮助， 作完提可直接统计结果和显示错误结果和正确的结果。 >>详细