fyxx.asp

一个不错的全站程序

    </table>
    </td>
  </tr>
</tbody>
</table>
       </td>
       
       
       
       
       
       
       
       
       
       
    </tr>
  <tr>
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
    <td vAlign="top" width="572" rowSpan="3" colspan="2"><br>
      <table height="13" cellSpacing="0" cellPadding="0" width="180" background="images/bg2.gif" border="0">
        <tbody>
        <tr>
          <td width="60" height="19">&nbsp;</td>
          <td width="74" height="19">
            <div class="zzz" align="center">二 手 房</div></td>
          <td width="44" height="19">&nbsp;</td></tr></tbody></table>
      
<table class="box1" cellSpacing="0" cellPadding="2" width="550" bgColor="#999999" background="images/bg3.gif" border="0">
<tbody>
  <tr background="images/bg4.gif">
    <td width="30%" bgColor="#e6f2ff">
    
<table class="shuang" cellSpacing="0" cellPadding="0" width="550" align="center" background="images/bg4.gif" border="0">
  <tr>
    <td vAlign="top" width="550"><table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
<%
strsql="select top 8 hasimage,hid,mem.uid id,houseaddress,hall,room,price,mem.uname,mem.tel,ctel from tblsecondhouse house join tblmembers mem on house.uid=mem.uid order by hid desc"
%>
      <tr>
        <td class="zzz" bgColor="#ffcc66" width="30%" align="center"><p align="center">地址</td>
        <td class="zzz" bgColor="#ffcc66" width="12%" align="center">房型</td>
        <td class="zzz" bgColor="#ffcc66" width="11%" align="center">价格(/套)</td>
        <td class="zzz" bgColor="#ffcc66" width="18%" align="center">电话</td>
        <td class="zzz" bgColor="#ffcc66" width="29%" align="center">中介公司</td>
      </tr>
      <%
      rsd.Open strsql,conn
      do until rsd.EOF
      %>
      <tr>
        <td class="zzz" width="30%" bgColor="#eeeeee" height="15"><a href="showshouse.asp?hid=<%=rsd("hid")%>"><%=rsd("houseaddress")%></a>
        <%
      if rsd("hasimage")=1 then
      istrsql="select * from tblimages where hid=" & rsd("hid") & " and tblname='s'"
      set irsd=server.CreateObject("adodb.recordset")
      irsd.Open istrsql,conn
      %>
      <a href="mimages/<%=irsd("imgname")%>" target="_blank"><img src="images/fx.gif" border="0" WIDTH="49" HEIGHT="13"></a>
      <%set irsd=nothing%>
      <%end if%>
        </td>
        <td class="zzz" width="12%" bgColor="#eeeeee" height="15" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="right"><%=formatnumber(rsd("price"),0)%></td>
        <td class="zzz" width="18%" bgColor="#eeeeee" height="15">
        <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        
        </td>
        <td class="zzz" width="29%" bgColor="#eeeeee"><a href="showmember.asp?uid=<%=rsd("id")%>"><%=rsd("uname")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      if rsd.EOF then
      exit do
      end if
      %>
      <tr bgColor="#ffffff">
        <td class="zzz" width="30%"><a href="showshouse.asp?hid=<%=rsd("hid")%>"><%=rsd("houseaddress")%></a>
        <%
      if rsd("hasimage")=1 then
      istrsql="select * from tblimages where hid=" & rsd("hid") & " and tblname='s'"
      set irsd=server.CreateObject("adodb.recordset")
      irsd.Open istrsql,conn
      %>
      <a href="mimages/<%=irsd("imgname")%>" target="_blank"><img src="images/fx.gif" border="0" WIDTH="49" HEIGHT="13"></a>
      <%set irsd=nothing%>
      <%end if%>
        </td>
        <td class="zzz" width="12%" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" align="right"><%=formatnumber(rsd("price"),0)%></td>
        <td class="zzz" width="18%">
        <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="29%"><a href="showmember.asp?uid=<%=rsd("id")%>"><%=rsd("uname")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      loop
      rsd.Close
      %>
            <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="15" align="right" colspan="5"><a href="secondhouse.asp"><img src="images/more.gif" border="0" WIDTH="29" HEIGHT="9">更多二手房信息</a></td>
      </tr>
</tbody>
    </table>
    </td>
  </tr>
</table>


    
    </td>
</tr>


 
</tbody>
</table>

      
      
      
      
      
      <br>
      <table height="19" cellSpacing="0" cellPadding="0" width="180" background="images/bg2.gif" border="0">
        <tbody>
        <tr>
          <td width="57" height="12">&nbsp;</td>
          <td width="81" height="12">
            <div class="zzz" align="center">出 租 房</div></td>
          <td width="42" height="12">&nbsp;</td></tr></tbody></table>
      <table class="box1" cellSpacing="0" cellPadding="2" width="550" bgColor="#999999" background="images/bg3.gif" border="0">
        <tbody>
        <tr><td>


<table class="shuang" cellSpacing="0" cellPadding="0" width="550" align="center" background="images/bg4.gif" border="0">
  <tr>
    <td vAlign="top" width="550"><table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
<%
strsql="select top 8 hasimage,hid,mem.uid id,houseaddress,hall,room,price,mem.uname,mem.tel,ctel from tbllease house join tblmembers mem on house.uid=mem.uid order by hid desc"
%>
      <tr>
        <td class="zzz" bgColor="#ffcc66" width="30%" align="center"><p align="center">地址</td>
        <td class="zzz" bgColor="#ffcc66" width="11%" align="center">房型</td>
        <td class="zzz" bgColor="#ffcc66" width="11%" align="center">价格(/月)</td>
        <td class="zzz" bgColor="#ffcc66" width="18%" align="center">电话</td>
        <td class="zzz" bgColor="#ffcc66" width="30%" align="center">中介公司</td>
      </tr>
      <%
      rsd.Open strsql,conn
      do until rsd.EOF
      %>
      <tr>
        <td class="zzz" width="30%" bgColor="#eeeeee" height="15"><a href="showlhouse.asp?hid=<%=rsd("hid")%>"><%=rsd("houseaddress")%></a>
        <%
      if rsd("hasimage")=1 then
      istrsql="select * from tblimages where hid=" & rsd("hid") & " and tblname='l'"
      set irsd=server.CreateObject("adodb.recordset")
      irsd.Open istrsql,conn
      %>
      <a href="mimages/<%=irsd("imgname")%>" target="_blank"><img src="images/fx.gif" border="0" WIDTH="49" HEIGHT="13"></a>
      <%set irsd=nothing%>
      <%end if%>
        </td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" bgColor="#eeeeee" height="15" align="right"><%=formatnumber(rsd("price"),0)%></td>
        <td class="zzz" width="18%" bgColor="#eeeeee" height="15">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="30%" bgColor="#eeeeee"><a href="showmember.asp?uid=<%=rsd("id")%>"><%=rsd("uname")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      if rsd.EOF then
      exit do
      end if
      %>
      <tr bgColor="#ffffff">
        <td class="zzz" width="30%"><a href="showlhouse.asp?hid=<%=rsd("hid")%>"><%=rsd("houseaddress")%></a>
        <%
      if rsd("hasimage")=1 then
      istrsql="select * from tblimages where hid=" & rsd("hid") & " and tblname='l'"
      set irsd=server.CreateObject("adodb.recordset")
      irsd.Open istrsql,conn
      %>
      <a href="mimages/<%=irsd("imgname")%>" target="_blank"><img src="images/fx.gif" border="0" WIDTH="49" HEIGHT="13"></a>
      <%set irsd=nothing%>
      <%end if%>
        </td>
        <td class="zzz" width="11%" align="center"><%=rsd("room")%>室<%=rsd("hall")%>厅</td>
        <td class="zzz" width="11%" align="right"><%=formatnumber(rsd("price"),0)%></td>
        <td class="zzz" width="18%">
                <%if isnull(rsd("ctel")) or rsd("ctel")="" then
        Response.Write rsd("tel")
        else
        Response.Write rsd("ctel")
        end if
        %>
        </td>
        <td class="zzz" width="30%"><a href="showmember.asp?uid=<%=rsd("id")%>"><%=rsd("uname")%></a></td>
      </tr>
      <%
      rsd.MoveNext
      loop
      rsd.Close
      %>
      
            <tr>
        <td class="zzz" width="100%" bgColor="#eeeeee" height="15" align="right" colspan="5"><a href="leasehouse.asp"><img src="images/more.gif" border="0" WIDTH="29" HEIGHT="9">更多出租房信息</a></td>
      </tr>
</tbody>
    </table>
    </td>
  </tr>
</table>
</td></tr>
</tbody></table>
<br>


</td></tr></tbody></table>
<!--#include file="footer.asp"-->
</body></html>