网上考试系统程序代码【例9-1】注册源程序代码tit le在线考试系统登录主界面/titlebody background二“p align二center img align二center src二“/pform action二 method二post id二forml name二forml p align二centertable border二 1 cellpadding二1 cellspacing二1 width二 90% tr bgcolor=#efa5fftddiv align=centerfontcolor二 blue face二粗 体 size二 7考生入口 主界面/font/div/tdtddiv align=centerfont color二 redface二粗体 size二 7教师入 口 主界面/font/div/td/trtr bgcolor=#efd7fftdp align= center姓名input id二 text1 name二 stname/p/td tdp align= center姓名input id二 text2 name= teachname alue= 小华/p/td/tr tr bgcolor=#ffd7fftdp align= center 考 生学号 inputid二 password1name=stid type=password/p/tdtdp align= center font face二 宋 体id/font编 号 /td/tr/table/p/form/body /html【例9-2】科目选择源程序代码% Language=vbscript% if （selsub） then若是学生选择了考试科目，那么进入考试界面。marray=split（selsub）,）保留考试科目和相应的教师编号（去掉两边空格）session(“ teachid)二trim(marray(O)，保留考试科目名称 session(subname)二tr im(marray(l)，保留科目名称session(“ testnum)二trim(marrat(2)，保留考题数量 session( testt ime)二 trim(marray(3)，保留考试时刻 session(s tartt ime)二now()，保留考试开始时刻进入真正的考试界面end if %tit le考试科目选择/titleform action= 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 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 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) & /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)运算机考试此刻剩余时刻为：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考试时刻已到！ /fontbr% end if %考试题量为： %=session(testnum)%/fontbrfont face二粗体size=2已做题目为：%=session(page)/fontbrfont face二粗体size=2剩余题目为：%=session(testnum)-session(page)/fontbrpfont face二