【導(dǎo)讀】在本課題中，我們要用計算機技術(shù)實現(xiàn)學(xué)生公寓信息的管理。錯，有了計算機就可以方便的對各種信息進行查詢和維護了。己獨立開發(fā)系統(tǒng)的能力。系統(tǒng)包括四大功能模

　　

【正文】 rscount from roomInfo 39。查詢總的房間信息記錄數(shù) if Request(searchWay) 請選擇查詢方式 and Request(searchWay) then sqlString = sqlString amp。 where amp。 Request(searchWay) amp。 like 39。% amp。 Request(keyword) amp。 %39。 end if set rs = (sqlString) rscount = CInt(rs(rscount)) if (0=(rscount mod pagesize)) then lastpage = rscount \ pagesize else lastpage = rscount \ pagesize + 1 end if currentpage = Request(pageno) if currentpage = then currentpage = 1 else currentpage = CInt(currentpage) end if if (currentpage 1 or currentpage lastpage) then currentpage = 1 end if if currentpage = 1 then frontpage = 1 管理員登陸了？ 是 否 轉(zhuǎn)到登陸頁 根據(jù)查詢條件構(gòu)建不同的 sql 查詢語句 使用 該 sql 查詢公寓信息數(shù)據(jù)庫 根據(jù)每頁顯示記錄數(shù)計算總的頁數(shù)并根據(jù)當(dāng)前頁號顯示公寓信息 27 else frontpage = currentpage 1 end if if currentpage = lastpage then nextpage = lastpage else nextpage = currentpage + 1 end if % % sqlString = select * from roomInfo if Request(searchWay) 請選擇查詢方式 and Request(searchWay) then sqlString = sqlString amp。 where amp。 Request(searchWay) amp。 like 39。% amp。 Request(keyword) amp。 %39。 end if set rs=() sqlString,conn,1,2 if(not ) then = pagesize = currentpage For i = 1 To % 公寓房間 信息添加模塊實現(xiàn) 通過圖 45 中的‘添加新 房間 信息’進入到添加新 房間 信息模塊，其運行界面如圖 46 所示，其中打 *符號的 房間編號因為是主鍵所以為 必填字段，客戶段的 javascript 代碼會進行驗證，當(dāng)輸入好 房間 信息后，點‘添加’按扭就可以了。 28 圖 46 公寓房間信息添加運行界面 程序?qū)崿F(xiàn)原理：其實 房間 信息添加的前臺界面顯示和后 臺業(yè)務(wù)處理都在 中，其中有一個小的技巧就是在‘添加’按扭上關(guān)聯(lián)一個表單變量 submit，并且讓其值不為空就行，在程序中設(shè)置就是‘添加’，當(dāng)首次進入本頁面時，由于沒有提交表單，所有就不存在 submit 變量，這樣我們就不執(zhí)行業(yè)務(wù)處理代碼，如果把新 房間 的信息輸入完成后再點擊‘添加’按扭 ,那么 submit變量就不為空，就執(zhí)行添加房間 信息的業(yè)務(wù)代碼， 程序的流程圖如下： Submit 的值 為空？ 否 取得傳遞給程序的公寓信息各字段信息 構(gòu)造插入 sql 語句并執(zhí)行公寓信息插入操作 顯示公寓信息添加表單 管理員登陸了嗎？ 是 轉(zhuǎn)到登陸頁 否 是 29 程序的關(guān)鍵代碼如下： % dim roomNo,apartmentName,roomType,roomPrice,numberOfBed,leftNumberOfBed,roomTelephone,roomMemo,sqlString submit = Request(submit) if Request(submit) then roomNo = Request(roomNo) apartmentName = Request(apartmentName) roomType = Request(roomType) roomPrice = CSng(Request(roomPrice)) numberOfBed = CInt(Request(numberOfBed)) leftNumberOfBed = CInt(Request(leftNumberOfBed)) roomTelephone = Request(roomTelephone) roomMemo = Request(roomMemo) sqlString = insert into roomInfo(roomNo,apartmentName,roomType,roomPrice,numberOfBed,leftNumberOfBed,roomMemo) values sqlString = sqlString amp。 (39。 amp。 roomNo amp。 39。,39。 sqlString = sqlString amp。 apartmentName amp。 39。,39。 sqlString = sqlString amp。 roomType amp。 39。, sqlString = sqlString amp。 roomPrice amp。 , sqlString = sqlString amp。 numberOfBed amp。 , sqlString = sqlString amp。 leftNumberOfBed amp。 ,39。 sqlString = sqlString amp。 roomTelephone amp。 39。,39。 sqlString = sqlString amp。 39。 amp。 roomMemo amp。 39。) (sqlString) () end if function getApartmentName dim sqlString,resultString sqlString = select apartmentName from apartmentName resultString = set rs = (sqlString) while not resultString = resultString amp。 option value=39。 amp。 rs(apartmentName) amp。 39。 amp。rs(apartmentName) amp。 /option wend getApartmentName = resultString end function % 30 公寓 房間 信息修改模塊實現(xiàn) 在圖 45 的 房間 信息管理界面中，在每個 房間 記錄的后面操作中都有一個‘修改’鏈接只要點擊該鏈接進入如圖 47 一樣的信息修 改界面中，修改好 房間 的信息后，點擊‘更新’按扭就可以了。 圖 47 公寓房間信息修改界面 程序?qū)崿F(xiàn)的原理和房間 信息添加時差不多，也都使用了 submit 變量，通過判斷該值是否為空決定是否要執(zhí)行更新學(xué)生的信息， 程序的流程圖如下 : Submit 的值為空？ 否 取得傳遞給程序的 公寓 信息各字段信息 根據(jù) 房間 號構(gòu)造更新 sql 語句并執(zhí)行房間信息更新 操作 顯示該 房間 號 公寓 信息表單 管理員登陸了嗎？ 是 轉(zhuǎn)到登陸頁 否 是 31 程序的關(guān)鍵代碼如下： % dim roomNo,apartmentName,roomType,roomPrice,numberOfBed,leftNumberOfBed,roomTelephone,roomMemo,sqlString submit = Request(submit) if Request(submit) then roomNo = Request(roomNo) apartmentName = Request(apartmentName) roomType = Request(roomType) roomPrice = CSng(Request(roomPrice)) numberOfBed = CInt(Request(numberOfBed)) leftNumberOfBed = CInt(Request(leftNumberOfBed)) roomTelephone = Request(roomTelephone) roomMemo = Request(roomMemo) sqlString = update roomInfo set sqlString = sqlString amp。 apartmentName = 39。 amp。 apartmentName amp。 39。, sqlString = sqlString amp。 roomType = 39。 amp。 roomType amp。 39。, sqlString = sqlString amp。 roomPrice = amp。 roomPrice amp。 , sqlString = sqlString amp。 numberOfBed = amp。 numberOfBed amp。 , sqlString = sqlString amp。 leftNumberOfBed = amp。 leftNumberOfBed amp。 , sqlString = sqlString amp。 roomTelephone = 39。 amp。 roomTelephone amp。 39。, sqlString = sqlString amp。 roomMemo = 39。 amp。 roomMemo amp。 39。 sqlString = sqlString amp。 where roomNo = 39。 amp。 roomNo amp。 39。 (sqlString) () end if % 公寓 信息刪除模塊實現(xiàn) 在圖 45 所示的學(xué)生信息管理界面中 ,在學(xué)生信息列表的每個學(xué)生信息的前面都有一個復(fù)選框，該復(fù)選框關(guān)聯(lián)了一個數(shù)組，沒有數(shù)組變量保存了該條記錄對應(yīng)的 房間 信息的關(guān)鍵字 房間編號 ，用戶首先選中所有需要刪除的 房間 信息前面的復(fù)選框，然后點擊‘刪除’按扭，客戶段 javascript 代碼會將所有將要刪除的學(xué)生的 房間編號 組成一個集合并將該集合字符串傳遞給 ，在該頁中直接構(gòu)造一個根據(jù) 房間編號 執(zhí)行刪除的 sql 語句再執(zhí)行刪除就 ok 了 ,程序流程圖如下 : 32 客戶端搜集要刪除的學(xué)號并傳遞給 的關(guān)鍵代碼如下： function del () //用于判斷記錄有沒有選中的函數(shù) { var flag=true。 var temp=。 var tmp。 if((+) == undefined) {tmp=1}else{tmp=} if (tmp==1){ if (){ flag=false。 temp=39。 + + 39。 } }else{ for (i=0。i。i++) { if ([i].checked){ if (temp==) { flag=false。 temp=39。 + [i].value + 39。 }else{ flag=false。 temp = temp +,39。+ [i].value + 39。 } } } } if (flag){ alert(對不起，你還沒有選擇！ )} else{ if (confirm(確實要刪除？ )){ =?roomNos= + temp。 } } return !flag。 } 中執(zhí)行刪除的關(guān)鍵代碼如下： 根據(jù)房間號構(gòu)造刪除 sql 語句并執(zhí)行公寓信息刪除操作 轉(zhuǎn)到公寓信息管理頁面 管理員登陸了嗎？ 是 轉(zhuǎn)到登陸頁 否 33 % roomN