【正文】 _ trtd colspan=4b得分/b：amp。 defen amp。 amp。nbsp。b點評/b：amp。 dping amp。/td/tr/table end if : Set rs = Nothing: : Set dbc = Nothing /body/html %/body/html8 .htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title作業(yè)入庫/title/headbody% 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。 。dbq= amp。 (sDBfile) sql = select * from 作業(yè)題目 where 學號=39。amp。 xuehao amp。39。 set rs=(sql) if then sql = insert into 作業(yè)題目(日期,學號,機號,內(nèi)容) sql = sql amp。 values(39。amp。now()amp。39。,39。amp。xuehaoamp。39。,39。amp。jihaoamp。39。,39。amp。zuoyeamp。39。) set rs=(sql) now() amp。 ＜font color=red＜b成功提交作業(yè)。＜/b＜/font＜/center else riqi = rs(日期): defen = rs(得分) sql = update 作業(yè)題目 SET 日期=39。amp。 now() amp。39。,機號=39。amp。 jihao amp。39。,內(nèi)容=39。amp。 zuoye amp。39。, 得分=39。amp。 cstr(cint(defen)1) amp。39。 where 學號=39。amp。 xuehao amp。39。 set rs=(sql) now() amp。 font color=redb第amp。 cstr(cint(abs(defen))+1) amp。次成功提交作業(yè)。/b/font/center End if Set rs = Nothing: Set dbc = Nothing %/body/html9 . %@LANGUAGE=VBSCRIPT CODEPAGE=936%htmlheadmeta equiv=ContentType content=text/html。 charset=gb2312title作業(yè)上傳查詢/titlemeta content=39。text/html。 charset=gb231239。 equiv=39。ContentType39。 style type=text/css body{fontfamily:宋體。fontsize:14px} td{fontfamily:宋體,arial。fontsize:14px} th{fontfamily:宋體,arial。fontsize:16px} /style/head% body bgColor=8DA6CBtable border=39。039。 width=39。90%39。 align=39。center39。 cellspacing=39。139。amp。_ trtdfont style=39。FONTSIZE: 35px39。 color=redb作業(yè)上傳查詢 /b/font/td/tr/tablehr sDir = (ml) 39。from URL ?md=uplamp。ml=amp。 sDir amp。 Set fs = () sTemp = ( (sDir)) sMod = (md) if sMod = upl then Set Upl = () if IsObject((FILE3)) Then 39。=file,name=FILE3，判斷”FILE3”中的內(nèi)容是否為空 file = (FILE3).UserFilename if file then sFileSave = Mid(file, InStrRev(file,\) + 1) 39。判斷\從右起最早出現(xiàn)的位置，從而得到文件名 filename =sFileSave: (FILE3).SaveAs filename sFileSave amp。 (amp。 (FILE3).TotalBytes amp。) 文件已上傳. end if end if sTemp = sDir Set fs = () Set fd = ( (sTemp) ) brbrtable border=0 width=500 cellpadding=39。039。 cellspacing=39。439。amp。_ trth colspan=3amp。 sTemp amp。目錄文件/th/tr iNum=0 39。 輸出文件 For Each f In trtdamp。 amp。/tdtd align=rightamp。_ amp。/tdtdamp。 amp。/td/tr: iNum=iNum+1 Next trtd colspan=2b文件數(shù)：/bamp。 iNum amp。/td/tr/tablehr end if /BODY/HTML%結束語：在以前的學習過程中，學習的多半是書本上的知識，因此對開發(fā)這樣一個系統(tǒng)自己并沒有什么經(jīng)驗，一切都要從頭做起。當然在這個過程中肯定要碰到許多的問題，也有許多值得總結的東西?，F(xiàn)總結如下：首先遇到的問題就是系統(tǒng)的功能定位的問題。作為學生，我能了解學生對系統(tǒng)功能上的基本要求；但老師對作業(yè)的一些評分標準或評分時考慮的信息我并不十分了解。因此我向我論文指導老師請教了這方面的問題，并探討了完成這些信息顯示技術上的可行性，初步獲得了開發(fā)系統(tǒng)的路線。在開發(fā)的過程中，我主要用的是DREAMWEAVER進行網(wǎng)頁的制作。由于ASP 的調(diào)試對環(huán)境有一定的要求。我通過在本機制作，然后上傳到教學園地（）中運行的方法對ASP程序進行調(diào)試。通過服務器返回的ASP錯誤信息的提示，再修改源程序。但是服務器返回的錯誤信息往往十分的簡短，有時甚至就是錯誤的代號，因此調(diào)試起來有一定的困難。面對這樣的困難，我積極請教指導老師，查閱一些相關的資料，并再網(wǎng)絡上找到了錯誤代碼所代表的意思，運用一些調(diào)試程序的方法，最終將錯誤一一消除。通過這段時間的畢業(yè)設計的實踐使我把以往所學的書本上的知識與現(xiàn)實生活中的問題結合起來，加深了我對所學知識的了解，同時也看到了自己的不足之處。雖然也學過軟件工程這門課，但在開始做的時候并沒有嚴格按照軟件工程的流程來做，使得開發(fā)工作難以進行下去。后來在老師和同學的幫助下找到正確的開發(fā)方法，對后來的開發(fā)工作起了非常重要的作用。由于種種原因系統(tǒng)還有些缺陷，功能從某中程度上來說還略顯單一。如老師不能在網(wǎng)上進行作業(yè)批改，批改過程沒有實現(xiàn)傻瓜化，沒有成績的統(tǒng)計功能等。這些有待于在今后的開發(fā)維護中得到進一步的改進。致 謝：在本教學網(wǎng)站的開發(fā)過程中，得到了崔海源老師的幫助與指導，并從崔老師的教學網(wǎng)站——教學園地得到了很多的啟發(fā)。在此表示感謝！主要參考文獻：吉根林 崔海源主編 《Web程序設計》 電子工業(yè)出版社 2002年8月武曉軍 陳海濱 《JavaScript / VBScript 網(wǎng)頁編程實例解析》 清華大學出版社 2001年4月宣小平 但正剛《ASP數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航》人民郵電出版社 2003年10月龍馬工作室編《Dreamweaver MX ASP網(wǎng)頁編程入門與范例制作》，機械工業(yè)出版社 2004年1月Jonathan Goodyear 《Debugging 》 New Riders May, 2002 asp程序錯誤詳細說明表 ASP語法速查表