畢業設計-網上作業提交系統-資料下載頁

【導讀】校機房管理上機作業的問題。因為傳統的對學生作業管理是在服務器上建立一個FTP服務器，然后。分之后只能記在本子上，不能通過局域網發布出來讓學生看，教師下載作業必須到服務器上拷貝。而這套系統正是出于這個目的，為了解決上面的問題而設計的。系統對于復雜的問題都采用程序的。加管理員或教師用戶都是通過網頁的形式展示出來。而教師無須向以前那樣，只需要發布作業，對

　　

【正文】 分的界面與編碼 [鍵入文字 ] 代碼： %@LANGUAGE=VBSCRIPT CODEPAGE=936% %const need_purview=1% !include file= !include file= !include file= !include file= !include file= html head meta equiv=ContentType content=text/html。 charset=gb2312 title/title link href= rel=stylesheet type=text/css SCRIPT language=javascript function openScript(url, width, height) { var Win = (url,openScript,39。width=39。 + width + 39。,height=39。 + height + 39。,resizable=0,scrollbars=yes,menubar=no,status=n039。 )。 } /SCRIPT /head body % dim sql_80 sql_80=select * from homework where object_class=39。 amp。 session(student_class) amp。 39。 and homework_name39。39。 order by id desc39。使最近的一次作業排在最前 , sql_81= select * from upload_info where class_e=39。 amp。 session(student_class) amp。 39。 and upload_username=39。 amp。 session(student) amp。 39。 order by id desc39。使最后上傳的文件排在最前面 call opendb() set rs=(sql_80) 第 21 頁 共 24 頁 if not then array_01=()39。取得 SElECTa Recordset的二維數組 rows_01=ubound(array_01,2)39。取得 array_01第二維的下界 39。set rs= 39。使用 Nextrecordset激活下一個 recordset call closers() set rs=(sql_81) if not then is_upfile=true array_02= 39。再次取得第二個 SElECTb Recordset的二維數組 rows_02=ubound(array_02,2)39。取得 array_02第二維的下界 else is_upfile=false end if call closers() else call closers() call closedb() span class=39。red_bold_14pt_font39。當前未有布置的作業！ /span end if 39。call closedb() % table width=600 border=0 align=center cellpadding=4 cellspacing=1 id=table_01 tr td width=39 class=white_bold_blue序號 /td td width=157 class=white_bold_blue作業名稱： /td td width=60 class=white_bold_blue授課教師 /td td width=158 class=white_bold_blue操作： /td td width=105 class=white_bold_blue布置及上傳時間 /td td width=95 class=white_bold_blue得分： /td td width=95 class=white_bold_blue備注： /td /tr % for i=0 to rows_01 % tr td align=center class=white_bold_blue%=i+1%/td tda title=點擊查看該次作業內容！ href=javascript:openScript(39。?id=%=array_01(0,i)%39。,418,300)%=array_01(2,i)%/a% 39。第 2列第 i行 ,數據庫表中 homework中的字段不能隨意添加或刪除 %/td td align=center%=array_01(6,i)%/td td % if array_01(4,i)=true then39。是否允許上傳 [鍵入文字 ] a href=39。?id= amp。 array_01(0,i) amp。 amp。work_name= amp。 array_01(2,i) amp。 39。[上傳 ]/a elseif array_01(4,i)=false then FONT SIZE=39。239。 COLOR=39。red39。[當前不允許上傳該作業 ]/FONT end if % /td td%=array_01(3,i)%%39。布置作業的時間 %/td td /td td /td /tr % if is_upfile=true then k=0 for j=0 to rows_02 if array_01(2,i)=array_02(5,j) And array_01(6,i)=array_02(7,j) then k=k+1 % tr td colspan=2%=right(array_02(2,j),len(array_02(2,j))instrRev(array_02(2,j),/))%%39。輸出上傳的文件名 % /td td /td tda href=?work_name=%=array_01(2,i)%amp。id=%=array_02(0,j)%amp。FileName=%=right(array_02(2,j),len(array_02(2,j))instrRev(array_02(2,j),/))%[下載 ]/a % if array_01(4,i)=true then a href=39。?action=delete_upfileamp。id= amp。 array_02(0,j) amp。 39。[刪除 ]/a end if % /tdtd%=array_02(4,j)%/td td align=center% if array_02(9,j)=0 Then array_02(9,j)amp。分 else 未批閱 end if % /td td /td /tr 第 23 頁 共 24 頁 % end if next if k=0 then % tr td colspan=2FONT SIZE=2 COLOR=red當前你未提交本次作業！/FONT/td td /td td /td td /td /tr % end if end if next % % call closedb() % /table br br /body /html 經過小組的共同的努力，作業提交系統終于完成了。解決了目前學校機房作業上傳的問題，實現了 ，基 本滿足了作業上傳的需求。 本系統是針對大學教學中的實際問題而設計的，有一定的應用價值。本系統實現了學生作業的上傳與下載，及教師發布作業，發布成績，在線打包壓縮等功能。在互聯網上作業提交系統很少而且功能都不多，本系統針對這些情況添加了很多實用功能。 系統已經進行了測試，基本功能都成功了，但是因為初次開發，在系統中難免存在著各種問題，這些我們會在以后的時間里進行更正。 經過小組的共同的努力，作業提交系統終于完成了， 實現了需求分析的基本功能，基本滿足了作業上傳及批量下載的需求，開發過程中一開始一直在實現界面的優化，發現后續工作一團糟，只 [鍵入文字 ] 能全部重來，然后將問題弄清楚，明白了需求分析才知道什么是設計主體，然后按照需求分析一步步完成，當有不會時，盡量查更多的書，也有網上搜索。對于文件上傳，一開始很難實現，然后在網上找了一個上傳組件，弄明白了它的工作原理，成功實現了上傳功能。通過本次課程設計，我知道了軟件工程的分析對開發一個系統影響的確很大，收獲良多。 [1] 鄭人杰、殷人昆、陶永雷《實用軟件工程》第二版 .清華大 學出版社 [2]劉洪成 《 ASP高級編程》清華大學出版社 [3]王珊、薩師煊 《 數據庫系統概論（第四版）》高等教育出版社