【正文】 Abstract ： Recently with the development of INTERNET, people in different place are able to obtain the information which they need at any time. Simultaneously the appearance of INTERNET pushes the development of education forward greatly. Especially the rapidly development of ASP technology expand the applied rage of the INTERNET, and also influenced the educational field deeply, because of the characteristic of the mutuality and dynamics. This article explains the procedure for making use of the ASP technology to build the Assignment Delivery And Correction System. This system can transform the ways students delivering and teachers correcting homework, make the students delivering it with good flexibility and free the teachers from the onerous work. This system mainly develop by DREAMWEAVER MX 關(guān)鍵詞： ASP 技術(shù)； VBScrip； JavaScrip；教育 Keywords： ASP technology； VBScript； JavaScript； Education 目 錄 需求分析 ..................................................................................... 3 1 .引言 ........................................................................................................ 3 2 .數(shù)據(jù)流圖 ................................................................................................ 3 3 .系統(tǒng)的功能及要求 ................................................................................. 4 系統(tǒng)總體設(shè)計 .............................................................................. 5 1 .系統(tǒng)功能模塊的劃分 ............................................................................. 5 2 .系統(tǒng)結(jié)構(gòu)總流程圖 ................................................................................. 5 3 .數(shù)據(jù)庫設(shè)計 ............................................................................................. 6 系統(tǒng)詳細(xì)設(shè)計 .............................................................................. 7 登陸系統(tǒng) ............................................................................................ 7 提交作業(yè)系統(tǒng) .................................................................................... 9 編碼 ........................................................................................... 13 1 . ...............................................................................................13 2 . .............................................................................................15 3 . .............................................................................................15 4 . ..............................................................................................16 5 . ..................................................................................17 6 . ..................................................................................17 7 . ...................................................................................20 8 ..........................................................................。本文闡述了如何運(yùn)用 ASP技術(shù)構(gòu)建一個網(wǎng)上作業(yè)提交和批改系統(tǒng)的過程，以期改變過去傳統(tǒng)的學(xué)生遞交作業(yè)，老師批改作業(yè)的方式，讓學(xué)生遞交作業(yè)更加靈活，同時減輕老師的工作量。同時國際互聯(lián)網(wǎng)的出現(xiàn)極大地推動了教育的發(fā)展。 致 謝： 在本教學(xué)網(wǎng)站的開發(fā)過 程中，得到了崔海源老師的幫助與指導(dǎo)，并從崔老師的教學(xué)網(wǎng)站 —— 教學(xué)園地得到了很多的啟發(fā)。如老師不能在網(wǎng)上進(jìn)行作業(yè)批改，批改過程沒有實現(xiàn)傻瓜化，沒有成績的統(tǒng)計功能等。后來在老師和同學(xué)的幫助下找到正確的開發(fā)方法，對后來的開發(fā)工作起了非常重要的作用。 通過這段時間的畢業(yè)設(shè)計的實踐使我 把以往所學(xué)的書本上的知識與現(xiàn)實生活中的問題結(jié)合起來，加深了我對所學(xué)知識的了解，同時也看到了自己的不足之處。但是服務(wù)器返回的錯誤信息往往十分的簡短，有時甚至就是錯誤的代號，因此調(diào)試起來有一定的困難。我通過在本機(jī)制作，然后上傳到教學(xué)園地（ ） 中運(yùn)行的方法對 ASP 程序進(jìn)行調(diào)試。 在開發(fā)的 過程中，我主要用的是 DREAMWEAVER 進(jìn)行網(wǎng)頁的制作。作為學(xué)生，我能了解學(xué)生對系統(tǒng)功能上的基本要求；但老師對作業(yè)的一些評分標(biāo)準(zhǔn)或評分時考慮的信息我并不十分了解。當(dāng)然在這個過程中肯定要碰到許多的問題，也有許多值得總結(jié)的東西。 iNum amp。 amp。_ amp。 amp。目錄文件 /th/tr iNum=0 39。_ trth colspan=3amp。439。039。 (FILE3).TotalBytes amp。判斷 \從右起最早出現(xiàn)的位置，從而得到文件名 filename =sFileSave: (FILE3).SaveAs filename sFileSave amp。 Set fs = () sTemp = ( (sDir)) sMod = (md) if sMod = upl then Set Upl = () if IsObject((FILE3)) Then 39。ml=amp。 color=redb 作業(yè)上傳查詢 /b/font/td/tr/tablehr sDir = (ml) 39。_ trtdfont style=39。139。center39。90%39。039。fontsize:14px} th{fontfamily:宋體 ,arial。 style type=text/css body{fontfamily:宋體 。 equiv=39。text/html。/b/font/center End if Set rs = Nothing: Set dbc = Nothing % /body /html 9 . %LANGUAGE=VBSCRIPT CODEPAGE=936% html head meta equiv=ContentType content=text/html。 cstr(cint(abs(defen))+1) amp。 set rs=(sql) now() amp。 xuehao amp。 where 學(xué)號 =39。 cstr(cint(defen)1) amp。, 得分 =39。 zuoye amp。,內(nèi)容 =39。 jihao amp。,機(jī)號 =39。 now() amp。＜ /b＜ /font＜ /center else riqi = rs(日期 ): defen = rs(得分 ) sql = update 作業(yè)題目 SET 日期 =39。) set rs=(sql) now() amp。zuoyeamp。,39。jihaoamp。,39。xuehaoamp。,39。now()amp。 values(39。39。amp。dbq= amp。 charset=gb2312 title作業(yè)入庫 /title /head body % xuehao=request(xuehao) jihao =request(iphao) zuoye =request(zuoye) tihao =request(tihao) sDir =request(dir) sDBFile = ls/ Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} strConn amp。 dping amp。 defen amp。/textarea/td/tramp。amp。 FONTFAMILY: 宋體 。style=39。 cols=39。 rows=39。_ textarea name=39。/font/td/tramp。_ tdb提交作業(yè)時間 /b： font color=blueamp。 xuehao amp。 作業(yè)范例 /b/tdamp。_ trtdb amp。 set rs = (sql) if then 39。/td/tr end if sql = select * from 作業(yè)題目 where 備注 =39。 b點(diǎn)評 /b： amp。_ trtd colspan=4b得分 /b： amp。_ sReadFromDB amp。 FONTSIZE: 14px39。BACKGROUNDCOLOR: FAFCEE。8039。1439。zuoye39。_ trtd colspan=4amp。*39。 ri_qi amp。/font/tdamp。_ td width=120b姓名 /b： font color=blueamp。 xuehao amp。 sTemp amp。 rs(1) amp。班 )/td/tr set rs = (select 學(xué)號 ,得分 from 作業(yè)題目 order by 學(xué)號 ) stemp = : j = 0 do until stemp = stemp amp。 (amp。 作業(yè)提交人數(shù)： /bamp。/fonthr width=100% align=left/td/tr if right(xuehao,2) = 99 then set rs = (select count(*) from 作業(yè)題目 ) trtd colspan=4bamp。_ tr