global.asa
< script language=vbscript runat=server >
sub application_onstart
dbpath = "dbq=" & server.mappath("onlinetest.mdb")
dbconnectionstring = "driver={microsoft access driver (*.mdb)}; " & dbpath
set application("conn") = server.createobject ("adodb.connection")
application("conn").open dbconnectionstring
end sub
sub application_onend
application("conn").close
set application("conn") = nothing
end sub
sub session_onstart
end sub
sub session_onend
end sub
< /script >
----------------------------------------------------------------------------------------------------------------
注册页面index.asp。其中有两个输入域:用户名和口令,这两个输入域需要客户机端的javascript确认,以便不把它们作为空白域来传递。非考生要想参加考试必须先注册。这个页面还要显示一些错误信息,如“用户名或口令错误”、“请重新选择一个用户名”等。注册表单中还应包含考生一些个人的信息,如emai、年龄、教育程度等。登录后,考生就可以参答考试站点的其它试卷了。
index.asp
<title>撼雪喷云之网上考试设计思路</title>
if (theform.username.value == "")
{
alert("考生姓名\"user name\"");
theform.username.focus();
return (false);
}
if (theform.password.value == "")
{
alert("考生口令\"password\"");
theform.password.focus();
return (false);
}
< table border="0" cellpadding="0" >
< tr >
< td width="50%" >
< font face="verdana" size="2" >姓名:< /font >
< /td >
< td width="50%" >
< font face="verdana" size="2" >< input type=text name=username size=20 maxlength=50 >< /font >
< /td >
< /tr >
< tr >
< td width="50%" >
< font face="verdana" size="2" >口令:< /font >
< /td >
< td width="50%" >
< font face="vedana" size=2 >< input type=password name=password size=20 maxlength= 50 >< /font >
< /td >
< /tr >
< tr >
< td width="100%" colspan="2" align="center" >
< font face="verdana" size="2" >< br > < input type="submit" value="提交" name="b3" >
< input type="reset" value="重写" name="b4" >
< /font >
< /td >
< /tr >
< /table >
----------------------------------------------------------------------------------------------------------------
登录文件register.asp,当考生登录或新注册后,就显示这一页。我们可以利用它来询问考生的个人信息。该表单被提交后,转到sendregister.asp页面。
----------------------------------------------------------------------------------------------------------------
验证和发送文件sendregister.asp。该页面从register.asp 中取得表单域的内容,查询数据库验证输入的用户名是否已经存在,如果存在,则将考生重新引回register.asp页面,并被提示要求重新选择用户名;如果用户名通过,则输入的内容就被传递并插入到数据库中。
sendregister.asp
sql_findmember = "select count(*) from loginuser where username = '" & username &"'"
set rs_findmember = application("conn").execute(sql_findmember)
if rs_findmember(0) < > 0 then
session("message") = "噢,您输入的名字已经存在,请重新选择一个名字!"
response.redirect "register.asp"
' 如果rs_findmember(0) 返回的值大于0,用户就被引导回注册主页,并被要求填写一个新的用户名.
end if
if rs_findmember(0) = 0 then
sql_insert = "insert into loginuser (username,useremail,password) _
values('" & username & "','" & useremail & "', '" & pwd &"') "
set rs_insert = application("conn").execute(sql_insert)
session("message") = "the entry has been inserted .. thank you"
response.redirect "index.asp"
' 如果rs_findmember(0) 返回的值是0,就表示用户名在数据库中不存在,名字就被存入.这意味着,考生可以参答站点其它的试卷了.
end if
username = replace(request.form("txt_name"),"'","''")
' 防止非法进入数据库哦.替换函数,当访问者键入了"'"单撇号,就用"''"代替.
----------------------------------------------------------------------------------------------------------------
checkuser.asp
' 考生登录验证文件.
sql_check = "select count(*) from loginuser where username ='" & _
username &"' and password = '" & useremail &"'"
' 验证用户名和口令是否存在于数据库中.
set rs_check = application("conn").execute(sql_check)
if rs_check(0) < > 0 then
session("username") = request.form("username")
response.redirect "default.asp"
' 如果已注册,引导到default.asp页.
end if
if rs_check(0) = 0 then
session("error") = "对不起,您的姓名或口令无效,请重新输入!"
response.redirect "index.asp"
' 检查用户是否已经注册,如果返回值为0,表明用户名或口令无效,回注册页
end if
username = replace(request.form("username"),"'","''")
useremail = replace(request.form("password"),"'","''")
' 替换函数.
----------------------------------------------------------------------------------------------------------------
选择试卷页面default.asp。登录成功后,进入该页面。在这儿,考生可以选择的考试科目列表。在本设计中,用了001html 和002html两个,在实际应用中,可以增加表格以增加考试科目数。default.asp 要求表格安装一个下拉菜单,其中包含科目的列表,然后查询数据库,从试卷的表格中搜集两个域。
default.asp
sql_papers = "select *id, topic from paper sort order by topic asc"
set rs_papers = application("conn").execute(sql_papers)
' 以下代码是为了在下拉菜单中显示结果.
select size=1 name=select1 onchange="msec(document.form1._
select1.options[document.form1.select1.selectedindex].value);" >
< option value="0" >选择科目考试
< %do while not rs_papers.eof% >
< option value="< %=rs_papers("id")% >" >< %=lcase(rs_papers("topic"))% >< /option >
< %
rs_papers.movenext
loop
% >
function msec(x)
' msec函数在x值的基础上调用 redirect.asp,把查询字符串: ?x的值作为下拉菜单中被选择的项的值.
{if (x==0)
{ alert("欢迎参加撼雪喷云之精英考试,请选择一个考试科目!")
}
else
{ location.href="redirect.asp?section=" + x
}
}
----------------------------------------------------------------------------------------------------------------
终于可以参加精英赛了!我们进入了试题页面redirect.asp。它将考生送到实际生成试题的asp页面,如果数据库中没有所选择的科目的任何题目,就会显示错误信息和返回链接。如果数据库有题,则这一页就被重新引导到exam.asp页面,考生就可以进行在线考试了。
redirect.asp
id = request.querystring ("section")
' 先调用查询字符串部分,将值存入变量 id中.
sql = "select tbl_name from paper where id="&id
set rs = application("conn").execute(sql)
subject= rs(0)
' 再使用sql声明传递试卷表格中的域名table_name,结果存储在subject中.
mystring = split(subject,"tbl",-1,1)
' 分离变量subject,将其存储在mystring中.注意,此处用split 函数在客户端显示测验名是为了更好地显示.
if rs_subject.bof and rs_subject.eof then
response.write online " & mystring(1) & 题库正在创建中,请稍后再来! < a href=default.asp >返回< /a >"
else
response.redirect ("exam.asp?section="&id )
end if
----------------------------------------------------------------------------------------------------------------
exam.asp是标准试卷页面,代码共分两大部分:计时器函数和本页查询选取试题。显示试题,并以单选按钮方式供考生答题。从数据库中选择的试题,本设计采用了随机函数,这也是目前题库生成试卷的通用方式。题目的个数设定为10个,考生每次回答5个。时间限定为20秒,剩余的时间在屏幕底部的状态窗口中显示。所有的试题都一起显示出来,然后开始计时。时间和试题个数都可以改变。
exam.asp
' 以下是计时器函数.
< script language="javascript" >
var ck=0;
var tf=0;
var timeup=0;
var timeleft=0;
var tcount=0;
timerfunc();
function timerfunc() {
tf=window.settimeout("timerfunc();",1000);
tcount++;
timeleft=20 - tcount;
window.status = "嘻嘻,做得的好快哦,还剩" +timeleft + "秒";
}
< /script >
id = request.querystring ("section")
session("id") = id
' 查询字符串存储在一个 session("id")中,按顺序启动查询.
sql_tblname = "select tbl_name from paper where id="&id
' sql声明的目的是从试卷表格中找到表格名,如果找到了表格名就开始向指定表格的查询.
set rs_tblname = application("conn").execute(sql_tblname)
subject= rs_tblname(0)
mystring = split(subject,"tbl",-1,1)
' split函数从结果中去掉tbl, 本设计使用了表格名前加tbl前缀的命名惯例.
sql_details = "select a.id, a.question, a.choice1, a.choice2,a.choice3, " &_
" a.choice4 from " & subject & " a where a.id="&myarray(counter)
' 用随机函数生成从1-10之间的任意数字, myarray(counter)是已经生成的随机数字,用来从指定的科目表格中选取id.id,question,choice1,choice2,choice3,choice4都是科目表格域名.
----------------------------------------------------------------------------------------------------------------
考试成绩单result.asp,显示结果,并将这些结果增加到数据库细节表格中,以供查询:
result.asp
for each item in request.form
sql_check = "select count(*) from "&subject&" where answer ='" & request.form(item) & "'"
set rs_check = application("conn").execute(sql_check)
if rs_check(0) > 0 then
result = result + 1
end if
next
' 变量result存储结果.
percent = round(( 100 * result )/count)
' 百分数换算.
sql_id = "select id from loginuser where username='" & session("username") &"'"
set rs_id = application("conn").execute(sql_id)
id= rs_id(0)
sql_insert = "insert into details (ref_id,subject,score) values('" & id & "','" _
& subject & "', '" & percent &"') "
' 执行查询,将结果存储在数据库中.
----------------------------------------------------------------------------------------------------------------
view.asp 文件查询是否在此参加过考试。
view.asp
sql_id= "select id from loginuser where username='" & session("username") &"'"
set rs_id = application("conn").execute(sql_id)
id= rs_id(0)
sql_count = "select count(*) from details where ref_id = '" & id &"'"
set rs_count = application("conn").execute(sql_count)
if rs_count(0) < > 0 then
response.redirect "viewrecord.asp"
' 如果已参加过考试,则转到viewrecord.asp页面.
end if
if rs_count(0) = 0 then
session("noview") = "噢,您还没在我们这儿考过试呢!"
response.redirect "default.asp"
end if
----------------------------------------------------------------------------------------------------------------
viewrecord.asp文件以表格形式显示注册用户的信息。
viewrecord.asp
sql_details = "select *subject, score from details where ref_id = '" & id &"'"
set rs_details = application("conn").execute(sql_details)
----------------------------------------------------------------------------------------------------------------
[1]
如对本文有疑问, 点击进行留言回复!!
vscode使用editorconfig插件以及.editorconfig配置文件说明详解
VSCODE添加open with code实现右键打开文件夹
网友评论