网上考试系统程序代码

《网上考试系统程序代码》由会员分享，可在线阅读，更多相关《网上考试系统程序代码（18页珍藏版）》请在装配图网上搜索。

1、网上考试系统程序代码【例9-1】注册源程序代码tit le在线考试系统登录主界面/titlebody background二p align二center form action= method=post id=form1 name=form1 p align=centertable border=1 cellpadding=1 cellspacing=1 width=90% tr bgcolor=#efa5fftddiv align=center 考生入主界面/font/div/tdtddiv align=centerfont color二red face=粗 体size= 7教师入主 界面

2、/font/div/td/trtr bgcolor=#efd7fftdp align二center姓名input id二textl name二stname/p/td tdp align二center姓名input id二text2 name二teachname alue= 小华/p/td/tr tr bgcolor=#ffd7fftdpalign= center考生学号 input id= passwordlname=stid type=password/p/tdtdp align= center font face=宋体id/font编号 tit le考试科目选择/titleform act

3、ion= method=post id=form1 name=form1 一、严肃认真、沉着平复！争取优良成绩！ /font/pp align=centerfont size=7face=隶书color=#aabbfO二、严禁考试作弊！/font/pfont size=4 color二blueviole t face二隶书% session(stname) & : % /fontfont face二 size二 4此刻你已经进入在线考试系统，必需遵守考场 规定，注意考试时刻！ s trong选择考试科目 /s trong/fon t/div/td/trt r td科目/t d td讲课教师/t

4、 d td考试时刻/t d/tr 创建两个数据库连接对象connl和conn2。set conn1=()set conn2=() =dsn=testsys =dsn=testsysstrsql=select,from subinfo,teacherinfo where =查询subinfo考试科目有关信息，要紧有考试名称、考试时刻、题目数量等。 set mrs=(strsql)while nottr第二个数据库连接对象查询score中相应的科目，学生是不是已有成绩。set mrs2=(select * from score where stid=z& session(stid)&_if not

5、 then 假设相应科目学生已有成绩，那么标记为已考！td & mrs(“ sub)& 已考！(“ & mrs2( score ) &)&/td else不然提供radio选择考试科目，每一个radio的value当中包括考试科目的信息tdinput name=selsub type=radio value= & mrs(teachid) & ,mrs(sub) & ,& mrc(testnum) &,& mrs(testtime) & mrs(sub) &/tdend ifset mrs2=nothingtd& mrs(teachname) &/td td & mrs(testtime) &

6、 /td/trwend关闭数据库连接。set conn1=no thing ，释放对象变量set conn2=nothing %/table/pp  input id=submit1 name= submit1 type= submit value= 确认/p/from/body/html【例 9-3】 考试时刻提示源程序代码% language=vbscript % 运算机考试已到时刻，当即交试卷！ Gotime=hour(now)*60-hour(session(starttime)*60+minute(now)-minute(session( st ar tt ime

7、)运算机考试此刻剩余时刻为：lefttime=session(testtime)-gotime %htmltit le考试有关信息/titlebody background=)pfont二粗体size=4考试时刻： %=session(testtime)%/fontbrfont二黑体 size=4 style二color:green已过时刻为： %=gotime%/fontbr% if lefttime0 then %font face=粗体size=4此刻剩余时刻为：%=lefttime%/fontbr% else %Font face二粗体 size=4 style二color:red考试

8、时刻已到！ /fontbr% end if %考试题量为： %=session(testnum)%/fontbrfont face二粗体size=2已做题目为：%=session(page)/fontbrfont face二粗体size=2剩余题目为：A href二 target二 _top请当即退出在线考试考场/a/font/p /body /html【例 9-4】 存入考试数据库源程序代码% set mrs=()二dsn二testsysif (http_method)二post then将在线考试学生的答案写入数据库，这部份很关键！二select * from tbanswer,1,3增加

9、记录 mrs(answer)=(choose) mrs(stid)=session(stid) mrs(questionid)=session(questionid)end if gotime=hour(now)*60+minute(now)-hour(session(starttime)*60-minute(session( starttime)lefttime=session(testtime)-gotimeif session(page)=cint(session(testnum) or lefttime0 then 考试时刻到，那么关闭数据库对象，系统并转向到文件。set mrs=no

10、thing进入考试打分程序end if辻(h tt p_me thod)二 pos t then，给出已考的题目数session(page)=1else每做一道题，用POST方式提交答案，已考的题目数+1session(page)=session(page)+1end if %htmltit le试题打分程序/titlebody background=form action= method=POST id=form1 name=form1p align=centertable border=1 cellpadding=1 cellspacing=1 width=88%trtddiv align

11、二center第%=session(” page )%题/div/td/tr trtd从试题库中调出下一道题。二 select* from question where sub “ & session（subname）andteachid“& session（teachid） &“,1,1=1二session（page）session（icrosoft）二mrs（icrosoft）premrs（question）/prehrA.&mrs（A）&brB.&mrs（B）&brC.&mrs（C）&brD.&mrs（D）&br关闭数据库对象set mrs=no thing，释放对象变量%/td/trt

12、rtdinput id= radio1 name=choose type=radio value=AAinput id=radio2 name=choose type=radio value=BBinput id=radio3 name=choose type=radio value=CCinput id=radio4 name=choose type=radio value=DD stro ngf ont color+crimson face二 size=4统计打分表/fo nt/s tro ng/ptable border=1 cellpadding=1 cellspacing= widt

13、h=88%trtd学生姓名：/TDTD=SESSION（ STNAME）/TD/TRtrtd考试科目：/TDTD=SESSION（ SUBNAME）/TD/TRtrtd做对题数：/TDTD=SESSION（ TESTNUM）/TD/TRtrtd应得分：/TDTD=GETSCORE%/TD/TR/table /P/BODY【例9-6】教师试卷组织源程序代码% language二vbscript if （http_method）二get then若是是以GET方式请求页面，那么将页码定为1page=1end ifset rec=（）二dsn二testsys二 select * from subin

14、fo where teachid “ & session（teachid）& 将课程表中所有teachid=当前教师编号的记录查找出来。，,1,3辻（http_method）二POST thenpage=cint（page）if （ submit）= 加入 then 教师处置加入新课程的请求。rec（teachid）=session（teachid） rec（sub）=（subname）rec（testtime）=（testtime） rec（testnum）=（testnum）end ifif （” submit）二修改 then处置修改课程的请求。=1将页码设置为当前页。=page 依照提

15、交的课程内容进行修改。 rec（teachid）=session（teachid） rec（sub）=（subname） rec（testtime）=（testtime） rec（testnum）=（testnum） page=cint（page）page=page+1end ifelseif （” submit）= 前一个 thenpage=page-1else假设要求显示前一个记录，那么页码减1。假设要求显示后一个记录，那么页码加1。end ifif not and not then假设课程记录不为空。=1依照页码设定当前记录的位置。=page依照当前记录取得课程相关信息。subname=

16、rec（sub）testtime=rec（testtime）testnum=rec（testnum）假设页码大于1，那么字符串变量prebut二false。依据在window_onload事件中设定 按钮(id二submit3,value二前一个)的disabled值决定该按钮是不是可用以下 的，nextbut,revisebut等变量的作用类似。prebut=falseelse假设当前页码小于0,那么设定prebut= true，设定前一个按钮不可用。 prebut=trueend ifif cint(page)依据各个变量初始化表单forml的各个元素% 依照字符串变量prebut,nex

17、tbut,revisebut决定相应的按钮是不是可用依照变量page的值初始化文本框txt page的值，该文本框为hidden类型，用于在页 面间传递娄前页码值 %/script/headtitle新增加考试科目/titlebody language=javascript onload=returnwindow_onload()background=form action= method=post id=form1 name=form1% 课程总数： & pagecount &/当前课程为： & page %p table border=1 cellpadding=1 cellspacing

18、=1 width=88%trtddivfont color二 crimson” face= 粗体 size二 4 新增加考试科目/fon t /td/trtrtd增加科目：inp ut id二txt subname name二 subname /td /trtrtd考试时刻：input id二txttesttime name二testtime(分钟)/td trtd考试题量input id二txttestnum name二testnum/td /table/ppinput id二addbut name二submit type= submit value二加入 input id二revisebu

19、t name二submit type= submit value二修改 input id二prebut name二submit type= submit value二前一个 input id二 submitl name二 submit type二 submit value二确信/p /body/html【例9-8】教师考试题修改源程序代码1 then若是当前页1, prebut= false将用于window_onload初始化前一个是可用的。 prebut=falseelse z不然前一个按钮成灰色不可用。 prebut=trueend ifif cint（page） then 若是当前页数

20、记录的总页数，那么下一个按钮可用。nextbut=falseelsenextbut=trueend ifdeletebut=false revisebut=false else z假设记录数为0,那么全数按钮不可用。deletebut=truerevisebut=true prebut=ture nextbut=true end ifset mars=nothing end if %meta name二cenerator content二 Microsoft visual studio “script id二clientevent language二javascript! frnction w

21、indow_onload() 以下依照各个变量初始化表单form 1的各个元素%select case answer%依照题目的答案决定哪个radio被选中 修改试题库/titlebody language= javascript onload= returnwindow_onload() background= form action= method=POST id=form1 name=form1pfont color二crimson face二宋体 size=6修改试题库试题/fon t/pp课程-一% (selsub)   试题总数： & quesnum & /当前

22、试题 & cirrus%/pptable border=2 cellpadding=1 cellspacing=1 width=88%t r td题目/t d/trtrtdtextarea id=textarea1 name=question style= height：120px;width：80% %=question%/textarea/td/trinputid二 revisebutname二 submittype二submitvalue二修改input id二 prebut name二 submit type二 submit value二前一个 input id二 nextbut na

23、me二 submit type二 submit value二后一个/p input type二hidden name二page value二 & page & “input type=hidden name二selsub value=&（selsub ）& /form/body/html【例 9-9】 考试成绩查询源程序代码 language二vbscript htmltit le查询考试科目成绩/titlebody background二“p align=centerstrongfont color二crimson face二 “ size=5=（ sub）课/font 的考试成绩/fon

24、t/s trong/pp align=centerfont color二dodgerblue face二 “ size=5任课教师=request（“ teachname）/font/pp align=centertable border=0 cellpadding=1 cellspacing=1 width二 85%tr bgcolor二 #f699fftd姓名/t d td成绩/td td名次/td/tr%set conn=（）=dsn=testsys声明sql查询语句，从数据库中查询相应科目的考试成绩，查询结构按降序方式排序。strsql二select score, from score

25、,studentinfowhere= and teachid&（teachid）& 八and 二&（sub） & order by descset mars=（strsql）i=1while not以表格的形式显示相应考试科目的成绩和学生姓名。trtdmars（stname）/tdtdmars（score）/td/td & I & /td/tri=i+1wendset conn=nothing%tr bgcolor=#f8899ff/tr/table/p/body/html【例9-10】添加试题源程序代码% language=vbscript % if （http_method）=POST t

26、henif （“ submit）= 加入 then 处置加入试题请求。set mars=（）=dsn=testsys=select * from question,1,3 往数据库的表question中加入试题内容。mars（teachid）=session（teachid） mars（sub）=（selsub） mars（question）=（question）mars（A）=（opta）mars（B）=（optb）mars（C）=（optc）mars（D）=（optd）mars（answer）=（answer）set mars=nothingend ifend if %htmltit le

27、加入试题/titlebody background=form action= method=post id=form1 name=form1ps trongfont color二crimson face二宋体 size=6往试题库中加入有关试题 /font/strong/pp课程-一% （selsub）%/pp table border=2 cellpadding=1 cellspacing=1 width=80% td题目/t d/trtextarea id二textareal name二question style二height: 114px; width: 60% “ /textarea

28、/td/tr/trtrtdA.input id二textl name=opta style二 height: 30px; width: 54%/td/tr trtdpB.input id二text2 name=optb style二height: 30px; width:54%/p/td/trtrtdC.input id=text3 name=optc style= height: 30px; width: 54% /td/tr trtdpD.input id=text4 name=optd style= height: 30px; width: 54%/p/td/trtrt dp正确答案in

29、putid=radio1name=answertype=radiovalue=AAinputid=radio2name=answertype=radiovalue=BBinputid=radio3name=answertype=radiovalue=CCinputid=radio4name=answertype=radiovalue=DD/p/td/tr/tableinput id二submitl name二submit type=submit valuer加入% 在input中利用隐藏字段hidden保留当前加入试题库的科目名称。input type=hidden name=selsub v

30、alue= & （selsub） &% /p /form /body /html开发程序的技术% set conn=（）用来成立connection对象。Connection对象扮演着十分重要的前期连接工作角色，只 有连接成功才会继续以后的数据库数据操作。Connstr=provider= source=&（） 设置数据库连接参数，它包括数据库驱动程序和数据库文件名。connstr用conn连接对象打开数据库。以上利用的是通用连接数据库的方式，任何需要打开数据库的动态网页都能够照搬以上 的程序代码，只是需要把数据库的名字换成用户需要的数据库名字就能够够了，但注意途径 要正确。代码!-#incl

31、ude file=- 用于插入数据库连接程序。此代码被包括在当前网页位置中进行正常编译，不用重复写 数据库连接代码，它的益处是使页面结构化，便于修改和保护，若是数据库连接错误或数据 库文件变更，只需更改程序文件名即可，而没必要要修改每一页的程序代码，擅长用那个方 式，会使程序简单化，清楚化，这也是经常使用的编程序方式。代码 setrs=（）网页和数据库已经成立连接并打开数据表，以后最重要的工作确实是读取数据了。建扬 名为rs的recordset类型对象变量，如此以后能够用rs对象变量对数据库进行存取操作。代码 sql二 select * from bbs order by id desc把从数

32、据表bbs里查询到的结果寄存到sql变量里。它的意思是把数据内外所有的数据 都掏出来，并按ID从大到小排序Desc表示从大到小排序，若是不加那个参数的话，此方 式用到新闻事件上最多见，最新的新闻就可能在最后面。代码 sql,conn,1,2表示用rs对象的open方式执行sq变量中寄存的SQL语句，打开数据表并读出结果。 以上是通用的读取数据记录的方式，其他都能够触类旁通！%if and then%此代码表示判定语句：若是rs记录指针的eof结尾和bof开头都为空，就返回ture， 输出以下选项卡，即输出暂无信息，而不输出其他内容。%和end if%终止判定， 表示输出终止。然后，完成当记录不

33、为空的情形下的输入，即%rs. movefirstdo while not%将rs记录指针指向第一个记录，然后开始判定读取记录时，记录结尾是不是为空，若 是不为空，继续移动指针，把所有数据都读掏出来，直到记录结尾为空时，退出循环。name = trim （name）利用的trim函数，是用来删除没必要要的空格，有很多人 适应多打几个空格出来，能够用那个函数来去掉空格。代码 con tent = replace （ “ con tent ），vbcrlf “br）利用 r eplace 的函数， 能够把文字段落里所有的自动换行符和回车符找出来，vbcrlf是自动换行符和回车符的代 码，并自动转换

34、为br字符串。因为用户在录入时，到边界虽会自动换行，或生成段落 会生成回车符，但在表单提交后数据库不能正常识别这两个特殊符号，且在显示内容时只会 生成一行，因此利用replace用于解决那个问题，使html能够正常说明。代码 delespl二 delete from bbs where ID二 &trim（request （“ ID ）该语句是删除语句，where后面跟的是条件语句，只删除同意传递过来的ID数据，那个 很关键，如假设设置不行会把数据内外的全数记录都删除。代码 delesqlconn对象执行deldsql删除语句的结果。代码和set conn=nothing关闭conn对象并设为空，以便释放资源。代码该语句的功能是输出转向对象，表示自动跳转到首页去。