畢業(yè)論文——深水藍文學網(wǎng)站

1、<p><b>　　深水藍文學網(wǎng)站</b></p><p>　　論文摘要：隨著科學技術的發(fā)展，Internet作為全球</p><p>　　性的計算機互聯(lián)網(wǎng)，已深入到人們的日常生活中。新</p><p>　　的時代，網(wǎng)絡已成為人們交流的又一重要平臺。網(wǎng)上</p><p>　　交流成為人們生活中必不可少的活動之

2、一。文學網(wǎng)站</p><p>　　作為當今網(wǎng)絡重要組成部分，是廣大網(wǎng)民上網(wǎng)的重要</p><p>　　驅動因素。文學網(wǎng)站可以說是一個超越時空的文學愛</p><p>　　好者俱樂部，在上面人們可以了解到最新的讀書信息</p><p>　　，可以進行讀者作者多方面的交流，當然更可以展示</p><p>　　自己的文學才華

3、。本網(wǎng)站就是為文學愛好者提供一個</p><p>　　更好的交流經(jīng)驗，傳遞感情，展示才華的平臺?？紤]</p><p>　　以上因素，本文學網(wǎng)站主要是為了文學愛好者發(fā)表文</p><p>　　章，交流寫作經(jīng)驗傳遞感情，抒發(fā)感情，所用。</p><p>　　關鍵詞：文學網(wǎng)站、ASP技術、數(shù)據(jù)庫</p><p>　　Deep

4、 water blue literature Web Site </p><p>　　Fresh age ，The electric network has become the people's exchange once more one significant terrace </p><p>　　The exchange on the net becomes one of

5、absolutely necessary in people life maneuver 。The significant component part of electric network are doed worthwhile at present in the literature Web Site ，It is the widenetizen Significant drive element of first net 。Th

6、e literature Web Site may be supposed to one when oversteping Hollow literature lover club ，People newly may comprehend above Studying message ，The reader writer's many-sides exchanges may be carried on ，Surely of co

7、urse Still more may open </p><p>　　Key word: Literature Web Site 、ASP's technique 、Data bank</p><p><b>　　1.緒論</b></p><p><b>　　1.1 緒論</b></p><p

8、>　　世界越來越小已成為現(xiàn)代人的一個共識,究其原因,除了交通工具的便捷迅速之外最大的功臣當屬互聯(lián)網(wǎng)的迅猛發(fā)展。它的特點就是信息量大傳播迅速，只要一根電話線一個調制解調器，不論你身在何處都可以方便快捷的獲取你想要的信息。真正做到了溝通無極限。在物質文明飛速發(fā)展的今天，人們對精神生活質量的提高也有了新的要求，在物質充斥的社會人們更加渴望交流，渴望得到認同。文字是人類的另一種語言，在某些方面甚至比語言更勝一籌，好的文章是心靈的代言人。當

9、文章和網(wǎng)絡結合起來就形成了文學網(wǎng)站。適應社會的事物可以得到發(fā)展，文學網(wǎng)站從開始發(fā)展到現(xiàn)在，人們也對他從好奇到接受認同甚至于某些人對他產生了依賴，這些都說明了它是一個順應時代的產物。在網(wǎng)絡這個平臺上文學愛好者可以不經(jīng)過出版社就可以把在自己的文章瞬間傳遍神州大地。得到是稱贊也好是批評也罷，都是對自己的一種激勵和促進。更何況在這里所有的文學愛好者可以相互交流心得和經(jīng)驗，三人行就受益終生，更何況這么多志同道合者，毫不夸張地講這里簡直就是文學愛好

10、者的精神家園。</p><p>　　本網(wǎng)站最大的特色就是沒有編輯，完全的大眾審稿。好的留下，差的刪除，而好壞的判決完全取決于文章的好評率和點擊率，最大程度上做到公平公正。文字是最貼近心靈的東西，為了方便人們的交流我網(wǎng)站還設置了論壇模塊。盡最大可能提供最寬廣的空間。</p><p><b>　　1.2系統(tǒng)開發(fā)工具</b></p><p>　　本系

11、統(tǒng)是在Windows XP Professional下開發(fā)的，使用ACCESS作為后臺數(shù)據(jù)庫,采用ASP (active server pages)技術編寫服務器端應用程序，利用輔助開發(fā)工具、可視化網(wǎng)頁編輯器Dreamweaver MX 2004來進行前臺頁面的開發(fā)。</p><p><b>　　2基本理論和概念</b></p><p>　　2.1 Dreamweav

12、er簡介</p><p>　　Dreamweaver是Macromedia公司推出的一款專業(yè)網(wǎng)頁開發(fā)軟件，提供了高度可視化的集成編輯環(huán)境，強大的網(wǎng)頁編輯功能和站點維護功能，具有強大便捷的數(shù)據(jù)庫作支持，多種動態(tài)網(wǎng)頁技術的支持，強大的操作功能和便捷直觀的操作界面。</p><p>　　2.2 ASP網(wǎng)絡技術</p><p>　　2.2.1 ASP 的基本概念</p

13、><p>　　ASP是Active Server Pages的縮寫，中文名稱叫做“動態(tài)服務器頁面”，用來建立并執(zhí)行交互式Web服務器應用程序，可以使用ASP來結合服務器端指令、HTML網(wǎng)頁及COM組件，換句話說,ASP程序包含“腳本語言程序（Scripting Language）”、“嵌入HTML(Embeded HTML)”、“COM組件調用”等3個部分，前者可由VBScript、JScript（微軟版的JavaS

14、cript）、PerlScript、Python、REXX等程序語言編寫而成。本系統(tǒng)以 。asp為擴展的文本文件，其控制部分是用Jscript腳本語言來編寫的。ASP用分隔符〈%和%〉包括腳本命令。由分隔符括起的命令稱為主腳本命令，這些命令由主腳本語言進行處理。在ASP分隔符〈%和%〉內，可以包括主腳本語言允許的任何語句、表達式和操作符等。</p><p>　　2.2.2 ASP包含的組件和對象：</p&g

15、t;<p>　　OLEDBASP網(wǎng)頁如果只有腳本的話，只能顯示輸出一些有趣信息，無法獲取用戶的信息，將數(shù)據(jù)保存到數(shù)據(jù)庫或者在服務器上創(chuàng)建文件，而ASP包含的組件恰好解決了這個問題。</p><p>　　ASP包括兩類組件：內置對象和可安裝組件。</p><p><b>　　6個內置對象：</b></p><p>　　Respons

16、e 對象—可用來決定何時或如何將輸出由服務器端傳送至瀏覽器端。</p><p>　　Request對象—可用來獲取由瀏覽器端返回服務器端的數(shù)據(jù)。</p><p>　　Server對象—提供了服務器端最基本的屬性及方法。</p><p>　　Application對象—當有數(shù)個瀏覽者同時存取網(wǎng)頁時，這個對象可用來記錄不同瀏覽器端共享的變量。</p>&l

17、t;p>　　Session對象—用來記錄個別瀏覽器端專用的變量。</p><p>　　Object Contex對象—這個對象與事務性ASP配合使用。</p><p><b>　　常用的組件：</b></p><p>　　Adrotator Compontent—這個組件用于在WEB站點的WEB網(wǎng)頁上顯示橫幅廣告及顯示頻率。</p&

18、gt;<p>　　Brower Capadility Componet—這個組件可以根據(jù)地不同瀏覽器的功能顯示不同的HTML內容。</p><p>　　Content Linking Compnent—這個組件可以用于將好幾個HTML網(wǎng)頁鏈接到一起，這樣它們便可以實現(xiàn)輕松的導航。</p><p>　　File Access Compnent—這個組件允許使用自己計算機的文件系

19、統(tǒng)工作，使用這個組件可以讀寫文本文件</p><p>　　2.2.3 ASP訪問數(shù)據(jù)庫</p><p>　　ASP提供的數(shù)據(jù)庫訪問組件Database Access通過ADO(Activex Data Objects)訪問數(shù)據(jù)庫及其他存儲數(shù)據(jù)的表狀數(shù)據(jù)結構。ADO數(shù)據(jù)庫連接是以開放數(shù)據(jù)庫連接(ODBC)為基礎的，可對任何支持ODBC數(shù)據(jù)源對數(shù)據(jù)庫的操作，包括Sybase，Oracle，SQ

20、LServer，Access，F(xiàn)oxpro，以及其它類型數(shù)據(jù)庫。可以提供任何類型數(shù)據(jù)庫與Web服務器的訪問方式。ADO提供了七種對象其中最重要的兩個對象是Connection和Recordset。 ASP與ADO結合起來實現(xiàn)數(shù)據(jù)庫訪問的基本原理: 當用戶使用瀏覽器請求ASP主頁時，WEB服務器響應，調用ASP引擎來執(zhí)行ASP文件，并解釋其中的腳本語言(JScript 或VBScript)，通過ODBC連接數(shù)據(jù)庫，由數(shù)據(jù)庫

21、訪問組件ADO(ActiveX Data Objects)完成數(shù)據(jù)庫操作，最后ASP生成包含有數(shù)據(jù)查詢結果的HTML主頁返回用戶端顯示。</p><p>　　由于ASP在服務器端運行，運行結果以HTML主頁形式返回用戶瀏覽器，因而ASP源程序不會泄密，增加了系統(tǒng)的安全保密性。此外，ASP是面向對象的腳本環(huán)境，用戶可自行增加ActiveX組件來擴充其功能，拓展應用范圍ASP使用兩個ADO組件對象

22、來訪問和操縱數(shù)據(jù)庫，即用Connection對象來連接數(shù)據(jù)庫和增加、刪除、更新數(shù)據(jù)庫的數(shù)據(jù)等，用Recordset對象來返回數(shù)據(jù)庫訪問的結果。ADO為ASP提供了完整的Web數(shù)據(jù)庫訪問解決方案，使用ADO編寫緊湊簡明的腳本，以便連接到ODBC兼容的數(shù)據(jù)庫，腳本中可使用VBScript,JavaScript語言來控制數(shù)據(jù)庫的存取與查詢結果的輸出顯示畫面。應用ADO訪問數(shù)據(jù)庫之前，要建立幾個數(shù)據(jù)庫或數(shù)據(jù)源，連接并打開相應的數(shù)據(jù)庫。然后設置并

23、執(zhí)行SQL命令來完成相應的任務，再用ASP語句返回結果，最后關閉數(shù)據(jù)庫。</p><p>　　2.3 Access數(shù)據(jù)庫</p><p>　　Microsoft Access一直是Windows平臺上最優(yōu)秀的數(shù)據(jù)庫管理系統(tǒng)，也是目前市場上最杰出的數(shù)據(jù)庫管理系統(tǒng)。它功能全面，擁有大量工具和特性，其界面簡單。Access數(shù)據(jù)庫中包含表、查詢、窗體、報表、頁、宏、和模塊等數(shù)據(jù)庫對象。</p

24、><p><b>　　3需求分析</b></p><p>　　3.1 系統(tǒng)功能分析：</p><p>　　我設計的是一個網(wǎng)上文學網(wǎng)站，那么這就屬于一個典型的文學感情交流網(wǎng)站。注冊會員可以在這里發(fā)表文章和言論，交流感情和寫作心得。與其他的文學網(wǎng)站不同的是它屬于大眾審稿，因為每個編輯都可能有自己的喜好。這在主觀上就造成了很多的不公平，本網(wǎng)站是由點擊率來

25、決定文章的去留。而游客也可以在這里自由的瀏覽文章和論壇。本網(wǎng)站就是為廣大文學愛好者提供一個展現(xiàn)才華交流感情的平臺</p><p>　　要實現(xiàn)本網(wǎng)站的初衷經(jīng)過分析必須要具備以下幾個模塊</p><p>　　(1) 會員注冊與登錄模塊</p><p>　　(2) 文章和投稿模塊</p><p>　　(3) 論壇模塊 (4) 聊天模塊<

26、;/p><p>　　(5) 后臺的文章和論壇管理模塊</p><p><b>　　(6) 數(shù)據(jù)庫模塊</b></p><p>　　3.2各個模塊具體功能</p><p>　　3.2.1會員注冊與登錄</p><p>　　在深水藍文學網(wǎng)站中，只有注冊的會員才可以投稿和發(fā)表言論而普通的游客只能瀏覽文<

27、;/p><p>　　章和論壇。需要收集會員的必要信息支持這些功能，在注冊過程中還需要對會員所填的內容進行檢測,不符合要求的情況會給出提示，在填寫注冊信息后，可以對所填信息進行確認。而且在個人信息修改頁面可以進行修改。</p><p>　　會員登錄需要驗證帳號和密碼，在登陸成功后，用戶登錄的信息會在系統(tǒng)session中保存，一直會保留到用戶推出登陸或關閉瀏覽器，利用此對登錄管理者，會員和瀏覽者的

28、權限進行限制，加以區(qū)分。</p><p>　　3.2.2 文章瀏覽</p><p>　　文章瀏覽頁面分門別類要一目了然還要表示出最新稿件和熱門稿件。只有這樣才可以吸引讀者去點擊瀏覽。我的網(wǎng)站在文章瀏覽方面主要分為兩大部分。左側是最新的稿件，中間分別是各個版塊的最熱稿件。如果讀者想分版塊察看可以點擊上面相應的連接。這樣就會以獨立的頁面表現(xiàn)出來。 如果是登陸的會員還可以進行在線投稿。</

29、p><p>　　這樣設計文章瀏覽可以方便讀者瀏覽。文章如此的繁多讀者往往會感覺很迷茫,甚至會出現(xiàn)煩躁的心理。而我這樣設計就可以清楚地讓讀者知道別人都在看什么,最新鮮的作品又是什么。而且我認為這樣對每個投稿人都是公平的。 </p><p><b>　　3.2.3論壇</b></p><p>　　讀者在未注冊登陸的情況下是不可以在論壇上撰寫主題和跟貼的

30、。但可以瀏覽別人的言論。論壇首頁顯示的各帖子的主題、跟貼數(shù)、最后跟貼的人名和時間。</p><p>　　在這里所有的會員都可以暢所欲言發(fā)表你對某事物的看法。你可以反駁,你可以支持,可以倡導,可以響應?？傊@里真正實現(xiàn)了言論的自由,當然不可以損人利己，傷害到他人。</p><p><b>　　3.2.4聊天模塊</b></p><p>　　為了方

31、便讀者交流我特意添加了聊天模塊 。它像一個虛擬社區(qū)，來自不同地方的人都可以聚在一起進行很方便的交流。大家可以彼此在一起討論問題，交流經(jīng)驗。</p><p>　　可以聊天室主要分為兩種，簡單來說就是是否將聊天內容存入數(shù)據(jù)庫。本網(wǎng)站的聊天室只是將談話內容存在application對象中，并沒有將談話內容保存到數(shù)據(jù)庫中。該對象直接在服務器中，每個進入聊天室的人都可以調用它，而且速度比存在數(shù)據(jù)庫快得多。</p>

32、;<p>　　3.2.5后臺的文章和論壇管理模塊</p><p>　　這里主要是管理員的工作區(qū)，管理員登陸后可以對文章瀏覽模塊和論壇模塊進行管理,管理員的主要職責是在文章瀏覽模塊對評價不高的文章進行刪除和小部分的修改,添加版塊。</p><p>　　編輯刪除論壇主題和跟貼。</p><p><b>　　4．數(shù)據(jù)庫設計</b><

33、;/p><p>　　4.1系統(tǒng)數(shù)據(jù)結構（E-R圖）</p><p>　　主題 跟帖 賬號 密碼 標題 內容</p><p>　　論壇 言論 用戶 瀏覽 文章</p><p><b>　　圖二</b></p>

34、<p><b>　　4.2數(shù)據(jù)表的設計</b></p><p><b>　　表名：wx</b></p><p>　　用于記錄本站的所有文章</p><p><b>　　表名：user</b></p><p><b>　　用于記錄會員情況</b>

35、;</p><p><b>　　(3)表名：bbs</b></p><p><b>　　用于記錄論壇情況</b></p><p>　　(4)表名：newclass</p><p>　　用于記錄文章類型的信息</p><p>　　(5)表名：reply</p>&

36、lt;p>　　用于記錄于會員恢復論壇主題的各種信息</p><p>　　4.3數(shù)據(jù)庫結構的實現(xiàn)</p><p>　　實現(xiàn)的步驟：打開ACCESS2000，新建一個空數(shù)據(jù)庫，并且命名為asc。</p><p>　　接著新建數(shù)據(jù)庫表。依次新建5個數(shù)據(jù)庫表。分別對每個數(shù)據(jù)庫表添加字段和字段屬性。</p><p><b>　　5系統(tǒng)的

37、具體實現(xiàn)</b></p><p>　　5.1建立基于WEB系統(tǒng)的運行環(huán)境</p><p>　　Windows 2000 Server 在安裝的過程中會連同IIS5。0一起安裝上去，Windows 2000 Professional Windows XP 則不會，此時，可執(zhí)行“開始\設置\控制面板”，然后在“添加\刪除程序”圖標上雙擊鼠標左鍵，接著，選擇“添加\刪除Window

38、s組件。選取“Internet 信息服務器(IIS)”選項，然后選取下一步，文件復制完成后點擊完成?！癐nternet 信息服務器(IIS)”安裝完成。</p><p>　　5.2系統(tǒng)主要頁面的實現(xiàn)</p><p>　　5.2.1注冊頁面的實現(xiàn)</p><p>　　該頁面主要用于會員第一次進入網(wǎng)站時輸入帳號。注冊會員時需要提供如下信息：新會員帳號、性別、密碼、密碼確

39、認、E-Mail。</p><p><b>　　主要實現(xiàn)步驟:</b></p><p>　　1首先在Dreamweaver中設計出注冊頁面的風格。</p><p>　　2添加如圖的文本區(qū)域、按鈕、單選框。已注冊用戶名為例，使<input type="text" name="name" ID=&quo

40、t;Text1">。其他文本區(qū)域相似。選擇男生頭像的單選框value="1",反之為value="0"。</p><p>　　3單擊提交按鈕將注冊信息發(fā)送給ChkReg.asp頁面注冊成功后返回主頁，注冊失敗給出提示信息。</p><p><b>　　圖三</b></p><p><

41、b>　　部分代碼見附錄．</b></p><p>　　5.2.2文章瀏覽頁的實現(xiàn)</p><p>　　學生在首頁通過輸入會員帳號，會員密碼，登陸網(wǎng)站，經(jīng)系統(tǒng)確認進入深水藍主頁，點擊文章瀏覽進入文章瀏覽頁．如下圖：</p><p><b>　　圖四</b></p><p><b>　　主要實現(xiàn)步

42、驟</b></p><p>　　1．為了保持風格一致在本頁面首先引用了gg.asp。</p><p>　　2．頁面左面的主體部分主要是通過asp代碼實現(xiàn)。首先從newclass中調出個版塊的名稱、和編號。然后通過編號在wz表中調出這個版塊的文章信息，調出的順序是按點擊率來實現(xiàn)的。</p><p><b>　　主要代碼見附錄。</b>

43、</p><p><b>　　5.2.3投稿頁面</b></p><p>　　會員登錄后會在文章瀏覽頁的上面和下面顯示再線投稿點擊進入投稿頁面。具體形式如下圖：</p><p><b>　　圖五</b></p><p><b>　　主要實現(xiàn)步驟：</b></p>

44、<p>　　1首先用Session(“name”)判斷是否為登陸會員，在Dreamweave中設計出風格。</p><p>　　2 文章類別的下拉框是從newclass表中讀取的。添加文章圖片要引用一個上傳函數(shù)的頁面Function.asp。</p><p>　　3將保存文章信息定義一個SaveAdd()，根據(jù)頁面返回的action消息來確定是否調用SaveAdd()。</

45、p><p><b>　　主要代碼見附錄</b></p><p>　　5.2.4 修改信息頁</p><p>　　在這里可以修改個人的信息，包括性別、電子郵箱、qq號碼。修改好之后點擊提交按鈕，就將新的個人信息提交到數(shù)據(jù)庫中</p><p><b>　?。?lt;/b></p><p>

46、<b>　　圖六</b></p><p><b>　　主要實現(xiàn)步驟：</b></p><p>　　1首先用Session(“name”)判斷是否為登陸會員，在Dreamweaver中設計出總體風格。</p><p>　　2打開數(shù)據(jù)庫查詢userinfo表，以電子郵箱為例，使文本區(qū)域的<input type="

47、;text" name="email"value=<%=Rs(email)%>〉。QQ號碼同理。</p><p>　　3將對信息修改得保存定義為一個名為SaveChange(),根據(jù)頁面返回的action消息來確定是否調用SaveChange()。</p><p><b>　　主要代碼見附錄</b></p>&l

48、t;p>　　5.2.5論壇撰寫主題頁的的實現(xiàn)</p><p>　　當用戶登錄后進入論壇就可以撰寫主題了在這里還可以添加圖片。具體界面如下圖：</p><p><b>　　圖七</b></p><p>　　這個功能的實現(xiàn)和文章投稿相似，在這就不重復了</p><p>　　5.2.6論壇回復頁面</p>

49、<p>　　用戶可以在這個頁面對自己感興趣的主題進行跟帖，填寫了內容后直接按發(fā)表按鈕就可以提交到數(shù)據(jù)庫了。這個功能的實現(xiàn)和文章投稿相似，在這就不重復了。</p><p><b>　　圖八</b></p><p>　　5.2.7聊天室主頁</p><p>　　聊天室主頁的框架是由：view.asp send.asp list.asp r

50、efesh.asp四個頁面組成。界面如下:</p><p><b>　　圖九</b></p><p><b>　　主要實現(xiàn)步驟:</b></p><p>　　1 聊天內容顯示頁:在這里,就用到了Application這個對象，如果用戶發(fā)送的談話內容不為空，則先將Application對象鎖定，使其可寫，再將談話內容保存在A

51、pplication對象中，然后再將Application對象解鎖，取消其可寫性，再后再輸出顯示。</p><p>　　2 聊天內容發(fā)送頁：在這一頁中只需加入一個獲取登陸著用戶名的asp代碼。 <%Session(“name”)%>。</p><p>　　3 聊天室主頁：首先用Dreamweave布置好框架，用Session(“name”)判斷是否為合法會員，在各框架中引用個分

52、頁面。以View。asp頁為例<frame src="View。asp" name="View"></p><p><b>　　主要代碼見附錄。</b></p><p><b>　　6.總結</b></p><p>　　完成這次設計我的感觸很深，要想完成一件事情你不但要有

53、過硬的專業(yè)知識其中恒心毅力也是很重要的，由于是自己獨立第一次開發(fā)一個網(wǎng)站沒有經(jīng)驗，而且好多知識以前都沒有學過都得靠從實踐中慢慢摸索，現(xiàn)學現(xiàn)用，其困難可想而知。在這里我要感謝耐心指導我的老師，和一起摸索前進的同學在這段時間給我的幫助。</p><p>　　為了完成這次設計我首先通過上網(wǎng)搜索和在圖書館查找與之有關的知識，使用什么開發(fā)工具會用到什么知識做到心中有數(shù)。然后看看什么是學過的什么還沒有接觸過，學過的加緊鞏固，

54、沒有學過得趕快買資料進行自學。在這次設計中我真正感受到，有些知識你不會沒關系，但在平時一定要加強自學能力的培養(yǎng)。我覺得這也是我們進入社會所必須具備的求生手段。</p><p>　　要設計出一個相對完美的網(wǎng)站沒有總體規(guī)劃是不行的，就像蓋一座大樓你沒有圖紙是不行的，你不可以想到哪就蓋哪。首先你得明白做這個網(wǎng)站的目的是什么，應該具有什么功能，要實現(xiàn)這些功能需要那些模塊，這些模塊之間又有什么聯(lián)系。只有弄清楚了這些你才可以

55、有條不紊的進行設計。當然前期素材收集也是很重要的，素材不充足你就得中途停工，這樣就會大大的浪費時間，甚至打斷你的思路。</p><p>　　為了盡快地完成這個設計，我將dreamweaver mx和asp結合起來，用dreamweaver mx設計基本的頁面，因為dreamweaver mx具有很好的視覺美化作用可以加入flash和音樂增加了網(wǎng)站的美感，使其更加吸引人的眼球。然后再在代碼中加入asp代碼實現(xiàn)與數(shù)據(jù)

56、庫的交互，和網(wǎng)頁的動態(tài)。而且在asp中還可引用任何公共頁，這樣大大加快了開發(fā)速度。</p><p>　　由于技術知識有限，我知道我的網(wǎng)站免不了有很多的不足之處，而正因為這樣才可以激起我高昂的斗志，繼續(xù)學習，不斷完善。</p><p><b>　　7.致謝</b></p><p>　　在本次畢業(yè)設計的過程中，老師給了我很大的幫助。不僅使我在規(guī)定的

57、時間內完成了系統(tǒng)的設計，同時還使我學到了很多有益的經(jīng)驗。在此，我謹向老師表示最衷心的感謝。</p><p>　　在做設計的過程中也得到了很多同學的幫助，在此也向他們表示感謝。</p><p>　　同時，也很感謝數(shù)信學院計算機科學與技術專業(yè)所有領導和老師在四年大學的學習和生活中對我的關懷、教導及信賴，感謝所有幫助過我們的同學。</p><p>　　在上機過程中也很感謝

58、數(shù)學系機房管理員教師給我的支持與方便，是他們?yōu)槲覀儗Ｐ牡亻_發(fā)營造和維護著良好的工作環(huán)境。</p><p><b>　　8.參考文獻</b></p><p>　　[1] 薩師煊 王珊 編著《數(shù)據(jù)庫系統(tǒng)概論》（第三版）[M]。北京:高等教育出版社,2000</p><p>　　[2]王姍 陳紅 編著 《數(shù)據(jù)庫系統(tǒng)原理教程》第一版 北京 清華大學出版

59、社</p><p>　　[3]宣小平 但正剛 張文毅 編著 《ASP數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航》 第一版 北京 人民郵電出版社 2003.01</p><p>　　[4]夏邦貴 劉凡馨 等編著 《ACCESS 2003 數(shù)據(jù)庫開發(fā)經(jīng)典實例精講》 機械工業(yè)出版社2006.06</p><p>　　[5] 李雁翎 《Access數(shù)據(jù)庫應用技術》中國鐵道出版社，200

60、3</p><p>　　[6] 鄧文淵等 《ASP與網(wǎng)頁數(shù)據(jù)庫設計》 中國鐵道出版社 2004.12</p><p>　　[7]鄧文淵 陳惠貞 陳俊榮編著《ASP與網(wǎng)絡數(shù)據(jù)庫技術》 中國鐵道出版社 2005</p><p>　　[8] 鮑哥 盧堅 《Dreamweaver MX 2004 標準教程》 海洋出版社 20004.7</p>&

61、lt;p>　　[9] 張微 劉任憑編著 《Dreamweaver完美網(wǎng)頁設計》</p><p>　　[10] 蘇治中 編著 《Dreamweaver MX 2004 入門與提高》 中國鐵道出版社 2004。5</p><p>　　[11] 揚國才王建峰 王玉昆編著《基于Web的遠程自學型教學系統(tǒng)設計及實現(xiàn)》計算機應用，2000.20。</p><p>

62、　　[12］宋紅 李珍香編著《計算機網(wǎng)絡與遠程教育》計算機與現(xiàn)代化 2000。</p><p><b>　　9.附錄</b></p><p><b>　　注冊頁 </b></p><p>　　<td width="40%" height="25" align="rig

63、ht" bgcolor="#FFFFFF">注冊用戶名：</td></p><p>　　<td width="60%" bgcolor="#FFFFFF">&nbsp;<input type="text" name="name" ID="Text1&q

64、uot;>&nbsp;<font color="#FF0000">*</font>（支持中文）</td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<t

65、d height="25" align="right" bgcolor="#FFFFFF">密碼：</td></p><p>　　<td bgcolor="#FFFFFF">&nbsp;<input type="password" name="pwd"

66、 ID="Text2">&nbsp;<font color="#FF0000">*</font>（長度大于6位）</td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p>

67、;<p>　　<td height="25" align="right" bgcolor="#FFFFFF">重復密碼：</td></p><p>　　<td bgcolor="#FFFFFF">&nbsp;<input type="password"

68、 name="pwd1" ID="Text3">&nbsp;<font color="#FF0000">*</font>（長度大于6位）</td></p><p><b>　　</tr></b></p><p><b>　　<tr&

69、gt;</b></p><p>　　<td height="25" align="right" bgcolor="#FFFFFF">性別：</td></p><p>　　<td bgcolor="#FFFFFF">&nbsp;<input name=

70、"gender" type="radio" value="1" checked></p><p>　　<img src="images/20070327022710.jpg" width="40" height="40"> &nbsp;&nbsp;

71、</p><p>　　<input type="radio" name="gender" value="0" <% If gender="0" Then Response.Write "checked" %>></p><p>　　<img src="

72、images/20070327023342.jpg" width="40" height="40"></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<

73、;td height="25" align="right" bgcolor="#FFFFFF">電子郵箱：</td></p><p>　　<td bgcolor="#FFFFFF">&nbsp;<input type="text" name="email&quo

74、t; ID="Text4"></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td height="25" align="right" b

75、gcolor="#FFFFFF">QQ號碼：</td></p><p>　　<td bgcolor="#FFFFFF">&nbsp;<input type="text" name="qq" ID="Text5"></td></p><

76、p>　　</tr> </p><p>　　</table></td></p><p><b>　　</tr></b></p><p><b>　　<tr></b></p><p>　　<td height="

77、30" align="center"></p><p>　　<input type="submit" name="Submit" value="提交">&nbsp;&nbsp;&nbsp;&nbsp;</p><p>　　<input type=

78、"reset" name="reset" value="重置"></td></p><p><b>　　</tr> </b></p><p><b>　　文章瀏覽頁：</b></p><p><b>　　<%</

79、b></p><p>　　Dim newsclass1</p><p>　　Set Rs1 = Server.CreateObject("ADODB.Recordset")</p><p>　　Sql1="Select class,title From newclass"</p><p>　　Rs

80、1.Open Sql1,conn,3,3</p><p>　　Do While not Rs1.EOF</p><p><b>　　%></b></p><p>　　<table width="549" border="0" align="center" cell

81、padding="1"></p><p><b>　　<tr></b></p><p>　　<td height="23"><table width="100%" border="0" align="left" bgcolor=&qu

82、ot;#f7efde"></p><p><b>　　<tr></b></p><p>　　<th width="93%" align="left" class="STYLE12" scope="col"><table width="

83、220" border="0"></p><p><b>　　<tr></b></p><p>　　<th width="214" scope="col"><span class="STYLE10"><%=Rs1("tit

84、le")%></span></th></p><p><b>　　</tr></b></p><p>　　</table></th></p><p>　　<th width="7%" align="right" scope=

85、"col"><a href="List1.asp?action=list1&amp;newclass=<%=Rs1("class")%>"><img src="images/more.gif" alt="asas" width="33" height="9"

86、; border="0" /></th></p><p><b>　　</tr></b></p><p>　　</table></td></p><p><b>　　</tr></b></p><p><b&

87、gt;　　<tr></b></p><p><b>　　<% </b></p><p>　　newsclass1=Rs1("class")</p><p>　　Set Rs2 = Server.CreateObject("ADODB.Recordset") </p&g

88、t;<p>　　Sql2="Select Top 4 * From wz Where class="&newsclass1&" Order By click Desc"</p><p>　　Rs2.Open Sql2,conn,3,3 </p><p>　　If Rs2.Eof And Rs2.Bof Then</

89、p><p>　　Response.Write "<tr><td width='5%' height='20'>&nbsp;</td><td width='95%'>"</p><p>　　Response.Write "本版塊暫無文章！"</p&

90、gt;<p>　　Response.Write "</td></tr>"</p><p><b>　　Else</b></p><p><b>　　tempnum=1</b></p><p>　　Do While not Rs2.EOF</p><

91、;p><b>　　%></b></p><p><b>　　投稿頁</b></p><p>　　<select name="newsclass" ID="Select1"></p><p>　　<% Set Rs1 = Server.CreateObje

92、ct("ADODB.RecordSet") Sql1="Select * From newclass"</p><p>　　Rs1.Open Sql1,conn,3,3</p><p>　　Do While not Rs1.EOF</p><p>　　Response.Write "<option valu

93、e=" & Rs1("class") & ">" & Rs1("title") & "</option>"</p><p>　　Rs1.MoveNext</p><p><b>　　Loop</b></p><

94、p><b>　　Rs1.Close</b></p><p>　　Set Rs1=nothing</p><p>　　%> </p><p><b>　　</select></b></p><p>　　<%If Request(&

95、quot;action")="SaveAdd" Then</p><p>　　Call SaveAdd()</p><p><b>　　End If </b></p><p><b>　　%></b></p><p>　　<%Sub SaveAdd()&l

96、t;/p><p><b>　　Dim title</b></p><p>　　Dim newsclass</p><p>　　Dim author</p><p>　　Dim images</p><p>　　Dim content</p><p>　　title=Req

97、uest.Form("title")</p><p>　　newsclass=Request.Form("newsclass")</p><p>　　author = Request.Form("author")</p><p>　　content=Request.Form(&q

98、uot;content")</p><p>　　images=Request.Form("imagespath")</p><p>　　If title = "" Or content = "" Then</p><p>　　Response.Write "<Scri

99、pt>alert('請輸入文章標題及文章內容！')</Script>"</p><p><b>　　Else</b></p><p>　　Set Rs = Server.CreateObject("ADODB.RecordSet")</p><p>　　Sql="Sele

100、ct * From wz"</p><p>　　Rs.Open Sql,conn,3,3</p><p><b>　　Rs.AddNew</b></p><p>　　Rs("title")=title</p><p>　　Rs("class")=newscla

101、ss</p><p>　　Rs("author") = author</p><p>　　Rs("content")=content</p><p>　　Rs("time")=now()</p><p><b>　　Rs.UpDate</b>

102、</p><p>　　id=Rs("id")</p><p><b>　　Rs.Close</b></p><p>　　Set Rs=nothing</p><p>　　Response.Redirect "default1.asp"</p><p><

103、;b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　%></b></p><p><b>　　修改個人信息</b></p><p>　　<%If Request("act

104、ion") = "ChangeInfo" Then</p><p>　　Call SaveChange()</p><p><b>　　End If</b></p><p><b>　　%></b></p><p>　　<%Sub SaveChange()

105、</p><p>　　Dim gender</p><p><b>　　Dim email</b></p><p><b>　　Dim qq</b></p><p>　　gender = Trim(Request.Form("gender"))</p><p&

106、gt;　　email = Trim(Request.Form("email"))</p><p>　　qq = Trim(Request.Form("qq"))</p><p>　　If qq <> "" And IsNumeric(qq) = false Then</p><p>　　

107、Response.Write "<Script>alert('輸入的QQ號碼只能為數(shù)字！');history.go(-1);</Script>"</p><p>　　Response.End</p><p><b>　　Else</b></p><p>　　Set Rs = Serve

108、r.CreateObject("ADODB.Recordset")</p><p>　　Sql = "Select * From [userinfo] Where name = '"&Session("name")&"'"</p><p>　　Rs.Open Sql,conn,3

109、,3</p><p>　　Rs("gender") = gender</p><p>　　Rs("email") = email</p><p>　　Rs("qq") = qq</p><p><b>　　Rs.UpDate</b></p>&

110、lt;p>　　id = Rs("id")</p><p><b>　　Rs.Close</b></p><p>　　Set Rs = nothing</p><p><b>　　End If</b></p><p>　　Response.Redirect "D

111、efault.asp"</p><p><b>　　End Sub</b></p><p><b>　　%> </b></p><p><b>　　聊天室主頁</b></p><p><b>　　<%</b></p>

112、<p>　　If Session("name")="" Then</p><p>　　Response.Write "<br><br><p align=center>對不起，你是非法登錄本聊天室！</p>"</p><p>　　Response.End</p>

113、;<p><b>　　Else</b></p><p><b>　　%></b></p><p>　　<frameset rows="80%,*"></p><p>　　<frameset cols="80%,*" frameborder=&qu

114、ot;0" framespacing="1"></p><p>　　<frame src="View.asp" name="View"></p><p>　　<frame src="List.asp" name="List"></p>&

115、lt;p>　　</frameset></p><p>　　<frameset cols="80%,*" frameborder="0" framespacing="1"></p><p>　　<frame src="Send.asp" name="Send"