【文章內(nèi)容簡介】 當(dāng)用戶違規(guī)操作是，系統(tǒng)會跳轉(zhuǎn)到錯誤提示頁面，如圖 9 所示。 第六章、管理功能模塊 有關(guān)管理員操作的各個頁面必須在管理員登入后方可進(jìn)入，因此，在這些頁面的頭部都加入了管理員登入驗證代碼。 登入模塊是管理員進(jìn)入管理系統(tǒng)的入口，通過核實管理員名和密碼來核實管理員身份，圖 10 所示管理員頁面。 圖 10 管理員登錄頁面 提交的用戶名和密碼文件由 進(jìn)行處理，并由它完成判斷和跳轉(zhuǎn)，程序清單 9 是 文件的實現(xiàn)代碼。 程序清單 9 管理員登錄驗證 % dim admin_name,admin_psw,rs_admin admin_name=(admin_name) admin_psw=(admin_psw) Set rs_admin = () sql = SELECT * FROM admin where admin_name=39。 amp。 admin_name amp。 39。 amp。 and admin_psw=39。 amp。 admin_psw amp。 39。 sql,hotel_conn,3,2 if or then () () else session(admin_name)= rs_admin(admin_name) () end if % 如果管理員驗證成功則進(jìn)入查看留言模塊 文件，反之則轉(zhuǎn)至提示管理員錯誤登錄頁面 文件。 留言功能是為了提供與用戶的交互活動而設(shè)計的，它包括生成留言列表、閱讀留言和刪除留言 3 大部分。 （ 1） 生成留言列表 為了使管理員及時了解用戶意見和建議，該系統(tǒng)把查看留言列表頁面設(shè)置為管理員登錄后的首頁面，如圖 11 所示。該功能由 文件實現(xiàn)，見程序清單 10 圖 11 留言列表 見程序清單 10 生成留言列表核心代碼 % dim rs_word,sql,readurl set rs_word=() sql = select * from word sql,hotel_conn,3,2 while (not ) readurl=?word_id= amp。 rs_word(word_id) % tr class=text tddiv align=left%= rs_word(user_name) %/div/td tddiv align=left%= rs_word(word_id) %/div/td tddiv align=left%= rs_word(datetime) %/div/td td div align=left a href=%= readurl % target=_blank%= rs_word(title) %/a /div /td /tr % wend set rs_word = nothing % (2)閱讀留言模塊 當(dāng)管理員在留言列表中單擊留言標(biāo)題時會彈出閱讀流言界面，如圖 12 所示。 閱讀留言代碼的實現(xiàn)比較簡單，直接讀取數(shù)據(jù)庫留言表 word 中的留言信息，并構(gòu)造刪除留言鏈接，其實現(xiàn)代碼見程序清單 11 圖 12 閱讀留言 程序清單 11 閱讀留言核心代碼 % dim word_id,rs_word,sql word_id=request(word_id) if word_id= then () set rs_word=() sql = select * from word where word_id = amp。 word_id sql,hotel_conn,3,2 delurl=?word_id= amp。 word_id % (3)刪除留言模塊 刪除功能基本上是每個含有數(shù)據(jù)庫的網(wǎng)站的必要功能。當(dāng)管理員需要刪除無用留言時，就會使用文件 ，程序清單 12 是其實現(xiàn)代碼。 % dim word_id,rs_del,sql word_id=request(word_id) if word_id= then () set rs_del=() sql = delete from word where word_id = amp。 word_id sql,hotel_conn,3,2 set rs_del=nothing % 維護(hù)房間模塊包括顯示房間列表、刪除房間和修改房間信息 3 個功能。 （ 1） 顯示房間列表 圖 13 所示為房間列表的顯示頁面。從圖中可以看出，可以對房間進(jìn)行刪除或修改操作。 房間列表的功能實現(xiàn)是由文件 完成的，其代碼見程序清單 14 圖 13 房間列表 程序清單 13 房間列表實現(xiàn)核心代碼 % dim rs_room,sql,delurl,editurl set rs_room=() sql = select * from room sql,hotel_conn,3,2 while (not ) delurl=?room_id= amp。 rs_room(room_id) editurl=?room_id= amp。 rs_room(room_id) % tr class=text tddiv align=left%= rs_room(room_id) %/div/td tddiv align=left%= rs_room(name) %/div/td tddiv align=left%= rs_room(type) %/div/td tddiv align=left%= rs_room(cost) %/div/td td div align=left [a href=%= delurl %刪除 /a] [a href=%= editurl %修改 /a] /div /td /tr % wend % （ 2） 刪除房 間 當(dāng)酒店因為某種原因不能提供預(yù)約時，管理員可以將該房間從數(shù)據(jù)庫中刪除，刪除功能的實現(xiàn)是文件 來實現(xiàn)的，程序清單 14 是實現(xiàn)刪除功能的代碼。 圖 15 刪除房間成功頁面 程序清單 14 刪除房間實現(xiàn)代碼 % dim room_id,sql,rs_del room_id=request(room_id) if room_id= then () set rs_del=() sql = delete from room where room_id= amp。 room_id sql,hotel_conn,3,2 % 當(dāng)管理員成功刪除指定房間后會顯示刪除成功界面，如圖 15 所示。 （ 3） 修改房間信息 修改房間信息的功能是修改存在于數(shù)據(jù)庫中的房間信息，包括房間名稱、房間類型和費(fèi)用，但是不能修改房間 ID。 修改房間信息功能有 和 兩個文件來完成。第一個文件用來接受管理員填寫的更新信息，第二個用來檢查數(shù) 據(jù)并寫入數(shù)據(jù)庫中。圖 16 所示是填寫房間信息表單的頁面。 圖 16 修改房間信息 程序清單 15 修改房間信息核心代碼 % dim err(4) dim room_id,room_name,room_type,cost,haveerr,rs_edit,sql room_id=(room_id) room_name=(name) room_type=(type) cost=(cost) if len(room_name) 30 then err(1)=房間名稱不能超過 30 個字符 if len(room_name) 2 then err(1)=房間名稱不能少于 2 個字符 if not IsNumeric(cost) then err(2)=費(fèi)用必須是數(shù)字 if room_type= then err(3)=房間類型不能位為空 if len(cost) 4 then err(4)=費(fèi)用不能多于 4 位數(shù) for i=1 to 4 if err(i) then haveerr=1 next If haveerr = 0 Then set rs_edit=() sql = select * from room where room_id= amp。 room_id sql,hotel_conn,3,2 rs_edit(name)=room_name rs_edit(type)=room_type rs_edit(cost)=cost % 該功能模塊的實現(xiàn)是由文件 完成的。添加房間的頁面如圖 17 所示。其實實現(xiàn)代碼比較簡單就不再詳細(xì)論述。 當(dāng)管理員正確提交了要添加新房間的信息后就會出現(xiàn)如圖 18 所示的成功提示，該功能是由文件 完成的，其實現(xiàn)代碼見程序清單 16 圖 17 添加新房間 程序清單 16 添加房間頁面關(guān)鍵代碼 % dim err(3) dim haveerr,room_name,room_type,cost,i dim rs_add,sql room_name=(name) room_type=(type) cost=(cost) if len(room_name) 30 then err(1)=房間名稱不能超過 30 個字符 if len(room_name) 2 then err(1)=房間名稱不能少于 2 個字符 if not IsNumeric(cost) then err(2)=費(fèi)用必須是數(shù)字 if len(cost) 4 then err(3)=費(fèi)用不能多于 4 位數(shù) for i=1 to 3 if err(i) then haveerr=1 next If haveerr=0 Then set rs_add=() sql = select * from room sql,hotel_conn,3,2 rs_add(name)=room_name rs_add(room_id)=room_name rs_add(type)=room_type rs_add(cost)=cost % % for i=1 to 3 if err(i) then (● amp。 err(i) amp。 br) next % % End If % % set rs_add=nothing % 預(yù)約管理模塊包括確認(rèn)預(yù)約和刪除預(yù)約兩部分，確認(rèn)預(yù)約是指在用戶已經(jīng)對指定的預(yù)約付款后，管理員在預(yù)約數(shù)據(jù)庫中將對應(yīng)的預(yù)約信息修改為為已付款操作；刪除預(yù)約用于在數(shù)據(jù)庫預(yù)約表中出現(xiàn)錯誤預(yù)約或惡意預(yù)約后，由管理員強(qiáng)制將其刪除。 （ 1） 確認(rèn)預(yù)約頁面 酒店房間預(yù)約系統(tǒng)規(guī)定 ，用戶不能取消已經(jīng)付款的預(yù)約，因為這些預(yù)約已經(jīng)被認(rèn)為是有效預(yù)約。同樣，管理員不能刪除已經(jīng)付款的預(yù)約。預(yù)約列表界面是確認(rèn)預(yù)約頁面的一部分，它將為管理員顯示所有為付款的預(yù)約，并提供“確認(rèn)預(yù)約”和“刪除”超鏈接。 圖 19 所示是顯示預(yù)約列表頁面，圖 20 所示是預(yù)約確認(rèn)成功提示信息頁面，它們的實現(xiàn)都由文件 完成，它們的實現(xiàn)代碼見程序清單 17 圖 19 預(yù)約列表 圖 20 預(yù)約確認(rèn) 程序清單 17 確認(rèn)預(yù)約功能核心代碼 % dim preengage_id,rs_preengage,sql,rs_room,datetime preengage_id=request(preengage_id) set rs_pr