【正文】 ② 新用戶注冊：要提交作業(yè)的同學(xué)設(shè)定自己的用戶名和密碼，并填入自己的真實姓名和學(xué)號。 （ 1） 系統(tǒng)性能要求 ① 界面力求清潔大方 ② 進(jìn)入系統(tǒng)需要口令驗證，區(qū)分老師與同學(xué)的用戶名，使不同的口令對應(yīng)不同的功能，提高系統(tǒng)的安全性。 數(shù)據(jù)流圖如圖 11 所示： 圖 11 3 .系統(tǒng)的功能及要求 本系統(tǒng)由網(wǎng)絡(luò)管理員進(jìn)行日常維護(hù)和管理，老師和學(xué)生都各自有自己的帳號對自己的信息進(jìn)行處理。 2 .數(shù)據(jù)流圖 用簡單的分層數(shù)據(jù)流圖表示不同級別上的功能模型。因此建立一個基于ASP 的交互式作業(yè)提交系統(tǒng)和批改系統(tǒng)成為了必須。教學(xué)中難免要布置 作業(yè)來檢測學(xué)生的掌握情況，但收作業(yè)和批改作業(yè)常常成了頭疼的事。 ASP 在滿足人們?nèi)粘Ｉ钔瑫r，人們也越來越注意到它在教育教學(xué)中的運用。 歡迎訪問 對本系統(tǒng)進(jìn)行測試 需求分析 1 .引言 因特網(wǎng)（ Inter）從誕生距今也不過短短的二、三十年的時間，而在世界各地蔓延開來，更是近 十年的事情。繁重 本系統(tǒng)主要應(yīng)用 DREAMWEAVER MX 開發(fā)完成。特別是ASP 技術(shù) ,以其交互性、動態(tài)性的特點，大大擴展了互聯(lián)網(wǎng)的應(yīng)用范圍，也深刻地影響了教育教學(xué)領(lǐng)域。在此表示感謝！ 主要參考文獻(xiàn)： 吉根林 崔海源主編 《 Web程序設(shè)計》 電子工業(yè)出版社 2020年 8月 武曉軍 陳海濱 《 JavaScript / VBScript 網(wǎng)頁編程實例解析 》 清華大學(xué)出版社 2020年 4月 宣小平 但正剛 《 ASP 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 》 人民郵電出版社 2020 年 10 月 龍馬工作室編 《 Dreamweaver MX ASP網(wǎng)頁編程入門與范例制作 》， 機械工業(yè)出版社 2020年 1月 Jonathan Goodyear 《 Debugging 》 New Riders May, 2020 6 、 asp 程 序 錯 誤 詳 細(xì) 說 明 表 7 、 ASP 語 法 速 查 表 基于 ASP 作業(yè)提交與批改系統(tǒng) 摘要： 近些年來互聯(lián)網(wǎng)迅速發(fā)展，它使的不同地點的人們在任何時間都可以獲得自己需要的信息。這些有待于在今后的開發(fā)維護(hù)中得到進(jìn)一步的改進(jìn)。 由于種種原因系統(tǒng)還有些缺陷，功能從某中程度上來說還略顯單一。雖然也學(xué)過軟件工程這門課，但在開始做的時候并沒有嚴(yán)格按照軟件工程的流程來做，使得開發(fā)工作難以進(jìn)行下去。面對這樣的困難，我積極請教指導(dǎo)老師，查閱一些相關(guān)的資料，并再網(wǎng)絡(luò)上找到了錯誤代碼所代表的意思，運用一些調(diào)試程序的方法，最終將錯誤一一消除。通過服務(wù)器返回的 ASP錯誤信息的提示，再修改源程序。由于 ASP 的調(diào)試對環(huán)境有一定的要求。因此我向我論文指導(dǎo)老師請教了這方面的問題，并探討了完成這些信息顯示技術(shù)上的可行性，初步獲得了開發(fā)系統(tǒng)的路線?，F(xiàn)總結(jié)如下： 首先遇到的問題就是系統(tǒng)的功能定位的問題。/td/tr/tablehr end if /BODY/HTML % 結(jié)束語 ： 在以前的學(xué)習(xí)過程中，學(xué)習(xí)的多半是書本上的知識，因此對開發(fā)這樣一個系統(tǒng)自己并沒有什么經(jīng)驗，一切都要從頭做起。/td/tr: iNum=iNum+1 Next trtd colspan=2b文件數(shù)： /bamp。/tdtdamp。/tdtd align=rightamp。 輸出文件 For Each f In trtdamp。 sTemp amp。amp。 cellspacing=39。) 文件已上傳 . end if end if sTemp = sDir Set fs = () Set fd = ( (sTemp) ) brbrtable border=0 width=500 cellpadding=39。 (amp。FILE3 為 中 type=file,name=FILE3，判斷 ”FILE3”中的內(nèi)容是否為空 file = (FILE3).UserFilename if file then sFileSave = Mid(file, InStrRev(file,\) + 1) 39。 sDir amp。from URL ?md=uplamp。FONTSIZE: 35px39。amp。 cellspacing=39。 align=39。 width=39。fontsize:16px} /style/head % body bgColor=8DA6CBtable border=39。fontsize:14px} td{fontfamily:宋體 ,arial。ContentType39。 charset=gb231239。 charset=gb2312 title作業(yè)上傳查詢 /title meta content=39。次成功提交作業(yè)。 font color=redb第 amp。39。amp。39。amp。39。amp。39。amp。39。amp。 ＜ font color=red＜ b成功提交作業(yè)。39。amp。39。amp。39。amp。39。amp。 set rs=(sql) if then sql = insert into 作業(yè)題目 (日期 ,學(xué)號 ,機號 ,內(nèi)容 ) sql = sql amp。 xuehao amp。 (sDBfile) sql = select * from 作業(yè)題目 where 學(xué)號 =39。 。/td/tr/table end if : Set rs = Nothing: : Set dbc = Nothing /body/html % /body /html 8 . html head meta equiv=ContentType content=text/html。 b點評 /b： amp。_ trtd colspan=4b得分 /b： amp。_ sReadFromDB amp。 FONTSIZE: 14px39。BACKGROUNDCOLOR: ffffff。8039。1439。zuoye39。_ trtd colspan=4amp。 ri_qi amp。/font/tdamp。_ tdb學(xué)號 /b： font color=blueamp。 sHao amp。無作業(yè)范例 ＜ /table else sReadFromDB = rs(內(nèi)容 ) sReadFromDB = replace(sReadFromDB, ＜ BR, vbCrLf ) ri_qi = rs(日期 ): defen = rs(得分 ) dping = rs(點評 ): xuehao = rs(學(xué)號 ) trtd colspan=4hr/td/tramp。939。 dping amp。 defen amp。/textarea/td/tramp。amp。 FONTFAMILY: 宋體 。 style=39。 cols=39。 rows=39。_ textarea name=39。 /td/tramp。/font/tdtd width=39。_ tdb 提交 作業(yè)時間 /b ： font color=blueamp。 xingming amp。/font/tdamp。/td/tr else trtd width=120b學(xué)號 /b： font color=blueamp。 loop trtd colspan=4amp。 right(rs(0),4) amp。 left(xuehao,5) amp。 rs(0) amp。 sHao amp。 timu amp。_ brb題目 /b： /td/tramp。 rRiqi amp。 sHao amp。 sWorkName amp。amp。 color=redb查詢數(shù)據(jù)庫作業(yè) /b/font/td/tr/table table border=0 cellpadding=1 cellspacing=1 width=39。_ trtdfont style=39。139。center39。90%39。039。 sHao amp。 set rs = (sql) if then 39。 xuehao amp。.mdb) sql = select * from 作業(yè)題目 where 學(xué)號 =39。/Workamp。dbq= amp。br end if loop if tishu = 0 then bodycenterfont color=redbbig無此作業(yè)號，或正在批改/big/b: Set dbc = () strConn = driver={Microsoft Access Driver (*.mdb)} strConn amp。 讀文本文件 do sLine = if mid(sLine, 2, 2) = sHao then timu = : tishu = 1: rRiqi = mid(sLine, 5) elseif left(sLine, 5) = end then tishu = 0: exit do elseif left(sLine,1) = and tishu = 1 then exit do else if tishu = 1 then timu = timu amp。ml=cui sName = (zyxt_user_name) xuehao = (zyxt_user_nstu) xingming = (zyxt_user_xmin) sHao = (hao) sDir = (ml) sWorkName = [InterNet]: sFile = (sDiramp。fontsize:14px} /style /head body %39。 charset=gb2312 equiv=ContentType style type=text/css body{fontfamily:宋體 。*39。_ td width=180 /tdamp。 sTemp amp。39。amp。/td/FORMamp。 width=176。 style=39。 sTemp amp。_ TRTD align=right width=185INPUT TYPE=SUBMIT VALUE=39。FILE339。7039。FILE39。td colspan=4amp。 sDir amp。?md=uplamp。multipart/formdata39。POST39。 三個文件 b上傳 /b/td/tramp。?.mdb 和 Workamp。 和 Workamp。_ b請選取 /b作業(yè)的 Workamp。95%39。學(xué)號 99 教師上傳 ?md=uplamp。 si amp。amp。 sDir amp。amp。 left(sTemp, 1) amp。ml=cui 查閱以前的作業(yè) si = cstr(i): if i 9 then si = chr(i + 55) a href=39。_ trtd width=70b作業(yè)查詢 /b|/tdtd align=left if tishu 1 then for i = 1 to tishu 1 39。95%39。39。amp。tihao39。hidden39。amp。 sDir amp。 value=39。 name=39。_ input type=39。39。amp。iphao39。hidden39。amp。 xingming amp。 value=39。 name=39。_ input type=39。39。amp。xuehao39。hidden39。amp。 type=submit value=39。 name=39。 顯示作業(yè)已截止 else input id=39。_ sReadFromDB amp。 FONTSIZE: 14px39。BACKGROUNDCOLOR: FAFCEE。8039。1439。zuoye39。/fontamp。_ bIP 號 /b： font color=blueamp。 xingming amp。 xuehao amp。_ hr width=100% align=left/td/tramp。 ti