–PAGE26––PAGE2–--專科畢業論文（畢業設計）

題目：酒店預訂管理系統系院：國際學院學生姓名：學號：專業：軟件工程年級：完成日期：指導教師：【摘要】隨著因特網技術的飛速發展，電子商務越來越趨于成熟并滲透到商業團體的各個領域。網上客房預訂在技術上已經相當成熟，而且實用性非常強，市場潛力巨大。網上客房預訂是網上交易一個特殊的方式之一，已經是全球經濟發展不可逆轉的趨勢。隨著網上客房預訂的日益普及，政策法規的不斷完善，技術水平的不斷提高，網上客房預訂必將成為商業交易的主要手段之一。關鍵詞:網上客房預訂系統；在線預訂；客房服務AbstractWiththerapiddevelopmentofInternettechnology,e-commercebecomemoreandmorematureandpermeateallareasofthebusinesscommunity.Onlineroomreservationsintechnologyisalreadyquitemature,andpracticalityisverystrong,themarketpotential.Onlineroomreservationisaspecialwayonlinetransactionsisoneoftheworld'seconomicdevelopmenthasbeenanirreversibletrend.Withtheincreasingpopularityofonlineroomreservations,policiesandregulationscontinuetoimprovetheleveloftechnology,continuousimprovement,onlineroomreservationswillbecometheprimarymeansofbusinesstransactions.Keywords:Onlineroomreservationsystem;OnlineBooking;RoomService目錄TOC\o"1-3"\h\z摘要 0引言 51系統分析 61.1需求分析 61.2可行性分析 62總體設計 72.1項目規劃 72.2系統功能結構圖 73系統設計 83.1設計目標 83.2開發及運行環境 83.3編碼設計 83.4邏輯結構設計 94前臺主要功能模塊詳細設計 94.1前臺文件總體架構 94.2網站導航設計 104.3賓館簡介管理模塊設計 114.4客房服務管理模塊設計 124.5在線訂房管理模塊設計 134.6意見反饋管理模塊設計 174.7公告欄模塊設計 185后臺主要功能模塊詳細設計 205.1后臺總體架構 205.2后臺登錄模塊設計 225.3管理首頁/退出模塊設計 245.4網站管理模塊設計 245.5圖片管理模塊設計 28參考文獻 34致謝 36附錄A數據表 37附錄B文件架構圖 40引言信息時代的今天，賓館、酒店業的特色經營和個性化管理日趨明顯，管理趨于信息化、網絡化，再加上國際、國內名優企業擴展力度的加大，賓館、酒店業集團化步伐的加快，預示著傳統賓館、酒店正逐步向現代賓館、酒店業方向轉化。現代賓館、酒店業最顯著的一個特征就是通過計算機網絡對企業進行信息化管理——這也是賓館、酒店業經營者們的共識。網絡信息化管理系統以信息量大、數據準確、速度快、管理全面等特點，獲得了廣大賓館、酒店業管理者的一致認同，同時滿足了客戶通過網絡服務，足不出戶的預訂房間、會議室、酒會等一系列活動的要求。并且，通過計算機網絡對賓館、酒店業進行管理，克服了人為管理中人為因素給企業管理帶來的諸多不便，大大提高了賓館、酒店的工作效率，為企業創造了更大的利潤。

1系統分析1.1需求分析通過對賓館、酒店業經營管理的調查研究，要求系統具有以下功能：全面展示賓館的服務功能及環境。介紹賓館自身、賓館的地理位置、會展中心、餐飲美食、商務中心以及其他相關內容等信息。存儲客人的反饋留言信息。全面展示賓館的客房服務功能。客人可通過網站直接在網上進行客房的預訂。提供賓館所在地旅游景點的詳細信息。提供管理后臺入口。對網站初始化信息進行設置，提供查看服務器信息功能。管理網站上傳的圖片信息。管理所有網站信息展示內容。對旅游景點的詳細信息進行管理。全面管理客人訂房信息。管理客人反饋留言信息。管理客房服務信息。系統運行穩定，具有強大的數據處理功能。1.2可行性分析經濟性網站前臺展示了整個賓館的服務內容、賓館的設施、硬件條件及一系列的相關信息，滿足了全面展示賓館自身形象的要求。設置“在線訂房”功能模塊，提供在線訂房功能，滿足客戶通過網絡預訂房間的要求。通過網絡對賓館日常業務進行管理，大大的提高了房間的利用率，提高了賓館的經營效率，使賓館的經濟效益最大化。技術性網站后臺實現了對前臺信息的管理功能。通過信息管理模塊、圖片管理模塊，實現了不斷更新賓館各方面信息的要求。通過訂單管理模塊對客人的房間預訂信息進行管理，更科學的按排賓館自身的房間自然資源。管理客人的留言信息，及時和客人進行溝通。2總體設計2.1項目規劃網上客房預訂系統是一個典型的數據庫開發應用程序，由前臺展示區和后臺管理組成，規劃系統功能模塊如下：前臺展示區前臺展示區的主要功能是賓館簡介、地理位置、客房服務、會展中心、餐飲美食、商務服務、在線訂房、意見反饋、其他、本地景點。后臺功能管理后臺功能管理的主要功能是初始化網站的基礎信息、管理前臺圖片信息、賓館相關的信息管理、景點管理、賓館房間類型管理、訂單管理、反饋信息管理和系統信息管理。2.2系統功能結構圖網上客房預訂系統功能結構圖，前臺功能模塊圖如圖1所示。圖1系統功能結構圖后臺功能模塊如圖2所示圖2系統功能結構圖3系統設計3.1設計目標本系統是針對賓館訂房業務、和賓館的服務介紹進行設計的，主要實現如下目標：全面的展示了賓館自然情況和服務內容。介紹賓館信息，幫助客人了解賓館相關信息。為客戶提供賓館所在地旅游景點的詳細信息。向客戶全面提供賓館客房信息。實現了網上在線訂房業務，方便客人訂房。實現了留言板功能，客人可隨時通過網站填寫反饋信息。通過后臺管理網站初始化信息。實現了后臺對前臺信息、上傳圖片的管理功能。管理前臺景點信息。通過后臺管理賓館客房信息。通過后臺管理人員可以管理客人訂房信息。管理人員可隨時管理客人的反饋信息。系統運行穩定、安全可靠。3.2開發及運行環境硬件平臺：CPU：P41.8GHz。內存：256MB以上。軟件平臺：操作系統：WindowsXP/Windows2000。數據庫：Access2000。瀏覽器：IE5.0，推薦使用IE6.0。Web服務器：IIS5.0。分辨率：最佳效果1024×768像素。3.3編碼設計編碼設計是數據庫系統開發的前提條件，是系統不可缺少的重要內容。編碼是指與原來名稱對應的編號、符號或記號。它是進行信息交換、處理、傳輸和實現信息資源共享的關鍵。編碼也用于指定數據的處理方法、區別數據類型，并指定計算機處理的內容等。本系統內部信息編碼采用了統一的編碼方式情況。如下所示：訂單編號訂單單據編號為系統當前日期和5位數字編碼的組合。例如：20060130001。3.4邏輯結構設計本系統數據庫采用SQLServer2000數據庫，系統數據庫名稱為etwldbs數據庫etwldbs中包含7張表。由于篇幅所限，關于數據庫中的數據表請參見附錄B4前臺主要功能模塊詳細設計4.1前臺文件總體架構1．模塊功能介紹前臺頁面主要包括以下功能模塊：網站導航：主要包括網站的旗幟廣告條、主功能導航兩部分。賓館簡介模塊：主要用于介紹賓館地理位置、室內設施、賓館大小等相關信息。地理位置模塊：主要用于介紹賓館詳細的地理位置以及乘車路線。客房服務模塊：主要用于介紹房價、房間類型、房間內部設施。會展中心模塊：主要用于介紹賓館的整體樓層布局以及各樓層的相關功能。餐飲美食模塊：主要用于介紹賓館的特色美食。商務中心模塊：主要用于介紹商務服務的具體內容。在線訂房模塊：主要用于提供在線客房預訂。意見反饋模塊：主要用于分頁顯示意見反饋信息。公告欄：主要用于展示最新添加的本地景點。其它模塊：主要用于介紹賓館的其他相關商務服務功能。管理入口模塊：主要包括登錄后臺管理入口。3．前臺頁面運行結果網站前臺首頁的運行結果如圖4所示。圖4前臺頁面運行結果為了方便讀者閱讀本章內容，將前臺頁面的各部分說明以列表形式給出，如表1所示。表1前臺首頁解析區域名稱說明對應文件1網站導航主要用于顯示網站的標題及為用戶提供前臺功能導航index.asp2公告欄主要用于展示最新添加的本地點open.asp3后臺登口管理員可以通過該入口登錄后臺index.asp4展示區用于展示相關功能的運行結果index.asp4.2網站導航設計導航是網站設計不可缺少的基礎元素之一，它不僅是信息結構的基礎分類，也是瀏覽者的網站路標。在此網站導航主要包括旗幟廣告條、功能分類導航2部分。設計完成的網站導航頁面的設計效果如圖5所示。圖5網站導航頁面設計效果1．功能分類導航條用戶可以通過功能分類導航條查看相應類別的信息，功能分類導航條主要通過傳遞參數來實現超鏈接。關鍵程序代碼如下：<Ahref="index.asp?Typeid=1">賓館簡介</A></TD>'通過傳遞參數Typeid實現超鏈接功能<Ahref="index.asp?Typeid=2">地理位置</A></TD><Ahref="index.asp?Typeid=4">會展中心</A></TD><Ahref="index.asp?Typeid=5">餐飲美食</A></TD><Ahref="index.asp?Typeid=6">商務中心</A></TD><Ahref="index.asp?Typeid=7">其他</A></TD>4.3賓館簡介管理模塊設計賓館簡介管理模塊的主要功能是介紹賓館地理位置、室內設施、賓館大小等相關詳細信息介紹。賓館簡介頁面的設計效果如圖6所示。圖6賓館簡介頁面設計效果賓館簡介頁面，主要是根據傳遞的參數（本例為Typeid為參數名進行傳遞）查找相應的記錄并顯示。查詢賓館簡介信息的程序代碼如下：<%ifrequest("Typeid")=""then'判斷接收的Typeid是否為空值Typeid=1'設置默認值elseTypeid=request("Typeid")'將接收到的Typeid值賦值給Typeidendifsetrs=server.CreateObject("adodb.recordset")sql="select*fromnewswhereTypeid="&Typeid&"orderbyDateandtimedesc"'通過時間進行降序排列rs.opensql,conn,1,1%><Ahref="index.asp?Typeid=1">賓館簡介</A>'傳遞參數Typeid<Ahref="index.asp?Typeid=2">地理位置</A><Ahref="index.asp?Typeid=4">會展中心</A><Ahref="index.asp?Typeid=5">餐飲美食</A><Ahref="index.asp?Typeid=6">商務中心</A><ahref="index.asp?Typeid=7">其他</a>通過以下代碼判斷記錄集是否為空，也就是判斷是否有符合條件的記錄，如沒有符合條件的記錄系統將給予提示。相關程序代碼如下：<%Ifnotrs.eofThen%> <%=rs("content")%> <%Else%>暫無信息<%EndIf%>通過以下代碼顯示賓館簡介內容： <%=rs("content")%>4.4客房服務管理模塊設計客房服務管理模塊的主要功能是介紹房價、房間類型、房間內部設施等，頁面設計效果如圖8.7所示。圖7客房服務管理頁面設計效果客房服務管理頁面主要用于顯示客房的相關信息，程序代碼如下：<%setrs=server.CreateObject("adodb.recordset")'獲取客房信息sql="select*fromfangjian"rs.opensql,conn,1,1functionHTMLcode(fString)ifnotisnull(fString)thenfString=Replace(fString,CHR(13),"")fString=Replace(fString,CHR(10)&CHR(10),"</P><P>")fString=Replace(fString,CHR(10),"<BR>") fString=Replace(fString,CHR(32)," ")HTMLcode=fStringendifendfunction%><tablewidth="97%"border="0"align="left"cellspacing="1"bgcolor="#000000"> <% Ifnotrs.eofThen tol=rs.recordcount fori=1totol %> <% rs.movenext'向下移動記錄指針 ifrs.eofthenexitfor'判斷當前記錄指針是否到達記錄尾 next else response.Write("暫無信息") endif %></table>4.5在線訂房管理模塊設計在線訂房管理主要用于在線預訂客房，在進行在線訂房時，所填寫的登記信息必須真實有效，否則不能預期正確地進行客房預訂。在線訂房管理模塊的頁面設計效果如圖8所示。圖8在線訂房管理頁面設計效果在線訂房管理頁面中要求輸入的信息必須是真實有效的，系統將對輸入的Email地址進行判斷、同時還要判斷到達時間與離開時間是否過期，代碼如下：<%ifmonth(date())<10then'如果當前月份小于10則在當前月份前面加0 mon=0&month(date()) else mon=month(date())'獲取當前系統月份 endif ifday(date())<10then'如果當前日期小于10則在當前日期前面加0 da=0&day(date()) else da=day(date())'獲取當前系統日期 endif setrs2=server.CreateObject("adodb.recordset") sql2="select*fromddwheretime='"&date()&"'" rs2.opensql2,conn,1,3 ifnotrs2.eofthen t=year(date)*1000000000+month(date())*10000000+day(date())*100000+rs2.recordcount+1 else t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1 endif ifrequest("post")<>""then'判斷是否接收表單值 callwrit endiffunctionwrit Email=request("email") ifrequest("name")=""orrequest("danwei")=""orrequest("sex")=""orrequest("email")=""orrequest("num")=""orrequest("guoji")=""orrequest("tel")=""orrequest("zhengjian")=""orrequest("shenfen")=""then response.Write("<scriptlanguage=javascript>alert('請把內容填寫完整');location='javascript:history.go(-1)'</script>")'判斷輸入的Email格式是否正確 elseIfInstr(Email,"@")=0OrRight(Email,1)="@"OrLeft(Email,1)="@"Then response.write"<scriptlanguage=JavaScript>"&chr(13)&"alert('請檢查您的郵件地址是否正確！');"&"history.back()"&"</script>" Response.End else mm=request("year")&"-"&request("month")&"-"&request("day")'獲得到達時間 nn=request("year1")&"-"&request("month1")&"-"&request("day1")'獲得離開時間 ifdatediff("d",mm,date())>0then'判斷達到日期和當前日期是否沖突 response.Write("<script>alert('日期已過');location='javascript:history.go(-1)'</script>") response.end endif ifdatediff("d",mm,nn)<0then response.Write("<script>alert('開始日期和結束日期填寫有誤');location='javascript:history.go(-1)'</script>") response.end endif setrs=server.CreateObject("adodb.recordset") sql="select*fromdd" rs.opensql,conn,1,3rs.addnew'通過addnew()方法添加在線訂房詳細信息 rs("name")=request("name")'添加在線訂房人姓名 rs("sex")=request("sex") rs("age")=request("age") rs("shenfen")=request("shenfen") rs("zhengjian")=request("zhengjian") rs("guoji")=request("guoji") rs("danwei")=request("danwei") rs("dtime")=mm rs("ltime")=nn rs("num")=request("num") rs("email")=request("email") rs("tel")=request("tel") rs("room")=request("room") rs("beizhu")=request("beizhu") rs("bianhao")=request("t") rs("time")=date()'添加獲取當前的日期和時間 rs.update rs.closeresponse.Write("<scriptlanguage=javascript>alert('提交成功');location='dingdan.asp'</script>") endif endfunction%>在線訂房管理頁面的運行結果如圖9所示。圖9在線訂房管理頁面運行結果4.6意見反饋管理模塊設計意見反饋管理模塊主要包括留言的發布、留言與回復留言瀏覽2部分。單擊“我要留言”超鏈接，可以進入意見反饋管理頁面。意見反饋管理頁面所涉及到的相關程序代碼如下：<% ifrequest("post")<>""then'判斷是否接收到表單值 callwrit endif functionwrit Email=request("email")'接收輸入的email地址 ifrequest("name")=""orrequest("email")=""orrequest("ICQ")=""orrequest("liuyan")=""then response.Write("<scriptlanguage=javascript>alert&_('請把內容填寫完整');location='javascript:history.go(-1)'</script>")elseIfInstr(Email,"@")=0OrRight(Email,1)="@"OrLeft(Email,1)="@"Then response.write"<scriptlanguage=JavaScript>"&chr(13)&"alert('請檢查您的郵件地址是否正確！');"&"history.back()"&"</script>" Response.End else setrs=server.CreateObject("adodb.recordset") sql="select*fromguestbook" rs.opensql,conn,1,3 rs.addnew rs("name")=request("name")'獲取添加人姓名 rs("sex")=request("sex") rs("laizi")=request("laizi") rs("email")=request("email")'獲取添加人的email地址 rs("OICQ")=request("OICQ") rs("ICQ")=request("ICQ") rs("homepage")=request("homepage") rs("liuyan")=request("liuyan")rs("time")=now()'獲取當前系統日期和時間 rs.update rs.close response.Write("<scriptlanguage=javascript>alert('提交成功')</script>") endif endfunction%>4.7公告欄模塊設計公告欄是用來發布網站最新公告信息的，目的是讓瀏覽者了解網站的最新動態。公告欄信息分為首頁滾動顯示和具體信息展示兩部分。1．首頁滾動顯示公告欄滾動顯示功能模塊位于前臺主頁的左側，它可以將網站最新的公告信息展示給用戶。公告欄滾動設計效果如圖10所示。圖10公告欄滾動顯示功能頁面設計效果實現滾動顯示主要是應用HTML中的Marquee標識符實現的。程序代碼如下：<marqueedirection="up"scrollamount="3"onMouseOver="this.stop()"onMouseOut="this.start()"height=180> <% setrs3=server.CreateObject("adodb.recordset")sql3="select*fromnewswhereTypeid=8orderbyDateandtimedesc"'取出景點的相關信息rs3.opensql3,conn,1,1 ifnotrs3.eofthendowhilenotrs3.eof %><tablewidth="100%"border="0"><tr><td><spanclass="style3">☆</span><ahref="#"onClick="window.open('open.asp?id=<%=rs3("Newsid")%>','',''單擊標題進入詳細信息頁面scrollbars=yes,width=565,height=500')"><%=rs3("title")%></a></td></tr></table><% rs3.movenext loop else response.Write("<divalign=center><fontcolor=white>暫無信息</font></div>") endif %> </marquee>公告欄滾動顯示功能頁面運行結果如圖11所示。圖11公告欄滾動顯示功能頁面運行結果2．具體信息展示滾動顯示所有信息標題，這些信息是系統按照發布的時間降序排列的。當用戶需要查看其詳細信息時，單擊其標題就可以進入詳細信息頁面。展示詳細內容頁面所涉及到的程序代碼如下：<%setrs=server.CreateObject("adodb.recordset")sql="select*fromnewswhereNewsId="&request("id")'顯示具體信息詳細頁rs.opensql,conn,1,1'打開記錄集%><%=rs("content")%>'通過以下語句進行內容的輸出5后臺主要功能模塊詳細設計5.1后臺總體架構1．模塊功能介紹后臺頁面主要包括以下功能模塊：管理首頁/退出模塊：主要用于退出后臺管理系統。網站管理模塊：主要包括更改初始信息、查看服務器信息。圖片管理模塊：主要包括空間圖片管理。信息管理模塊：主要包括賓館簡介管理、地理位置管理、會展中心管理、餐飲美食管理、商務中心管理、其他管理。景點管理模塊：主要包括旅游景點管理。房間管理模塊：主要包括房間類型、客房服務管理。訂單管理模塊：主要包括訂單管理、已確認訂單、回復管理。反饋管理模塊：主要包括反饋信息管理。系統信息管理模塊：主要用于管理本網站的版權、技術支持。3．后臺頁面運行結果網站后臺頁面的運行結果如圖12所示。2121圖12網站后臺頁面運行結果為了方便讀者閱讀此章節內容，將后臺頁面的各部分說明以列表形式給出，如表2所示。表2后臺頁面解析區域名稱說明對應文件1后臺管理導航主要用于選擇各種后臺管理操作admin/left.asp2后臺功能管理區主要用于進行各種后臺管理操作admin/quit.aspadmin/user/change.aspadmin/system/admin_server.aspadmin/adminpic.aspadmin/News/DEFAULT.ASPadmin/product/addsort.aspadmin/fguan.ASPadmin/dg/subpass.aspadmin/dg/submitsub.aspadmin/dg/email.aspadmin/guest/default.aspadmin/left.asp5.2后臺登錄模塊設計管理員通過后臺登錄入口，進入后臺登錄模塊。后臺登錄模塊主要用于驗證管理員的身份及驗證碼，設計效果如圖13所示。圖13后臺登錄模塊設計效果后臺登錄頁面所涉及的HTML表單主要元素如表3所示。表3后臺登錄頁面中涉及的HTML表單元素名稱類型含義重要屬性form1form表單method="post"action="inc/check.asp?action=login"verifycode2hidden隱藏域value="<%=session("verifycode")%>"Submitimage圖像區域value="提交"src="images/12_10.gif"后臺登錄頁面所涉及到的程序代碼如下：<% dimverifycode,verifycode2 verifycode=trim(Request.Form("verifycode"))'接收驗證碼 verifycode2=trim(Request.Form("verifycode2")) ifverifycode<>verifycode2then'判斷輸入的驗證碼與隨機產生的驗證碼是否一致 response.write"<SCRIPTlanguage=JavaScript>alert('您輸入的驗證碼不正確。');" response.write"location.href='../index.asp'</SCRIPT>" else session("verifycode")=""'清空驗證碼 ifrequest("action")="login"then'判斷是否接收表單值 admin_name=request("admin_name")

'接收用戶名 admin_pass=request("admin_pass")'接收用戶密碼 setrs=server.createobject("adodb.recordset") sql="select*fromadminwhereadmin_name='"&admin_name&"'andadmin_pass='"&admin_pass&"'" rs.opensql,conn,1,3 ifrs.eofthen response.write"<br><br><br><br><fontsize=2><center>對不起，您輸入的用戶名、密碼或驗證碼有誤，請重新輸入，謝謝！<br><br>本軟件建議您使用IE6.0以上版本，分辨率：1024*768<br><br>否則一切后果與本軟件無關，特此聲明！在此<ahref=../index.asp>返回</a></font>" else session("admin_name")=request("admin_name")'創建session("admin_name")階段變量 response.redirect"../manage.asp"'跳轉到指定的頁面 endif rs.close'關閉已打開的記錄集 setrs=nothing conn.close setconn=nothing'將不用的對象釋放掉 endif endif%>5.3管理首頁/退出模塊設計管理首頁/退出模塊主要用于退出后臺管理系統，并將Session變量清空，代碼如下：<%session("admin_name")=""'將Session變量清空response.redirect"../index.asp"%>5.4網站管理模塊設計1．網站管理模塊文件架構網站管理模塊主要包括更改初始信息、查看服務器信息2部分。2．更改初始信息模塊設計更改初始信息模塊主要用于修改用戶名、密碼、公司名稱。更改初始信息模塊的設計效果如圖14所示。圖14更改初始信息模塊設計效果更改初始信息頁面所涉及到的程序代碼如下：<% setrs=server.createobject("adodb.recordset") ifrequest("action")="change"then sql="selecttop1*fromadmin" rs.opensql,conn,3,3 rs("admin_name")=request("admin_name")'修改用戶名 rs("admin_pass")=request("admin_pass")'修改用戶密碼 rs.update rs.close response.write"您的更改已成功" elseifrequest("action")="change2"then'判斷是否接收到表單值 sql="selecttop1*fromadmin" rs.opensql,conn,3,3 rs("mingcheng")=request("mingcheng") rs.update rs.close response.write"您的更改已成功" else sql="selecttop1*fromadmin"'顯示第一條記錄 rs.opensql,conn,3,3%><%endif%>更改初始信息頁面的運行結果如圖15所示。圖15更改初始信息頁面運行結果3．查看服務器信息管理模塊設計查看服務器信息管理模塊可以查看不同服務的相關信息，如服務器的IP地址、顯示站點路徑、服務器的CPU數量等。查看服務器信息管理頁面的設計效果如圖16所示。圖16查看服務器信息管理頁面設計效果查看服務器信息管理模塊所涉及到的程序代碼如下：<tdwidth="30%"valign=middle>顯示客戶發出的所有HTTP標題</td><tdwidth="70%"><%=request.ServerVariables("All_Http")%></td></tr><tr><tdwidth="30%"valign=top>檢取ISAPIDLL的metabase路徑</td><tdwidth="70%"><%=request.ServerVariables("APPL_MD_PATH")%></td></tr><tr><tdwidth="30%"valign=top>顯示站點物理路徑</td><tdwidth="70%"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr><tr><tdwidth="30%"valign=top>路徑信息</td><tdwidth="70%"><%=request.ServerVariables("PATH_INFO")%></td></tr><tr><tdwidth="30%"valign=top>顯示請求機器IP地址</td><tdwidth="70%"><%=request.ServerVariables("REMOTE_ADDR")%></td></tr><tr><tdwidth="30%"valign=top>服務器IP地址</td><tdwidth="70%"><%=Request.ServerVariables("LOCAL_ADDR")%></td></tr><tr><tdwidth="30%"valign=top>顯示執行SCRIPT的虛擬路徑</td><tdwidth="70%"><%=request.ServerVariables("SCRIPT_NAME")%></td></tr><tr><tdwidth="30%"valign=top>返回服務器的主機名，DNS別名，或IP地址</td><tdwidth="70%"><%=request.ServerVariables("SERVER_NAME")%></td></tr><tr><tdwidth="30%"valign=top>返回服務器處理請求的端口</td><tdwidth="70%"><%=request.ServerVariables("SERVER_PORT")%></td></tr><tr><tdwidth="30%"valign=top>協議的名稱和版本</td><tdwidth="70%"><%=request.ServerVariables("SERVER_PROTOCOL")%></td></tr><tr><tdwidth="30%"valign=top>服務器的名稱和版本</td><tdwidth="70%"><%=request.ServerVariables("SERVER_SOFTWARE")%></td></tr><tr><tdwidth="30%"valign=top>服務器操作系統</td><tdwidth="70%"><%=Request.ServerVariables("OS")%></td></tr><tr><tdwidth="30%"valign=top>腳本超時時間</td><tdwidth="70%"><%=Server.ScriptTimeout%>秒</td></tr><tr><tdwidth="30%"valign=top>服務器CPU數量</td><tdwidth="70%"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>個</td></tr><tr><tdwidth="30%"valign=top>服務器解譯引擎</td><tdwidth="70%"><%=ScriptEngine&"/"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."&ScriptEngineBuildVersion%></td></tr></table>5.5圖片管理模塊設計圖片管理模塊的主要功能包括圖片大小、類型、修改時間、刪除、文件預覽5部分，圖片管理頁面的設計效果如圖17所示。圖17圖片管理頁面設計效果圖片管理頁面中獲取上傳圖片的相關信息所涉及到的程序代碼如下：<% ConstPageCount=7'定義常量 ifrequest("page")<>""then'判斷是否接收到表單值 requestpage=cint(request("page"))'返回表達式值為整數 else requestpage=1 endif MaxPage=PageCount UploadPath="eWebEditor/UploadFile"'圖片存放的文件夾地址 strFileName="adminpic.asp" TruePath=Server.MapPath(UploadPath)'轉換為實際路徑 Ifnotobjstr("Scripting.FileSystemObject")Then Response.Write"<b><fontcolor=red>你的服務器不支持FSO(Scripting.FileSystemObject)!不能使用本功能</font></b>" Else setfso=CreateObject("Scripting.FileSystemObject")'創建fso對象 ifrequest("Action")="Del"then'如果Action不為空，進入刪除模塊 callDelFile() endif iffso.FolderExists(TruePath)then'檢查路徑是否存在 FileCount=0 TotleSize=0 SettheFolder=fso.GetFolder(TruePath)'讀取文件 ForEachtheFileIntheFolder.Files FileCount=FileCount+1'利用循環得出總的文件數 TotleSize=TotleSize+theFile.Size'利用循環得出文件的總體大小 next totalPut=FileCount'獲取總文件數 '分頁顯示 ifrequestpage<1then'在當前頁碼為小于1的值時，使其值等于1 requestpage=1 endif if(request1)*MaxPage>totalputthen if(totalPutmodMaxPage)=0then requestpage=totalPut\MaxPage else requestpage=totalPut\MaxPage+1endif endif ifrequestpage=1then'在當前頁碼等于1時，調用顯示模塊 showContent showpage2strFileName,totalput,MaxPage else'在當前頁碼不等于1時，調用相應顯示模塊 if(request1)*MaxPage<totalPutthen showContent showpage2strFileName,totalput,MaxPage else requestpage=1 showContent showpage2strFileName,totalput,MaxPage endif endif else response.write"找不到文件夾！可能是配置有誤！" endif endif subshowContent() dimc FileCount=0 TotleSize=0%>通過以下代碼實現分頁跳轉功能、通過復選框刪除選中的文件的相關程序代碼如下所示：<% endsub'顯示頁碼的過程 subshowpage2(sfilename,totalnumber,MaxPage) dimn,i,strpage iftotalnumbermodMaxPage=0then n=totalnumber\MaxPage else n=totalnumber\MaxPage+1 endifstrpage="<tablealign='center'><formname='showpages'method='Post'action='"&sfilename&"'><tr><td>" strpage=strpage&"共<b>"&totalnumber&"</b>個文件" ifrequestpage<2then strpage=strpage&"第一頁上一頁 " else strpage=strpage&"<ahref='"&sfilename&"?page=1'>第一頁</a> "strpage=strpage&"<ahref='"&sfilename&"?page="&(request1)&"'>上一頁</a> "endififn-requestpage<1then strpage=strpage&"下一頁尾頁" elsestrpage=strpage&"<ahref='"&sfilename&"?page="&(requestpage+1)&"'>下一頁</a> " strpage=strpage&"<ahref='"&sfilename&"?page="&n&"'>尾頁</a>" endifstrpage=strpage&" 頁次：<strong><fontcolor=red>"&requestpage&"</font>/"&n&"</strong>頁" strpage=strpage&" <b>"&MaxPage&"</b>"&"個文件/頁" strpage=strpage&" 轉到：<selectname='page'size='1'onchange='javascript:submit()'>" fori=1ton strpage=strpage&"<optionvalue='"&i&"'" ifcint(requestpage)=cint(i)thenstrpage=strpage&"selected" strpage=strpage&">第"&i&"頁</option>" next strpage=strpage&"</select>" strpage=strpage&"</td></tr></form></table>" response.writestrpage endsub subDelFile()'刪除文件過程 dimselectfile,splitFileName,i selectfile=trim(Request("FileName"))'獲取選中文件集合 ifselectfile=""thenexitsub'如果文件為空跳出過程 ifinstr(selectfile,",")>0then splitFileName=split(selectfile,",") fori=0toubound(splitFileName) ifleft(trim(splitFileName(i)),3)<>"../"andleft(trim(splitFileName(i)),1)<>"/"then selectfile=server.MapPath(UploadPath&"/"&trim(splitFileName(i))) setthisfile=fso.GetFile(selectfile) thisfile.DeleteTrue endif next else'只選中一個文件時，利用循環逐個刪除文件 ifleft(selectfile,3)<>"../"andleft(selectfile,1)<>"/"then Setthisfile=fso.GetFile(server.MapPath(UploadPath&"/"&selectfile)) thisfile.DeleteTrue endif endif Response.Write("<script>alert(""刪除成功"");location.href=""adminpic.asp"";</script>") endsub%>圖片管理頁面的運行結果如圖18所示。

參考文獻［1］JSP數據庫系統開發完全手冊人民郵電出版社2006年3月 ［2］Delphi數據庫系統開發完全手冊人民郵電出版社2006年3月［3］VisualBasic數據庫系統開發完全手冊人民郵電出版社2006年3月［4］VisualC++數據庫系統開發完全手冊人民郵電出版社2006年3月［5］JSP信息系統開發實例精選機械工業出版社王國輝、牛強、李南南等2005年7月 ［6］VisualBasic信息系統開發實例精選機械工業出版社宋坤、趙智勇、劉強等2005年7月［7］SQLServer數據庫開發實例解析機械工業出版社宋昆、李嚴等2006年1月［8］Access數據庫開發實例解析機械工業出版社李俊民、高春燕等2006年1月［9］VisualBasic精彩編程200例機械工業出版社 賽奎春、高春艷等2003年1月［10］ASP數據庫開發實例解析機械工業出版社李嚴、于亞芳、王國輝 2004年12月［11］Delphi工程應用與項目實踐機械工業出版社宋坤、趙智勇等2005年1月 ［12］VisualBasic工程應用與項目實踐機械工業出版社 高春艷、李俊民等2005年1月 ［13］VisualC＋＋工程應用與項目實踐機械工業出版社 張雨、阮偉良等5005年1月［14］JSP工程應用與項目實踐機械工業出版社陳威、白偉明、李楠2005年2月［15］ASP工程應用與項目實踐機械工業出版社王國輝、牛強、李南南 2005年4月［16］VisualBasic信息系統開發實例精選機械工業出版社高春艷、李俊民、張耀庭2005年7月［17］ASP信息系統開發實例精選機械工業出版社王國輝、牛強、李南南等2005年7月 ［18］Delphi信息系統開發實例精選機械工業出版社宋坤、趙智勇、劉強等2005年7月 ［19］Visualfoxpro數據庫開發關鍵技術與實例應用人民郵電出版社周桓、張雨、王國輝2004年5月［20］PoweBuilder數據庫開發關鍵技術與實例應用人民郵電出版社劉志銘張