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

　　

【正文】 功能就是驗證是否存在本次考試，若不存在就不能進行測試。 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） 驗證現(xiàn)在是否在可考試時間內(nèi) ： 在設(shè)置考試計劃的時候，有時間限制，此功能為檢查現(xiàn)在考試是否在考試范圍內(nèi)，若不再計劃時間內(nèi)則不能進行考試。 if now() dtmStartDate or now() dtmEndDate + 1 then 26 scriptalert(39?，F(xiàn)在不在考試計劃時間內(nèi) !39。)。(39。39。,39。_self39。)。/script set rsTest = nothing end if （ 4） 驗證現(xiàn)在是否有其他正在進行的考試 ： 考生一次登錄只能參加一場考試，若考生還有其他正在進行的考試，則彈出提醒對話框。 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。你有其他考試正在進行中，不能同時進行兩次考試！39。)。(39。39。,39。_self39。)/script set rsTest= nothing end if （ 5） 取得本考生本次考試的狀態(tài) ： 此功能主要是防止考生二次答題，在考生點擊考試后，首先連接到數(shù)據(jù)庫取得本次考試的考生狀態(tài)， 若狀態(tài)為 1，則表明已參加過考試，則彈出對話框表明考生已經(jīng)參加過此次考試，若考生狀態(tài)為 0 則完成考生初始化夠進行在線測試。 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。當考生第一次參加此次考試時進行考生的初始化，生成試卷等操作 27 （ 6） 生成試卷 ： 管理員在后臺的考試計劃中設(shè)置本次考試的時間，以及各個類型的題目的數(shù)量，系統(tǒng)根據(jù)這些信息自動生成試卷，并在 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è)定好的時間，實現(xiàn)一定的監(jiān)控，若達到考試時間學生未交卷則實現(xiàn)強行交卷，并且控制浮動信息辦在右下方顯示，不影響考生在線答題。 function floatTestInfo() //控制浮動信息板在右下方顯示 { var targetPosTop,targetPosLeft targetPosTop = + 100。 28 targetPosLeft = + 190。 = + (targetPosTop ) * .2 = + (targetPosLeft ) * .2 setTimeout(39。floatTestInfo()。39。,50)。 } function ctrlTestTime() //控制考試時間 { var dtmCurrentTime = new Date()。 //控制時間的顯示 = intLimitTime ((() ()) * 60 + () ())。 if( 10) { = 39。FF330039。 } //在考試時間結(jié)束時進行交卷 if( == 0) { alert(39。考試時間已到，強制進行交卷！ 39。)。 (39。?action=submitexamamp。prjid=%=intPrjID%amp。studentid=%=intStudentID%39。,39。_self39。)。 } (39。ctrlTestTime()。39。,1000)。 } （ 8）顯示考試答案以及成績（以單選為例） ： 在連接到試題數(shù)據(jù)庫后， 通過 SQL 語句查詢數(shù)據(jù)庫中的正確答案，并通過一定法人相應(yīng)機制反映到瀏覽器上，以供考生查閱，另外根據(jù)預(yù)先設(shè)定好的分值自動生成分數(shù)： 39。顯示單項選擇題 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 后臺管理模塊 后臺管理給管理員提供一個管理的平臺，成功登陸后可對操作員信息， 課程檔案信息，試題信息，考試計劃信息，考生信息等進行管理，因為各管理具有一定的相似之處，下面就以 試題 管理模塊為例來進行詳細的說明。 30 試題 管理模塊在管理員選擇了相應(yī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。即將刪除此試題，確認