旅游網(wǎng)站設(shè)計(jì)報(bào)告(編輯修改稿)
2024-08-28 21:26 本頁面
【文章內(nèi)容簡介】 項(xiàng)有：信息、內(nèi)容、姓名、留言時(shí)間有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，我們就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。用戶注冊表：管理員登陸表留言表增加信息表 數(shù)據(jù)庫ER圖圖4 網(wǎng)站總E_R圖用戶查看增刪改查看刪查看路線搜索管理員圖片、文章推薦，熱點(diǎn)信息發(fā)表留言增刪改 數(shù)據(jù)庫與asp的鏈接!include file=!include file=%Dim pagecount,page,pagcount,total,mypage 39。定義變量Dim oConn,oRs,sSql,IdDim a,b,c,d,e,fDim i, j, k, x, y, z,gaozhen,ReUrl,actionDim TT,SS,NewsId,PBId,PSID,PPGGEEPBId = 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,ErrIsError = FalseErr = FalseId = Request(Id)Set oConn = () Set oRs =()39。讀取網(wǎng)站的基本信息Dim sWeb,sUrlSet 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)4．3 頁面設(shè)計(jì)首頁主要以展現(xiàn)網(wǎng)站面貌，簡單的介紹及演示為主，布局如圖所示。旅游網(wǎng)站logo網(wǎng)頁導(dǎo)航欄二級(jí)導(dǎo)航圖片展示旅游工具列表旅游展示（文章）標(biāo)題列表旅游新聞、指南列表頁尾圖5頁面布局 本網(wǎng)站主要介紹新疆各個(gè)地方的旅游景點(diǎn)，為了突出新疆廣闊的草原，主要以綠色為主調(diào)，布局簡單明了，方便快捷，結(jié)合了新疆特有的風(fēng)格。第五章 系統(tǒng)實(shí)現(xiàn) 前臺(tái)顯示頁面主要包括首頁、列表頁、內(nèi)容頁和管理頁面等。 首頁實(shí)現(xiàn)首頁上端包含了登陸、注冊、logo、搜索、日期、導(dǎo)航欄和熱門推薦如圖6：圖6 首頁上端（1）登陸代碼：If Request(action)=loginsave ThenUsrmail=trim(request(ddaaaa))Usrpass=trim(request(ddcccc)) If Usrmail= Or Usrpass= Then Call Alert (信箱和密碼不能為空。,1) End If Set oRs=() sSql=select top 1 * from [LstUser] where UsrEmail=39。amp。Usrmailamp。39。 or UsrName=39。amp。Usrmailamp。39。 sSql,oconn,1,1 If not then If oRs(Usrpass) md5(Usrpass,32) then Call Alert (很抱歉,您的密碼錯(cuò)誤.,1) Else If CLng(oRs(UsrState))= 0 Then Call Alert (很抱歉,您的帳號(hào)被鎖定,有問題請(qǐng)咨詢管理員.,1) Else (update [LstUser] set UsrIP = 39。amp。userippamp。39。 , UsrLogintime = now() where Id = amp。 oRs(Id) amp。) session(userid)=oRs(Id) session(username)=oRs(Usrname) (Type) = oRs(Id) (Type).Expires = date()+30 (Type).Domain = . (Type).Secure = False /?gaozhen=myinfo End If End If Else Call Alert (很抱歉,不存在您輸入的帳號(hào).,1) End IfEnd If（2）注冊代碼：If Request(action)=regsave Then Set oRs=() sSql=Select * from [LstUser] where UsrEmail=39。amp。Usrmailamp。39。 or UsrName=39。amp。Usrnameamp。39。 sSql,oconn,1,3 If not then Call Alert (信箱或昵稱重復(fù).,1) Else oRs(UsrEmail)=Usrmail oRs(UsrName)=Usrname oRs(UsrPass)=md5(Usrpass,32) oRs(UsrTel)=UsrTel oRs(UsrAddress)=UsrAddress oRs(UsrFax)=UsrFax oRs(UsrZip)=UsrZip oRs(UsrMoney)=0 oRs(UsrState)=1 oRs(UsrLogintime)=now() oRs(UsrAddtime)=now() oRs(UsrIP)=useripp session(userid)=oRs(Id) session(username)=oRs(Usrname) (Type) = oRs(Id) (Type).Expires = date()+30 (Type).Domain = . (Type).Secure = False /?gaozhen=myinfo Set oRs = Nothing End IfEnd If（3）搜索：支持精確搜索，支持模糊搜索。搜索代碼：form action=/ method=post div class=searptinput class=ipts name=keyword input type=submit class=ipts2 value=搜 索 /div/form（4）日期代碼：function RunGLNL(){var today=new Date()。var d=new Array(星期日,星期一,星期二,星期三,星期四,星期五,星期六)。var DDDD=(()100 ? ()+1900:())+年+(()+1)+月+()+日。DDDD = DDDD + + d[()]。DDDD = DDDD+ + (CnDateofDateStr(today))。//DDDD = DDDD+ + SolarTerm(today)。(DDDD)。}......首頁中間部分由不同的框架分開，有路線分類、旅游工具、旅游新聞、國內(nèi)旅游和周邊旅游等信息表，圖7 首頁中間部分顯示其內(nèi)容在后臺(tái)管理中管理：%Dim CrodSet oRs = (“SELECT Id,MenuTitle,MenuType,MenuUrl,(select top 1 Id from [LstMenuSmall] where MenuId=) FROM [LstMenuBig] where id in(“amp。nroadamp?！?ORDER BY MenuIndex ASC”)If Not Then Crod= Set oRs = Nothing%%Call Tophhh()%div id=”maindiv”%Call TopMenu()%div id=”Lstdefault1”div id=”lstleft” div class=”sall” div class=”stitle”h1線路分類/h1/divdiv class=”scont”table border=”0” width=”100%” cellpadding=”0” style=”bordercollapse: collapse” bordercolor=”C0C0C0
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1