旅游網(wǎng)站課程設計2

1、<p><b>　　摘要</b></p><p>　　隨著旅游行業(yè)的不斷發(fā)展，各家旅游行業(yè)之間的競爭日益激烈，旅游部門所需的信息量越來越大，業(yè)務操作中涉及的各種線路情況、客戶情況以及旅游協(xié)作部門的情況越來越復雜多變。而除了一些個別地區(qū)已采用了的旅游網(wǎng)站，一般通常是以原始的手工方式處理/交流信息。但是工作人員若僅靠手工方式處理大量資料，很可能帶來出錯率的增長以及大量資源的浪費和閑置等

2、問題。因此，只有加強對旅游信息資源的整合、統(tǒng)一管理，才能使旅游部門運行更加合理、高效地運轉。</p><p>　　本文是根據(jù)旅游行業(yè)的這種現(xiàn)狀，提出解決問題的一個可行性方法：采用現(xiàn)代化統(tǒng)一的計算機網(wǎng)絡系統(tǒng)，實現(xiàn)了旅游管理的網(wǎng)絡化，各類信息有序地進行存儲，同時采用了權限認證的方式，只有經過了系統(tǒng)權限認證之后，方可進入系統(tǒng)主控界面，進行信息管理，信息查詢，旅游信息分析，留言簿等功能的使用。實現(xiàn)了各種業(yè)務系統(tǒng)的數(shù)據(jù)集成

3、和信息集成，對旅行社各類信息、資源進行協(xié)同集中管理。利用ASP技術建立動態(tài)網(wǎng)站，系統(tǒng)采用Adobe Dreamweaver 5編寫ASP腳本，Microsoft Office Access 2003建立數(shù)據(jù)庫，簡單方便和快捷。</p><p>　　關鍵詞：ASP技術；旅游信息；高效；資源整合</p><p><b>　　目錄</b></p&g

4、t;<p><b>　　第一章、前言1</b></p><p>　　1.1．選題背景1</p><p>　　1.2．選題依據(jù)1</p><p>　　第二章 開發(fā)環(huán)境1</p><p>　　2.1．Asp簡介1</p><p>　　2.2．ASP與數(shù)據(jù)庫Access2&l

5、t;/p><p>　　2.3．IIS服務器3</p><p>　　2.4．Dreamweaver CS5開發(fā)工具3</p><p>　　三、旅游網(wǎng)站需求分析和簡介4</p><p>　　3.1、網(wǎng)站規(guī)劃目標和設計風格4</p><p>　　3.1.1網(wǎng)站規(guī)劃目標4</p><p>　　3.

6、2.2網(wǎng)站設計風格5</p><p>　　3.2、用戶需求分析5</p><p>　　3.2.1．用戶需求5</p><p>　　3.2.2.管理需求5</p><p>　　3.3、網(wǎng)站功能模塊簡介6</p><p>　　四、旅游網(wǎng)站系統(tǒng)概要設計7</p><p>　　4.1、系統(tǒng)功

7、能模塊設計7</p><p>　　4.2、系統(tǒng)各功能具體規(guī)劃8</p><p>　　4.2.1 游客登錄8</p><p>　　4.2.2 留言板8</p><p>　　4.2.3 管理員登錄8</p><p>　　4.2.4后臺管理8</p><p>　　4.3、網(wǎng)站的系統(tǒng)劃分9

8、</p><p>　　4.3.1前臺系統(tǒng)9</p><p>　　4.3.2后臺系統(tǒng)9</p><p>　　4.4、數(shù)據(jù)庫的建立10</p><p>　　4.4.1數(shù)據(jù)庫與asp的鏈接11</p><p>　　4.5系統(tǒng)功能的實現(xiàn)13</p><p>　　4.5.1主頁面13</

9、p><p>　　4.5.2登錄和注冊14</p><p>　　4.5.3搜索功能16</p><p>　　4.5.4頁面功能實現(xiàn)16</p><p>　　4.5.5后臺頁面的實現(xiàn)18</p><p>　　4.5.6后臺管理功能的實現(xiàn)20</p><p>　　五、測試運行與維護24<

10、/p><p>　　5.1 面向過程的測試方法24</p><p>　　5.1.1 黑盒測試24</p><p>　　5.1.2 白盒測試25</p><p>　　5.2 具體測試的設計25</p><p>　　5.3 系統(tǒng)維護26</p><p><b>　　六、結論27<

11、;/b></p><p><b>　　七、參考文獻28</b></p><p><b>　　第一章、前言</b></p><p><b>　　1.1．選題背景</b></p><p>　　網(wǎng)上信息的發(fā)布由于其及時性、方便性等諸多的優(yōu)點被越來越多的人們所接受。旅行社作為一

12、個為旅客提供旅行服務的行業(yè)，其發(fā)布和更新信息的速度將直接的影響到企業(yè)的前景。 </p><p>　　目前，我國旅游業(yè)正處于高度發(fā)展狀態(tài)。越來越多的人在假日里選擇出游作為放松自己身心的手段。跟隨網(wǎng)絡的普及和發(fā)展，人們開始習慣性的在做某事之前先網(wǎng)絡上瀏覽一下相關內容，找一些相關的信息。作為一個旅行社，如果能夠幫助游客實現(xiàn)對景點的了解，推出相應的線路信息供游客們選擇，實現(xiàn)在線的預訂線路，無疑能獲得較多的市場，

13、并且讓游客們充分享受旅游的樂趣。</p><p><b>　　1.2．選題依據(jù) </b></p><p>　　隨著國內互聯(lián)網(wǎng)的發(fā)展，旅游業(yè)也成為網(wǎng)上的熱點主題，旅游類各種站點也紛紛建立。不過許多網(wǎng)站的內容還只限于旅游信息的發(fā)布和介紹，而互聯(lián)網(wǎng)與旅游業(yè)的結合發(fā)展顯然不應局限于此。用戶不再滿足于通過瀏覽器看到靜態(tài)頁面，而是希望能根據(jù)要求生成更加靈活的、生動的動態(tài)頁面。動態(tài)

14、網(wǎng)頁包含交互功能，動態(tài)網(wǎng)頁的特點有：以數(shù)據(jù)庫技術為基礎，可以大大降低網(wǎng)站維護的工作量；采用動態(tài)網(wǎng)頁技術的網(wǎng)站可以實現(xiàn)更多的功能，如用戶登錄、后臺管理等功能；不是獨立存在于服務器的網(wǎng)頁文件，只有當用戶請求服務器才返回一個完整的網(wǎng)頁。其中的最主要的方面就是利用它來傳遞和發(fā)送信息，更好的展現(xiàn)自我。我的旅游網(wǎng)就是利用計算機網(wǎng)絡向游客們發(fā)布旅游信息；游客通過計算機網(wǎng)絡留言來發(fā)表自己的意見和建議。旅游網(wǎng)站在時空方面沒有限制，可以實現(xiàn)遠程的信息查詢和

15、交流。</p><p><b>　　第二章 開發(fā)環(huán)境</b></p><p><b>　　2.1．Asp簡介</b></p><p>　　ASP（Active Server Pages）是由Microsoft公司推出的支持Internet的動態(tài)服務器網(wǎng)頁技術，在Internet風行的早期，WEB網(wǎng)頁只

16、是靜態(tài)的圖文組合，瀏覽者可以在網(wǎng)頁上閱讀信息，但無法做進一步的查詢、發(fā)表意見或進行電子商務、在線交談、問卷調查、預約訂票、訪客留言簿、討論區(qū)、電子賀卡、E-mail自動回復、數(shù)據(jù)庫管理等工作，這顯然不能滿足人們越來越多元化的需求。為此，開始有不少公司提出動態(tài)網(wǎng)頁的解決方案，所謂的“動態(tài)網(wǎng)頁”指的是瀏覽器端和服務器端可以互動，也就是服務器端可以實時處理瀏覽器端的請求（request），然后將處理結果響應給瀏覽器端，而ASP便是微軟用來建立

17、動態(tài)網(wǎng)頁的解決方案。由于它的功能強大，可以支持當前所有的瀏覽器，便于WEB數(shù)據(jù)庫的開發(fā)，因而倍受推崇。同時ASP也在不斷更新完善，其功能可以充分滿足大多數(shù)開發(fā)者的需求，并在很大程度上促進了Internet應用程序的發(fā)展。ASP是一種服務器端的指令環(huán)境，用來建立并執(zhí)行交互式WEB服務器應用程序，你可以使用ASP來結合服務器端指令、HTML網(wǎng)頁及COM組件。ASP程序只能在WEB服務器端執(zhí)行，當瀏</p><p>　

18、　2.2．ASP與數(shù)據(jù)庫Access</p><p>　　ASP是通過一組統(tǒng)稱為ADO（ActiveX Data Objects）的對象模塊來訪問數(shù)據(jù)庫，無論你采用的是Access，SQL Server，Visual FoxPro，Informix，Oracle，dBase或其他數(shù)據(jù)庫，只要該數(shù)據(jù)庫具有對應的ODBC或OLEDB驅動程序，ADO對象就能加以訪問。要知道系統(tǒng)安

19、裝哪些DOBC或OLEDB驅動程序，Windows XP的用戶可以打開“控制面板”，依序在“管理工具”，“ODBC數(shù)據(jù)源”上雙擊鼠標左鍵。事實上，ASP提供了六個內建對象，供用戶直接調用：  </p><p>　?。?）Application對象：負責管理所有會話信息，可用來在指定的應用程序的所有用戶之間共享信息。</p><p>　　（2）Session對象

20、：存貯特定用戶的會話信息，只被該用戶訪問，當用戶在不同WEB頁面跳轉時，Session中的變量在用戶整個會話過程中一直保存。Session對象需cookie支持。 </p><p>　?。?）Request對象：從用戶端取得信息傳遞給服務器，是ASP讀取用戶輸入的主要方法。 </p><p>　?。?）Response對象：服務器將輸出內容發(fā)送到用戶端。 &l

21、t;/p><p>　?。?） Server對象：提供對服務器有關方法和屬性的訪問。 </p><p>　　（6）Object Context對象：IIS 4.0新增的對象，用來進行事務處理。此項功能需得到MTS(Microsoft Transaction Server)管理的支持。 </p><p>

22、　　Ad Rotator組件：用來按指定計劃在同一頁上自動輪換顯示廣告，用于WWW上日益重要的廣告服務。Browser Capabilities組件：確定訪問WEB站點的用戶瀏覽器的功能數(shù)據(jù)，包括類型、性能、版本等。Database Access組件：提供ADO (ActiveX Data Objects)來訪問支持ODBC的數(shù)據(jù)庫。File Access組件：提供對

23、服務器端文件的讀寫功能。Content Linking組件：生成WEB頁內容列表，并將各頁順序連接，用于制作導航條。</p><p>　　Access是一個可視化工具，是風格與Windows完全一樣，用戶想要生成對象并應用，只要使用鼠標進行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報表設計器以及數(shù)據(jù)庫向導、表向導、查詢向導、窗體向導、報表向導等工具，使得操作簡便，容易使用和掌握。<

24、/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還可以將程序應用于網(wǎng)絡，并與網(wǎng)絡上的動態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫訪問頁對象生成HTM

25、L文件，輕松構建Internet/Intranet的應用。</p><p>　　2.3．IIS服務器</p><p>　　IIS是Internet Information Server的縮寫，它是微軟公司主推的服務器，我使用的是windows7版本IIS7.0，IIS與Window NT Server完全集成在一起，因而用戶能夠利用Windows NT Ser

26、ver和NTFS（NT File System，NT的文件系統(tǒng)）內置的安全特性，建立強大，靈活而安全的Internet和Intranet站點。</p><p>　　IIS支持HTTP（Hypertext Transfer Protocol，超文本傳輸協(xié)議），F(xiàn)TP（File Transfer  Protocol，文件傳輸協(xié)議）以及SMTP協(xié)議，通過使用

27、CGI和ISAPI，IIS可以得到高度的擴展。IIS支持與語言無關的腳本編寫和組件，通過IIS，就可以開發(fā)新一代動態(tài)的，富有魅力的Web站點。 </p><p>　　IIS的一個重要特性是支持ASP。IIS 3.0版本以后引入了ASP，可以很容易的張貼動態(tài)內容和開發(fā)基于Web的應用程序。對于諸如VBScript，JavaScript開發(fā)軟件，或者由Visual Basic，Java，

28、Visual C++開發(fā)系統(tǒng)，以及現(xiàn)有的CGI腳本開發(fā)的應用程序，IIS都提供強大的本地支持。</p><p>　　2.4．Dreamweaver CS5開發(fā)工具</p><p>　　Dreamweaver CS5是一款專業(yè)的HTML編輯器，用于對Web站點、Web頁和Web應用程序進行設計、編碼和開發(fā)。無論是喜歡直接編寫HTML代碼的駕馭感還是偏愛在可視化編輯環(huán)境中工作，Dre

29、amweaver都可以提供幫助良多的工具，豐富Web創(chuàng)作體驗。</p><p>　　Dreamweaver是Macromedia公司的出品的一款"所見即所得"的網(wǎng)頁編輯工具。與FrontPage不同，Dreamweaver采用的是Mac機浮動面版的設計風格，Dreamweaver的直觀性與高效性是一般軟件所無法比擬的。Dreamweaver提供代碼輸入提示功能，可以不必去記大量的標簽，方法和函

30、數(shù)，只要對它們有一定印象，即可根據(jù)提示寫出完整的代碼。對于網(wǎng)頁設計中常用的代碼，Dreamweaver提供了現(xiàn)成的模塊，插入即可。而這些往往是很困擾開發(fā)者的煩瑣操作。   </p><p>　　Dreamweaver對于DHTML（動態(tài)網(wǎng)頁）的支持特別好，可以輕而易舉地做出很多眩目的互動頁面特效。插件式的程序設計使得其功能可以無限的擴展。Dreamweaver幾乎支持現(xiàn)有的網(wǎng)頁開發(fā)技

31、術，如：ASP VBScript，ASP JavaScript，ASP.NET VB,ASP.NET C#,JSP等。Dreamweaver與Flash、Firework并稱為Macromedia的網(wǎng)頁制作三劍客，由于是同一公司的產品，因而在功能上有著一個非常緊密的結合。因此，Dreamweaver非常適合開發(fā)動態(tài)網(wǎng)頁。當然Dreamweaver也存在著一些問題。它站用的系統(tǒng)資源較多，運行時速度較

32、慢，因此適合開發(fā)大型的網(wǎng)頁，當只需要對網(wǎng)頁進行一些調試時很不較方便。</p><p>　　三、旅游網(wǎng)站需求分析和簡介</p><p>　　3.1、網(wǎng)站規(guī)劃目標和設計風格</p><p>　　3.1.1網(wǎng)站規(guī)劃目標</p><p>　　該系統(tǒng)主要建立一個完整的旅游網(wǎng)站，突出旅游特點，有美觀的界面設計。主要功能：1.用戶可以瀏覽景點、旅游動態(tài)、旅

33、游線路信息，同時可以查詢景點、酒店的信息，在線留言，注冊等功能。2.網(wǎng)站有一定數(shù)量旅游景點相關信息可供處理。方便游客了解景區(qū)各種相關信息，同時有利于景區(qū)管理部門的管理，加強雙邊的溝通與協(xié)作，以提高和改善管理水平，使游客通過對網(wǎng)站的瀏覽可以對景點有比較真實和豐富的了解，對景點本身做一個比較好的宣傳和推廣。3.管理人員登陸系統(tǒng)后，將各種煩瑣的管理工作通過網(wǎng)站來管理，用最少的人力和物力提高管理水平，方便發(fā)布各種旅游信息，處理游客所遇到的各種問

34、題，及時了解游客對旅游管理部門的意見，通過數(shù)據(jù)分析可以了解游客的基本情況和不同時期游客的變化情況，提前做出必要的準備工作。使前臺的用戶操作方便簡單，突出旅游特點，具有美觀的界面設計，保證網(wǎng)站安全穩(wěn)定的運行。</p><p>　　3.2.2網(wǎng)站設計風格</p><p>　　色彩是網(wǎng)站的霓裳。頁面的色彩搭配是與網(wǎng)站的主題分不開的，好的頁面搭配能夠烘托主題，增強主題的表現(xiàn)力。本網(wǎng)站以綠色為主色調

35、，因為綠色代表活力和生命力。以美麗的風景圖片為主打，第一時間吸引客戶的眼球，簡單而明了的文字突出主題。</p><p>　　3.2、用戶需求分析</p><p>　　在需求分析過程中主要是搜集用戶的需求，然后直到數(shù)據(jù)庫設計。對于沒有項目經驗或少量經驗的在校學生來說，必須理解需求分析的重要程度。因為假如將來用戶需求即使有很小程度的更改，你也可能需要花費與開發(fā)幾乎相同的代價去修改你的數(shù)據(jù)庫，而

36、這同時又牽扯到程序的修改。因此比較聰明的辦法就是將數(shù)據(jù)設計的更易擴充，爭取做到如果需求要改變，則只需修改一小部分程序即可，而數(shù)據(jù)庫設計不需要任何結構性的修改。</p><p>　　3.2.1．用戶需求</p><p>　　用戶可以登錄和注冊。 </p><p>　　用戶可以瀏覽風景圖片。 </p><p>　　用戶可以查看

37、旅游新聞以便更好的選擇旅游時機。 </p><p>　　用戶可以選擇旅游地，如疆內旅游、周邊旅游。</p><p>　　用戶可以進入留言板進行留言。   </p><p>　　用戶可以聯(lián)系我們并與工作人員進行交流。</p><p>　　3.2.2.管理需求</p><p>　　對

38、旅游景點進行查詢。</p><p>　　對會員用戶進行查看，刪除操作。</p><p>　　對留言板的留言進行回復和刪除。</p><p>　　對旅游動態(tài)進行管理。</p><p>　　對旅游信息進行增刪。</p><p>　　3.3、網(wǎng)站功能模塊簡介</p><p><b>　?。ü?/p>

39、能模塊簡介圖）</b></p><p>　　四、旅游網(wǎng)站系統(tǒng)概要設計</p><p>　　本階段的基本目標是解決系統(tǒng)如何實現(xiàn)的問題，也叫做概要設計，本階段的主要任務是劃分出系統(tǒng)的物理元素及設計軟件的結構，完成軟件定義時期的任務之后就應該對系統(tǒng)進行總體設計，即根據(jù)系統(tǒng)分析產生的結果來確定這個系統(tǒng)由哪些系統(tǒng)和模塊組成，這些系統(tǒng)和模塊又如何有機的結合在一起，每個模塊的功能如何實現(xiàn)。系

40、統(tǒng)設計的目標是使系統(tǒng)實現(xiàn)用戶所要求的功能，同時，力爭達到高效率、高可靠性、可修改性，并且容易掌握和使用。</p><p>　　4.1、系統(tǒng)功能模塊設計</p><p>　　4.2、系統(tǒng)各功能具體規(guī)劃</p><p>　　4.2.1 游客登錄</p><p>　　當游客正確登錄到系統(tǒng)后，此功能將被激活，會員能自由查看網(wǎng)頁，最新動態(tài)，留言。用戶注

41、冊和登錄是每個網(wǎng)站中不可缺少的功能之一，而本網(wǎng)站包括購物，所以用戶身份驗證功能十分重要。</p><p><b>　　4.2.2 留言板</b></p><p>　　留言板可以實現(xiàn)網(wǎng)站管理員與用戶之間的溝通，收集用戶的信息，也是網(wǎng)站建設并不可少的一個重要系統(tǒng)。本網(wǎng)站中用戶可以把自己對網(wǎng)站的意見和建議寫在留言板上，管理員可以通過回復和刪除來管理這些留言。</p&g

42、t;<p>　　4.2.3 管理員登錄</p><p>　　當管理員正確輸入用戶名和密碼后，系統(tǒng)會自動跳轉到管理員頁面，管理員就可以對游客注冊信息、留言等進行審核，對旅游動態(tài)進行增刪改。</p><p><b>　　4.2.4后臺管理</b></p><p>　　對于任何一個Web應用程序來說，都應具備一個后臺管理的功能，負責對整

43、個應用程序的控制管理。從實現(xiàn)方式上，就是用戶可以對系統(tǒng)各種數(shù)據(jù)記錄進行添加、查看、編輯和刪除等工作，這些操作是由網(wǎng)站管理員來完成的。</p><p>　　(1) 游客注冊管理</p><p>　　管理員進入用戶注冊資料頁面可以審核用戶的注冊資料，對不符合規(guī)則的注冊用戶可以進行刪除。</p><p><b>　　(2) 留言板管理</b><

44、/p><p>　　管理員進入留言板頁面可以查看用戶在留言板上的留言，對不符合規(guī)則和法規(guī)的留言進行刪除，對符合的進行回復。</p><p>　　（3）旅游信息的管理</p><p>　　管理員進入旅游信息管理頁面，可以對旅游信息進行添加刪除和修改。更新最新的旅游動態(tài)信息。</p><p>　　（4）會員信息的管理</p><p&

45、gt;　　對于會員的信息進行及時的更新處理和對會員進行統(tǒng)計管理。</p><p>　　4.3、網(wǎng)站的系統(tǒng)劃分</p><p>　　做網(wǎng)站就像搭積木。設計版面的常用招數(shù)是拿一張白紙、一支筆，先勾畫出你理想中的草圖，然后再用相關的制作軟件來實現(xiàn)。首先我把這個網(wǎng)站開發(fā)系統(tǒng)分為前臺和后臺兩塊進行。</p><p><b>　　4.3.1前臺系統(tǒng)</b>

46、</p><p>　　前臺即用戶界面，要實現(xiàn)的主要功能為：</p><p>　　1、旅游信息的發(fā)布：發(fā)布最新的旅游線路信息、最新的旅游新聞等；2、在線旅游路線的確定：對于線路實現(xiàn)在線的查看；3、預訂管理的實現(xiàn)：對自己線路預訂信息的查看、修改等；4、留言交互的實現(xiàn)：實現(xiàn)一個留言板功能，能夠與游客進行交互等。</p><p><b>　　4.3.2后臺系統(tǒng)&l

47、t;/b></p><p>　　后臺即管理界面，要實現(xiàn)的主要功能為：</p><p>　　1、預訂管理：對預訂信息進行查看、刪除；2、線路管理：對旅游線路進行發(fā)布、編輯和刪除；</p><p>　　3、文章管理：對網(wǎng)站上的文章進行添加、修改和刪除；4、其它設置：留言板管理、新聞的管理等。</p><p>　　4.4、數(shù)據(jù)庫的建立<

48、/p><p>　　本系統(tǒng)采用Access數(shù)據(jù)庫。用戶的需求具體體現(xiàn)在各種對旅游網(wǎng)站中各類信息的查詢、修改，這就要求數(shù)據(jù)庫結構能充分滿足各種信息的輸出和輸入。</p><p>　　管理員資料信息，包括的數(shù)據(jù)項有：管理員ID、管理員名稱、管理員密碼。</p><p>　　用戶資料信息，包括的數(shù)據(jù)項有：電子信箱、用戶名稱、用戶密碼、確認密碼、聯(lián)系電話、聯(lián)系地址、傳真、郵政編碼

49、。</p><p>　　留言板信息表，包括的數(shù)據(jù)項有：姓名、手機、地址、QQ、信箱、留言內容、留言IP、留言是否通過。</p><p><b>　　表一（管理員表）</b></p><p><b>　　表二（留言表）</b></p><p><b>　　表三（用戶表）</b>&

50、lt;/p><p>　　4.4.1數(shù)據(jù)庫與asp的鏈接</p><p><b>　　鏈接代碼：</b></p><p>　　<!--#include file="function.asp"--></p><p>　　<!--#include file="md5.asp"

51、;--></p><p><b>　　<%</b></p><p>　　Dim pagecount,page,pagcount,total,mypage '定義變量</p><p>　　Dim oConn,oRs,sSql,Id</p><p>　　Dim a,b,c,d,e,f</p>

52、<p>　　Dim i, j, k, x, y, z,gaozhen,ReUrl,action</p><p>　　Dim TT,SS,NewsId,PBId,PSID,PPGGEE</p><p>　　PBId = request("PBId")</p><p>　　PSID = request("PSID")

53、</p><p>　　NewsId= request("NewsId")</p><p>　　PPGGEE= request("PPGGEE")</p><p>　　TT= request("TT")</p><p>　　SS= request("SS")<

54、/p><p>　　ReUrl= request("ReUrl")</p><p>　　gaozhen = request("gaozhen")</p><p>　　action = request("action")</p><p>　　Dim IsError,Err</p>

55、<p>　　IsError = False</p><p>　　Err = False</p><p>　　Id = Request("Id")</p><p>　　Set oConn = Server.CreateObject("ADODB.CONNECTION") </p><p>　

56、　Set oRs =server.createobject("adodb.recordset")</p><p>　　'讀取網(wǎng)站的基本信息</p><p>　　Dim sWeb,sUrl</p><p>　　Set sWeb = oConn.Execute("SELECT top 1 Id,WebTitle,WebUrl,Web

57、KeyWord,WebDescription,WebAuthor,WebCopyright,WebICP,WebTel,WebMob,WebFax,WebEmail,WebAddress,WebZip,WebRoad,WebQQ,WebCom,WebSafe FROM [WebInfo] WHERE Id = 1")</p><p>　　sUrl = sWeb("WebUrl")……

58、</p><p>　　4.5系統(tǒng)功能的實現(xiàn)</p><p><b>　　4.5.1主頁面</b></p><p>　　我們的上端分別是設為首頁、搜索、聯(lián)系我們、登錄、注冊、logo、導航欄。</p><p><b>　　主頁面的設計圖為：</b></p><p><b&

59、gt;　　其中導航欄的代碼：</b></p><p><b>　　</div></b></p><p>　　<div class="clear"></div></p><p>　　<div id="toplanmu"></p>&l

60、t;p><b>　　<ul></b></p><p>　　<li><a href="/index.asp">首頁</a></li></p><p>　　<li><a href="/Lstalone.asp?TT=1">關于我們</a&

61、gt;</li></p><p>　　<li><a href="/Lstalone.asp?TT=2">旅游新聞</a></li></p><p>　　<li><a href="/Lstalone.asp?TT=3">疆內旅游</a></li>

62、</p><p>　　<li><a href="/Lstalone.asp?TT=4">周邊旅游</a></li></p><p>　　<li><a href="/Lstalone.asp?TT=6">旅游景點</a></li></p>&l

63、t;p>　　<li><a href="/Lstalone.asp?TT=7">旅游指南</a></li></p><p>　　<li><a target=_blank href="/Lstbook.asp">給我留言</a></li></p><p>

64、;　　<li><a href="/Lstalone.asp?TT=12">聯(lián)系我們</a></li></p><p>　　<li><a href="/Lstalone.asp?TT=14">幫助中心</a></li></p><p>　　4.5.2登錄和注

65、冊</p><p>　　在登錄窗口輸入用戶名和密碼，如果沒有則可以通過注冊按鈕進行注冊。根據(jù)用戶輸入的用戶名和密碼從數(shù)據(jù)庫中讀取數(shù)據(jù)，如果數(shù)據(jù)庫中存在相應的數(shù)據(jù)，則認為用戶輸入的用戶名和密碼是合法的，否則認為用戶輸入的用戶名和密碼是非法的并予以提示。</p><p>　　圖（3） 登錄和注冊</p><p><b>　　1、登錄代碼:</b>&

66、lt;/p><p>　　If Request("action")="loginsave" Then</p><p>　　Usrmail=trim(request("ddaaaa"))</p><p>　　Usrpass=trim(request("ddcccc"))</p>&

67、lt;p>　　If Usrmail="" Or Usrpass="" Then</p><p>　　Call Alert ("信箱和密碼不能為空。","-1")</p><p><b>　　End If</b></p><p>　　Set oRs=server

68、.createobject("adodb.recordset")</p><p>　　sSql="select top 1 * from [LstUser] where UsrEmail='"&Usrmail&"' or UsrName='"&Usrmail&"'"<

69、;/p><p>　　oRs.open sSql,oconn,1,1</p><p>　　If not oRs.eof then</p><p>　　If oRs("Usrpass") <> md5(Usrpass,32) then</p><p>　　Call Alert ("很抱歉,您的密碼錯誤.&qu

70、ot;,"-1")</p><p><b>　　Else</b></p><p>　　If CLng(oRs("UsrState"))= 0 Then</p><p>　　Call Alert ("很抱歉,您的帳號被鎖定,有問題請咨詢管理員.","-1")</

71、p><p><b>　　Else</b></p><p>　　oconn.execute("update [LstUser] set UsrIP = '"&useripp&"' , UsrLogintime = now() where Id = "& oRs("Id")

72、&"")</p><p>　　session("userid")=oRs("Id")</p><p>　　session("username")=oRs("Usrname")</p><p>　　Response.Cookies("Type"

73、;) = oRs("Id")</p><p>　　Response.Cookies("Type").Expires = date()+30</p><p>　　Response.Cookies("Type").Domain = ".yourname.com"</p><p>　　Resp

74、onse.Cookies("Type").Secure = False</p><p>　　response.redirect "/LstUser.asp?gaozhen=myinfo"</p><p><b>　　End If</b></p><p><b>　　End If</b>

75、;</p><p><b>　　Else</b></p><p>　　Call Alert ("很抱歉,不存在您輸入的帳號.","-1")</p><p><b>　　End If</b></p><p><b>　　End If</b>

76、</p><p>　　2、注冊代碼：If Request("action")="regsave" Then</p><p>　　Set oRs=server.createobject("adodb.recordset")</p><p>　　sSql="Select * from [LstUser

77、] where UsrEmail='"&Usrmail&"' or UsrName='"&Usrname&"'"</p><p>　　oRs.open sSql,oconn,1,3</p><p>　　If not oRs.eof then</p><p&g

78、t;　　Call Alert ("信箱或昵稱重復.","-1")</p><p><b>　　Else</b></p><p>　　oRs.addnew</p><p>　　oRs("UsrEmail")=Usrmail</p><p>　　oRs("

79、UsrName")=Usrname</p><p>　　oRs("UsrPass")=md5(Usrpass,32)</p><p>　　oRs("UsrTel")=UsrTel</p><p>　　oRs("UsrAddress")=UsrAddress</p><p>

80、　　oRs("UsrFax")=UsrFax</p><p>　　oRs("UsrZip")=UsrZip</p><p>　　oRs("UsrMoney")=0</p><p>　　oRs("UsrState")=1</p><p>　　oRs("Us

81、rLogintime")=now()</p><p>　　oRs("UsrAddtime")=now()</p><p>　　oRs("UsrIP")=useripp</p><p>　　oRs.update</p><p>　　session("userid")=oRs(

82、"Id")</p><p>　　session("username")=oRs("Usrname")</p><p>　　Response.Cookies("Type") = oRs("Id")</p><p>　　Response.Cookies("Typ

83、e").Expires = date()+30</p><p>　　Response.Cookies("Type").Domain = ".yourname.com"</p><p>　　Response.Cookies("Type").Secure = False</p><p><b&g

84、t;　　oRs.close</b></p><p>　　response.redirect "/LstUser.asp?gaozhen=myinfo"</p><p>　　Set oRs = Nothing</p><p><b>　　End If</b></p><p><b>

85、;　　End If</b></p><p><b>　　4.5.3搜索功能</b></p><p>　　根據(jù)關鍵字的搜索我們可以搜索到想要看的景點和地方特色，這樣有便于更快的使用戶能夠找到自己的所想要的內容。</p><p><b>　　圖（4）搜索頁面</b></p><p><

86、b>　　搜索的代碼：</b></p><p>　　<form action="/LstSearch.Asp" method="post"></p><p>　　<div class="searpt"><input class="ipts" name="k

87、eyword"></p><p>　　<input type="submit" class="ipts2" value="搜 索"></p><p>　　</div></form></p><p>　　4.5.4頁面功能實現(xiàn)</p><

88、p>　　頁面功能實現(xiàn)包括列表頁實現(xiàn)和內容頁的實現(xiàn)。這是構成主頁面不可或缺的一部分。列表頁中包括了信息列表，可反映一類中的信息，內容頁就是將一條信息完全展開，顯示其具體內容。</p><p><b>　　圖（5）頁面</b></p><p>　　列表頁面實現(xiàn)的代碼：</p><p>　　<div id=”container_box”&

89、gt;</p><p>　　<div id=”container”><!---（0）單頁信息-<%If v(2)=0 Then%><%=v(1)%><!---（1）新聞列表-<%ElseIf v(2)=1 Then%><%If SS=”” Then</p><p>　　sSql=”select * from [LstNews

90、Info] where PBId=”&TT&” order by Pindex desc,Id desc”</p><p><b>　　Else</b></p><p>　　sSql=”select * from [LstNewsInfo] where PSId=”&SS&” order by Pindex desc,Id desc”&

91、lt;/p><p><b>　　End If</b></p><p>　　Set oRs = Server.CreateObject(“ADODB.Recordset”)</p><p>　　oRs.Open sSql, oconn, 1, 1If oRs.eof and oRs.bof thenResponse.Write “暫時沒有信息！”&

92、lt;/p><p><b>　　Else</b></p><p>　　Call PageNum(nm1)for i=1 to mypage%></p><p>　　內容頁面實現(xiàn)的代碼：</p><p>　　<%If MENUTYPE(SS)=1 Then%></p><p>　　&l

93、t;div id=”under_line”></div></p><p>　　<div id=”info_content”></p><p>　　<div class=”scont”><%=v(“Pcontent”)%></div></p><p>　　<div class=”scont”>

94、;</p><p>　　<%If v(“PflvUrl”)<>”” Then%></p><p>　　<div class=”sconts”></p><p>　　<embedwidth=”760”height=”600” src=”/flash/Flvplayer.swf?vcastr_file=<%=v(“Pfl

95、vUrl”)%>&vcastr_title=<%=v(“Ptitle”)%>&IsShowBar=1&LogoText=www.gaozhen.name&IsAutoPlay=0”></div></p><p>　　<%End If%></div></p><p><b>　　</d

96、iv></b></p><p>　　<%End If%></p><p>　　4.5.5后臺頁面的實現(xiàn)</p><p>　　后臺頁面主要是在后臺進行用戶、信息和主頁面的內容顯示的管理。</p><p><b>　　圖（6）后臺頁面</b></p><p><b&

97、gt;　　管理頁面實現(xiàn)代碼：</b></p><p>　　<!--#include file="include/conn.asp"--></p><p>　　<meta http-equiv="refresh" content="60;url=left.asp"></p><

98、p>　　<SCRIPT language=javascript1.2></p><p>　　function showsubmenu(sid){</p><p>　　whichEl = eval("Show" + sid);</p><p>　　if (whichEl.style.display == "none&qu

99、ot;){</p><p>　　eval("Show" + sid + ".style.display=\"\";");}</p><p><b>　　else{</b></p><p>　　eval("Show" + sid + ".style.disp

100、lay=\"none\";");}}</p><p><b>　　</SCRIPT></b></p><p>　　<base target="main"></p><p><b>　　</head></b></p><

101、p>　　<body><div id="menu"></p><p>　　<table border="0" width="100%" id="table1" cellspacing="3" cellpadding="3" bgcolor="#E6EA

102、F0"><tr><td><img src=images/user.gif></td></p><p>　　<td>您好！<%=session("adminuser")%></td></tr></table></div><div id="menu

103、"></p><p>　　<div class="mtitle" onclick="showsubmenu(100)"><h1>常用參數(shù)設置</h1></div></p><p>　　<div class="mconts" id="Show100&qu

104、ot; style="display:none;"><ul></p><p>　　<li><a href="website.asp">基本設置</a></li></p><p>　　<div class="mtitle" onclick="show

105、submenu(700)"><h1>欄目綜合管理</h1></div></p><p>　　<div class="mconts" id="Show700"><ul><%if Isarray(Cmenu) Then%><%for i=0 to UBound(Cmenu,2)%>

106、;<li><h2 onclick="showsubmenu(<%=Cmenu(0,i)%>)"><%=Cmenu(1,i)%></h2></p><p>　　<divclass="ssmall"id="Show<%=Cmenu(0,i)%>" style="displ

107、ay:none;"><ul><%=MENU2LST(Cmenu(0,i))%></ul></div></li><%Next </p><p><b>　　End if%></b></p><p>　　4.5.6后臺管理功能的實現(xiàn)</p><p><b&

108、gt;　?。?）管理員登陸</b></p><p>　　由于管理頁面是不允許網(wǎng)站訪問者進入的，必須受到權限管理，可以利用管理員帳號和管理密碼來判別是否有此用戶，管理登錄頁面如下所示。</p><p>　　為了驗證管理員是否輸入用戶名、密碼、和驗證碼，以及驗證碼是否相同，如果沒有輸入用戶名、密碼、驗證碼或者輸入的驗證碼不正確，則返回重新輸入，代碼如下：</p>&l

109、t;p><b>　　圖（7）管理員登陸</b></p><p>　　管理員登錄代碼如下：</p><p>　　<!--#include file="include/conns.asp"--></p><p><b>　　<%</b></p><p>　　I

110、f action="login" then</p><p>　　dim uuuu,pppp,yyyy,yyyyok,Mip</p><p>　　'讀取您輸入的用戶名及密碼,并去掉首尾的空格</p><p>　　uuuu=trim(request("uuuu"))</p><p>　　pppp=t

111、rim(request("pppp"))</p><p>　　yyyy=trim(request("yyyy"))</p><p>　　yyyyok=trim(request("yyyyok"))</p><p>　　Mip=Request.ServerVariables("REMOTE_ADDR

112、")</p><p><b>　　'判斷輸入是否為空</b></p><p>　　If uuuu="" or pppp="" then</p><p>　　Call Alert("對不起,您輸入的用戶名或密碼不能為空.","-1")</p&g

113、t;<p><b>　　End If</b></p><p>　　If yyyy <> yyyyok then</p><p>　　Call Alert("對不起,驗證碼輸入有錯.","-1")</p><p><b>　　End If</b></p&

114、gt;<p>　　'打開ADMIN數(shù)據(jù)表</p><p>　　Set oRs=server.createobject("adodb.recordset")</p><p>　　sSql="select top 1 * from LstAdmin where UsrAdmin='"&uuuu&"&

115、#39;"</p><p>　　oRs.open sSql,oconn,1,1</p><p><b>　　'判斷密碼是否正確</b></p><p>　　If not oRs.eof then</p><p>　　If oRs("UsrPass")<>md5(pppp,

116、32) then</p><p>　　Call Alert("對不起密碼輸入有錯.","-1")</p><p><b>　　Else </b></p><p>　　session("adminuser")=uuuu</p><p>　　session(&quo

117、t;adminlev")=oRs("UsrLev")</p><p>　　response.redirect "index.asp"</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　

118、Call Alert("您的用戶名可能不存在.","-1")</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If action="lut" then</p><p>

119、;　　session("adminuser")=""</p><p>　　session("adminlev")=""</p><p>　　response.redirect "login.asp"</p><p><b>　　End If%><

120、;/b></p><p>　　（2）旅游信息的管理</p><p>　　在旅游管理界面中列出所有旅游信息，并按加入時間倒序排列，管理員可以對旅游信息進行刪除和修改操作。</p><p>　　圖（8）旅游信息管理</p><p><b>　　旅游信息的操作界面</b></p><p><

121、b>　　圖（9）操作界面</b></p><p>　　圖中信息操作界面包括分類、標題、作者、文章導讀、來源、屬性、推薦屬性、圖片、詳細內容等。</p><p><b>　　實現(xiàn)代碼：</b></p><p><b>　　'刪除信息</b></p><p>　　If acti

122、on="delproinfo" then</p><p>　　set ors=Server.CreateObject("ADODB.Recordset")</p><p>　　sSql="delete * from [LstNewsInfo] WHERE Id = "&Id&" "</p&

123、gt;<p>　　ors.open sSql,oconn,1,3</p><p>　　set ors=nothing</p><p>　　response.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request("aaaa"))&""

124、;</p><p><b>　　End if</b></p><p><b>　　'添加信息</b></p><p>　　If action="addproinfo" Then</p><p>　　Set oRs=server.createobject("ado

125、db.recordset")</p><p>　　sSql="Select * from [LstNewsInfo]"</p><p>　　oRs.open sSql,oconn,1,3</p><p>　　oRs.addnew</p><p>　　oRs("PBId")=trim(reque

126、st("PBId"))</p><p>　　oRs("PSId")=trim(request("PSId"))—— 后面添加類似省略</p><p>　　oRs.update</p><p><b>　　oRs.close</b></p><p>　　respo

127、nse.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request("PBId"))&"&SS="&trim(request("PSId"))&""</p><p>　　Set oRs = Nothing<

128、;/p><p><b>　　End If</b></p><p><b>　　'編輯信息</b></p><p>　　If action="eddproinfo" Then</p><p>　　Set oRs=server.createobject("adodb.r

129、ecordset")</p><p>　　sSql="Select * from [LstNewsInfo] where id="&Id</p><p>　　oRs.open sSql,oconn,1,3</p><p>　　oRs("PBId")=trim(request("PBId")

130、)</p><p>　　oRs("PSId")=trim(request("PSId"))</p><p>　　oRs("PColor")=trim(request("PColor"))</p><p>　　oRs("CarPz")=trim(request(&quo

131、t;CarPz"))—— 后面添加類似省略</p><p>　　oRs.update</p><p><b>　　oRs.close</b></p><p>　　response.redirect "LstNewsInfo.asp?gaozhen=mylist&TT="&trim(request(&

132、quot;PBId"))&"&SS="&trim(request("PSId"))&""</p><p>　　Set oRs = Nothing</p><p><b>　　End If</b></p><p><b>　　'

133、新聞信息排序</b></p><p>　　If action="newsindexjia" Then</p><p>　　oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = PIndex+1 where Id ="&Id)</p><p>　　Call back

134、url("LstNewsInfo.asp?gaozhen=mylist&TT="&TT&"&SS="&SS&"#bianji"&Id+1&"")</p><p><b>　　End If</b></p><p>　　If ac

135、tion="newsindexjian" Then</p><p>　　oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = PIndex-1 where Id ="&Id)</p><p>　　Call backurl("LstNewsInfo.asp?gaozhen=mylist&am

136、p;TT="&TT&"&SS="&SS&"#bianji"&Id+1&"")</p><p><b>　　End If</b></p><p>　　If action="paixu" Then</p><

137、p>　　oConn.Execute("UPDATE [LstNewsInfo] SET PIndex = "&Trim(request("xuhao"))&",PAddtime='"&trim(request("tttt"))&"' where Id ="&Id)</p&