【文章內容簡介】 session(user)=request(user) session(pass)=request(pass) else 驗證錯誤 end if end if % 由游客發(fā)布的房屋信息不會直接顯示在首頁上，而是先存入數(shù)據(jù)庫經(jīng)過管理員審核以后才會發(fā)布在系統(tǒng)首頁上。還沒有經(jīng)過審核的信息會顯示在管理員模塊的未審核房屋信息中。 管理員需要對這些信息進行審核。如有不符合事實的情況，可以對其進行修改和刪除。代碼如下： % if session(user)= or session(pass)= then % a href= target=_top驗證錯誤或超時 ,請登錄 /a 第 10 頁 共 21 頁 % Set conn = Nothing end if sql = select * from house where 審核 =39。039。 Set rs = () sql,conn,1,3 if =0 then brbrbrcenterfont size=6沒有任何未審核的房屋信息 /font ??? if request(sh) then sql = select * from house where 編號 =39。amp。request(sh)amp。39。 rs(審核 )=1 end if if request(de) then sql = delete from house where 編號 =amp。request(de) (sql) end if % 若房屋信息是管理員直接添加或是游客發(fā)布但已經(jīng)管理員審核的房屋信息將會被歸類為已審核的房屋信息。管理員同樣可以對其進行查看、修改、刪除。其代碼和未審核房屋信息大同小異。需要修改的語句是： sql = select * from house where 審核 =39。139。 為了保證系統(tǒng)的安全性，管理員需要不定時對 帳號和密碼進行重新設定。核心代碼如下： if session(user)= or session(pass)= then a href= target=_top驗證錯誤或超時 ,請登錄/a 第 11 頁 共 21 頁 Set conn = Nothing end if sql = select * from admin Set rs = () sql,conn,1,3 if request( 姓名 ) and request( 密碼 ) then rs( 姓名)=request(姓名 ) rs(密碼 )=request(密碼 ) center 修改成功 end if 管理員可以增加房屋信息，這些信息提交以后就可以直接查看了。代碼如下： tr td width=55發(fā)布類型 /td td width=461 select size=1 name=發(fā)布類型 style=fontsize: 9pt option求租 /option option出租 /option option購買 /option option出售 /option /select/td /tr tr td width=55房屋地址 /td td width=461 span style=fontsize: /tr tr td width=55物業(yè)類型 /td td width=461 select size=1 name=物業(yè)類型 style=fontsize: 9pt 第 12 頁 共 21 頁 option普通住房 /option option商住樓 /option option二手房 /option option門面 /option /select/td /tr ???? 游客模塊 (1) 發(fā)布房屋信息 游客發(fā)布房屋信息和管理員發(fā)布房屋信息其代碼是相同的。不同的是提 交到數(shù)據(jù)庫后審核這個字段的值是不同的。管理員提交后審核為 1（表明可以直接查看了），而游客提交后審核為 0（表明需要管理員審核其真實性以后才能查看）。 (2) 房屋列表 由于數(shù)據(jù)庫中的房屋信息越來越多，不可能在首頁上全部顯示出來。所以需要一個鏈接到另一個房屋信息列表界面。比如按發(fā)布類型為出租分類的記錄超過在首頁規(guī)定顯示的記錄條數(shù)，其核心代碼如下： a href=?hcgood= 出租 更 多 信息 ....../a//如果在首頁超過了記錄條數(shù)，那么就通過 鏈接到房屋信息列表。 % if request(hcgood)thensession(hcgood)=request(hcgood) font size=6centerb房屋信息 /b/fontbr Set rs = () sql,conn,1,1 if =0 then brcenter沒有任何信息 ???? . tr td width=65 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC%=rs(2).name%/td td width=189 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC bgcolor=F5F5F5%=rs(1).name%/td td width=146 align=center style=borderstyle: borderwidth: 1px 第 13 頁 共 21 頁 bordercolor=CCCCCC%=rs(5).name%/td td width=108 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC bgcolor=F5F5F5%=rs(11).name%/td td width=78 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC%=rs(21).name%/td td width=149 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC bgcolor=F5F5F5 p align=center操作 /td /tr //從數(shù)據(jù)庫中讀出并用表格顯示出需要顯示的字段名。如 %=rs(5).name%的意思是顯示第 6 個字段的名稱。 ?? . tr td width=65 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC%=rs(2)%/td td width=189 align=left style=borderstyle: borderwidth: 1px %=rs(1)%%=rs(3)%/td td width=146 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC%=rs(4)%%=rs(5)%/td td width=78 align=center style=borderstyle: borderwidth: 1px bordercolor=CCCCCC%=rs(21)%/td /tr //從數(shù)據(jù)庫中讀出并在表格中顯示出需要顯示的字段的值。如 %=rs(4)%的意思是顯示第 5個字段中的具體值。 (3) 房屋具體信息 查看房屋具體信息這個界面可以算是系統(tǒng)中公用的界面。無論是游客還是管理員，他們查看房屋信息的時候都是同一個界面。其核心代碼如下： % if request(hcgood)= then 錯誤，非法，或數(shù)據(jù)不存在 end if ii=(hcgood) sql = select * from house where 編號 =amp。ii 第 14 頁 共 21 頁 Set rs = () sql,conn,1,1 % //這里的 hcgood 也類似于前面的指針，不過它指向的字段不同。這里它指向編號。也就是說查看房屋信息是通過查找編號來實現(xiàn)的。 ??? tr td width=64 bgcolor=F5F5F5發(fā)布類型 /td td width=475 bgcolor=F5F5F5%=rs(2)% /td /tr tr td width=64 位置 /td td width=475 %=rs(1)%%=rs(房屋地址 )% /td /tr //圖中的房屋信息是按一個表格的形式展現(xiàn)出來的，上述代碼的功能就是建立一個表格并把符合要求的字段名顯示在表格中。 ???? tr td width=64 bgcolor=F5F5F5 或 MSN/td td width=475 valign=bottom bgcolor=F5F5F5%=rs(聯(lián)系 或MSN)% /td /tr tr td width=64 height=18 備注 /td td width=475 height=18 %=rs(備注 )% /td /tr /table //上述代碼的功能就是把符合要求的字段值對應與字段名顯示在表格中。 (4) 查詢樓盤信息 第 15 頁 共 21 頁 若查詢的樓盤名稱存在，就會在界面上顯示該樓盤的具體信息。如樓盤的地址、現(xiàn)時的均價、銷售熱線等信息。其核心代碼如下： % if request(house) then session(house)=request(house) sql = select * from ask where 項目名稱 =39。amp。request(house)amp。39。 Set rs = () sql,conn,1,1 % center div align=center br table width=267 height=389 border=0 tr tdheight=289imgsrc=images/ width=350 height=263/td /tr tr td height=94%=rs(項目簡介 )%/td /tr /table //如果查看的樓盤存在，那么顯示具體的樓盤信息。 %=rs(項目簡介 )%的意思是顯示項目簡介這個字段的值。 特殊問題的解決 (1) 在首頁上顯示的房屋 信息如果超過三條就要用鏈接到房屋信息列表的方法來查看。核心代碼為： if i=3 then a href=?hcgood=出租 更多信息 ....../a end if //這段代碼實現(xiàn)了上述功能。 i 的含義是記錄的條數(shù)。 (2) 查看全部房屋信息列表的時候，可能一頁不能實現(xiàn)完，那么就要用到分頁顯示。核心代碼如下： page=int( (page)) =15 pagecount= 第 16 頁 共 21 頁 if page=0 then page=1 if (page)= then page=1 =page gg=gh=int(gg) if gh=1 then gh=1 if gggh then gh=gh+1 gg=gh //這段代碼實現(xiàn)了分頁顯示的功能。 的含義是總的記錄條數(shù)，pagecount 的含義是設定每頁能顯示的條數(shù)。 gg=到 gg 就是分頁后得到總頁數(shù)。 (3) 游客和管理員在發(fā)布房屋信息的時候都存在一個問題，就是房屋信息的有效期。這里應用了 data()解決了這個問題。核心代碼如下： if newdatedate() then font color=redb此信息已過期 ,這是最后一次查看！將會自動刪除 /b/font dele=1 else 此信息沒到期，有效 end if //房屋信息過期以后 ，它不會當即就自動刪除。而是當其過期后第一次被查看后就自動刪除。 5 系統(tǒng)測試 測試環(huán)境 (1)為保證程序高效地運行，建議用戶的計算機硬件使用以下配置（或更高）：a .CPU： Intel/AMD 主頻 ： 7200 轉 /分，剩余空間 100M ： 256M ： 16位真彩，分辨率 1024*768 ： 3D光電鼠 ：標準 104 鍵 (2)在界面設計上本系統(tǒng)采用標準的 Windows 界面和資源管理器式的框架，方便用戶快速入門，并大量使用了平面的效果，給用戶比較輕松的 感覺。提示信息時幾乎都使用無模式的提示，盡量減小對用戶工作的干擾，表現(xiàn)了程序的親和力。 第 17 頁 共 21 頁 測試結果 系統(tǒng)在上述硬件環(huán)境