1、<p>　　XXXX學院畢業(yè)論文</p><p>　　畢 業(yè) 設 計（論 文）</p><p>　　題 目： </p><p>　　姓 名： </p><p>　　專 業(yè)： <

2、;/p><p>　　班 級： </p><p>　　指導教師： </p><p>　　日 期： </p><p><b>　　摘 要</b></p><p>　　在科技不斷發(fā)展的今天

3、，利用計算機進行現(xiàn)代化通訊已經成為我們身邊必部可少的工具。我們身處在一個知識日新月異、時刻充滿挑戰(zhàn)的時代，科技的飛速，知識不斷創(chuàng)新的社會。所以利用新的通訊方式增進同學見友誼，增進朋友之間的了解是時代所要求的。</p><p>　　作為當代大學生，應有長遠的目光和隨機應變的能力，應走在時間的前面，掌握最新的社會動態(tài)、最先進科學技術，以調整自己的知識結構和能力結構，去適應社會的發(fā)展。新世紀需要具有豐富現(xiàn)代科學知識的人

4、；需要能夠獨立解決問題、完成工作的人；需要能獨當一面、時常挑戰(zhàn)自己極限的人；需要有創(chuàng)新意識的人。我們在不斷努力中學習做一個與時代并進的人。</p><p>　　在進入實習的階段中越來越覺得友誼的增進是必須的。俗話說人在社會，多一個朋友是條路，而且各種通訊方式的變更更是五花八門。因此我想做一個校友錄系統(tǒng)來增加一種通訊方式以方便我院學生的聯(lián)系。讓我院學生感受到雖然身處異地，卻隨時可以鼠標一點重新讓你有重歸校園的親切感

5、。</p><p>　　我現(xiàn)在用文字形式將我做此系統(tǒng)的過程及其功能介紹展現(xiàn)給大家。由于是初次編寫，缺少經驗，可能有許多不完備或出錯的地方，誠懇希望老師們不吝指正。</p><p>　　關鍵詞：校友錄系統(tǒng)；窗體；控件；數(shù)據庫</p><p><b>　　Abstract</b></p><p>　　Continuous d

6、evelopment in technology today, using modern computer communication has become around us will be a small tool department. We live in a rapidly changing knowledge, always challenging times, rapid scientific and technologi

7、cal knowledge and innovative society. Therefore, the use of new means of communication that students will see the friendship and promote understanding between friends of the times required. </p><p>　　As coll

8、ege students, there should be a long-term vision and resourcefulness, should take time in front of the latest social trends, the most advanced science and technology in order to adjust their structure of knowledge struct

9、ure and ability to adapt to social development. The new century needs to have extensive knowledge of modern science people; need to be able to solve problems independently, to complete the work of people; need to be able

10、 to work independently, often challenge the limits of</p><p>　　In more and more into the internship phase of the promotion of friendship that is necessary. As the saying goes in the community, more than a fr

11、iend is one way, and all kinds of communication changes is varied. I want to be a alumni to add a communication system to facilitate contact of the Students. I feel that although the Students living in different places,

12、but can always point the mouse to re-let you return to campus intimacy. </p><p>　　I now will I do with the text form of the process and function of the system introduced to all display. As the initial prepar

13、ation, lack of experience, there may be incomplete or wrong in many places, sincerely hope that the teachers hesitate to correct me. </p><p>　　Keywords: Alumni system; Form; Control; Database </p>

14、<p><b>　　目 錄</b></p><p><b>　　摘 要1</b></p><p>　　第一章 系統(tǒng)設計4</p><p>　　1.1 市場需求分析4</p><p>　　1.2 系統(tǒng)設計4</p><p>　　1.3 校友錄系統(tǒng)的開發(fā)環(huán)境及

15、其可擴展性4</p><p>　　第二章 總體設計9</p><p>　　2.1 系統(tǒng)功能分析9</p><p>　　2.2 系統(tǒng)功能模塊劃分10</p><p>　　第三章 數(shù)據庫設計11</p><p>　　3.1 概念結構設計11</p><p>　　3.2 邏輯結構設計12

16、</p><p>　　3.3 數(shù)據庫的實現(xiàn)14</p><p>　　第四章 系統(tǒng)詳細設計14</p><p>　　4.1 主界面的設計及分析14</p><p>　　4.2 各界面的設計及分析15</p><p>　　4.3 網友個人管理模塊29</p><p>　　4.4 網站管理模

17、塊34</p><p>　　第五章 系統(tǒng)實施36</p><p><b>　　總結36</b></p><p><b>　　第一章 系統(tǒng)設計</b></p><p>　　1.1 市場需求分析 </p><p>　　隨著社會的發(fā)展，同學之間的學術交流，以及同學之間的相互聯(lián)

18、系 ，等這些都必須利用計算機，因此用電子信息技術來交流已經成為社會發(fā)展的趨勢 。在交流中大家可以重新一起回憶往事。有新鮮事大家可以一起交流，有疑問可以通過留言方式來獲取校友提供的信息。這樣既增進了同學之間的友誼同時也得到了自己想要獲取的信息。</p><p>　　計算機技術的迅速發(fā)展帶動其它技術的發(fā)展，自然也推動著信息技術高度發(fā)展快速前進。信息、信息技術和信息化的重要性日益被人們所認識，高科技電子通訊也日益被大眾

19、所接受，所以現(xiàn)代化通訊方式是今后發(fā)展的趨勢，，所以建立一套符合實際的、簡便快捷的、易于掌握的信息系統(tǒng)勢在必行。</p><p><b>　　1.2 系統(tǒng)設計</b></p><p>　　通過此系統(tǒng)可以輕松瀏覽自己或與自己好友的詳細情況,注冊會員后還可輕松添加、修改、刪除好友信息。</p><p>　　本系統(tǒng)的開發(fā)設計思想：</p>

20、<p>　　1.系統(tǒng)應符合規(guī)定，滿足大家日常通訊的工作需要，并達到操作過程中的直觀、方便、實用、安全等要求；</p><p>　　系統(tǒng)采用模塊化程序設計方法，既便于系統(tǒng)功能的各種組合和修改，又便于未參與開發(fā)的技術維護人員的補充和維護；</p><p>　　2.系統(tǒng)應具備數(shù)據庫維護功能，及時根據用戶需求進行數(shù)據的添加，刪除、修改、等操作。</p><p>

21、　　3.系統(tǒng)中還應具備有信息查詢功能，以便使管理人員方便、及時地了解各類有關情況，使系統(tǒng)真正地幫助并提高管理員的管理水平，使管理方便、快捷、準確、無誤。</p><p>　　1.3 校友錄系統(tǒng)的開發(fā)環(huán)境及其可擴展性</p><p>　　1.校友錄系統(tǒng)的開發(fā)環(huán)境</p><p><b>　?。?）硬件環(huán)境：</b></p><

22、p>　　主機：電腦486DX/100，推薦Pentium200以上；</p><p>　　內存：最低要求8MB，最好在32M內上；</p><p>　　硬盤：程序需用硬盤容量約2M，由數(shù)據所需空間使用情況而定；</p><p>　　顯示器：標準VGA彩色（黑白）顯示器；1024×768；</p><p><b>　　

23、（2）軟件配置：</b></p><p>　　操作系統(tǒng)：windowsXP</p><p>　　系統(tǒng)開發(fā)軟件：Dreamweaver MX </p><p>　　數(shù)據庫開發(fā)軟件：Access2000</p><p>　　操作環(huán)境： Asp+Access ，IIS4.0</p><p>　　2.ASP：20世

24、紀末，隨著計算機科學的發(fā)展，數(shù)據庫技術在Internet中的應用越來越廣泛，為廣大網絡用戶提供了更加周到和人性化的服務。個性化已逐漸成為當今Web應用的潮流。本文研究了一種基于數(shù)據關聯(lián)規(guī)則網上論壇系統(tǒng)，論壇也稱為BBS,BBS是BULLETIN BOARD SYSTEM的縮寫，意即電子公告板，一種在INTERNET上常用的用于信息服務的web系統(tǒng)，他的主要服務是用來幫助瀏覽者相互溝通，吸引用戶、服務用戶的。</p><

25、;p>　　3.IIS：WE服務器是Web應用程序心臟。IIS(Internet Information Server)是微軟推出的Windows NT Option Pack的主要成員，作為Win2000server的擴展，自推出以來已經有了很大發(fā)展，其體系結構是當今市場上最受關注的Web服務器之一。新推出的IIS4.0版本增強了系統(tǒng)安全性，具有服務器端腳本開發(fā)調試，內容管理和站點

26、分析，崩潰防護，內置JAVA虛擬機及全面支持ASP等強大功能。</p><p>　　IIS與ASP相結合：在過去，客戶機/服務器結構的設計與Web的相關技術幾乎處于平行線上，兩者相互獨立并無法作出集成性的設計?，F(xiàn)在我們利用IIS+ASP構成三層式Web結構（如圖2.1所示）的中間一層，將客戶機/服務器結構與Web密切結合，完成前后端兩者的集成輸出功能，使得Web站點的開發(fā)更方便，實現(xiàn)的功能更強大?！　±肐IS

27、+ASP技術來集成Web前后端所帶來的強大效益可歸結為以下幾個方面：</p><p>　?。?）減少構建和維護成本</p><p>　　（2）加快聯(lián)機過程 </p><p>　?。?）軟件集中在服務器端開發(fā)管理</p><p>　?。?）端可使用任何瀏覽器（IE、Netscape…..）</p><p>　?。?）端可

28、存取任何數(shù)據庫 (SQL、Access…..)</p><p>　?。?）用任何腳本語言開發(fā) (VBScript、JavaScript、PERL…..)</p><p>　　圖1.1 數(shù)據庫設計</p><p><b>　　ASP的內部特點：</b></p><p>　　ASP提供了6個功能強大的內部

29、對象，每個對象具有各自的屬性（Property）、方法（Method），有的還擁有數(shù)據集合（Collection）與事件（Event），它們共同完成Web中的一些重要工作。這6個對象及其功能描述如表1.1所示。</p><p>　　表1.1  ASP 內部6大對象及其功能</p><p>　　合理地運用這些對象可以使原本復雜，煩瑣的工作變得簡捷而條理清晰。我

30、們可以用以下的語法直接使用這些對象：對象/屬性/方法/數(shù)據集合</p><p>　　4.GLOBAL文件</p><p>　　每一個以Active Server Pages為基礎的應用程序都擁有一個Global.asa文件（ASA后綴名其實是Active Server Application的縮寫），它位于每一個應用程序的基點目錄之下。當Active

31、 Server Pages做下面兩個動作時，Server便會去讀Global.asa文件： （1）Web Server啟動之后，一個應用程序目錄中任一個ASP文件被提出第一個HTTP請求（Request）時。</p><p>　?。?）不具有任何Session的客戶端向Server請求一個ASP文件時。前面已經提到Application和Session這兩個ASP的內部對象

32、。Application對象內的信息供所有正在執(zhí)行該應用程序的用戶分享，它創(chuàng)建于Web Server啟動后一個應用程序中任意ASP文件被提出第一個HTTP請求時，結束于Server端停止運行。而Session對象僅屬于一位用戶，維持一個用戶端的信息，其他用戶無法訪問，它創(chuàng)建于一個不具有Session的用戶向Server請求一個ASP文件時，結束于該Session到期（即用戶端超過某時間段沒有向Server提出要求或刷新Web頁

33、面）或Abandon語句的調用。可見，Global.asa文件的調用與Application與Session這兩個對象密切相關。事實上我們通常在Global。</p><p>　　5.asa文件中寫入以下內容：</p><p>　?。?） Application或Session的開始事件（Start-event）。</p><p>　?。?） Application

34、或Session的結束事件 (End-event)。</p><p>　　這樣，在一個Application或Session對象被創(chuàng)建或結束時，系統(tǒng)會自動完成Global.asa文件中寫入的相應事件。值得注意的是，如果一個Application與一個Session同時開始，Active Server Pages會先處理Application的開始事件，而如果一個Application

35、與一個Session同時結束，Active Server Pages則會先處理Session的結束事件。</p><p>　　CGI(Common Gateway Interface，通用網關接口)也是Internet上一種功能強大的Web頁面技術，其工作方式有別于ASP。我們現(xiàn)對二者進行比較。</p><p>　　Active Serve

36、r Pages開發(fā)Web應用程序的特點：</p><p>　?。?） 完全嵌入HTML，與HTML、Script語言完美結合。</p><p>　　（2） 無須手動編譯和鏈接程序。</p><p>　?。?） 面向對象，并可擴展ActiveX Server組件功能。</p><p>　　（4） 使用腳本語言（JavaScr

37、ipt、VBScript或PERL）編寫。</p><p>　　（5） 存取數(shù)據庫輕松容易（使用ADO組件）。</p><p>　?。?） 可使用任何語言編寫自己的ActiveX Server組件。</p><p>　?。?） 無瀏覽器兼容問題。</p><p>　?。?） 程序代碼隱藏，客戶端僅能看到ASP輸出的HTML文件。&l

38、t;/p><p>　?。?） 縮短Web開發(fā)時間。</p><p>　　相比之下，使用CGI開發(fā)Web應用程序具有以下缺點：</p><p>　?。?） 不易與HTML文件集成。</p><p>　?。?） 須使用其他較復雜的語言來開發(fā)CGI程序。</p><p>　?。?） 程序開發(fā)時間較長。</p>&l

39、t;p>　　（4） 存取數(shù)據庫不容易。</p><p>　?。?） 每個CGI程序被不同用戶執(zhí)行時都得重新執(zhí)行一次，并占去Server的一個端口（Port），降低Server效率。</p><p>　　可見，ASP在數(shù)據庫訪問、與HTML的集成、提高服務器的效率等諸多方面都優(yōu)于CGI，更適應Web應用程序開發(fā)的需要，因此本文選擇了ASP作為個性化頁面生成器的開發(fā)工具。</p&g

40、t;<p>　　ACCESS數(shù)據庫開發(fā)能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據表示圖或自定義窗體收集信息。數(shù)據表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據庫一目了然。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據庫中的信息。Access也提供了數(shù)據存儲庫，可以使用桌面數(shù)據庫文件把數(shù)據庫文件置于網絡文件服務器，與其他網絡用戶共享數(shù)據庫。Access 是一種關系數(shù)據庫工具

41、，關系數(shù)據庫是已開發(fā)的最通用的數(shù)據庫之一。如上所述，Access 作為關系數(shù)據庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據包中同時擁有桌面數(shù)據庫的便利和關系數(shù)據庫的強大功能。</p><p>　　6.交友錄管理系統(tǒng)的可擴展性</p><p>　　由于時間的限制，且個人的水平有限，在該系統(tǒng)中有很多未涉及的地方。辟如說：系統(tǒng)沒有歌曲下載和信息下載功能，沒有各友情網站之間的連接。今后，可對此系統(tǒng)在這方面

42、加以改進，這樣交友錄才會越來越壯大，我們的設計才會越來越健全。</p><p>　　還有，系統(tǒng)的同步更新做的并不是很完善，統(tǒng)計也沒有具體去做。這是一個重要的環(huán)節(jié)，可以努力去開發(fā)，做好后既可以簡化系統(tǒng)的復雜性，又可以提高系統(tǒng)的安全性。</p><p>　　在這里講這些，只是希望讀者能夠注意到這幾點也是非常重要的，是具有相當可擴展性的環(huán)節(jié)。為讀者改進這個系統(tǒng)的做一個簡單的提示。</p&g

43、t;<p>　　系統(tǒng)功能的完善有待我們共同去努力！</p><p><b>　　第二章 總體設計</b></p><p>　　總體設計階段的基本目的是用比較抽象概括的方式確定系統(tǒng)如何完成預定的任務，也就是說，應該確定系統(tǒng)的物理配置方案，并且進而確定組成系統(tǒng)的每個程序的結構。因此，總體設計階段主要由兩個小階段組成。首先是系統(tǒng)設計，從數(shù)據流圖出發(fā)設計完成系統(tǒng)

44、功能的若干種合理的物理方案，然后進行軟件結構設計，確定軟件由哪些模塊組成以及這些模塊之間的動態(tài)調節(jié)應用關系。層次圖和結構圖是描繪軟件結構的常用工具。</p><p>　　2.1 系統(tǒng)功能分析</p><p>　　本系統(tǒng)是建立在WinXP 平臺上，用VB語言開發(fā)設計，用Access來記錄數(shù)據。為的是面向用戶,其中包括好友注冊，好友個人管理，網站會員管理等。本系統(tǒng)的總體功能是通過好友注冊，好友

45、登陸驗證，對好友進行管理。方便用戶，代替了以前的手動操作。大大為交友者和管理者雙方節(jié)省了時間。</p><p>　　1.系統(tǒng)管理包括用戶管理、修改個人信息、退出系統(tǒng)。</p><p>　　(1)用戶管理包括添加、刪除用戶及確定、退出。</p><p>　　(2)修改個人信息包括驗證、確定、取消。</p><p>　　2.交友錄的運行包括管理員

46、管理、好友留言信息預覽、好友查詢。</p><p>　　(1)管理員管理是通過對姓名、以及具體好友的個人信息、進行添加、刪除修改、更新。</p><p>　　(2)交友留言信息預覽是通過調用數(shù)據庫里信息來實現(xiàn)。</p><p>　　(3)校友查詢通過好友的姓名，來查詢實現(xiàn)。</p><p>　　(4)版權聲明是為了保證本系統(tǒng)不被抄襲。<

47、/p><p>　　(6)幫助即本系統(tǒng)的說明書。</p><p>　　2.2 系統(tǒng)功能模塊劃分</p><p>　　在系統(tǒng)功能分析的基礎上，考慮Visual Basic 6.0程序編制的特點，得到如下圖所示的系統(tǒng)功能模塊圖。</p><p>　　圖2.1 系統(tǒng)功能模塊圖</p><p><b>　　第三章 數(shù)據庫

48、設計</b></p><p>　　數(shù)據庫在任何系統(tǒng)中占有非常重要的地位，它是數(shù)據的來源。數(shù)據庫的結構好壞，將直接影響到系統(tǒng)功能的實現(xiàn)。</p><p>　　所以建庫前要做好充分的準備。首先，要了解用戶各個方面的需求，他們的需求主要體現(xiàn)在各種信息的提供、保存、更新、查詢。其次，要收集基本的數(shù)據，并理清其中的關系，以備后用。</p><p>　　根據交友管理

49、系統(tǒng)的要求,通過對好友管理工作過程的內容和數(shù)據流程分析,設計如下面所示的數(shù)據項和數(shù)據結構:</p><p>　　1.用戶信息包括數(shù)據項有:user_id(自動編號)，用戶名，密碼和注冊日期 。</p><p>　　2.用戶詳細注冊信息包括的數(shù)據項有：lar_id(自動編號)， 用戶ID，姓名，生日，年齡，學歷，職業(yè)，電話，性格，星座等。</p><p>　　3.留言

50、信息包括的數(shù)據項有：ID（自動編號），留言者姓名，留言內容，對方用戶ID，留言者ID。</p><p>　　4.好友信息包括的數(shù)據項有: ID（自動編號），用戶名，性別，地區(qū)。</p><p>　　有了上面的數(shù)據結構、數(shù)據項和數(shù)據流程，我們就能進行下面的數(shù)據庫設計。</p><p>　　3.1 概念結構設計</p><p>　　得到上面的數(shù)據

51、項和數(shù)據結構以后，就可以設計出滿足用戶的各種窗體，以及它們之間的關系，為后面的邏輯結構設計打下基礎。</p><p>　　本實例根據上面的設計規(guī)劃出的實體有：用戶信息實體、書類信息實體、書簡介信息實體、進書表信息實體，各個實體具體的描述E-R圖如下。</p><p>　　用戶管理信息實體的E-R圖如下：</p><p>　　圖3.1 用戶管理信息實體的E-R<

52、;/p><p>　　好友信息實體的E-R圖如下：</p><p>　　圖3.2 好友信息實體的E-R</p><p>　　好友簡介信息實體的E-R圖如下：</p><p>　　圖3.3 好友簡介信息實體的E-R</p><p>　　3.2 邏輯結構設計</p><p>　　數(shù)據庫的概念結構設計完成

53、后，現(xiàn)在可以將上面的數(shù)據庫概念結構轉化為數(shù)據庫的邏輯結構。</p><p>　　我現(xiàn)在將用下面的一個表來表示交友系統(tǒng)數(shù)據庫中一個表的設計。</p><p>　　用戶簡單信息注冊表如下：</p><p>　　表3.1 用戶簡單信息注冊表</p><p>　　用戶詳細注冊信息表如下：</p><p>　　表3.2 用戶

54、詳細注冊信息表</p><p>　　用戶留言信息表如下：</p><p>　　表3.3 用戶留言信息表</p><p><b>　　好友信息表如下：</b></p><p>　　表3.4 好友信息表</p><p>　　3.3 數(shù)據庫的實現(xiàn)</p><p>　　經過前面

55、的需求分析和概念結構設計以后。現(xiàn)在就可以在Access數(shù)據庫中創(chuàng)建數(shù)據表了。</p><p>　　打開Access軟件，新建數(shù)據庫命名為“data.mdb”，目的是為了方便用戶理解。在其上通過表設計器分別新建用戶信息表、好友信息表、好友詳細信息表、留言信息表。</p><p>　　在用戶信息表中添字段時，必須考慮到用戶名和密碼的數(shù)據類型和字段大小。經過我的考慮，我定用戶名和密碼的數(shù)據類型為

56、文本型即什么類型的字符都可以。定用戶名的字段大小為18個字符，密碼的字段大小為18個字符。</p><p>　　同理，我考慮好了用戶簡單信息表、用戶詳細信息表、留言信息表，以及好友信息表中應填寫的字段名，且經過考察，定下了這些字段的數(shù)據類型和字段大小。</p><p>　　在填寫記錄時，一定要謹慎，和字段名必須相對應，且要符合字段名的數(shù)據類型和字段大小。我按照自己定下的規(guī)格，將自己收集到的

57、數(shù)據填寫在了相應的表中。</p><p>　　第四章 系統(tǒng)詳細設計</p><p>　　有了上面的系統(tǒng)分析和數(shù)據庫分析，便可以利用ASP進行系統(tǒng)的設計了。在桌面建立“FRIEND在其下建立“IMAGES，和“DATE下分別存放生成文件，圖片文件和數(shù)據庫文件。</p><p>　　4.1 主界面的設計及分析</p><p>　　運行ASP，新建

58、一個虛擬目錄“FRIEND”，新建站點。</p><p>　　建立交友系統(tǒng)主控界面如下圖：</p><p>　　圖4.1 建立交友系統(tǒng)主控界面</p><p>　　其上有上有各種類型的菜單選項，如好友注冊、個人檔案、相片上傳、檔案注冊、好友登陸。以及下一級子菜單。可根據自己的需求進行選擇。且工具欄上有相對應的快捷按鈕，方便用戶，為用戶節(jié)省時間。</p>

59、<p>　　窗體右面的類型表即書類型和書類型代號的對應表是為了提醒用戶，方便用戶，讓用戶不必強行記憶這么多東西，就是忘了也可方便查找。 </p><p>　　4.2 各界面的設計及分析</p><p><b>　　1.網友注冊模塊</b></p><p>　　網友注冊包括以下子模塊：</p><p><

60、b>　　(1)會員注冊</b></p><p><b>　　reg.asp</b></p><p>　　regsubmit.asp</p><p><b>　　regok.asp</b></p><p>　　register.asp</p><p><

61、b>　　ladd.asp</b></p><p><b>　　read.asp</b></p><p><b>　　(2)用戶登陸驗證</b></p><p>　　default.asp</p><p><b>　　login.asp</b></p>

62、;<p><b>　　your.asp</b></p><p><b>　　各子模塊聯(lián)系如下：</b></p><p><b>　　是否</b></p><p>　　是 否 </p><p><b

63、>　　圖4.2 模塊圖</b></p><p><b>　　2.用戶注冊頁面：</b></p><p>　　reg.asp頁面示例</p><p>　　圖4.3 reg.asp頁面示例圖</p><p>　　(1)頁面中需要用戶填寫的HTML表單元素有：</p><p>　　表

64、4.1 HTML 表</p><p>　　(2)頁面所涉及的數(shù)據表信息：</p><p>　　此頁面僅向系統(tǒng)提供用戶名和密碼。</p><p>　　(3)頁面代碼分析：</p><p><b>　　<%</b></p><p>　　if session("user_id"

65、;)<>1 then</p><p>　　response.redirect "havereg.htm"</p><p><b>　　end if</b></p><p><b>　　%></b></p><p>　　3.注冊不成功頁面：</p>

66、<p>　　regsubmit.asp頁面示例</p><p>　　圖4.4 regsubmit.as頁面示例圖</p><p>　　(1)頁面中需要用戶填寫的HTML表單元素有：</p><p>　　(2) 此頁面無需填寫HTML表單元素。</p><p>　　(3)此頁面僅向系統(tǒng)提供用戶住冊名稱和密碼。</p>

67、<p>　　(4)頁面代碼分析：</p><p>　　<!--#include file="conn.asp"--></p><p>　　<%取得提交表單的用戶名，密碼。</p><p>　　user_name =left(request("user_name"),10)</p>

68、<p>　　password =left(request("password"),10)</p><p>　　如果密碼為空終止程序執(zhí)行。</p><p>　　if password="" then</p><p>　　response.write "數(shù)據有錯！"</p>

69、<p>　　response.end</p><p><b>　　end if</b></p><p>　　Set rs_user = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from user_reg where u

70、ser_name like '" & user_name & "'"</p><p>　　rs_user.open sql,conn,3,2</p><p>　　if rs_user.eof and rs_user.bof then</p><p>　　rs_user.addnew</p>

71、<p>　　rs_user("user_name")=user_name</p><p>　　rs_user("password")=password</p><p>　　rs_user("date")=date</p><p>　　rs_user.update</p><p&

72、gt;　　rs_user.movelast</p><p>　　session("user_id")=rs_user("user_id")</p><p>　　rs_user.close</p><p>　　如果用戶住冊成功直接跳轉到regok.asp</p><p>　　response.redire

73、ct "regok.asp"</p><p>　　response.end</p><p><b>　　else</b></p><p><b>　　%></b></p><p>　　4.用戶住冊成功頁：</p><p>　　regok.asp頁面示

74、例</p><p>　　圖4.5 regok.asp頁面示例圖</p><p>　　a.頁面中需要用戶填寫的HTML表單元素有：</p><p>　　此頁面無需填寫HTML表單元素。</p><p>　　b.頁面所涉及的數(shù)據表信息：</p><p>　　此頁面沒有涉及數(shù)據庫表的信息</p><p&g

75、t;　　5.用戶填寫個人信息頁</p><p>　　register.asp頁面示例</p><p>　　圖4.6 register.asp頁面示例圖</p><p>　　a.頁面中需要用戶填寫的HTML表單元素有：</p><p>　　表4.2 個人信息表</p><p>　　b.頁面所涉及的數(shù)據表信息：</

76、p><p>　　此頁面為用戶填寫個人信息。</p><p><b>　　c.頁面代碼分析：</b></p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><p>

77、　　dim rs_lar</p><p><b>　　dim sql</b></p><p><b>　　dim i</b></p><p>　　'叛斷Session變量是否超時</p><p>　　if isnull(session("user_id")) then&l

78、t;/p><p>　　response.redirect "timeout.htm"</p><p><b>　　end if</b></p><p>　　'叛斷此用戶是否已經入會</p><p>　　if session("user_id")="1" th

79、en</p><p>　　response.redirect "notreg.htm"</p><p>　　response.end</p><p><b>　　end if</b></p><p>　　'判斷是否已經填寫檔案</p><p>　　Set rs_lar

80、= Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from larchives where user_id =" & session("user_id")</p><p>　　rs_lar.open sql,conn,3,2</p>

81、<p>　　if not(rs_lar.eof and rs_lar.bof) then</p><p>　　response.redirect "haveregist.htm"</p><p>　　response.end</p><p><b>　　end if</b></p><p&g

82、t;　　rs_lar.close</p><p>　　set rs_lar=nothing</p><p>　　set conn=nothing</p><p><b>　　%></b></p><p>　　6.用戶信息顯示頁：</p><p>　　read.asp頁面示例</p>

83、;<p>　　圖4.7 read.asp頁面示例圖</p><p>　　(1)頁面中需要用戶填寫的HTML表單元素有：</p><p>　　此頁面無需填寫HTML表單元素。</p><p>　　(2)頁面所涉及的數(shù)據表信息：</p><p>　　此頁面僅向系統(tǒng)提供用戶詳細的注冊信息，用到了數(shù)據表 larchives的操作。&l

84、t;/p><p>　　(3)頁面代碼分析：</p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><p>　　'叛斷Session變量是否超時</p><p>　　if ise

85、mpty(session("user_id")) or session("user_id")="" then</p><p>　　response.redirect "timeout.htm"</p><p><b>　　end if</b></p><p>　　u

86、ser_id=request("user_id")</p><p>　　Set rs_lar = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from larchives where user_id=" & user_id</p>

87、<p>　　rs_lar.open sql,conn,3,2</p><p>　　Set connpic = Server.CreateObject("ADODB.Connection")</p><p>　　DBPath = Server.MapPath("data/picture.mdb")</p><p>

88、　　connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath</p><p>　　Set rspic = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from pic w

89、here user_id=" & user_id</p><p>　　rspic.open sql,connpic,1,1</p><p>　　set rs_apply=server.createobject("adodb.recordset")</p><p>　　sql="select * from apply w

90、here for_id=" & user_id & " and user_id=" & session("user_id")</p><p>　　rs_apply.open sql,conn,1,1</p><p>　　if not(rs_apply.eof and rs_apply.bof) then</p&

91、gt;<p>　　willstr=rs_lar("netname") & "已向您發(fā)出交友請求"</p><p><b>　　end if</b></p><p>　　rs_apply.close</p><p>　　set rs_apply=nothing</p>&

92、lt;p>　　set rs_friend=server.createobject("adodb.recordset")</p><p>　　sql="select * from friend where (for_id=" & session("user_id") & " and user_id=" &

93、user_id & ") or (for_id=" & user_id & " and user_id=" & session("user_id") & ")"</p><p>　　rs_friend.open sql,conn,1,1</p><p>　　if not(

94、rs_friend.eof and rs_friend.bof) then</p><p>　　willstr=rs_lar("netname") & "是您的好友"</p><p><b>　　end if</b></p><p>　　rs_friend.close</p><

95、;p>　　set rs_friend=nothing</p><p>　　set _apply=server.createobject("adodb.recordset")</p><p>　　sql="select * from apply where user_id =" & session("user_id")

96、 & " and for_id=" & user_id</p><p>　　rs_apply.open sql,conn,1,1</p><p>　　if not(rs_apply.eof and rs_apply.bof) then</p><p>　　willstr="您已向“" & rs_lar(

97、"netname") & "”發(fā)出交友請求，請靜候佳音！"</p><p><b>　　end if</b></p><p>　　rs_apply.close</p><p>　　set rs_apply=nothing</p><p>　　if rspic.eof and

98、 rspic.bof then</p><p><b>　　picid=1</b></p><p><b>　　cur=1</b></p><p><b>　　else</b></p><p>　　rspic.pagesize=1</p><p>　　c

99、ur=request("cur")</p><p>　　if cur="" or clng(cur)<1 then cur=1</p><p>　　if clng(cur)>rspic.pagecount then cur=rspic.pagecount</p><p>　　rspic.absolutepage=c

100、ur</p><p>　　picid=rspic("id")</p><p><b>　　end if</b></p><p>　　pics=rspic.recordcount</p><p><b>　　%></b></p><p>　　7.用戶登

101、陸顯示頁：</p><p>　　default.asp頁面示例</p><p>　　圖4.8 default.asp頁面示例圖</p><p>　　a.頁面中需要用戶填寫的HTML表單元素有：</p><p><b>　　表4.3 登陸表</b></p><p>　　b.頁面所涉及的數(shù)據表信息：

102、</p><p>　　此頁面僅向系統(tǒng)提供用戶名和密碼。</p><p><b>　　c.頁面代碼分析：</b></p><p>　　<form action="login.asp" method="POST"></p><p><b>　　……</b&g

103、t;</p><p><b>　　</ form ></b></p><p>　　8.用戶登陸失敗顯示頁</p><p>　　login.asp頁面示例</p><p>　　圖4.9 login.asp頁面示例圖</p><p>　　(1)頁面中需要用戶填寫的HTML表單元素有：&l

104、t;/p><p>　　此頁面無需填寫HTML表單元素。</p><p>　　(2)頁面所涉及的數(shù)據表信息：</p><p>　　此頁面僅向系統(tǒng)提供登陸錯誤信息。</p><p>　　(3)頁面代碼分析：</p><p><b>　　<%</b></p><p>　　Opt

105、ion Explicit</p><p>　　dim rs_user</p><p><b>　　dim sql</b></p><p>　　dim user_name,password</p><p>　　user_name =left(request("user_name"),10)<

106、;/p><p>　　password =left(request("password"),10)</p><p>　　if password="" or user_name="" then</p><p>　　response.write "<script language='

107、javascript'>"</p><p>　　response.write "alert('數(shù)據填寫有錯!');"</p><p>　　response.write "history.go(-1);"</p><p>　　response.write "</script

108、>"</p><p>　　response.end</p><p><b>　　end if</b></p><p>　　if InStr(LCase(password),"'")<>0 or InStr(LCase(password),"or")<>0 t

109、hen </p><p>　　response.write "<script language='javascript'>"</p><p>　　response.write "alert('密碼不合法，請重新輸入!');"</p><p>　　response.write &quo

110、t;history.go(-1);"</p><p>　　response.write "</script>"</p><p>　　response.end</p><p><b>　　end if</b></p><p>　　if server.HTMLEncode(user_

111、name)<>user_name or InStr(user_name,"【")<>0 or InStr(user_name,"】")<>0 or InStr(user_name," ")<>0 or InStr(user_name,"　")<>0 or InStr(user_name,"

112、")<>0 then </p><p>　　response.write "<script language='javascript'>"</p><p>　　response.write "alert('數(shù)據填寫有錯!');"</p><p>　　respo

113、nse.write "history.go(-1);"</p><p>　　response.write "</script>"</p><p>　　response.end</p><p>　　9.用戶登陸成功顯示頁</p><p>　　your.asp頁面示例</p>&l

114、t;p>　　圖4.10 login.asp頁面示例圖</p><p>　　a.頁面中需要用戶填寫的HTML表單元素有：</p><p>　　此頁面無需填寫HTML表單元素。</p><p>　　b.頁面所涉及的數(shù)據表信息：</p><p>　　此頁面僅向系統(tǒng)提供登陸正確信息。本頁面用到了簡單用戶注冊信息表uaer_reg,用戶詳細注冊

115、表 larchives,信息表leaveword,好友列表friend等。</p><p><b>　　c.頁面代碼分析：</b></p><p>　　<!--#include file="conn.asp"--></p><p><b>　　<%</b></p><

116、;p>　　dim rs_lar,rs_word,rs_apply,rs_back,rs_friend,rs_user</p><p><b>　　dim sql</b></p><p>　　'叛斷Session變量是否超時</p><p>　　if isempty(session("user_id")) the

117、n</p><p>　　response.redirect "timeout.htm"</p><p><b>　　end if</b></p><p>　　'叛斷此用戶是否已經注冊</p><p>　　if session("user_id")=1 then respon

118、se.redirect "notreg.htm"</p><p>　　Set rs_lar = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from larchives where user_id =" & session("use

119、r_id")</p><p>　　rs_lar.open sql,conn,3,2</p><p>　　'叛斷此用戶是否已經提交檔案</p><p>　　if rs_lar.eof and rs_lar.bof then</p><p>　　response.redirect "notregist.htm"

120、;</p><p>　　response.end</p><p><b>　　end if</b></p><p>　　Set rs_word = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from leav

121、eword where for_id=" & session("user_id") & " order by id desc"</p><p>　　rs_word.open sql,conn,1,1</p><p>　　set rs_apply=server.createobject("adodb.recordse

122、t")</p><p>　　sql="select * from apply where for_id=" & session("user_id")</p><p>　　rs_apply.open sql,conn,3,2</p><p>　　set rs_back=server.createobject(&

123、quot;adodb.recordset")</p><p>　　sql="select * from back where for_id=" & session("user_id")</p><p>　　rs_back.open sql,conn,3,2</p><p>　　set rs_friend=se

124、rver.createobject("adodb.recordset")</p><p>　　sql="select * from friend where for_id=" & session("user_id")</p><p>　　rs_friend.open sql,conn,3,2</p><

125、p>　　Set rs_user = Server.CreateObject("ADODB.Recordset")</p><p>　　sql="select * from user_reg where user_id=" & session("user_id")</p><p>　　rs_user.open sql,

126、conn,3,2</p><p><b>　　%></b></p><p>　　4.3 網友個人管理模塊</p><p>　　網友個人管理模塊包括以下子模塊：</p><p><b>　　1.資料管理</b></p><p><b>　　2.相片管理</

127、b></p><p><b>　　3.交友請求回復</b></p><p><b>　　4.留言管理</b></p><p>　　資料管理模塊包括以下子頁面：</p><p>　　1.Edit.asp </p><p>　　2.Eadd.asp </p>

128、<p>　　3.Delhy.asp </p><p>　　相片管理模塊包括以下子頁面：</p><p>　　1.sendphoto.asp </p><p>　　2.addpic.asp</p><p>　　3.delpic.asp</p><p>　　交友請求回復管理頁面：</p><