【文章內容簡介】 詢模塊 ： 圖 5用戶信息查詢界面 在這個窗口，用戶可以查詢當前企業(yè)內的宿舍情況，對信息進行篩選，將自己要查找的信息找到。 用戶留言模塊 用戶留言 ： 圖 6用戶留言界面 這個窗口對企業(yè)內的所有員工開放。在這個窗口可以進行留言操作 ， 交流自己的心聲。可以選擇頭像，心情，寫入留言內容，等待管理員的回復。 后臺管理窗口 后臺管理窗口 ： 圖 7 后臺管理窗口 為了確保公寓信息的準確性和管理員與用戶操作的方便性，對 管理員賦有比較特殊的權限，不但具備用戶的所有操作，管理員還可對所有的宿舍信息進行相關的操作（審核、添加、刪除、修改），這符合管理員的管理需求，同時管理員還可以查看所有的宿舍信息、管理水電費、留言簿管理等，在本系統(tǒng)的首頁就設有相關的入口界面，前面已做了相應的介紹，此處就不再做過多講述了。 代碼如下： % name=request(name) Pwd=request (password) Session (name) =name Session (pwd) =pwd Dim objconn Set objconn= () =provider=。amp。data source=amp。() rs=select * from yanz where name=39。amp。nameamp。39。and pwd=39。amp。pwdamp。39。 Set s= (rs) if then Response. write 對不起 ! 用戶名或密碼錯誤 Else if name=or pwd= then response. write對不起 !你還沒有輸入你的資料 Else Response. Redirect () End if % 宿舍管理窗口 宿舍管理界面 ： 圖 8宿舍管理窗口界面 在系統(tǒng)用戶名和密碼都正確的情況下，我們就進入到本系統(tǒng)的核心部分。管理員可以在這個界面以選擇查詢房間信息，房間入住，退房管理，水電費管理。對本系統(tǒng)的數(shù)據(jù)進行操作。在這里由于系 統(tǒng)做得不是很完整，所以先設置了一個數(shù)據(jù)庫，設備了幾個數(shù)據(jù)庫。在完善的情況下，應該有增加管理員，管理信息修改等功能。 查詢信息窗口 查詢信息窗口 ： 圖 9查詢信息窗口界面 這是本系統(tǒng)供管理員進行查詢信息的窗口。在這個窗口管理員可以按照房間信息，員工信息，可入住房間進行查詢。在查找到空房間后，可以進行入住操作。使本查詢方便快捷。在這里代碼僅以房間信息查詢?yōu)槔渌鼏T工信息查詢，可入住房間查詢情況類似。 其代碼如下： % Dim objconn Set objconn= () =provider=。amp。data source=amp。 () % % No=request. form(No) roomNo=request. form (roomNo) sqlly=select * from student where 幢號 =39。amp。Noamp。39。 and 宿舍號=39。amp。roomNoamp。39。 Set rsly= () sqlly,objconn,1,3 if (No=or roomNo=) then Response. write幢號和寢室不能為空 ! Else if then Response. write沒有你要查找的寢室 ! End if End if % 房間入住窗口 房間入住窗口 ： 圖 10房間入住窗口界面 在這個窗口管理員可以對新員工進行入住操作。將新員工的姓名，部門，房間費用，家庭住址，寢室電話等基本信息錄入到入住的房間內。以便以其它的用戶在查詢房間時，可以不用再出現(xiàn)希望入住的房間才發(fā)現(xiàn)早已有人住的尷尬情況。 其代碼如下： % dim objconn Set objconn= () =provider=。amp。data source=amp。 () dh=request. form(dh) ss=request. form(ss) xm=request. form(xm) bm=request. form(bm) zw=request. form(zw) xl=request. form(xl) gly=(gly) jtzz=(jtzz) tel=(tel) tel1= (tel1) sqlly=select * from student where 幢號 =39。amp。dhamp。39。and 宿舍號=39。amp。ssamp。39。 set s=(sqlly) if not then query=update student set 幢號 =39。amp。dhamp。39。，宿舍號 =39。amp。ssamp。39。，姓名=39。amp。xmamp。39。，部門 =39。amp。bmamp。39。，房間費用 =39。amp。zwamp。39。，是否空缺 =39。amp。xlamp。39。，管理員=39。amp。glyamp。39。，家庭住址 =39。amp。jtzzamp。39。，寢室電話 =39。amp。telamp。39。，是否交費 =39。amp。tel1amp。39。 where 幢號 =39。amp。dhamp。39。and 宿舍號 =39。amp。ssamp。39。 query Response. Redirect() Else query=insert into student(幢號，宿舍號，姓名，部門，房間費用，是否空缺，管理員，家庭住址，寢室電話，是否交費 ) values(39。amp。dhamp。39。， 39。amp。ssamp。39。，39。amp。xmamp。39。， 39。amp。bmamp。39。， 39。amp。zwamp。39。， 39。amp。xlamp。39。， 39。amp。glyamp。39。， 39。amp。jtzzamp。39。， 39。amp。telamp。39。，39。amp。tel1amp。39。) query Response. Redirect () End if Set objconn=nothing % 退房管理窗口 退房管理窗口 ： 圖 11退房管理窗口界面 在這個窗口可以進行退房操作。 其代碼如下： % Dim objconn Set objconn= () =provider=。amp。data source=amp。 () Set rs= () Ss=request (ss) (update student set 姓名 =39。無 39。,部門 =39。無 39。,房間費用 =39。無 39。,是否空缺 =39。是 39。,管理員 =39。無 39。,家庭住址 =39。無 39。,寢室電話 =39。無 39。,是否交費 =39。否 39。 where 宿舍號 =39。amp。ssamp。39。 ) Set objconn=nothing Response. Redirect % 費用管理選擇操作窗口 費用管理選擇操作窗口 ： 圖 12費用管理窗口界面 在這個窗口可以管理員可以選擇對水電費指數(shù)錄入和交水電費操作。首先對水電費用指數(shù)進行錄入，然后再對完成用戶交費的功能。 登記水電指數(shù)操作窗口 登記水電指數(shù)操作窗口 ： 圖 13登記交費指數(shù)窗口界面 在這個窗口可以進行已用水電進行錄入操作。 將輸入的數(shù)據(jù)存入 WE 表內。以便管理員對水電費數(shù)據(jù)進 行管理，在用戶進行交費操作時，即可輕松找到該用戶需要交的水電費 ,方便快捷 。 其代碼如下： % No= (No) RoomNo= (roomNo) name1= (Name) Ele= (ele) Water= (water) Price=ele*session (eleprice)+water*session(waterprice) jiaofei=未交 Dim objconn Set objconn= () =provider=。amp。data source=amp。 () Set rsly= () (insert into WE values(39。amp。Noamp。39。， 39。amp。roomNoamp。39。，39。amp。name1amp。39。， 39。amp。eleamp。39。， 39。amp。wateramp。39。， 39。amp。priceamp。39。， 39。amp。jiaofeiamp。39。)) Response. Redirect () % 交水電費管理窗口 交水電費管理窗口 ： 圖 14交水電費窗口界面 在這個界面可以完成交費功能。 其代碼如下： %dim objconn Set objconn= () =provider=。amp。data source=amp。 () No=request. form (No) RoomNo=request. form (roomNo) Session (No) =No1 Session (roonNo)=roomNo1 sqlly=select * from WE where 幢號 =39。amp。No1amp。39。and 宿舍號=39。amp。roomNo1amp。39。 Set rsly= () sqlly, objconn, 1, 3 if (No=or roomNo=) then Response. write幢號和寢室不能為空 ! Else if then Response. write沒有你要查找的寢室 ! End if End if % % SFJQ=request. form (sfjq) Dim objconn Set objconn= () =provider=。amp。data source=amp。 () sqlly=select * from WE where 幢號 =39。amp。session(No)amp。39。 and 宿舍號=39。amp。session(roomNo)amp。39。 Set rsly= () sqlly, objconn, 1, 3 (update WE set 交費否 =39。amp。SFJQamp。39。) Response. Redirect ( % 留言簿管理登錄窗口 留言簿管理登錄窗口 ： 圖 15留言簿 管理登錄 窗口界面 在這個窗口可以以管理員的身份登錄留言簿的管理窗口。在管理成功登錄到該模塊后，對用戶留言進行管理。可以進行留言的回復，刪除，信息的更新。在這里數(shù)據(jù)庫有一個一個管理員的數(shù)據(jù)庫，可以對數(shù)據(jù)庫的管理員進行判斷，當正確時，則進入到管理員界面。當用戶登錄失敗次數(shù)超過三次，則會被鎖定。 其代碼如下： % if request(action)=yes then Glyname=request. form (glyname) Glymima=request. form (glymima) a=request. Form (a) Glyzt=request. Form (glyzt) if glyname= or glymima= then Response. Write(script language=javascriptalert(39。賬號密碼不能為空 !39。)。history. go(1)/script) end if if a= then Response. write SCRIPT language=JavaScriptalert(39。請?zhí)顚戲炞C碼39。)。 =39。vbscript: history. back ()39。 /SCRIPT Response. End end if glymima=md5(request. form(glymima)) sql=select * from gly where glyname=39。amp。glynameamp。39。 and glymima=39。amp。glymimaamp。39。 set rs=(sql) if or then Response. write script language=javascript response. write alert(39。密碼不正確或已賬號被鎖定 !39。)。 response. write javascript: history. go (1)。 response. write /script Else Response. Cookies (glyname) =rs (glyname)39。 response. cookies(glysf)=rs(glysf) session(glyname)=glyname session(glymima)=glymima Response. redirect end if end if % 留言簿管理操作窗口 留言簿管理操作窗口 ： 圖 16