【正文】 1px solid ffffff39。主頁(yè)面主要由四個(gè)部分組成，下面分別做介紹。fontsize:14px39。考生信息丟失 ,考試無(wú)法進(jìn)行 !/font Else strUid=objRs(ksxm) strClass=objRs(bjmc) End If Set objRs=Nothing End If ％〉 script language=vbscript //系統(tǒng)時(shí)間控制函數(shù) script language=vbscript Dim timerID,timerRunning,time1,now_time,ss_time,remanent_time,shjian shjian=%strTotalTime% //設(shè)置時(shí)間 timeRunning = false ss_time=0 Function AutoSubmit() remanent_time=shjian StartAuto() End Function Function StartAuto() If ss_time=0 Then ss_time=59 remanent_time=remanent_time1 now_time =TimeSerial(0,remanent_time,0) Else ss_time=ss_time1 End If time1=FormatDateTime(now_time,4) If ss_time10 Then time1=Cstr(time1) amp。 ss_time End If = 考試剩余時(shí)間 : amp。 Session(kjcc) amp。 objRs(txbh) amp。 /a /td /tr Loop Set objRs=Nothing % 底部 這部分主要用來(lái)顯示系統(tǒng)的相關(guān)版權(quán)信息及一些實(shí)時(shí)消息 右側(cè) 這是系統(tǒng)的主體的部分，試題查看及答案的錄入都在這部分完成。首次提取數(shù)據(jù) strSql=select * from kssda where zkzh= amp。 strNo amp。 strNo amp。 39。 objRs(ktnr) amp。width:300px。 Session(kjcc) amp。 Session(ktlx) amp。 Session(zkzh) amp。 height=57 valign=top amp。 style=39。 Trim(objRs(ktda)) amp。 amp。 strLx strSql,strConn,1,1 If And Then strSql=insert into kssda select 39。 as zkzh,39。 as kjcc,ktbh, amp。 as ksda from amp。 strLx amp。 Session(kjcc) amp。 amp。 where zkzh= amp。 and kjcc=39。 Loop strSql,strConn,1,3 39。 39。 39。 39。 objRs(ktnr) amp。width:300px。 /td/tr Loop /scriptalert(39。 附部分源碼： % 39。 正 在 處 理 中 ， 請(qǐng) 稍候…… !/font Dim strSql,objRs strSql=update stud_ks set stuzt=1 where zkzh= amp。 Session(zkzh) amp。 考試結(jié)束 ! 再見(jiàn) !39。/script% 圖 47 成績(jī)查詢(xún)子系統(tǒng) 這一部分完成考生成績(jī)的前臺(tái)查詢(xún)工作。當(dāng)選擇一項(xiàng)之后，按查詢(xún)鍵開(kāi)始查詢(xún)數(shù)據(jù)。 Dim intC intC=0 Do While Not labelinput type=radio name=ksbh value= amp。 /labelbr intC=intC+1 Loop Set objRs=Nothing If intC=0 Then 未發(fā)現(xiàn)任何考試供你選擇 ! End If % 圖 49 % 39。 Request(ksbh) Set objRs=() strSql,strConn Do While Not tr td width=171 height=22 valign=middle align=center bgcolor=FFFFFF amp。 分 /td /tr Loop Set objRs=Nothing % 圖 410 script language=javascript //控制是否顯示詳細(xì)成績(jī) function display() { if((chkXX).checked==true) (xx).=block。后臺(tái)系統(tǒng)主要分成兩個(gè)部分：左列表級(jí)右主體。 圖 412 附菜單處理腳本 script function aa(Dir) {(Dir)。)39。 i++) { whichEl=divColl(i)。 =block。 var imgmenu = (imgmenu + sid)。 imgmenu = (imgmenu + i)。 =images/。 var hrefNum= (?)。列出考生相關(guān)信息列表 strSql=select * from v_ks_bj strSql,strConn,1,1 Do While Not tr td height=22 align=center valign=top bgcolor=ECF5FF amp。 /td td valign=top bgcolor=ECF5FF amp。 /td If objRs(kszt)=True Then td valign=top bgcolor=ECF5FF align=center啟用 /td Else td valign=top bgcolor=ECF5FF align=center禁用 /td End If If intAction=3 Then td valign=top bgcolor=ECF5FF align=centera href=?action=2amp。no= amp。 % 39。)。增加數(shù)據(jù) strSql=select max(zkzh)+1 as 39。 strNo strSql,strConn,1,1 strXm=objRs(ksxm) strMm=objRs(ksmm) strZt=objRs(kszt) strBj=objRs(szbj) intAction=3 ElseIf intAction=3 Then 39。)。 系統(tǒng)操作異常，請(qǐng)重試！ 39。 圖 418 用戶信息錄入 %39。存儲(chǔ)過(guò)程名 = 4 39。1 參數(shù)流向 輸入，輸入為 1,輸出為 2 39。讀取考卷信息 strSql=select * from kssj strSql,strConn,1,1 Do While Not If objRs(kjbh)=strKj Then option value= amp。 ( amp。 amp。 )/option End If Loop % 圖 426 考試查詢(xún)與修訂 % 39。 ( amp。 )/option Else option value= amp。 selected amp。創(chuàng)建參數(shù) /追加參數(shù) 39。保存編譯 39。 strID Set objCmd = () =strConn 39。包括的模塊如下圖所示 圖 417 用戶信息查詢(xún)與修訂 由于此類(lèi)的操作，界面及代碼都比較比較相近。?action=339。 strNo strSql,strConn,1,3 objRs(ksxm)=strXm objRs(ksmm)=strMm objRs(szbj)=strBj objRs(kszt)=strZt Set objRs=Nothing script language=javascriptalert(39。 from students strSql,strConn,1,1 strNo=objRs(bb) intAction=4 ElseIf intAction=2 Then 39。?action=139。增加保存 strNo=Request(no) strXm=Request(ksxm) strMm=Request(ksmm) strBj=Request(szbj) strZt=Request(kszt) strSql=select * from students strSql,strConn,1,3 objRs(zkzh)=strNo objRs(ksxm)=strXm objRs(ksmm)=strMm objRs(szbj)=strBj objRs(kszt)=strZt Set objRs=Nothing script language=javascriptalert(39。 刪除 /a/td Else td valign=top bgcolor=ECF5FF align=center無(wú)/td End If /tr Loop % 圖 415 考生信息錄入 這一部分主要完成考生信息的錄入工作。 objRs(zkzh) amp。 /td td valign=top align=center bgcolor=ECF5FF amp。 /td td valign=top bgcolor=ECF5FF amp。 /script 圖 413 考生信息管理 這一部分主要完成考生信息的錄入及維護(hù)工作，菜單及相關(guān)界面如下 圖所示： 圖 414 考生信息查詢(xún)與修訂 如下圖所示，這一部分主要是用來(lái)顯示考生的相關(guān)信息列表，并通過(guò)操作項(xiàng)進(jìn)行相關(guān)處理。 =images/。 =images/。i=6。} } var tree= 0。} } function expands(el) { whichEl1=(el+Child)。 for(i=0。aa(39。 系統(tǒng)功能 如下圖， 我們可以看到，本系統(tǒng)主要由以下幾個(gè)子模塊組成。 } /script 圖 411 后臺(tái)管理部分 這一部分就后臺(tái)管理部分做相關(guān)說(shuō)明 后臺(tái)管理是這個(gè)系統(tǒng)工作量比較大的一個(gè)部分，其中包括大量的操作技巧，可以做為系統(tǒng)的一個(gè)亮點(diǎn)來(lái)看待。 /td td width=479 height=22 valign=middle bgcolor=ECF5FF amp。 strZkzh amp。 amp。附部分 源碼如下： % 39。這里不再贅述。=false。 Session(ksbh) amp。 and ksbh= amp。12px。)/script End If Set objRs=Nothing % 圖 46 考生信息區(qū)及時(shí)間記數(shù)區(qū) 題類(lèi)列表 版權(quán)信息等 考試主體部分 完成考試 在您確定已經(jīng)完成所有試題之后，提交即完成考試。 value= amp。 Trim(objRs(ktbh)) amp。100%39。 amp。 amp。 amp。 Session(kjcc) amp。 and ktlx= amp。 Trim(objRs(ktbh))) amp。 Session(ktlx) Set objRs=() strSql,strConn,1,1 strSql= Do While Not strSql=strSql amp。保存數(shù)據(jù) 39。 where ktlx= amp。 ,39。 strNo amp。 Session(zkzh) amp。 39。 strKh amp。 39。 /td/tr trtd height=22 valign=middle請(qǐng)輸入您認(rèn)為正確的答案： input type=text name=an amp。 strSql,strConn,1,1 Do While Not trtd width=39。 and zkzh=39。 and ktlx=39。/td/tr