h_house.asp

一个朋友购买的商业版房产网源程序

<!-- #include file="top.asp"-->
<!--#include file="UBB.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center bgColor=#ffffff border=0>
  <TR vAlign=top> 
    <TD width=180> <TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR> 
          <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                <td width="94%" background="images/left_02.gif">热门房源</td>
                <td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20><table width="100%" border="0" cellspacing="0" cellpadding="3">
              <% set rsHTOP=server.createobject("adodb.recordset")
				  sqlHTOP="select top 10 * from house order by FW_lls desc"
				  rsHTOP.open sqlHTOP,conn,3,3
		          for i=1 to 10 %>
              <tr> 
                <td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <td width="90%"><font size="2"> <a href="h_open.asp?id=<% =rsHTOP("id") %>">
                  <% =left(rsHTOP("fw_dizhi"),10)%><% if len(rsHTOP("fw_dizhi")) > 10 then 
				  response.Write"..."
				  end if%>
                  </a></font></td>
                  </tr>
              <% rsHTOP.movenext
                   if rsHTOP.eof then exit for
                   next
                   rsHTOP.close %>
            </table></TD>
        </TR>
        <TR> 
          <TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff>&nbsp;</TD>
        </TR>
      </TABLE>
      <TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TR> 
          <TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                <td width="94%" background="images/left_02.gif">热点新闻</td>
                <td width="3%"><img src="images/left_03.gif" width="58" height="23"></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20> 
            <table width="100%" border="0" cellspacing="0" cellpadding="3">
              <% set rsTOP=server.createobject("adodb.recordset")
				  sqlTOP="select top 10 * from news where mytype='热点新闻' order by lls desc"
				  rsTOP.open sqlTOP,conn,3,3
		          for i=1 to 10 %>
              <tr> 
                <td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                <td width="90%"><a title="内容介绍：<% =left(rsTOP("nr"),15) %>..." href=open.asp?xiangxi=<% =rsTOP("id") %>> 
                  <% =left(rsTOP("bt"),9) %><% if len(rsTOP("bt")) > 10 then 
				  response.Write"..."
				  end if%>
                  </a></td>
              </tr>
              <% rsTOP.movenext
                   if rsTOP.eof then exit for
                   next
                   rsTOP.close %>
            </table></TD>
        </TR>
        <TR> 
          <TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff>&nbsp;</TD>
        </TR>
      </TABLE></TD>
    <TD width=6 bgColor=#ffffff>&nbsp;</TD>
    <TD> 
      <TABLE width="97%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 background="images/c-b.gif" style="BORDER-COLLAPSE: collapse">
        <TR> 
          <TD>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="1%"><img src="images/cent_01.gif" width="37" height="20"></td>
                <td width="95%" valign="bottom" background="images/cent_02.gif">详细信息</td>
                <td width="4%"><img src="images/cent_03.gif" width="51" height="20"></td>
              </tr>
            </table></TD>
        </TR>
        <TR> 
          <TD><DIV align=center>
              <table width="100%" border="1" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFA805">
                <%
hid=request.QueryString("id")
sql="select * from house where id="&hid
set rs=conn.execute (sql)
%>
                <tr> 
                  <td colspan="2" bgcolor="#FFF1D4"><div align="center">您好，您正在查看&nbsp;<a href="L_user.asp?pname=<% =rs("fw_uid") %>"><%=rs("fw_uid")%></a>&nbsp;发布的编号为<font color="#FF0000"> 
                      <% =rs("bh") %>
                      </font>的<font color="#FF0000"> 
                      <% =rs("mytype")%>
                      </font>信息，目前该信息已被<font color="#FF0000"> 
                      <% =rs("fw_lls")%>
                      </font>人浏览</div></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="114"> 
                    <div align="right">所在城市：</div></td>
                  <td width="447"> 
                    <div align="left"> 
                      <% =rs("fw_city")%>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#FFF1D4"> <div align="right">所属区域：</div></td>
                  <td bgcolor="#FFF1D4"> <div align="left"> 
                      <% =rs("fw_quyu")%>
                    </div></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td> 
                    <div align="right">房屋地址：</div></td>
                  <td> 
                    <div align="left"> 
                      <% =rs("fw_dizhi")%>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#FFF1D4"> <div align="right">公交路线：</div></td>
                  <td bgcolor="#FFF1D4"> <div align="left"> 
                      <% =rs("fw_jiaotong")%>
                    </div></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td> 
                    <div align="right">房屋类型：</div></td>
                  <td> 
                    <div align="left"> 
                      <% =rs("fw_leixing")%>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#FFF1D4"> <div align="right">房屋结构：</div></td>
                  <td bgcolor="#FFF1D4"> <div align="left"> 
                      <% =rs("fw_jiegou")%>
                    </div></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td> 
                    <div align="right">所在楼层：</div></td>
                  <td> 
                    <div align="left"> 
                      <% =rs("fw_louceng")%>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#FFF1D4"> <div align="right">房屋面积：</div></td>
                  <td bgcolor="#FFF1D4"> <div align="left"> 
                      <% =rs("fw_mianji")%>
                      平方米 </div></td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td> 
                    <div align="right">装修情况：</div></td>
                  <td> 
                    <div align="left"> 
                      <% =rs("fw_zhuangxiu")%>
                    </div></td>
                </tr>
                <tr> 
                  <td bgcolor="#FFF1D4"> <div align="right">房屋配套：</div></td>
                  <td bgcolor="#FFF1D4"> 
                    <% =rs("fw_peitao")%>
                  </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td> 
                    <div align="right">价