|
4.4 系统功能模块的设计与实现 4.4.1 系统首页 paper51.com 首页共分为两大功能模块。管理员和普通用户（游客）权限。管理员有管理所有房屋信息的权限，游客可以发布和查看房屋信息。 paper51.com
首页上显示的房屋信息都是从数据库中读出并显示的。这些房屋信息主要可以分为三种类型查看：按发布类型、物业类型、位置。利用SQL语句，设定一个字段的值。代码（按发布类型查看）如下： 内容来自www.paper51.com <% 内容来自论文无忧网 www.paper51.com
sql= "select * from house where 发布类型='出租' and 审核='1' order by 编号 desc" 内容来自www.paper51.com
Set rs =Server.CreateObject("ADODB.RecordSet") 内容来自www.paper51.com
rs.Opensql,conn,1,1 copyright paper51.com ifrs.recordcount<>0 then paper51.com i=0 paper51.com
fori=1 to 3 http://www.paper51.com %> 内容来自www.paper51.com <ahref=houseview.asp?hcgood=<%=rs(0)%>><%=rs("位置")%><%=rs("房屋地址")%><%=rs("物业类型")%><%=rs("房屋结构")%></a></td> 内容来自www.paper51.com <% paper51.com rs.movenext http://www.paper51.com ifrs.eof then exit for paper51.com next 内容来自论文无忧网 www.paper51.com endif copyright paper51.com %> http://www.paper51.com
…… copyright paper51.com
<tdstyle="padding-left: 4px; padding-right: 4px; padding-top: 1px;padding-bottom: 1px" colspan="2" align="right"> 内容来自www.paper51.com <% http://www.paper51.com ifi=>3 then 内容来自论文无忧网 www.paper51.com response.write"<a href=houselist.asp?hcgood=出租>更多信息......</a>" copyright paper51.com endif copyright paper51.com %> copyright paper51.com 同样的求租、出售、求购和以上代码也是大同小异。只需要改一些关键语句如： http://www.paper51.com
sql= "select * from house where 发布类型='求租/出售/求购 ' and 审核='1'order by 编号 desc http://www.paper51.com
response.write"<a href=houselist.asp?hcgood=出租>更多信息......</a>" paper51.com response.write"<a href=houselist.asp?hcgood=求租/出售/求购>更多 信息...... copyright paper51.com 按位置查看、按物业类型查看和按发布类型查看也是大同小异。比如按位置在成都的查看： copyright paper51.com sql= "select * from house where 位置='成都' and 审核='1' order by 编号 desc" 内容来自论文无忧网 www.paper51.com response.write "<a href=houselist.asp?hcgood=成都>更多信息......。另外几个主要地区和物业类型也是基本相同的，只需要改变位置和hcgood的值。这里需要特别声明的是hcgood的含义。它类似于一个指针，可以指向任何一个房屋信息表的字段。如发布类型、位置、物业类型等等。 http://www.paper51.com 4.4.2 管理员模块的实现 copyright paper51.com
管理员通过帐号和密码的验证进入管理端界面。代码如下： paper51.com <% 内容来自论文无忧网 www.paper51.com
sql= "select * from admin where 姓名='"&request("user")&"'" http://www.paper51.com Setrs = Server.CreateObject("ADODB.RecordSet") copyright paper51.com rs.Opensql,conn,1,1 内容来自www.paper51.com ifrs.recordcount=0 then http://www.paper51.com response.redirect"check1.asp" copyright paper51.com endif 内容来自www.paper51.com response.writerequest("user") paper51.com
response.writers("姓名") 内容来自www.paper51.com
ifrequest("user")=rs("姓名") andrequest("pass")=rs("密码") then paper51.com session("user")=request("user") 内容来自论文无忧网 www.paper51.com
session("pass")=request("pass") http://www.paper51.com
response.redirect"adminindex.asp" 内容来自论文无忧网 www.paper51.com else 内容来自www.paper51.com response.write"验证错误" copyright paper51.com endif paper51.com endif 内容来自论文无忧网 www.paper51.com %> 内容来自www.paper51.com 由游客发布的房屋信息不会直接显示在首页上，而是先存入数据库经过管理员审核以后才会发布在系统首页上。还没有经过审核的信息会显示在管理员模块的未审核房屋信息中。 内容来自论文无忧网 www.paper51.com
管理员需要对这些信息进行审核。如有不符合事实的情况，可以对其进行修改和删除。代码如下： paper51.com <% http://www.paper51.com
ifsession("user")="" orsession("pass")="" then paper51.com
%> paper51.com <ahref="admin.asp" target=_top>验证错误或超时,请登录</a> copyright paper51.com <% 内容来自论文无忧网 www.paper51.com conn.Close 内容来自www.paper51.com
Setconn = Nothing paper51.com response.end 内容来自论文无忧网 www.paper51.com
endif 内容来自论文无忧网 www.paper51.com sql= "select * from house where 审核='0'" 内容来自www.paper51.com Setrs = Server.CreateObject("ADODB.RecordSet") http://www.paper51.com rs.Opensql,conn,1,3 内容来自www.paper51.com ifrs.recordcount=0 then paper51.com response.write"<br><br><br><center><font size=6>没有任何未审核的房屋信息</font>" 内容来自论文无忧网 www.paper51.com response.end copyright paper51.com
……… http://www.paper51.com ifrequest("sh")<>"" then 内容来自www.paper51.com sql= "select * from house where 编号='"&request("sh")&"'" copyright paper51.com rs("审核")="1" copyright paper51.com rs.update 内容来自www.paper51.com
response.redirect"admin2.asp" 内容来自论文无忧网 www.paper51.com endif paper51.com ifrequest("de")<>"" then copyright paper51.com sql= "delete from house where 编号="&request("de") copyright paper51.com conn.Execute(sql) 内容来自论文无忧网 www.paper51.com response.redirect"adminlist.asp" copyright paper51.com endif copyright paper51.com %> http://www.paper51.com 若房屋信息是管理员直接添加或是游客发布但已经管理员审核的房屋信息将会被归类为已审核的房屋信息。管理员同样可以对其进行查看、修改、删除。其代码和未审核房屋信息大同小异。需要修改的语句是：sql = "select * from house where 审核='1'"。 内容来自论文无忧网 www.paper51.com 为了保证系统的安全性，管理员需要不定时对帐号和密码进行重新设定。核心代码如下： 内容来自论文无忧网 www.paper51.com ifsession("user")="" orsession("pass")="" then 内容来自www.paper51.com
response.write"<a href=admin.asp target=_top>验证错误或超时,请登录</a>" http://www.paper51.com conn.Close paper51.com Setconn = Nothing 内容来自www.paper51.com response.end paper51.com endif 内容来自www.paper51.com sql= "select * from admin" 内容来自论文无忧网 www.paper51.com Setrs = Server.CreateObject("ADODB.RecordSet") paper51.com rs.Opensql,conn,1,3 paper51.com ifrequest("姓名")<>"" and request("密码")<>"" then rs("姓名")=request("姓名") 内容来自www.paper51.com
rs("密码")=request("密码") 内容来自www.paper51.com rs.update http://www.paper51.com response.write"<center>" paper51.com response.write"修改成功" paper51.com endif http://www.paper51.com
管理员可以增加房屋信息，这些信息提交以后就可以直接查看了。代码如下： 内容来自www.paper51.com <tr> paper51.com
<tdwidth="55">发布类型</td> 内容来自论文无忧网 www.paper51.com <tdwidth="461"> 内容来自www.paper51.com <selectsize="1" name="发布类型" style="font-size: 9pt"> paper51.com <option>求租</option> copyright paper51.com
<option>出租</option> paper51.com
<option>购买</option> paper51.com <option>出售</option> http://www.paper51.com </select></td> paper51.com </tr> 内容来自论文无忧网 www.paper51.com <tr> 内容来自www.paper51.com
<tdwidth="55">房屋地址</td> http://www.paper51.com <tdwidth="461"> 内容来自www.paper51.com <spanstyle="font-size: 10.5pt"> copyright paper51.com </tr> 内容来自论文无忧网 www.paper51.com
<tr> 内容来自论文无忧网 www.paper51.com <tdwidth="55">物业类型</td> http://www.paper51.com
<tdwidth="461"> copyright paper51.com <selectsize="1" name="物业类型" style="font-size: 9pt"> paper51.com <option>普通住房</option> paper51.com <option>商住楼</option> 内容来自论文无忧网 www.paper51.com <option>二手房</option> 内容来自www.paper51.com <option>门面</option> http://www.paper51.com </select></td> 内容来自www.paper51.com </tr> copyright paper51.com ………… paper51.com 4.4.3 游客模块 内容来自www.paper51.com (1) 发布房屋信息 http://www.paper51.com
游客发布房屋信息和管理员发布房屋信息其代码是相同的。不同的是提交到数据库后审核这个字段的值是不同的。管理员提交后审核为1（表明可以直接查看了），而游客提交后审核为0（表明需要管理员审核其真实性以后才能查看）。 paper51.com (2) 房屋列表 paper51.com
由于数据库中的房屋信息越来越多，不可能在首页上全部显示出来。所以需要一个链接到另一个房屋信息列表界面。比如按发布类型为出租分类的记录超过在首页规定显示的记录条数，其核心代码如下： http://www.paper51.com response.write "<ahref=houselist.asp?hcgood=出租>更多信息......</a>"//如果在首页超过了记录条数，那么就通过链接到房屋信息列表。 http://www.paper51.com
<% 内容来自www.paper51.com ifrequest("hcgood")<>""thensession("hcgood")=request("hcgood") 内容来自www.paper51.com response.write"<font size=6><center><b>房屋信息</b></font><br>" 内容来自www.paper51.com Setrs = Server.CreateObject("ADODB.RecordSet") paper51.com
rs.Open sql,conn,1,1 http://www.paper51.com if rs.recordcount=0 then 内容来自www.paper51.com response.write "<br><center>没有任何信息" 内容来自www.paper51.com
response.end//从数据库中读出符合SQL语句的记录 内容来自www.paper51.com
|