【導(dǎo)讀】拷貝、E-mail發(fā)送等方式來進(jìn)行的。但是這幾種方法很不科學(xué)，不僅是在提交作業(yè)。個(gè)實(shí)用的作業(yè)管理系統(tǒng)來規(guī)范作業(yè)管理，這將會(huì)提高學(xué)校的管理水平，優(yōu)化資源，實(shí)現(xiàn)效益最大化。為本次畢業(yè)設(shè)計(jì)課題是非常有意義的，具有研究的價(jià)值。批改、查看作業(yè)數(shù)據(jù)分析等功能。降低做題成本，減少人為干擾，減輕教師負(fù)擔(dān)，節(jié)約人力、物力和財(cái)力。

　　

【正文】 st(tamp。i)) and trim(request(cateamp。i)) then set rss=(select * from rightorwrong where question=39。amp。trim(request (tamp。i) )amp。39。) if not then //如果不存在數(shù)控，則頁面后退；否則插入數(shù)據(jù) 。 % script language=javascript alert(已有此題目，請(qǐng)重新錄入！ )。 ()。 /script %else sql=insert into rightorwrong (question,answer,setupdate) values(39。amp。trim(request (tamp。i)) amp。39。,39。amp。trim(request(cateamp。i))amp。39。,39。amp。date()amp。39。) //sql 語言的插入語句 。 set rs= (sql) //執(zhí)行 sql 語句 。 flag=1 //flag 變量設(shè)置為 1。 end if end if next //如果 flag 變量的值為 1，則彈出“警示”對(duì)話框，重新進(jìn)入 頁面 。 if flag=1 then % script language=javascript alert(題目錄入成功！ )。 30 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 var now=new Date()。 (?time=+())。 /script % else% script language=javascript alert(錯(cuò)誤：數(shù)據(jù)不全，或提交為空記錄！ )。 //彈出“警示”對(duì)話框 。 ()。 //頁面后退 。 /script % end if end if % 通過 ASP 代碼判斷題庫是否已經(jīng)存在 該 試題。如果存在，則彈出“警示”對(duì)話框， 否則 在數(shù)據(jù)庫內(nèi)插入數(shù)據(jù)。 判斷題刪除頁面 判斷題刪除頁面 ()是動(dòng)態(tài)頁面，主要用于對(duì)選定判斷題目進(jìn)行刪除。 判斷題刪除 頁面 主要代碼如下 ： %sql=delete from rightorwrong where rightorwrongid=amp。trim(request(id)) //采用 vbscript 語言， Sql 語言的刪除語句 。 set rs=(sql) //執(zhí)行 sql 語言 。 % script language=javascript //調(diào)用 javascript 語言 。 alert(題目刪除成功！ )。 //彈出“警示”對(duì)話框 。 var now=new Date()。 //將 now 變量賦值為當(dāng)前日期 。 (?time=+())。 //當(dāng)前窗口返回 。 /script 管理員選定判斷題目點(diǎn)擊“刪除“按鈕刪除題目并返回判斷題管理頁面()。 31 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 判斷題修改頁面 判斷題修改頁面 ()是動(dòng)態(tài)頁面，主要用于對(duì)選定判斷題目進(jìn)行修改。 判斷題修改 頁面 如圖 55 所示。 圖 55 判斷題修改頁面 頁面主要代碼如下： function check() { //如果表單 form 內(nèi)表格 t1 的值為空，則彈出“警示”，焦點(diǎn)集中在文本框 t1。 if (==) {alert(請(qǐng)錄入題干！ )。 ()。 return false。} =types。 //表單 form1 的 隱藏 域名 ctype 的值為 types。 ()。 //提交 form1 表單 。 32 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 } /script %sql=select * from rightorwrong where rightorwrongid=amp。trim(request(id)) set rs= (sql) //執(zhí)行查詢語句。如果 隱藏 域名ctype 的值為 types，則查詢表 rightorwrong 內(nèi)是否存在修改后的判斷題目及答案，如果存在，則彈出“警示”對(duì)話框，頁面返回。如果不存在，則存入數(shù)據(jù)庫中。 if request(ctype)=types then sqlfind=select * from rightorwrong where .question=39。amp。trim(request(t1))amp。39。 and answer=39。amp。request(cate)amp。39。 and rightorwrongidamp。request(id) //sql 的查詢語句 。 set rss=(sqlfind) //執(zhí)行語句 。 if not then //如果記錄不存在 。 % script language=javascript alert(已有此題目！ )。 //彈出 “警示”對(duì)話框 。 ()。 //頁面返回 。 /script %else sqledit=update question=39。amp。trim(request(t1))amp。39。,answer=39。amp。request(cate)amp。39。,setupdate=39。amp。date()amp。39。where rightorwrongid=amp。request(id) //sql 語言的修改語句 。 set rss=(sqledit) //執(zhí)行修改語句 。 % script language=javascript alert(題目修改成功！ )。 //彈出“警示”對(duì)話框 。 var now=new Date()。 //變量 now 賦值當(dāng)前日期 。 (?time=+())。 /script 33 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 %end if end if % 管理員點(diǎn)擊“修改”按鈕修改好題目 后點(diǎn)擊提交返回判斷題管理頁面()。 選擇題管理界面 選擇題管理與判斷題管理基本相似，用于顯示當(dāng)前 數(shù)據(jù) 庫 中 存儲(chǔ)的 的所有選擇題，并可以對(duì)選擇題進(jìn)行查找、增加、刪除或修改等操作 。共分為 以下 4 個(gè)頁面：選擇題管理頁面 ()，選擇題增加頁面 ()，選擇題刪除頁面()，選擇題修改頁面 ()。在此不再贅述， 但要注意選擇的數(shù)據(jù)有 rightorwrong 變成 selecting，增加 4 個(gè)選擇項(xiàng)的內(nèi)容。 填空題管理界面 填空 題管理與判斷題管理基本相似，用于顯示當(dāng)前 數(shù)據(jù) 庫中 存儲(chǔ)的 的所有 填空題，并可以對(duì) 填空 題進(jìn)行查找、增加、刪除或修改等操作。共分為 4 個(gè)頁面： 填空題管理頁面 () ， 填空 題增加頁面 () ， 填空 題刪除頁面()， 填空 題修改頁面 ()。在此不再贅述 ， 但要注意選擇的數(shù)據(jù)有 rightorwrong 變成 filling。 作業(yè)批改管理界面 作業(yè)批改管理頁面 為管理員管理系統(tǒng)對(duì) 各期題庫 作業(yè) 的 批改 ， 主要由作業(yè)批 改管理頁面 ()和 題庫 增加頁面 ()兩個(gè)頁面組成，完成對(duì) 題庫 的創(chuàng)建和修改。 作業(yè)批改管理頁面 作業(yè)批改管理頁面 ()用于展示 系統(tǒng) 作業(yè)批改信息、修改 系統(tǒng) 作業(yè)批改信息 。點(diǎn)擊“增加”按鈕進(jìn)入題庫增加頁面 ()。設(shè)置好題目分?jǐn)?shù)題數(shù)后，點(diǎn)擊“修改”按鈕，則查看選中的復(fù)選框，修改相應(yīng)試題信息。修改框下面顯示的是各期題庫判斷題、選擇題、填空題分?jǐn)?shù)和個(gè)數(shù)。 作業(yè)批改管理 頁面 如圖 56 所示。 34 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 圖 56 作業(yè)批改管理頁面 頁面主要代碼如下： （ 1） 使用 javascript 語言 創(chuàng)建過程 btnadd()， 如果單擊“增加”按鈕，頁面跳轉(zhuǎn)至 題庫 增加頁面 ()。創(chuàng)建過程 btnedit()， 判斷修改后提交各個(gè)文本框是否為空。 script language=javascript //采用 javascript創(chuàng)建函數(shù) btnadd()， btnedit()。 function btnadd() { ()。 } //頁面轉(zhuǎn)至 頁面 。 function btnedit() { //如果表單內(nèi)文本框值為空，則彈出“警示”對(duì)話框，焦點(diǎn)集中在文本框 pds。 if ((==) || (==) || 35 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 (==)) {alert(你提交的為空記錄！ )。 ()。 return false。} if ((!= )amp。amp。(== )) {alert(數(shù)據(jù)不全！ )。 ()。 return false。} if ((!= )amp。amp。(== )) {alert(數(shù)據(jù)不全！ )。 ()。 return false。} if ((!= )amp。amp。(== )) {alert(數(shù)據(jù)不全！ )。 ()。 return false。} =edit。 //表單 form1 的變量 ctype 賦值為 edit。 ()。 //表單 form1。 } /script （ 2）查詢?cè)囶}記錄，如果沒有試題，輸入提示。如果存在試題，輸出最近一期試題信息。 %flag=0 //采用 vbscript 語言，設(shè)變量值為 0。 flags=0 sqlfind=select * from test order by examinationid desc set rss=(sqlfind) //執(zhí)行查詢語句 。 if then //如果記錄為空，則 flag 變量賦值為 1，題目顯示“暫無”字樣 。 flag=1 36 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 title=font color=red 暫無 /font else //否則，執(zhí)行查詢語句，顯示最近一期的期數(shù) 。 set rs=(select * from test order by examinationid desc) title=第 font color=red amp。rs(examinationid)amp。 /font 期 end if （ 3）如果單擊“修改”按鈕，則查看選中的復(fù)選框，修改相應(yīng)試題信息。 if trim(request(ctype))=edit then //如果變量 ctype 的值為 edit。如果復(fù) 選框 c1賦值為 on，變量 flags 賦值為 1，執(zhí)行修改語句，修改試題判斷題信息 。 if request(c1)=on then set rsedit=(sqledit) flags=1 if flags=1 then //如果變量 flags 為 1，則彈出“警示”對(duì)話框，頁面跳至 頁面 。 % script language=javascript alert (修改成功！ )。 now=new Date()。 (?time=+())。 /script%else% script language=javascript alert (請(qǐng)選擇要修改項(xiàng)！ )。/script %end if end if % 設(shè)置好題目分?jǐn)?shù) 和數(shù)目 后，點(diǎn)擊“修改”按鈕，則查看選中的復(fù)選框，修改相應(yīng) 題庫 信息。修改框下面顯示的是各期題庫判斷題、選擇題、填空題分?jǐn)?shù)和 數(shù)目 。由于怕系統(tǒng)數(shù)據(jù)庫混亂，修改題庫只能修改最近一期的。 點(diǎn)擊“增加”按鈕進(jìn)入題庫增加頁面 ()。 37 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 題庫 增加頁面 題庫 增加頁面 ()與作業(yè)批改管理頁面布局、控制基本類似，在此不再贅述。 題庫增加 頁面 如圖 57 所示。 圖 57 題庫 增加頁面 頁面主要代碼如下： （ 1） 采用 javascript 語言 創(chuàng)建過程 btnadd()，如果單擊“增加”按鈕，判斷提交各個(gè)文本框是否為空，為空則彈出“警示”對(duì)話框，焦點(diǎn)集中在空文本框。創(chuàng)建過程 btngiveup()， 頁面跳轉(zhuǎn)至作業(yè)批改管理頁面 ()。 script language=javascript 38 信息科學(xué)與技術(shù)學(xué)院學(xué)士學(xué)位論文 function btnadd() { if ((!=) amp。amp。 (==)) {alert(數(shù)據(jù)不全，請(qǐng)重新輸入！ )。 ()。 return false。} if ((!=) amp。amp。 (==)) {alert(數(shù)據(jù)不全，請(qǐng)重新輸入！ )。 ()。 retu