【正文】 tdimg src=image/ width=760 height=110 border=0 usemap=MapMapMap/td /tr /table map name=MapMapMap area shape=rect coords=222,92,273,110 href= area shape=rect coords=301,92,356,110 href= area shape=rect coords=643,92,697,110 href= area shape=rect coords=389,92,444,110 href= area shape=rect coords=558,92,616,110 href= area shape=rect coords=474,92,531,110 href= /map 該頭文件指定了頁面頭部圖片，并在圖片上設置了“熱點”，即用鼠標單擊圖片某一區(qū)域后進入相應的網(wǎng)頁。 程序清單 5 用戶登錄判斷代碼 include/ % if isempty(session(user_name)) then () () end if % 5. 注銷模塊 當用戶或者管理員完成操作后，為保證系統(tǒng)安全，系統(tǒng)提供了安全注銷功能，它是通過程序清單 6 所示的代碼實現(xiàn)的。 程序清單 8 電子郵件合法性判斷函數(shù) include/ % 39。 39。 （ 1） 生成留言列表 為了使管理員及時了解用戶意見和建議，該系統(tǒng)把查看留言列表頁面設置為管理員登錄后的首頁面，如圖 11 所示。 word_id sql,hotel_conn,3,2 set rs_del=nothing % 維護房間模塊包括顯示房間列表、刪除房間和修改房間信息 3 個功能。 （ 3） 修改房間信息 修改房間信息的功能是修改存在于數(shù)據(jù)庫中的房間信息，包括房間名稱、房間類型和費用，但是不能修改房間 ID。 當管理員正確提交了要添加新房間的信息后就會出現(xiàn)如圖 18 所示的成功提示，該功能是由文件 完成的，其實現(xiàn)代碼見程序清單 16 圖 17 添加新房間 程序清單 16 添加房間頁面關鍵代碼 % 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)=費用必須是數(shù)字 if len(cost) 4 then err(3)=費用不能多于 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。 amp。 preengage_id sql,hotel_conn,3,2 rs_preengage(paid)=1 datetime= rs_preengage(pyear) amp。 (rs_preengage(beginhour)+1) amp。39。 :00:00) 24 then set rs_del=() sql = delete from preengage where preengage_id= amp。 圖 522 預約統(tǒng)計 圖 23 用戶統(tǒng)計 第七章、 .用戶功能模塊 用戶功能模塊主要包括用戶登錄、用戶注冊、發(fā)表留言、瀏覽房間信息、查看房間信息、預約房間、取消預約等功能。 br) end if % % set rs_user_name = Nothing () Set rs_user = Nothing () Set room = Nothing % 該模塊分為注冊和登錄兩個功能模塊。 amp。其登錄核心代碼見程序清單 23.通過 user_id 和 psw 接收用戶在首頁填寫的用戶和密碼，并打開數(shù)據(jù)庫在 user_reg用戶信息表中查詢，如果找到了相應的記錄則將用戶名寫入 session(“user_name”),并給變量 haverr 賦值為 0 作為顯示正確登錄的標識。 39。實現(xiàn)代碼見程序清單 25 圖 27 查詢房間 程序清單 25 查詢功能實現(xiàn)代碼 % set_room=(set_room) set_cost=(set_cost) % form name=form1 method=post action= table width=533 border=0 class=table_small tr td colspan=2 /td /tr tr td colspan=2 class=text_titlediv align=left請給出查詢條件： /div/td /tr tr td colspan=2 class=table_title /td /tr tr td colspan=2 class=textdiv align=left p查看所有費用上限 select name=set_cost class=select_filed2 id=set_cost option selected不作要求 /option option50 元 /option option200 元 /option option400 元 /option option600 元 /option option600 元以上 /option /select 的 select name=set_room class=select_filed2 id=set_room option selected所有 /option option 總統(tǒng)套房 /option option觀光二人間 /option option標準間。 amp。 amp。 39。 sql,hotel_conn,3,1 (歡迎您， amp。 sql,hotel_conn,3,2 rs_user_female = rs_user(female) rs_user_total = rs_user_male + rs_user_female % 用戶統(tǒng)計實現(xiàn)了統(tǒng)計用戶總數(shù)和計算男女用戶比例的功能，其界面如圖 22所示。 amp。 amp。 rs_preengage(beginhour) amp。 :00 %/div/td tddiv align=left%= rs_preengage(cost) %/div/td tddiv align=left[a href=?preengage_id=%= rs_preengage(preengage_id) %確認預約 /a][a href=?preengage_id=%= rs_preengage(preengage_id) %刪除 /a]/div/td /tr % wend % tr td colspan=6 /td /tr tr td colspan=6 /td /tr /table % Else 39。 圖 19 所示是顯示預約列表頁面，圖 20 所示是預約確認成功提示信息頁面，它們的實現(xiàn)都由文件 完成，它們的實現(xiàn)代碼見程序清單 17 圖 19 預約列表 圖 20 預約確認 程序清單 17 確認預約功能核心代碼 % dim preengage_id,rs_preengage,sql,rs_room,datetime preengage_id=request(preengage_id) set rs_preengage=() If preengage_id= Then sql = select * from preengage where paid = 0 sql,hotel_conn,3,2 % br table width=584 border=0 class=table_small tr td colspan=6 /td /tr tr td colspan=6 class=text_titlediv align=left預約確認 /div/td /tr tr td colspan=6 class=table_title /td /tr tr class=text td width=86div align=left預約用戶 /div/td td width=125 class=textdiv align=left房間名稱/div/td td width=89div align=left預約日期 /div/td td width=89div align=left預約時間 /div/td td width=61div align=left費用 /div/td td width=104div align=left操作 /div/td /tr % while (not ) % tr class=text tddiv align=left%= rs_preengage(user_name) %/div/td td class=text div align=left % set rs_room=() sql = select