【文章內容簡介】 ccess。 7 ? 本地測試服務器： IIS。 ? 測試網站平臺： Windows XP和 IE瀏覽器。 網站的功能模塊簡介 圖 1 愛旅游網站系統模塊 第四章 系統 設計 本階段的基本目標是解決系統如何實現的問題，也叫做概要設計，本階段的主要任務是劃分出系統的物理元素及設計軟件的結構，完成軟件定義時期的任務之后就應該對系統進行總體設計， 即 根據系統分析產生的結果來確定這個系統由哪些系統和模塊組成，這些系統和模塊又如何有機的結合在一起，每個模塊的功能如何實現。系統設計的目標是使系統實現用戶 所要求的功能，同時，力爭達到高效率、高可靠性、可修改性，并且容易掌握和使用。 愛旅游 網站系統 用戶管理 用戶登錄 用戶功能 用戶注冊 信息瀏覽 客戶留言 信息查詢 旅游景點 旅游新聞 旅游指南 給我留言 聯系我們 幫助中心 疆內旅游 周邊旅游 景點簡介 關鍵字查詢 8 系統各功能具體分析 游客登錄 當游客正確登錄到系統后，此功能將被激活，會員能修改個人信息 ，留言。用戶注冊和登錄是每個網站中不可缺少的功能之一。 留言板 留言板可以實現網站管理員與用戶之間的溝通，收集用戶的信息，也是網站建設并不可少的一個重要系統。本網站中用戶可以把自己對網站的意見和建議寫在留言板上，管理員可以通過回復和刪除來 管理這些留言。 管理員登錄 當管理員正確輸入用戶名和密碼后，系統會自動跳轉到管理員頁面，管理員圖 2 系統總體流程圖 登陸成功 未 登 錄 成 功 刪除用戶信息 添加刪除修改旅游信息 修改系統信息 回復刪除留言 用戶注冊 修改用戶信息 搜索信息 瀏覽靜態(tài)網頁 留言 愛旅游新疆旅游網站 用戶登錄 管理員登錄 登錄失敗 對網頁信息進行修改 9 就可以對游客注冊信息、留言、 對系統的信息進行修改 ，對 旅游信息 進行增刪改。 后臺管理 對于任何一個 Web應用程序來說，都應具備一個后臺管理的功能，負責對整個應用程序的控制管理。從實現方式上，就是用戶可以對系統各種數據記錄進行添加、查看、編輯和刪除等工作，這些操作是由網站管理員來完成的。 (1) 游客注冊管理 管理員進入用戶注冊資料頁面可以審核用戶的注冊資料，對不符合規(guī)則 的注冊用戶可以進行刪除。 (2) 留言板管理 管理員進入留言板頁面可以查看用戶在留言板上的留言，對不符合規(guī)則和法規(guī)的留言進行刪除，對符合的進行回復。 (4)欄目綜合 管理 管理員進入 欄目綜合管理 界面， 可對網頁上顯示的旅游動態(tài)，旅游新聞，和各個地方的介紹進行增加和修改，確保旅游新聞的實時性。 (5) 前臺顯示管理 管理員進入 后臺管理之后，可以對網頁的版權信息修改，并將一些欄目隱藏或顯示，達到對首頁的高級管理。 數據庫設計 數據庫功能分析 本系統采用Access數據庫。用 戶的需求具體體現在各種對旅游網站中各類信息的查詢、修改，這就要求數據庫結構能充分滿足各種信息的輸出和輸入。 針對旅游網站的需求，通過對旅游網站工作過程的內容和數據流程分析，設計如下面所示的數據項和數據結構： 管理員資料信息，包括的數據項有：管理員ID、管理員名稱、管理員密碼 用戶資料信息，包括的數據項有：用戶 ID、用戶名稱、用戶密碼、用戶姓名、用戶郵箱、地址、 、聯系電話、郵編。 信息表，包括的數據項有： 信息分類 、 信息內容 10 留言板信息表，包括的數據項有： 信息 、內容、 姓名、留言時間 有了上面的數據結構、數據 項和數據流 程，我們就能進行下面的數據庫設計。 按照以上實體進行設計：（ 1）打開 Access 2022（ 2）建立數據庫（ 3）創(chuàng)建數據庫表（ 4）添加字段（ 5）生成表（ 6）添加內容； 表一 用戶表： LstUser 表二 管理員表： LstAdmin 表三 留言表： LstBook 表四 LstNewsInFo 11 數據庫 ER 圖 數據庫與 asp 的鏈接 !include file= 圖 4 網站總 E_R 圖 用戶 查看 增刪改 查看刪 查看路線 搜索 管理員 圖片、文章 推薦，熱點 信息 發(fā)表 留言 增刪改 12 !include file= % Dim pagecount,page,pagcount,total,mypage 39。定義變量 Dim oConn,oRs,sSql,Id Dim a,b,c,d,e,f Dim i, j, k, x, y, z,gaozhen,ReUrl,action Dim TT,SS,NewsId,PBId,PSID,PPGGEE PBId = request(PBId) PSID = request(PSID) NewsId= request(NewsId) PPGGEE= request(PPGGEE) TT= request(TT) SS= request(SS) ReUrl= request(ReUrl) gaozhen = request(gaozhen) action = request(action) Dim IsError,Err IsError = False Err = False Id = Request(Id) Set oConn = () Set oRs =() 39。讀取網站的基本信息 Dim sWeb,sUrl Set sWeb = (SELECT top 1 Id,WebTitle,WebUrl,WebKeyWord,WebDescription,WebAuthor,WebCopyright,WebICP,WebTel,WebMob,WebFax,WebEmail,WebAddress,WebZip,WebRoad,Web,WebCom,WebSafe FROM [WebInfo] WHERE Id = 1) sUrl = sWeb(WebUrl) 13 第 五 章 系統 實現 主要是前臺的設計， 顯示頁面 主要包括 首頁、列表頁、內容頁和管理頁面等。 首頁 的 實現 首頁上端包含了登陸、注冊、 logo、搜索、日期、導航欄和熱門推薦 ，作用：美化網站，提高網頁的瀏覽效率，頁面以簡單風格為主，背景以簡潔圖片為主。頁面左邊有網站導航條，背景以白色為主。該頁面可以看出，該網站主要是旅游路線最優(yōu)惠最合理建議網站，所以要簡潔大方 ，不要太花哨。 界面 如圖 6： 圖 3 首頁 （ 1）主界面的 部分代碼： %Call Tophhh()% div id=maindiv %Call TopMenu()% div id=Lstdefault1 div id=lstleft div class=sall div class=stitleh1線路分類 /h1/div 14 div class=scont table border=0 width=100% cellpadding=0 style=bordercollapse: collapse bordercolor=C0C0C0 %if Isarray(Crod) Then% %for i=0 to UBound(Crod,2)% trtd style=padding:5px。a href=/?TT=%=Crod(0,i)%b class=f12 fgreen%=Crod(1,i)%/b/abr %=MENUMAP2(Crod(0,i))%HR size=1 /td/tr %Next End if% /table /div /div div class=clear/div div class=sall%=BANNERSS(25)%/div div class=sall div class=stitleh1旅游工具 /h1/div div class=scont%Call ROADTOOL()%/div /div div class=clear/div div class=sall div class=stitleh1旅游新聞 /h1/div div class=scont ul%=LstNewslst(2,10)%/ul /div /div div class=clear/div div class=clear/div div class=sall 15 div class=stitleh1旅游指南 /h1/div div class=scont ul%=LstNewslst(7,10)%/ul /div /div div class=clear/div /div div id=lstright %If sJspic=1 Then% div class=salliframe name=mpic src=/ height=265 width=745 scrolling=no border=0 frameborder=0/iframe/div %Else% div class=sall!include file=/div %End If% div class=clear/div div class=sall div class=stitle rbg1h1 國內 旅游 /h1div class=moresul%=MENU2LST(3)%/ul/div/div div class=scont ul %=Lstroadlst(3,12)%/ul /div /div div class=clear/div div class=sall div class=stitle rbg2h1 周 邊 旅 游 /h1div class=moresul%=MENU2LST(4)%/ul/div/div div class=scont ul%=Lstroadlstimg(4,4)%%=Lstroadlst(4,12)%/ul /div 16 /div div class=clear/div div class=clear/div /div /div div class=clear/div /div div id=Lstdefault1%=BANNERSS(24)%/div div class=clear/div div id=lstlinkss div class=stitlediv class=mores/div/div ul % Dim sLinksp Set oRs = (SELECT Id,LinkTitle,LinkUrl,LinkTxt FROM [LstLink] order by Id desc) If Not Then sLinksp= Set oRs = Nothing % %if Isarray(sLinksp) Then% %for i=0 to UBound(sLinksp,2)% lia alt=%=sLinksp(3,i)% target=_b