【導(dǎo)讀】網(wǎng)絡(luò)化考試是在互聯(lián)網(wǎng)的基礎(chǔ)上興起的。隨著WEB數(shù)據(jù)庫技術(shù)的發(fā)展日趨成熟，國(guó)內(nèi)的。在對(duì)WEB開發(fā)、ASP技術(shù)、數(shù)據(jù)庫等進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用的?？忌谧?cè)后，可以在規(guī)定的期間內(nèi)選擇最佳狀態(tài)時(shí)期參加考試，系統(tǒng)會(huì)為每一個(gè)考。地方進(jìn)行試題結(jié)構(gòu)、試題內(nèi)容的維護(hù)、考生信息管理和評(píng)卷工作。本系統(tǒng)采用B/S結(jié)構(gòu)，界。面簡(jiǎn)潔，操作方便，安全可靠，達(dá)到了在線測(cè)試系統(tǒng)的基本要求，具有實(shí)際意義。

　　

【正文】 功能就是驗(yàn)證是否存在本次考試，若不存在就不能進(jìn)行測(cè)試。 if and then set rsTest = nothing end if strPrjName = rsTest(prjname) intSSCount = rsTest(ss_count) intMSCount = rsTest(ms_count) intMSMark = intMSCount * 2 intBCount = rsTest(b_count) intBMark = intBCount intTotalMark = intSSMark + intMSMark + intBMark dtmStartDate = rsTest(starttime) dtmEndDate = rsTest(endtime) intLimitTime = rsTest(limittime) （ 3） 驗(yàn)證現(xiàn)在是否在可考試時(shí)間內(nèi) ： 在設(shè)置考試計(jì)劃的時(shí)候，有時(shí)間限制，此功能為檢查現(xiàn)在考試是否在考試范圍內(nèi)，若不再計(jì)劃時(shí)間內(nèi)則不能進(jìn)行考試。 if now() dtmStartDate or now() dtmEndDate + 1 then 26 scriptalert(39?，F(xiàn)在不在考試計(jì)劃時(shí)間內(nèi) !39。)。(39。39。,39。_self39。)。/script set rsTest = nothing end if （ 4） 驗(yàn)證現(xiàn)在是否有其他正在進(jìn)行的考試 ： 考生一次登錄只能參加一場(chǎng)考試，若考生還有其他正在進(jìn)行的考試，則彈出提醒對(duì)話框。 if (select count(*) as reccount from prj_student where prjid amp。 intPrjID amp。 and studentid= amp。 intStudentID amp。 and state=2)(reccount) 0 then scriptalert(39。你有其他考試正在進(jìn)行中，不能同時(shí)進(jìn)行兩次考試！39。)。(39。39。,39。_self39。)/script set rsTest= nothing end if （ 5） 取得本考生本次考試的狀態(tài) ： 此功能主要是防止考生二次答題，在考生點(diǎn)擊考試后，首先連接到數(shù)據(jù)庫取得本次考試的考生狀態(tài)， 若狀態(tài)為 1，則表明已參加過考試，則彈出對(duì)話框表明考生已經(jīng)參加過此次考試，若考生狀態(tài)為 0 則完成考生初始化夠進(jìn)行在線測(cè)試。 set rsTemp = () strSqlTemp = select state from prj_student where prjid= amp。 intPrjID amp。 and studentid= amp。 intStudentID strSqlTemp,G_CONN,1,1 if and then intState = 0 else intState = rsTemp(state) end if set rsTemp = nothing if intState = 1 then scriptalert(39。你已經(jīng)參加過此次考試了 ,不能再次參加此次考試 !39。)。(39。39。,39。_self39。)。/script set rsTest = nothing elseif intState = 0 then 39。當(dāng)考生第一次參加此次考試時(shí)進(jìn)行考生的初始化，生成試卷等操作 27 （ 6） 生成試卷 ： 管理員在后臺(tái)的考試計(jì)劃中設(shè)置本次考試的時(shí)間，以及各個(gè)類型的題目的數(shù)量，系統(tǒng)根據(jù)這些信息自動(dòng)生成試卷，并在 prj_student 增加相應(yīng)的考生考試記錄。 if makePaper(intPrjID,intStudentID) = false then set rsTest = nothing end if 39。在 prj_student 增加相應(yīng)的考生考試記錄 strSqlPS = select * from prj_student where prjid= amp。 intPrjID amp。 and studentid= amp。 intStudentID set rsPS = () strSqlPS,G_CONN,1,3 if and then rsPS(prjid) = intPrjID rsPS(studentid) = intStudentID rsPS(state) = 2 rsPS(starttime) = now() else rsPS(state) = 2 rsPS(starttime) = now() end if set rsPS = nothing end if （ 7）時(shí)間控制： 考試開始后，即開始計(jì)時(shí)，按照考試計(jì)劃設(shè)定好的時(shí)間，實(shí)現(xiàn)一定的監(jiān)控，若達(dá)到考試時(shí)間學(xué)生未交卷則實(shí)現(xiàn)強(qiáng)行交卷，并且控制浮動(dòng)信息辦在右下方顯示，不影響考生在線答題。 function floatTestInfo() //控制浮動(dòng)信息板在右下方顯示 { var targetPosTop,targetPosLeft targetPosTop = + 100。 28 targetPosLeft = + 190。 = + (targetPosTop ) * .2 = + (targetPosLeft ) * .2 setTimeout(39。floatTestInfo()。39。,50)。 } function ctrlTestTime() //控制考試時(shí)間 { var dtmCurrentTime = new Date()。 //控制時(shí)間的顯示 = intLimitTime ((() ()) * 60 + () ())。 if( 10) { = 39。FF330039。 } //在考試時(shí)間結(jié)束時(shí)進(jìn)行交卷 if( == 0) { alert(39?？荚嚂r(shí)間已到，強(qiáng)制進(jìn)行交卷！ 39。)。 (39。?action=submitexamamp。prjid=%=intPrjID%amp。studentid=%=intStudentID%39。,39。_self39。)。 } (39。ctrlTestTime()。39。,1000)。 } （ 8）顯示考試答案以及成績(jī)（以單選為例） ： 在連接到試題數(shù)據(jù)庫后， 通過 SQL 語句查詢數(shù)據(jù)庫中的正確答案，并通過一定法人相應(yīng)機(jī)制反映到瀏覽器上，以供考生查閱，另外根據(jù)預(yù)先設(shè)定好的分值自動(dòng)生成分?jǐn)?shù)： 39。顯示單項(xiàng)選擇題 strSqlMark = select as myanswer,,, from prj_process P_P,subject S where =1 and = and = amp。 intStudentID amp。 and = amp。 intPrjID amp。 order by 29 strSqlMark,G_CONN,1,1 if not and not then % % if rsMark(option1) then A amp。 rsMark(option1) br end if br你的答案是： if rsMark(myanswer) = rsMark(answer) then font color=39。00AA0039。 amp。 arrAnswer(rsMark(myanswer)) amp。 /font elseif rsMark(myanswer) 1 then font color=39。FF000039。 amp。 arrAnswer(rsMark(myanswer)) amp。 /font else font color=39。DD660039。未答題 /font end if 正確答案是 ： font color=39。0000FF39。 amp。 arrAnswer(rsMark(answer)) amp。 /font % /td /tr % wend end if 后臺(tái)管理模塊 后臺(tái)管理給管理員提供一個(gè)管理的平臺(tái)，成功登陸后可對(duì)操作員信息， 課程檔案信息，試題信息，考試計(jì)劃信息，考生信息等進(jìn)行管理，因?yàn)楦鞴芾砭哂幸欢ǖ南嗨浦帲旅婢鸵?試題 管理模塊為例來進(jìn)行詳細(xì)的說明。 30 試題 管理模塊在管理員選擇了相應(yīng)課程后進(jìn)入修改界面，課對(duì)題目的選項(xiàng)，題型等做修改，也可刪除此考題，或者僅僅查看。題目管理模塊的流程圖如圖 55 所示： 開 始選 擇 課 程 試 題 信 息添 加 試 題 修 改 試 題 刪 除 試 題查 看 試 題 圖 55 題目管理模塊流程圖 關(guān)鍵代碼： if IsNumeric(Trim((page))) = true then intCurPage = CLng(Trim((page))) else intCurPage = 1 end if if IsNumeric(Trim((courseid))) = true then intCourseID = CLng(Trim((courseid))) else intCourseID = 0 end if if IsNumeric(Trim((type))) = true then intType = CLng(Trim((type))) else intType = 0 end if set rsSubject = () 31 strSqlSubject = select S.*, from subject S,course C where = if intCourseID 0 then strSqlSubject = strSqlSubject amp。 and = amp。 intCourseID end if if intType 0 then strSqlSubject = strSqlSubject amp。 and = amp。 intType end if strSqlSubject = strSqlSubject amp。 order by id desc strSqlSubject,G_CONN,1,1 = intMaxPerPage if intCurPage 1 then intCurPage = 1 elseif intCurPage then intCurPage = end if intMaxPage = if not and not then = intCurPage end if if or then tr class=39。tdbg39。td colspan=39。639。 align=39。center39。沒有試題 /td/tr end if intCurRec = 1 while not and intCurRec = intMaxPerPage tr class=39。tdbg39。 td align=39。center39。input name=39。subjectid amp。 rsSubject(id) amp。 39。 onClick=39。checkup(this)。39。 type=39。checkbox39。 value=39。 amp。 rsSubject(id) amp。 39。/td td align=39。center39。 amp。 rsSubject(id) amp。 /td td align=39。center39。a href=39。?courseid= amp。 intCourseID amp。 amp。type= amp。 rsSubject(type) amp。 39。 select case rsSubject(type) case 1 單選題 case 2 多選題 case 3 32 是非題 end select /a/td td align=39。center39。a href=39。?courseid= amp。 rsSubject(courseid) amp。 amp。type= amp。 intType amp。 39。 amp。 rsSubject(coursename) amp。 /a/td td align=39。center39。 a href=39。39。 onClick=if(confirm(39。即將刪除此試題，確認(rèn)