【文章內(nèi)容簡介】 ,考試頁面 ，保存答案頁面,考試結束 顯示結果頁面 ,成績查詢頁面 . 自動生成試卷的主要代碼片段如下： 39。生成試卷 function makePaper(intPrjID,intStudentID) dim rsPaper,strSqlPaper,rsNew,strSqlNew,intCourseID,intCount,arrTemp,intSSCount,arrSS,intMSCount,arrMS,intBCount,arrB,intCurType,I,J,intPos,blnPass delete from prj_process where prjid= amp。 intPrjID amp。 and studentid= amp。 intStudentID set rsPaper = () strSqlPaper = select courseid,ss_count,ms_count,b_count from project where prjid= amp。 intPrjID strSqlPaper,G_CONN,1,1 if not and not then intCourseID = rsPaper(courseid) intSSCount = rsPaper(ss_count) intMSCount = rsPaper(ms_count) intBCount = rsPaper(b_count) else set rsPaper = nothing makePaper = false exit function end if for intCurType = 1 to 3 select case intCurType case 1 intCount = intSSCount case 2 intCount = intMSCount case 3 intCount = intBCount end select if intCount 0 then redim arrTemp(intCount) strSqlPaper = select id from subject where type= amp。 intCurType amp。 and courseid= amp。 intCourseID strSqlPaper,G_CONN,1,1 if intCount then 39。判斷當前題庫內(nèi)試題是否足夠 set rsPaper = nothing makePaper = false exit function end if randomize timer intPos = int(rnd() * ) arrTemp(1) = intPos for I = 2 to intCount intPos = int(rnd() * ) blnPass = false while blnPass = false for J = 1 to I 1 if intPos = arrTemp(J) then exit for end if next if J = I then blnPass = true else 39。使用線性探測解決沖突問題 intPos = intPos + 1 if intPos = then intPos = 0 end if end if wend arrTemp(I) = intPos next strSqlNew = select * from prj_process set rsNew = () strSqlNew,G_CONN,1,3 for I = 1 to intCount arrTemp(I),1 rsNew(prjid) = intPrjID rsNew(subid) = rsPaper(id) rsNew(studentid) = intStudentID next end if next update prj_student set state=2 update prj_student set starttime=now() set rsPaper = nothing makePaper = true end function 考試過程中對考生答案的保存的主要代碼片段如下： % dim rsSaveAnswer,strSqlSaveAnswer,intAnswer,strAction,intID 39。考生答案 ,動作(主要用于多選題 ,決定是選中 還是取消 ),試題 ID intAnswer = CLng(trim((answer)))‘取得考試信息和答案 strAction = (action) intID = (id) set rsSaveAnswer = ()‘取得詳細的題目，考生及考生答題狀況信息。 strSqlSaveAnswer = select P_P.*, from prj_process P_P,prj_student P_S,project P where = and = and = and = amp。 intID strSqlSaveAnswer,G_CONN,1,3 if rsSaveAnswer(state) = 2 and DateDiff(n,rsSaveAnswer(starttime),now()) rsSaveAnswer(limittime) then 39。驗證此答案是否在有效的時間內(nèi)提交的 . ‘判斷答案合法性 if intAnswer = 0 or intAnswer = 1 or intAnswer = 2 or intAnswer = 4 or intAnswer = 8 or intAnswer = 16 or intAnswer = 32 then 39。根據(jù)題目類 型不同以不同方式保存答案 if strAction = selected then if rsSaveAnswer(answer) 0 then rsSaveAnswer(answer) = intAnswer else rsSaveAnswer(answer) = rsSaveAnswer(answer) or intAnswer end if elseif strAction = selectcancel then rsSaveAnswer(answer) = rsSaveAnswer(answer) and not intAnswer else rsSaveAnswer(answer) = intAnswer end if else end if else scriptalert(39。 現(xiàn) 在 不 是 考 試 時 間 , 不 能 進 行 答題 !39。)。/script end if set rsSaveAnswer = nothing % 成績查詢 考生登陸系統(tǒng)后 考生可以使用成績查詢功能進行以往考試科目的成績查詢?？忌卿浵到y(tǒng)后首先驗證考生的登錄狀態(tài)，只有登錄后的考生才能夠進行以往考試成績的查詢，如果考生沒有登錄則自動轉(zhuǎn)到考生登錄頁面。要求考生進行登錄驗證 。 其主要代碼如下： if checkStudentLogin() = false then 39。檢測考 生登錄狀態(tài) ‘ end if strErr = intCourseID = CInt((courseid)) 39。驗證日期輸入是否正確 if Trim((starttime)) then if IsDate(Trim((starttime))) = true then dtmStartTime = CDate(Trim((starttime))) else strErr = li起始日期格式錯誤 /li amp。 vbcrlf end if else dtmStartTime = CDate(202111) end if if Trim((endtime)) then if IsDate(Trim((endtime))) = true then dtmEndTime = CDate(Trim((endtime))) else strErr = li結束日期格式錯誤 /li amp。 vbcrlf end if else dtmEndTime = CDate(220011) end if if strErr = then 39。如果通過驗證則顯示出查詢結果 strSqlMark = select , from project P,prj_student P_S where strSqlMark = strSqlMark amp。 = and = amp。 (aoyi)(studentid) amp。 and amp。 dtmStartTime amp。 and amp。 dtmEndTime amp。 and (=1 or =3) if intCourseID 0 then strSqlMark = strSqlMark amp。 and = amp。 intCourseID end if strSqlMark = strSqlMark amp。 order by desc 個人信息及密碼修改 考生登陸系統(tǒng)后可以進行考生個人的信息修改，考生必須先登錄系統(tǒng)然后才能進行相應的操作，考生能夠修改自己的姓名，出生日期， ，身份證號碼，但是必須滿足系統(tǒng)的格式要求。如果輸入中有不符合系統(tǒng)要求，系統(tǒng)會提示修改失敗并且給出失敗原因。其效果圖如圖 43 圖 43修改考生信息 修改考生信息的主要代碼如下： sub modifyInfo() dim rsModifyInfo,strSqlModifyInfo,strStudentName,blnSex,strTel,strEmail,dteBirthday,strErr strErr = 39。驗證考生提交的信息是否合法 if trim((studentname)) = then strErr = strErr amp。 li真實姓名為空。 /li amp。 vbcrlf else strStudentName = trim((studentname)) end if if IsDate(trim((birthday))) = false then strErr = strErr amp。 li出生日期未填寫或格式不正確。 /li amp。 vbcrlf else dteBirthday = CDate(trim((birthday))) end if if CInt((sex)) 0 then blnSex = true else blnSex = false end if strEmail = trim(()) strTel = trim((tel)) strStudentName=trim((studentname)) blnSex=trim((sex)) dteBirthday= trim((birthday)) if strErr = then 39。如果通過驗證則進行考生信息的修改并顯示成功信息 set rsModifyInfo = () strSqlModifyInfo = update student set studentname=39。amp。strstudentnameamp。39。,tel=39。amp。strtelamp。39。,=39。amp。stramp。39。,birthday=39。amp。dtebirthdayamp。39。,sex=39。amp。blnsexamp。39。 where username=39。 amp。 (aoyi)(username) amp。 39。 strSqlModifyInfo,G_CONN,1,3 39。驗證考生記錄是否存在 % 操作員管理 操作員 管理： 操作員的類型包括超級管理員與普通管理員 ，超級管理員 管理包括對管理員 登陸系統(tǒng)的密碼修改。普通管理員的管理包括，管理員的添加，登