2014如何制作在线试卷.docVIP

如何制作在线试卷　　在最近一两年考试的型态已经从传统的考卷、原子笔转成计算机、鼠标了,在网络科技发展迅速的今天,你绝对有理由相信,未来的考试模式将演变成以网络实时进行的型态,这样子的考试型态对环保是大有帮助的,因为根本不用用到纸张,原子笔,又因为测验的资料是以数据库的方式储存,所以提高了出题者的弹性,透过数据库管理接口,出题者可以随时删除或修改考试题目,最重要的是不会再发生考生拿错考卷的不幸事件,想想看,每年因为这种事件而轻生的考生有多少,所以以线上进行测验的方式将会成为下一代考试的准模式,现在就让我们来看看该如何建立这套机制吧!! 首先你必须先建立一个储存考试资料的数据库,数据库表格和字段名称定义如下: 考试卷? 题目编号?自动编号? 题目?文字?(255字符)? 答案?文字?(255字符)? 答案?文字?(255字符)? 答案?文字?(255字符)? 答案?文字?(255字符)? 正确答案?文字?(255字符)? 警示语?文字?(255字符)? 接下来让我们看看执行测验功能的程序该如何撰写 quiz.asp html body?marginheight=30? marginwidth=30? topmargin=180? leftmargin=250?background=/images/yellow_bg.gif text=blue?? %建立数据库连结 set?conntemp?=?server.createobject(adoDB.Connection) 指定数据库路径 myDSN?=?DRIVER={Microsoft?Access?Driver?(*.mdb)};DBQ=?? Server.MapPath(/asp/quiz/quiz.mdb)??;DefaultDir=?? Server.MapPath(/asp/quiz)??;DriverId=25;FILE=MS? Access;MaxBufferSize=512;PageTimeout=5 conntemp.Open?myDSN 计算题目总数 Dim?rsTotalRecords strSQL?=?SELECT?COUNT(*)?FROM?考试卷 Set?rsTotalRecords?=?conntemp.Execute(strSQL) %%Records=Cint(rsTotalRecords(0))%? %?If?Request.Form(Records)=?then Y?=?Records else? Y?=?Request.Form(Records) end?if 目前的题目编号 CurQ?=?Request.Form(CurQ) 作答者所选的答案 Answ?=?Request.Form(Answ) 答对的题目总数 correct=Request.Form(Correct) 答错的题目总数 wrong=Request.Form(Wrong)% %如果所有题目都回答完了,笔者在数据库所建的资料只有2笔 If?CurQ?2?Then% p恭喜你,你已经完成这次的测验?,你一共答错%=wrong%?题/pbR p答对了%=correct%题,你的分数是font?color=red%=(100/Records)*correct%/font分/p %I=(100/Records)*correct% %计算总分 IF?I??50?then% p你被当了/p %else?% p算你运气好/p %end?if% %Response.End% %End?If% %进入考场的第一个画面 If?CurQ=empty?Then?%p欢迎进入考场,这一次的测验共有% =Records%道题目,每题%=100/Records%分?/p? %将题目指定在第一题 CurQ?=?1 答对的题数一开始为0? correct?=?0 答错的题数一开始为0 wrong?=?0 End?If 如果还没开始作答就显示第一道题目 If?Answ=empty?Then%%?set?conntemp?=?server.createobject(adoDB.Connection) myDSN?=?DRIVER={Microsoft?Access?Driver?(*.mdb)};DBQ=?? Server.MapPath(/asp/quiz/quiz.mdb)??;DefaultDir=?? Server.MapPath(/asp/quiz)??;DriverId=25;FILE=MS? Access;MaxBufferSize=512;PageTimeo