軟件工程畢業(yè)論文-基于高校教學(xué)管理系統(tǒng)的設(shè)計與實現(xiàn)—習(xí)題作業(yè)管理模塊

1、<p><b>　　本科畢業(yè)論文</b></p><p><b>　?。?0 屆）</b></p><p>　　基于高校教學(xué)管理系統(tǒng)的設(shè)計與實現(xiàn)—習(xí)題作業(yè)管理模塊</p><p><b>　　摘 要</b></p><p>　　當(dāng)前社會高度發(fā)展,對教育的需求超過了

2、人們的想象,而傳統(tǒng)的教育資源有限并會受到時間空間等多方面的限制,從而而研制和開發(fā)的一種基于網(wǎng)絡(luò)的Browser/Server模式并可在Internet/Intranet網(wǎng)絡(luò)環(huán)境下運行的應(yīng)用軟件。以實現(xiàn)這種方便性與互動性、開放性集于一身的教育體制,以對當(dāng)前傳統(tǒng)的教育模式提供必要的補充。</p><p>　　本系統(tǒng)主要通過使用B/S模式，對習(xí)題作業(yè)信息資源進(jìn)行全面、系統(tǒng)的管理。在整個系統(tǒng)開發(fā)的過程中，運用了軟件工程的

3、基本概念、相關(guān)技術(shù)和方法。并且采用Myeclipse 6.0、 SQL Server2000、PhotoShop、Dreamweaver等軟件完成該系統(tǒng)的設(shè)計。</p><p>　　此系統(tǒng)采用當(dāng)前較為流行的B/S（瀏覽器/服務(wù)器）結(jié)構(gòu)。通過對系統(tǒng)進(jìn)行一系列的需求分析、設(shè)計、編碼、測試等工作，使系統(tǒng)實現(xiàn)了管理員發(fā)布管理公告、教師管理、設(shè)置班級、課程；老師在線發(fā)布作業(yè)、批改作業(yè)、網(wǎng)上答疑；學(xué)生上傳作業(yè)、查看作業(yè)信息、

4、提出疑問的功能。</p><p>　　關(guān)鍵詞：作業(yè)管理；習(xí)題發(fā)布；無組件上傳；ADO；ASP；</p><p><b>　　Abstract</b></p><p>　　Height of current social development, the demand for education beyond people's imagi

5、nation, but the traditional education resources are limited and will be subject to time and space and other constraints, and the development of a software application and development of Browser/Server mode based on netwo

6、rk and can be run in the Internet/Intranet environment. In order to realize the convenience and interactivity, opennessof the education system, in order to provide the necessary supplement to the </p><p>　　T

7、his system uses the current popular B/S (Browser / server) structure.Through the analysis, a series of demand design, coding, testing work on the system, allowing the system to achieve the management, teacher management

8、administrator issued announcement, set the class teacher,curriculum; published online homework, homework, online Q & A; studentsupload homework, view the job information, the question of the function.</p><

9、p>　　Keywords: Job management; problem; no upload component; ADO; ASP;</p><p><b>　　目 錄</b></p><p><b>　　1 概述1</b></p><p>　　1.1問題的定義2&

10、lt;/p><p>　　1.2 研究背景和意義4</p><p>　　2 開發(fā)平臺與技術(shù)5</p><p>　　2.1 Dreamweaver5</p><p>　　2.2 B/S模式系統(tǒng)及其特點5</p><p>　　2.3 ASP 簡介5</p><p>　　2.4 access簡介

11、6</p><p>　　2.5 無組件上傳技術(shù)簡介6</p><p>　　3 系統(tǒng)需求分析7</p><p>　　3.1 開發(fā)背景分析7</p><p>　　3.2 功能需求分析7</p><p>　　3.2.1管理員部分的主要功能要求 7</p><p>　　3.2.2教師

12、部分的主要功能要求 7</p><p>　　3.2.3學(xué)生部分的主要功能要求 7</p><p>　　3.3 系統(tǒng)功能圖7</p><p>　　3.4 登陸系統(tǒng)流程圖8</p><p>　　4 總體設(shè)計與實現(xiàn)10</p><p>　　4.1 數(shù)據(jù)庫設(shè)計10</p><

13、p>　　4.2數(shù)據(jù)庫邏輯分析10</p><p>　　4.3數(shù)據(jù)庫表設(shè)計10</p><p>　　4.4 頁面設(shè)計12</p><p>　　4.4.1 登錄界面12</p><p>　　4.4.2公告管理界面12</p><p>　　4.4.3作業(yè)發(fā)布界面13</p><p>

14、　　4.4.4作業(yè)評分界面13</p><p>　　4.4.5作業(yè)上傳下載界面14</p><p>　　4.4.6用戶管理界面14</p><p><b>　　5 主要代碼16</b></p><p>　　5.1登錄代碼16</p><p>　　5.2上傳鏈接代碼16</p>

15、;<p>　　5.3上傳函數(shù)代碼18</p><p><b>　　總結(jié)24</b></p><p><b>　　致謝25</b></p><p><b>　　參考文獻(xiàn)26</b></p><p><b>　　1 概述</b></

16、p><p><b>　　1.1問題的定義</b></p><p>　　隨著網(wǎng)絡(luò)技術(shù)的發(fā)展,目前多種類型的網(wǎng)校、教育站點、網(wǎng)絡(luò)教育學(xué)院如雨后春筍般蓬勃興起,使得網(wǎng)上教育成為當(dāng)今教育的熱點。人們禁不住向往著一個全新的教育體制—基于Internet/Intranet教育網(wǎng)的教育體制,在這種體制下,不受時間、空間和地域的限制,不受應(yīng)用軟件的限制,通過計算機網(wǎng)絡(luò)可擴展至全社會的每一

17、個角落,甚至是全世界,這是真正意義上的開放大學(xué)。</p><p>　　但是目前,雖然開發(fā)出相應(yīng)的軟件產(chǎn)品,但這些開發(fā)出來的軟件產(chǎn)品不僅價格昂貴,而且對于專業(yè)課程設(shè)置不一、教育模式方法不同的各種高校來說,往往還要進(jìn)行二次開發(fā)甚至根本無法應(yīng)用。我校的教學(xué)特點是專業(yè)多,課程設(shè)置復(fù)雜,教師講課門數(shù)多,教師上課及學(xué)生聽課的教室不固定,教師的教學(xué)任務(wù)和學(xué)生的學(xué)習(xí)任務(wù)比較繁重,這樣導(dǎo)致教師和學(xué)生的溝通少,不利于提高教學(xué)質(zhì)量。因

18、此,針對本校的專業(yè)課程設(shè)置,根據(jù)教學(xué)模式以及教師和學(xué)生的需求來開發(fā)在線教學(xué)系統(tǒng)是必要的。</p><p>　　1.2 研究背景和意義</p><p>　　為學(xué)校各位老師提供了一個可靠的軟件，更好的讓學(xué)生提交作業(yè)。傳統(tǒng)的手工操作方式，容易對自己身體疲勞，統(tǒng)計錯誤，且速度慢。這套系統(tǒng)可以提高管理效率和水平。</p><p>　　網(wǎng)絡(luò)化教育代表了教育改革的一個發(fā)展方向,已

19、經(jīng)成為現(xiàn)代教育的一個特征,并對教育的發(fā)展形成新的推動力。通過Internet/Intranet來實現(xiàn)網(wǎng)上作業(yè)提交，是現(xiàn)代教育技術(shù)的一個具體實現(xiàn)，具有很重要的現(xiàn)實意義?？梢詫崿F(xiàn)學(xué)生在線提交作業(yè)的無紙化管理，可以有效利用校園網(wǎng)的軟硬件資源，使其發(fā)揮最大效力，更好的為學(xué)校的教學(xué)、科研、管理服務(wù)，隨時隨地的可以讓學(xué)生聯(lián)機操作提交。</p><p><b>　　2 開發(fā)平臺與技術(shù)</b></p&

20、gt;<p>　　2.1 Dreamweaver</p><p>　　Dreamweaver是美國MACROMEDIA公司開發(fā)的集網(wǎng)頁制作和管理網(wǎng)站于一身的所見即所得網(wǎng)頁編輯器，它是第一套針對專業(yè)網(wǎng)頁設(shè)計師特別發(fā)展的視覺化網(wǎng)頁開發(fā)工具，利用它可以輕而易舉地制作出跨越平臺限制和跨越瀏覽器限制的充滿動感的網(wǎng)頁【1】。</p><p>　　2.2 B/S模式系統(tǒng)及其特點</p

21、><p>　　客戶器/服務(wù)器系統(tǒng)的主要優(yōu)點為能最大體現(xiàn)客戶和服務(wù)器或客戶間的交互性。作為本基于B/S模式的教學(xué)管理系統(tǒng)主要特點表現(xiàn)為：學(xué)生和老師的交互,學(xué)生幾乎可以隨時和老師進(jìn)行互動,學(xué)生學(xué)習(xí)中問題的提出,老師對相應(yīng)問題進(jìn)行回答；老師通過該系統(tǒng)平臺發(fā)布有關(guān)通知,布置作業(yè)題目、家庭學(xué)習(xí)任務(wù)等,學(xué)生既可及時地通過該系統(tǒng)平臺得到相關(guān)信息,并可通過該系統(tǒng)提交自己完成的任務(wù)或作業(yè)等；老師對重點難點課件或教授視頻的上傳,學(xué)生通過

22、該系統(tǒng)加強對相應(yīng)重點難點內(nèi)容的學(xué)習(xí)；學(xué)生并可以通過該系統(tǒng)及時及時與相應(yīng)老師進(jìn)行交流【2】。</p><p>　　2.3 ASP 簡介</p><p>　　ASP(讀作“c－sharp”)作為Microsoft的下一代面向?qū)ο蟮恼Z言產(chǎn)品．能夠讓開發(fā)人員在IIS平臺上快速地建立大量的應(yīng)用程序。按照微軟給出的定義，asp是一種源自于c和c++的．簡單的、現(xiàn)代的、面向?qū)ο蟮暮皖愋桶踩某绦蛟O(shè)計語言

23、。asp為程序員提供了開發(fā)飛速發(fā)展的Web應(yīng)用程序所需的強大而靈活的功能。asp和Java的核心與c++比較有著相同的優(yōu)勢和局限，比起c++，asp將更容易被人們理解和接受，未來大量．NET平臺的應(yīng)用將由ASP開發(fā)。與HTML相比，ASP網(wǎng)頁具有以下特點： </p><p>　　（1）利用ASP可以實現(xiàn)突破靜態(tài)網(wǎng)頁的一些功能限制，實現(xiàn)動態(tài)網(wǎng)頁技術(shù)； </p><p>　

24、　（2）ASP文件是包含在HTML代碼所組成的文件中的，易于修改和測試；  </p><p>　?。?）服務(wù)器上的ASP解釋程序會在服務(wù)器端執(zhí)行ASP程序，并將結(jié)果以HTML格式傳送到客戶端瀏覽器上，因此使用各種瀏覽器都可以正常瀏覽ASP所產(chǎn)生的網(wǎng)頁；  </p><p>　?。?）ASP提供了一些內(nèi)置對象，使用這些對象可以使服務(wù)器端腳本功能更強。例

25、如可以從web瀏覽器中獲取用戶通過HTML表單提交的信息，并在腳本中對這些信息進(jìn)行處理，然后向web瀏覽器發(fā)送信息【3】。    </p><p>　　（5）ASP可以使用服務(wù)器端ActiveX組件來執(zhí)行各種各樣的任務(wù)，例如存取數(shù)據(jù)庫、發(fā)送Email或訪問文件系統(tǒng)等。  </p><p>　?。?）由于服務(wù)器是將ASP程序執(zhí)行的結(jié)

26、果以HTML格式傳回客戶端瀏覽器，因此使用者不會看到ASP所編寫的原始程序代碼，可防止ASP程序代碼被竊取【4】。  </p><p>　　(7) 方便連接ACCESS與SQL數(shù)據(jù)庫.  </p><p>　　(8)開發(fā)需要有豐富的經(jīng)驗,否則會留出漏洞,讓駭客（cracker）利用進(jìn)行注入攻擊。</p><p>　　

27、2.4 access簡介</p><p>　　美國Microsoft公司于1994年推出的微機數(shù)據(jù)庫管理系統(tǒng)。它具有界面友好、易學(xué)易用、開發(fā)簡單、接口靈活等特點，是典型的新一代桌面數(shù)據(jù)庫管理系統(tǒng)。其主要特點如下：</p><p>　　(1)完善管理各種數(shù)據(jù)庫對象，具有強大的數(shù)據(jù)組織、用戶管理、安全檢查等功能【5】。</p><p>　　(2)強大的數(shù)據(jù)處理功能，在一

28、個工作組級別的網(wǎng)絡(luò)環(huán)境中，使用Access開發(fā)的多用戶數(shù)據(jù)庫管理系統(tǒng)具有傳統(tǒng)的XBASE（DBASE、FoxBASE的統(tǒng)稱）數(shù)據(jù)庫系統(tǒng)所無法實現(xiàn)的客戶服務(wù)器(Cient/Server)結(jié)構(gòu)和相應(yīng)的數(shù)據(jù)庫安全機制，Access具備了許多先進(jìn)的大型數(shù)據(jù)庫管理系統(tǒng)所具備的特征，如事務(wù)處理/出錯回滾能力等【6】。</p><p>　　2.5 無組件上傳技術(shù)簡介</p><p>　　當(dāng)通過Http的

29、POST方式上傳文件時，待上傳文件與表單數(shù)據(jù)一同被瀏覽器封裝成了二進(jìn)制流發(fā)送到服務(wù)器。ASP環(huán)境中Request內(nèi)置對象下的BinaryRead方法可以將封裝的二進(jìn)制流原樣讀出【7】。通過分析讀取出的二進(jìn)制數(shù)據(jù)，可以得到待上傳文件的完整二進(jìn)制數(shù)據(jù)，將這部分?jǐn)?shù)據(jù)保存為文件，則上傳工作即可完成【8】。</p><p><b>　　3 系統(tǒng)需求分析</b></p><p>

30、　　3.1 開發(fā)背景分析</p><p>　　該系統(tǒng)的開發(fā)主要是為提高目前學(xué)校作業(yè)管理的效率，重點解決了作業(yè)管理混亂、教師攜帶批改不方便、遠(yuǎn)程教學(xué)卻無法遠(yuǎn)程提交或批改作業(yè)等問題，有效地利用了各學(xué)?，F(xiàn)有的電腦與網(wǎng)絡(luò)資源，促進(jìn)學(xué)校全面展開信息化教學(xué)，也能使相關(guān)人員利用互聯(lián)網(wǎng)就可以足不出戶的了解到學(xué)?，F(xiàn)有設(shè)備的情況。同時也給老師和學(xué)生提供一個互相交流的平臺，可以實現(xiàn)垮空間、跨時間的交流，不僅節(jié)約了資源和時間，學(xué)生也能及

31、時從老師獲取反饋信息，提高學(xué)習(xí)成績，極大地提高了工作、學(xué)習(xí)效率。</p><p>　　為了保證系統(tǒng)運行的效率和可靠性，系統(tǒng)服務(wù)器端應(yīng)具有較高的軟硬件配 置，客戶端的要求不是很高。此應(yīng)用程序可廣泛運行于國際互聯(lián)網(wǎng)即Internet，也可適用于內(nèi)部的局域網(wǎng)【9】。</p><p>　　3.2 功能需求分析</p><p>　　3.2.1管理員部分的主要功能要求 

32、;</p><p>　　管理員登錄功能，根據(jù)權(quán)限進(jìn)入管理員相應(yīng)的頁面的功能。</p><p>　　管理員發(fā)布公告、管理公告（查看、修改、刪除）的功能。</p><p>　　管理員修改密碼的功能。 </p><p>　　管理員設(shè)置學(xué)生、科目、班級，管理，功能頁面同樣具有查看、修改、刪除的功能。 </p><

33、;p>　　3.2.2教師部分的主要功能要求 </p><p>　　登錄功能，根據(jù)權(quán)限進(jìn)入教師相應(yīng)的頁面的功能 </p><p><b>　　發(fā)布公告的功能</b></p><p>　　布置作業(yè)，下載學(xué)生反饋，給出分?jǐn)?shù)評價的功能</p><p>　　3.2.3學(xué)生部分的主要功能要求 &l

34、t;/p><p>　　學(xué)生登錄功能，根據(jù)權(quán)限進(jìn)入學(xué)生相應(yīng)的頁面的功能 ? </p><p>　　學(xué)生查看公告的功能 ? </p><p>　　學(xué)生查看個人資料的功能 ? </p><p>　　提交作業(yè)，查看分?jǐn)?shù)評價的功能</p><p><b>　　3.

35、3 系統(tǒng)功能圖</b></p><p>　　圖3-1 系統(tǒng)功能圖</p><p>　　3.4 登陸系統(tǒng)流程圖</p><p><b>　　圖3-2系統(tǒng)流程圖</b></p><p><b>　　4 總體設(shè)計與實現(xiàn)</b></p><p><b>　　4.

36、1 數(shù)據(jù)庫設(shè)計</b></p><p>　　數(shù)據(jù)庫設(shè)置采用access2007管理作業(yè)數(shù)據(jù)庫。數(shù)據(jù)庫文件都存儲在datebase目錄下。本系統(tǒng)采用access2007作為數(shù)據(jù)庫，主要因為其以下特性：</p><p>　　（1）集成環(huán)境、處理多種數(shù)據(jù)信息 。Access基于Windows操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成各種向?qū)Ш蜕善鞴ぞ撸瑯O大地提高了開發(fā)人員的工作效率，使得

37、建立數(shù)據(jù)庫、創(chuàng)建表、設(shè)計用戶界面、設(shè)計數(shù)據(jù)查詢、報表打印等可以方便有序地進(jìn)行【10】。 </p><p>　?。?）Access支持ODBC（開發(fā)數(shù)據(jù)庫互連，Open Data Base Connectivity），利用Access強大的DDE（動態(tài)數(shù)據(jù)交換）和OLE（對象的聯(lián)接和嵌入）特性，可以在一個數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動態(tài)的數(shù)據(jù)庫報表和窗體等。Access還可以將程

38、序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動態(tài)數(shù)據(jù)相聯(lián)接【11】。利用數(shù)據(jù)庫訪問頁對象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。</p><p>　　4．2數(shù)據(jù)庫邏輯分析</p><p>　　數(shù)據(jù)庫的邏輯分析可分為以下幾步：</p><p>　　( 1 ) 將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次模型；</p><p>　　( 2 )

39、 將轉(zhuǎn)換來的關(guān)系、網(wǎng)狀、層次模型向特定 DBMS 支持下的數(shù)據(jù)模型轉(zhuǎn)換；</p><p>　　( 3 ) 對數(shù)據(jù)模型進(jìn)行優(yōu)化【12】。</p><p>　　針對本系統(tǒng)所涉及的實體，以及實體間的關(guān)系，我所列出如下屬性組合：</p><p>　　作業(yè)課程（編號，課程名稱，標(biāo)題，附件，說明）</p><p>　　課程類別（編號，所屬專業(yè)，教師人數(shù)，

40、學(xué)生人數(shù)）</p><p>　　公告（編號，標(biāo)題，內(nèi)容）</p><p>　　個人信息（用戶名，真實姓名，性別，專業(yè)，類別，電話）</p><p><b>　　4.3數(shù)據(jù)庫表設(shè)計</b></p><p>　　根據(jù)需求分析，需要將用戶錄入的用戶信息及課程信息存儲到到數(shù)據(jù)庫中，便于用戶以后查看。表4-1為所發(fā)布作業(yè)的數(shù)據(jù)表。

41、</p><p><b>　　表4-1作業(yè)課程</b></p><p>　　表4-2為課程類別數(shù)據(jù)表，通過建立課程類別，對課程編號進(jìn)行索引，記錄篩選所選課程的學(xué)生教師人數(shù)。</p><p><b>　　表4-2課程類別</b></p><p>　　表4-3為公告模塊數(shù)據(jù)表，通過建立公告的數(shù)據(jù)庫，可以

42、記錄教師以及管理員所發(fā)布的公告信息。</p><p><b>　　表4-3公告</b></p><p>　　表4-4是個人信息數(shù)據(jù)表，建立個人信息數(shù)據(jù)庫，記錄教師學(xué)生的個人信息，對用戶名的索引，可以記錄查詢個人相關(guān)信息。</p><p><b>　　表4-4個人信息</b></p><p><

43、b>　　4.4 頁面設(shè)計</b></p><p>　　4.4.1 登錄界面</p><p>　　當(dāng)系統(tǒng)登陸時，首先出現(xiàn)的是一個用戶登陸的界面, 輸入正確的用戶名和密碼后才能進(jìn)行操作，否則將不能進(jìn)行操作。如下圖4-1所示：</p><p><b>　　圖4-1 登錄界面</b></p><p>　　4.4

44、.2公告管理界面</p><p>　　登陸成功后，擁有教師權(quán)限的操作員可以對公告進(jìn)行管理。界面如下圖4-2所示：</p><p>　　圖4-2 公告管理界面</p><p>　　4.4.3作業(yè)發(fā)布界面</p><p>　　擁有教師權(quán)限的操作員可以發(fā)布作業(yè)。界面如下圖4-3所示：</p><p>　　圖4-3作業(yè)發(fā)布界面

45、</p><p>　　4.4.4作業(yè)評分界面</p><p>　　擁有教師權(quán)限的操作員可以對作業(yè)評分。界面如下圖4-4所示：</p><p>　　圖4-4作業(yè)評分界面</p><p>　　4.4.5作業(yè)上傳下載界面</p><p>　　任何權(quán)限的操作員可以對作業(yè)進(jìn)行上傳下載。界面如下圖4-4所示：</p>

46、<p>　　圖4-4作業(yè)上傳界面</p><p>　　圖4-5作業(yè)下載界面</p><p>　　4.4.6用戶管理界面</p><p>　　管理員可以對用戶管理,修改用戶信息及密碼。界面如下圖4-6所示：</p><p>　　圖4-6用戶管理界面</p><p><b>　　5 主要代碼</

47、b></p><p><b>　　5.1登錄代碼</b></p><p>　　登錄系統(tǒng)的代碼如下：</p><p>　　<form action="checklogin.asp" method="post" class="login"><%</p>

48、<p>　　if(session("UserLogin")="") then</p><p>　　%><table width="100%" border="0" cellspacing="0" cellpadding="0"></p><p&g

49、t;<b>　　<tr></b></p><p>　　<td height="30" colspan="2" align="center" valign="middle" class="title">用戶登陸</td></p><p>

50、;<b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td width="80" height="30" align="right" valign="middle">用戶名：</

51、td></p><p>　　<td><label></p><p>　　<input name="uname" type="text" id="uname" class="inp1" /></p><p>　　</label><

52、/td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td height="30" align="right" valign="middle">密　碼

53、：</td></p><p>　　<td><label></p><p>　　<input name="upass" type="password" id="upass" class="inp1" /></p><p>　　</lab

54、el></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td height="30" colspan="2" align="center"

55、 valign="middle"></p><p>　　<input type="submit" name="Submit" value="　　" class="inp2"/>　</p><p>　　<input type="button" na

56、me="Submit2" value="　　" onclick="window.open('reg.asp');" class="inp3"/></p><p><b>　　</td></b></p><p><b>　　</tr>

57、</b></p><p><b>　　</table></b></p><p><b>　　<%</b></p><p><b>　　else</b></p><p>　　%><a href="quitlogin.asp&qu

58、ot; target="_top">退出登陸</a></p><p>　　<%end if%></form></p><p><b>　　5.2上傳鏈接代碼</b></p><p>　　本系統(tǒng)采用無組件上傳模式，首先編寫一個上傳函數(shù)asp，然后使用鏈接語句調(diào)用此函數(shù)，上傳鏈接的代碼如

59、下：</p><p>　　<%Server.ScriptTimeOut=5000%></p><p>　　<!--#include FILE="upload_5xsoft.inc"--></p><p><b>　　<html></b></p><p><b&

60、gt;　　<head></b></p><p>　　<meta http-equiv="content-type" content="text/html;charset=gb2312"></p><p>　　<title>文件上傳</title></p><p>&l

61、t;b>　　</head></b></p><p><b>　　<body><%</b></p><p>　　dim upload,file,formName,formPath,iCount</p><p>　　dim uname,upic,unope</p><p>　　

62、dim checkcode</p><p>　　set upload=new upload_5xsoft ''建立上傳對象</p><p>　　formPath="../uploadfile"</p><p>　　if right(formPath,1)<>"/" then formPath=for

63、mPath&"/"</p><p><b>　　iCount=0</b></p><p>　　Response.Write("</span>文件上傳成功!")</p><p>　　for each formName in upload.objFile</p><p&

64、gt;　　set file=upload.file(formName)</p><p>　　if file.FileSize>0 then</p><p>　　file.SaveAs Server.mappath(formPath&file.FileName)</p><p>　　checkcode=upload.form("checkcod

65、e")</p><p>　　uname=upload.form("uname")</p><p>　　upic=formPath&file.FileName</p><p>　　SaveFileName = file.FileName</p><p>　　Response.codepage=636<

66、/p><p>　　Response.Buffer = True</p><p>　　Response.Addheader "Content-Type","text/html; charset=gb2312"</p><p>　　Server.ScriptTimeout=99</p><p><b>

67、;　　dim act</b></p><p>　　act=upload.form("act")</p><p>　　Response.write "<span style=""color:red;"">"& SaveFileName &"</span>

68、;文件上傳成功!"</p><p>　　Response.Write("<script language='Javascript'>")</p><p>　　Response.Write("window.opener.document.getElementById("""&act&am

69、p;""").value = ""UploadFile/"&SaveFileName&""";")</p><p>　　Response.Write("window.close();")</p><p>　　Response.Write("<

70、;/script>")</p><p>　　iCount=iCount+1</p><p><b>　　end if</b></p><p>　　set file=nothing</p><p><b>　　next</b></p><p>　　set upl

71、oad=nothing ''刪除此對象</p><p>　　'Htmend iCount&" 個文件上傳結(jié)束!"</p><p>　　sub HtmEnd(Msg)</p><p>　　set upload=nothing</p><p>　　Response.Write("&l

72、t;script language='Javascript'>")</p><p>　　Response.Write("alert('內(nèi)容已經(jīng)提交！');")</p><p>　　'Response.Write("window.opener.location.reload();")</p

73、><p>　　'Response.Write("window.opener.parent.location.reload();")</p><p>　　Response.Write("window.close();")</p><p>　　Response.Write("</script>"

74、;)</p><p>　　response.end</p><p><b>　　end sub</b></p><p><b>　　%></b></p><p><b>　　</body></b></p><p><b>　　

75、</html></b></p><p><b>　　5.3上傳函數(shù)代碼</b></p><p>　　通過上述鏈接可直接調(diào)用上傳函數(shù)的asp，上傳函數(shù)的代碼如下：</p><p><b>　　<%</b></p><p>　　dim Data_5xsoft</p&g

76、t;<p>　　Class upload_5xsoft</p><p>　　dim objForm,objFile,Version</p><p>　　Public function Form(strForm)</p><p>　　strForm=lcase(strForm)</p><p>　　if not objForm.e

77、xists(strForm) then</p><p><b>　　Form=""</b></p><p><b>　　else</b></p><p>　　Form=objForm(strForm)</p><p><b>　　end if</b><

78、/p><p>　　end function</p><p>　　Public function File(strFile)</p><p>　　strFile=lcase(strFile)</p><p>　　if not objFile.exists(strFile) then</p><p>　　set File=ne

79、w FileInfo</p><p><b>　　else</b></p><p>　　set File=objFile(strFile)</p><p><b>　　end if</b></p><p>　　end function</p><p>　　Private Su

80、b Class_Initialize </p><p>　　dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile</p><p>　　dim iFileSize,sFilePath,sFileType,sFormValue,sFileName</p><p>　　

81、dim iFindStart,iFindEnd</p><p>　　dim iFormStart,iFormEnd,sFormName</p><p>　　Version="化境HTTP上傳程序 Version 2.1"</p><p>　　set objForm=Server.CreateObject("Scripting.Dicti

82、onary")</p><p>　　set objFile=Server.CreateObject("Scripting.Dictionary")</p><p>　　if Request.TotalBytes<1 then Exit Sub</p><p>　　set tStream = Server.CreateObject(

83、"adodb.stream")</p><p>　　set Data_5xsoft = Server.CreateObject("adodb.stream")</p><p>　　Data_5xsoft.Type = 1</p><p>　　Data_5xsoft.Mode =3</p><p>　　D

84、ata_5xsoft.Open</p><p>　　Data_5xsoft.Write Request.BinaryRead(Request.TotalBytes)</p><p>　　Data_5xsoft.Position=0</p><p>　　RequestData =Data_5xsoft.Read </p><p>　　iFor

85、mStart = 1</p><p>　　iFormEnd = LenB(RequestData)</p><p>　　vbCrlf = chrB(13) & chrB(10)</p><p>　　sStart = MidB(RequestData,1, InStrB(iFormStart,RequestData,vbCrlf)-1)</p>

86、<p>　　iStart = LenB (sStart)</p><p>　　iFormStart=iFormStart+iStart+1</p><p>　　while (iFormStart + 10) < iFormEnd </p><p>　　iInfoEnd = InStrB(iFormStart,RequestData,vbCrlf &a

87、mp; vbCrlf)+3</p><p>　　tStream.Type = 1</p><p>　　tStream.Mode =3</p><p>　　tStream.Open</p><p>　　Data_5xsoft.Position = iFormStart</p><p>　　Data_5xsoft.Copy

88、To tStream,iInfoEnd-iFormStart</p><p>　　tStream.Position = 0</p><p>　　tStream.Type = 2</p><p>　　tStream.Charset ="gb2312"</p><p>　　sInfo = tStream.ReadText<

89、;/p><p>　　tStream.Close</p><p><b>　　'取得表單項目名稱</b></p><p>　　iFormStart = InStrB(iInfoEnd,RequestData,sStart)</p><p>　　iFindStart = InStr(22,sInfo,"name

90、=""",1)+6</p><p>　　iFindEnd = InStr(iFindStart,sInfo,"""",1)</p><p>　　sFormName = lcase(Mid (sinfo,iFindStart,iFindEnd-iFindStart))</p><p><b&g

91、t;　　'如果是文件</b></p><p>　　if InStr (45,sInfo,"filename=""",1) > 0 then</p><p>　　set theFile=new FileInfo</p><p><b>　　'取得文件名</b></p&

92、gt;<p>　　iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10</p><p>　　iFindEnd = InStr(iFindStart,sInfo,"""",1)</p><p>　　sFileName = Mid (sinfo,i

93、FindStart,iFindEnd-iFindStart)</p><p>　　theFile.FileName=getFileName(sFileName)</p><p>　　theFile.FilePath=getFilePath(sFileName)</p><p>　　theFile.FileExt=GetFileExt(sFileName)</p

94、><p><b>　　'取得文件類型</b></p><p>　　iFindStart = InStr(iFindEnd,sInfo,"Content-Type: ",1)+14</p><p>　　iFindEnd = InStr(iFindStart,sInfo,vbCr)</p><p>　

95、　theFile.FileType =Mid (sinfo,iFindStart,iFindEnd-iFindStart)</p><p>　　theFile.FileStart =iInfoEnd</p><p>　　theFile.FileSize = iFormStart -iInfoEnd -3</p><p>　　theFile.FormName=sFor

96、mName</p><p>　　if not objFile.Exists(sFormName) then</p><p>　　objFile.add sFormName,theFile</p><p><b>　　end if</b></p><p><b>　　else</b></p>

97、;<p><b>　　'如果是表單項目</b></p><p>　　tStream.Type =1</p><p>　　tStream.Mode =3</p><p>　　tStream.Open</p><p>　　Data_5xsoft.Position = iInfoEnd </p>

98、;<p>　　Data_5xsoft.CopyTo tStream,iFormStart-iInfoEnd-3</p><p>　　tStream.Position = 0</p><p>　　tStream.Type = 2</p><p>　　tStream.Charset ="gb2312"</p><p&

99、gt;　　sFormValue = tStream.ReadText </p><p>　　tStream.Close</p><p>　　if objForm.Exists(sFormName) then</p><p>　　objForm(sFormName)=objForm(sFormName)&", "&sFormValu

100、e</p><p><b>　　else</b></p><p>　　objForm.Add sFormName,sFormValue</p><p><b>　　end if</b></p><p><b>　　end if</b></p><p>

101、;　　iFormStart=iFormStart+iStart+1</p><p><b>　　wend</b></p><p>　　RequestData=""</p><p>　　set tStream =nothing</p><p><b>　　End Sub</b>&l

102、t;/p><p>　　Private Sub Class_Terminate </p><p>　　if Request.TotalBytes>0 then</p><p>　　objForm.RemoveAll</p><p>　　objFile.RemoveAll</p><p>　　set objForm=n

103、othing</p><p>　　set objFile=nothing</p><p>　　Data_5xsoft.Close</p><p>　　set Data_5xsoft =nothing</p><p><b>　　end if</b></p><p><b>　　End S

104、ub</b></p><p>　　Private function GetFilePath(FullPath)</p><p>　　If FullPath <>"" Then</p><p>　　GetFilePath = left(FullPath,InStrRev(FullPath, "\"))&l

105、t;/p><p><b>　　Else</b></p><p>　　GetFilePath = ""</p><p><b>　　End If</b></p><p>　　End function</p><p>　　Private function Get

106、FileExt(FullPath)</p><p>　　If FullPath <>"" Then</p><p>　　GetFileExt = mid(FullPath,InStrRev(FullPath, ".")+1)</p><p><b>　　Else</b></p>

107、<p>　　GetFileExt = ""</p><p><b>　　End If</b></p><p>　　End function</p><p>　　Private function GetFileName(FullPath)</p><p>　　If FullPath <

108、>"" Then</p><p>　　GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1)</p><p><b>　　Else</b></p><p>　　GetFileName = ""</p><p&

109、gt;<b>　　End If</b></p><p>　　End function</p><p><b>　　End Class</b></p><p>　　Class FileInfo</p><p>　　dim FormName,FileName,FilePath,FileSize,Fil

110、eExt,FileType,FileStart</p><p>　　Private Sub Class_Initialize </p><p>　　FileName = ""</p><p>　　FilePath = ""</p><p>　　FileSize = 0</p><p&

111、gt;　　FileStart= 0</p><p>　　FormName = ""</p><p>　　FileType = ""</p><p>　　FileExt = ""</p><p><b>　　End Sub</b></p><

112、p>　　Public function SaveAs(FullPath)</p><p>　　dim dr,ErrorChar,i</p><p>　　SaveAs=true</p><p>　　if trim(fullpath)="" or FileStart=0 or FileName="" or right(ful

113、lpath,1)="/" then exit function</p><p>　　set dr=CreateObject("Adodb.Stream")</p><p><b>　　dr.Mode=3</b></p><p><b>　　dr.Type=1</b></p>

114、;<p><b>　　dr.Open</b></p><p>　　Data_5xsoft.position=FileStart</p><p>　　Data_5xsoft.copyto dr,FileSize</p><p>　　dr.SaveToFile FullPath,2</p><p><b&

115、gt;　　dr.Close</b></p><p>　　set dr=nothing </p><p>　　SaveAs=false</p><p>　　end function</p><p><b>　　End Class</b></p><p><b>　　%>&

116、lt;/b></p><p><b>　　總結(jié)</b></p><p>　　在以前的學(xué)習(xí)過程中，學(xué)習(xí)的多半是書本上的知識，因此對開發(fā)這樣一個系統(tǒng)自己并沒有什么經(jīng)驗，一切都要從頭做起。當(dāng)然在這個過程中肯定要碰到許多的問題，也有許多值得總結(jié)的東西。</p><p>　　在開發(fā)的過程中，我主要用的是DREAMWEAVER進(jìn)行網(wǎng)頁的制作。由于AS

117、P 的調(diào)試對環(huán)境有一定的要求。我通過在本機中運行的方法對ASP程序進(jìn)行調(diào)試。通過服務(wù)器返回的ASP錯誤信息的提示，再修改源程序。但是服務(wù)器返回的錯誤信息往往十分的簡短，有時甚至就是錯誤的代號，因此調(diào)試起來有一定的困難。面對這樣的困難，我積極請教指導(dǎo)老師，查閱一些相關(guān)的資料，并再網(wǎng)絡(luò)上找到了錯誤代碼所代表的意思，運用一些調(diào)試程序的方法，最終將錯誤一一消除。</p><p>　　在我的程序設(shè)計過程中，我充分的體會到了

118、“實踐出真知”這一點，書本上的知識是不夠的，只有把理論與實踐相結(jié)合才能夠真正的學(xué)到知識。一個管理信息系統(tǒng)的設(shè)計，不可能一步到位，還需要不斷的完善和補充。同時，系統(tǒng)中還存在許多問題，有待在日后的使用中發(fā)現(xiàn)和解決。編程前的深思熟慮是減少程序調(diào)試工作量的重要方法，只有進(jìn)行充分考慮，才會減少調(diào)試過程中的工作量。雖然在開始寫程序之前我們做了多的準(zhǔn)備工作，但在真正的寫程序時仍然發(fā)現(xiàn)許多問題，有些問題是分析時的疏漏，有些則是如果不做無論如何也想不到的

119、。</p><p><b>　　致謝</b></p><p>　　在本次畢業(yè)設(shè)計過程中，得到了李閱歷老師的指導(dǎo)與支持。在此特別感謝指導(dǎo)老師的大力幫助。指導(dǎo)老師的悉心指導(dǎo)和大力支持，在總體結(jié)構(gòu)、功能的把握上給予了非常大的幫助，同時根我們提供了非常優(yōu)越的設(shè)計環(huán)境，并對我在編程、數(shù)據(jù)庫設(shè)計等細(xì)節(jié)工作上給予了耐心的指導(dǎo)，對于我順利完成這次畢業(yè)設(shè)計起到了關(guān)鍵性的作用。</

120、p><p>　　在此，我要對我的指導(dǎo)老師——李閱歷老師，以及我所有的專業(yè)課老師致以最誠摯的感謝，我的專業(yè)知識和技能全部得益于他們無私的傳授。最后，向各位論文評閱人，答辯組各位老師表達(dá)我最衷心的感謝！</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1] BruceEckel.《ASP編程思想》. 機械工業(yè)出版社,2003年10月

121、:1-378</p><p>　　[2]賽奎春.《ASP工程應(yīng)用與項目實踐》. 機械工業(yè)出版社, 2002年8月:23-294</p><p>　　[3]FLANAGAN.《ASP技術(shù)手冊》. 中國電力出版社,2002年6月:1-465</p><p>　　[4]孫一林,彭波.《ASP數(shù)據(jù)庫編程實例》. 清華大學(xué)出版社,2002年8月:30-210</p>

122、;<p>　　[5]LEE ANNE PHILLIPS.《巧學(xué)活用 ASP》.電子工業(yè)出版社,2004年8月:1-319</p><p>　　[6]飛思產(chǎn)品研發(fā)中心.《ASP應(yīng)用開發(fā)詳解》.電子工業(yè)出版社,2003年9月:32-300</p><p>　　[7]耿祥義,張躍平.《ASP實用教程》. 清華大學(xué)出版社,2003年5月1日:1-354</p><

123、p>　　[8]孫涌.《現(xiàn)代軟件工程》.北京希望電子出版社,2003年8月:1-246 </p><p>　　[9] http://www.docin.com/p-282239379.html. </p><p>　　[10]http://wenku.baidu.com/link?url=alQrUmfiUspG0ALvIwo53ZqbEgwngyGu-cY63IX8Kiiol0KvN

124、U0pvO90BvN6ATdKVmDShk6Ht0g_ACNUNrWMWJkHo3d7dxmxL3FIcV-oxTK.</p><p>　　[11] Ng.C.S.P,Gable,G,G,Chan,T.Z.An ERP-client benefit-oriented maintenance taxonomy.Journal of System&

125、#160;s and softw are,2002. </p><p>　　[12]Yanlei Wang,Chunliang Chen,A New function Modeling Method and IIS Application in MIS P