【正文】 heck()。判斷題增加 頁(yè)面 如圖 54 所示。 //如果文本框 ”t”amp。i)) and trim(request(cateamp。i) )amp。 ()。i)) amp。trim(request(cateamp。amp。 set rs= (sql) //執(zhí)行 sql 語(yǔ)句 。 30 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 var now=new Date()。 ()。 判斷題刪除頁(yè)面 判斷題刪除頁(yè)面 ()是動(dòng)態(tài)頁(yè)面，主要用于對(duì)選定判斷題目進(jìn)行刪除。 % script language=javascript //調(diào)用 javascript 語(yǔ)言 。 //將 now 變量賦值為當(dāng)前日期 。 31 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 判斷題修改頁(yè)面 判斷題修改頁(yè)面 ()是動(dòng)態(tài)頁(yè)面，主要用于對(duì)選定判斷題目進(jìn)行修改。 ()。 ()。如果 隱藏 域名ctype 的值為 types，則查詢表 rightorwrong 內(nèi)是否存在修改后的判斷題目及答案，如果存在，則彈出“警示”對(duì)話框，頁(yè)面返回。trim(request(t1))amp。request(cate)amp。 set rss=(sqlfind) //執(zhí)行語(yǔ)句 。 ()。trim(request(t1))amp。request(cate)amp。date()amp。 set rss=(sqledit) //執(zhí)行修改語(yǔ)句 。 //變量 now 賦值當(dāng)前日期 。共分為 以下 4 個(gè)頁(yè)面：選擇題管理頁(yè)面 ()，選擇題增加頁(yè)面 ()，選擇題刪除頁(yè)面()，選擇題修改頁(yè)面 ()。在此不再贅述 ， 但要注意選擇的數(shù)據(jù)有 rightorwrong 變成 filling。設(shè)置好題目分?jǐn)?shù)題數(shù)后，點(diǎn)擊“修改”按鈕，則查看選中的復(fù)選框，修改相應(yīng)試題信息。創(chuàng)建過(guò)程 btnedit()， 判斷修改后提交各個(gè)文本框是否為空。 function btnedit() { //如果表單內(nèi)文本框值為空，則彈出“警示”對(duì)話框，焦點(diǎn)集中在文本框 pds。} if ((!= )amp。 return false。 ()。(== )) {alert(數(shù)據(jù)不全！ )。 //表單 form1 的變量 ctype 賦值為 edit。如果存在試題，輸出最近一期試題信息。 flag=1 36 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 title=font color=red 暫無(wú) /font else //否則，執(zhí)行查詢語(yǔ)句，顯示最近一期的期數(shù) 。 if trim(request(ctype))=edit then //如果變量 ctype 的值為 edit。 now=new Date()。修改框下面顯示的是各期題庫(kù)判斷題、選擇題、填空題分?jǐn)?shù)和 數(shù)目 。 題庫(kù)增加 頁(yè)面 如圖 57 所示。amp。} if ((!=) amp。 retur。 (==)) {alert(數(shù)據(jù)不全，請(qǐng)重新輸入！ )。 ()。創(chuàng)建過(guò)程 btngiveup()， 頁(yè)面跳轉(zhuǎn)至作業(yè)批改管理頁(yè)面 ()。 點(diǎn)擊“增加”按鈕進(jìn)入題庫(kù)增加頁(yè)面 ()。 /script%else% script language=javascript alert (請(qǐng)選擇要修改項(xiàng)！ )。 if request(c1)=on then set rsedit=(sqledit) flags=1 if flags=1 then //如果變量 flags 為 1，則彈出“警示”對(duì)話框，頁(yè)面跳至 頁(yè)面 。rs(examinationid)amp。 flags=0 sqlfind=select * from test order by examinationid desc set rss=(sqlfind) //執(zhí)行查詢語(yǔ)句 。 //表單 form1。 return false。} if ((!= )amp。amp。(== )) {alert(數(shù)據(jù)不全！ )。 ()。 function btnadd() { ()。 作業(yè)批改管理 頁(yè)面 如圖 56 所示。 作業(yè)批改管理頁(yè)面 作業(yè)批改管理頁(yè)面 ()用于展示 系統(tǒng) 作業(yè)批改信息、修改 系統(tǒng) 作業(yè)批改信息 。 填空題管理界面 填空 題管理與判斷題管理基本相似，用于顯示當(dāng)前 數(shù)據(jù) 庫(kù)中 存儲(chǔ)的 的所有 填空題，并可以對(duì) 填空 題進(jìn)行查找、增加、刪除或修改等操作。 /script 33 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 %end if end if % 管理員點(diǎn)擊“修改”按鈕修改好題目 后點(diǎn)擊提交返回判斷題管理頁(yè)面()。 //彈出“警示”對(duì)話框 。where rightorwrongid=amp。,setupdate=39。,answer=39。 /script %else sqledit=update question=39。 % script language=javascript alert(已有此題目！ )。 and rightorwrongidamp。 and answer=39。 if request(ctype)=types then sqlfind=select * from rightorwrong where .question=39。 32 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 } /script %sql=select * from rightorwrong where rightorwrongid=amp。} =types。 圖 55 判斷題修改頁(yè)面 頁(yè)面主要代碼如下： function check() { //如果表單 form 內(nèi)表格 t1 的值為空，則彈出“警示”，焦點(diǎn)集中在文本框 t1。 //當(dāng)前窗口返回 。 //彈出“警示”對(duì)話框 。trim(request(id)) //采用 vbscript 語(yǔ)言， Sql 語(yǔ)言的刪除語(yǔ)句 。 /script % end if end if % 通過(guò) ASP 代碼判斷題庫(kù)是否已經(jīng)存在 該 試題。 /script % else% script language=javascript alert(錯(cuò)誤：數(shù)據(jù)不全，或提交為空記錄！ )。 end if end if next //如果 flag 變量的值為 1，則彈出“警示”對(duì)話框，重新進(jìn)入 頁(yè)面 。39。39。,39。amp。) if not then //如果不存在數(shù)控，則頁(yè)面后退；否則插入數(shù)據(jù) 。amp。i 的值不為空，則循環(huán) sql 語(yǔ)言的查詢語(yǔ)句檢查rightorwrong 表內(nèi)是否已經(jīng)存在數(shù)據(jù) 。 flag=0 //則 標(biāo)識(shí)變量 flag 的值設(shè)為 0。 end sub /script 管理員可以選擇頁(yè)數(shù)查看題目，也可以在查找框內(nèi)輸入題目信息點(diǎn)擊查找按鈕查找題目。 () exit sub //退出函數(shù) 。 c= //將 form1 表單內(nèi)文本框 page 的值賦予變量 c。共分為 4 個(gè)頁(yè)面： 判斷題管理頁(yè)面 ()、判斷題增加頁(yè)面 ()、判斷題刪除頁(yè)面 ()、判斷題修改頁(yè)面()。 管理員首頁(yè)界面 由 3 個(gè)頁(yè)面組成： 管理員首頁(yè) ()，檢驗(yàn) 26 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 用戶名頁(yè)面 ()和 歡迎頁(yè)面 ()。 圖 51 后臺(tái)管理員登錄頁(yè)面 創(chuàng)建新頁(yè)面，首先加入 標(biāo)題，然后加入表單，在表單內(nèi)插入一個(gè) 3 2 的表格。利用 ASP 可以向網(wǎng)頁(yè)中添加交互式內(nèi)容（如 在線表單 ），也可以創(chuàng)建使用 HTML 網(wǎng)頁(yè)作為用戶界面的 web 應(yīng)用程序 。dfamp。 提交答案： amp。fncoloramp。 判題：√ 得分：amp。i)amp。 df=request(pds) font color=amp。 %if request(flagpd)=1 then %trtd%=request(messagepd)%/td/tr %else for i=1 to request(pd)% 24 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 tr td %=i% 、 %=request(tgpdamp。答案頁(yè)面對(duì) 學(xué)生做題 答案與正確答案對(duì)比，給出 各題詳細(xì)對(duì)錯(cuò)和得分 。 maxtype1=rs(rightorwrongid) //變量 maxtype1 賦值 。 tks=rss(fillingscore) //填空題每題分?jǐn)?shù)變量賦值 。 pds=rss(rightorwrongscore) //判斷題每題分?jǐn)?shù)變量賦值 。 做題預(yù)備頁(yè)面 做題預(yù)備頁(yè)面 ()是動(dòng)態(tài)頁(yè)面，頁(yè)面 如圖 43 所示。 alert(注冊(cè)成功！ )。39。39。39。39。39。 /script （ 3）使用 VBScript 語(yǔ)言，將新的學(xué)生信息存入數(shù)據(jù)庫(kù) student 表中，執(zhí)行成功，使用 JavaScript 語(yǔ)言彈出“警示”對(duì)話框，進(jìn)入用戶登入 頁(yè)面。 set rsfind=(sqlfind) //執(zhí)行 sql 語(yǔ)句 。amp。 } /script 19 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 （ 2）使用 sql 查詢語(yǔ)句查找此學(xué)號(hào)是否存在 。 } //獲取隱藏域名為 ctype 的值，直接給 ctype 賦值為 add。 ()。 //避免提交失敗，防止 IE 重載該頁(yè)面 。 //彈出“警示”對(duì)話框 。 return false。 {alert(請(qǐng)輸入密碼！ )。 //焦點(diǎn)集中在學(xué)生姓名文本框 。 script language=javascript 18 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 function check() { if (==) //判斷學(xué)生姓名文本框是否為空 。注冊(cè)成功后，用戶可以進(jìn)入 《計(jì)算機(jī)硬件技術(shù)基礎(chǔ)》 作業(yè)管理系統(tǒng)。 var now=new Date() //顯示 ，同 時(shí)避免 IE使用 history記錄 。 //如果用戶名或密碼不正確，使用 javascript 語(yǔ)言，彈出“警示”對(duì)話框 。trim(request(pwd))amp。trim(request(student))amp。 % =125 //定義超時(shí)時(shí)間為 125。 =add。 //將焦點(diǎn)集中在 pwd 文本框 。} //避免提交失敗，防止 IE 重載該頁(yè)面 。 if (==) {alert(請(qǐng)輸入用戶名 )。若填寫(xiě)正確，則 登錄系統(tǒng)，并 將用戶信息賦值給 session 變量，以后方便調(diào)用。 圖 41 用戶登錄 界 面 用戶登錄頁(yè)面主要分為兩個(gè)部分：頂部為“ 《計(jì)算機(jī)硬件技術(shù)基礎(chǔ)》 作業(yè)管理系 15 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 統(tǒng)”的信息圖片 和動(dòng)態(tài)文字 ， 右側(cè)為系統(tǒng)圖片。 系統(tǒng) 采 用 ASP（ 動(dòng)態(tài)服務(wù)器頁(yè)面 ） 語(yǔ)言來(lái)完成網(wǎng)頁(yè)的代碼編輯及實(shí)現(xiàn) ， 本章將介紹 系統(tǒng) 前臺(tái)各項(xiàng)功能，通過(guò)解釋 主要 ASP 代碼來(lái)解釋各項(xiàng)功能的由來(lái)。 本章小結(jié) Browser/Server 的系統(tǒng)中，用戶可以通過(guò)瀏覽器向分布在網(wǎng)絡(luò)上的服務(wù)器發(fā)出請(qǐng)求，服務(wù)器對(duì)瀏覽器的請(qǐng)求進(jìn)行處理，將用戶所需信息返回到瀏覽器。Password=sa。 connstr=Provider=SQLOLEDB。 連接數(shù)據(jù)庫(kù) 由于系統(tǒng)在整個(gè)運(yùn)行過(guò)程中都是與數(shù)據(jù)庫(kù) 相聯(lián)系的。 表 37 filling 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 fillingid int 填空題題編號(hào) 不能為空 question nvarchar(250) 題目?jī)?nèi)容 允許為空 answer nvarchar(250) 正確答案 允許為空 setupdata smalldatetime 加入日期 允許為空 一般情況下用 datetime， smalldatetime 精度太低了，判斷時(shí)間的時(shí)候很容易弄錯(cuò) 。 填空題信息表 filling 填空題信息保存在填空題信息表中。包括選擇題編號(hào)、題目?jī)?nèi)容、答案選項(xiàng) 答案選項(xiàng) 答案選項(xiàng) 答案選項(xiàng) 正確答案和加入日期 8 個(gè)字段。 smalldatetime 只能精確到分鐘，而 datatime 可以精確到 3%秒（ 毫秒）。 包括判斷題編號(hào)、題目?jī)?nèi)容、正確答案和加入日期 4 個(gè)字段。題庫(kù)題型信息表結(jié)構(gòu)如表 34 所示。 10 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 表 33 examination 字段名 數(shù)據(jù)類型及長(zhǎng)度 說(shuō)明 備注 examinationid i