复件 index.asp

来自「一个关于房产的asp程序」· ASP 代码 · 共 705 行 · 第 1/3 页

        <tr> 
          <td width="163" align="center" valign="middle" height="66"><img src="adinfo/gif/ad.gif" width="163" height="51" class="black_kuan"></td>
        </tr>
        <tr> 
          <td width="163" align="center" valign="middle" height="66"><img src="adinfo/gif/a23.gif" width="163" height="45"  class="black_kuan"></td>
        </tr>
      </table>
    </td>
    <td height="598" align="left" valign="top"> 
      <table width="615" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top"> 
          <td width="161"><img src="images/index2_r8_c7.gif" width="161" height="58"></td>
          <td width="148"><img src="images/index2_r8_c13.gif" width="148" height="58"></td>
          <td width="142"><img src="images/index2_r8_c15.gif" width="153" height="58"></td>
          <td width="164"><img src="images/index2_r8_c17.gif" width="153" height="58"></td>
        </tr>
      </table>
      <table width="615" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top"> 
          <td width="13" background="images/index2_r6_c1.gif" height="174"><img src="images/index2_r6_c1.gif" width="13" height="4"></td>
          <td width="297" height="174"> 
            <table width="299" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="292" class="font">　<font color="#FF6600"><b>出 租</b></font></td>
                <td width="10" class="font">&nbsp;</td>
              </tr>
              <tr align="left" valign="top"> 
                <td colspan="2" height="5"><img src="images/index2_line.gif" width="280" height="3"></td>
              </tr>
              <tr> 
                <td width="292" align="left" valign="top" height="143"> 
                  <table width="280" border="0" cellspacing="0" cellpadding="0" background="images/index_r13_c7.gif">
                    <%

	strSql="select top 6 * from [house_hack] where pass='是' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
%>
                    <%do while not rs.eof%>
                    <tr align="center" valign="middle" onMouseOver="mOvr(this,'#fff7e6');"  onMouseOut="mOut(this,'#ffffff');"> 
                      <a href="sub_hack.asp?id=<%=rs("id")%>" target="_blank" > 
                      <td height="19" class="smallfont" align="left">[<%=left(rs("house_name"),6)%>]&nbsp;<%=rs("hx")%>&nbsp;<font color="#FF6600"><%=rs("pay")%>(元/月)</font> 
                        <%=replace(rs("date"),right(rs("date"),8),"")%> </td>
                      </a> </tr>
                    <%
		rs.movenext
		loop%>
                    <tr align="right" valign="bottom"> 
                      <td height="23"><img src="images/index_r20_c15.gif" width="131" height="3"><br>
                        <a href="hack.asp" class="ffbyfont2">更多信息&gt;&gt;&gt;</a></td>
                    </tr>
                  </table>
                </td>
                <td width="10" align="center" valign="top" height="143"><img src="images/index2_line2.gif" width="3" height="145"></td>
              </tr>
            </table>
          </td>
          <td align="center" height="174" width="293"> 
            <table width="285" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="font">　<b><font color="#FF6600">求 租</font></b></td>
              </tr>
              <tr align="left" valign="top"> 
                <td height="5"><img src="images/index2_line.gif" width="280" height="3"></td>
              </tr>
              <tr> 
                <td align="left" valign="top" height="142"> 
                  <table width="280" border="0" cellspacing="0" cellpadding="0" background="images/index_r13_c7.gif">
                    <%
	strSql="select top 6 * from [house_hire] where pass='是' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
%>
                    <%do while not rs.eof%>
                    <tr align="center" valign="middle" onMouseOver="mOvr(this,'#fff7e6');"  onMouseOut="mOut(this,'#ffffff');"> 
                      <a href="sub_hire.asp?id=<%=rs("id")%>" target="_blank" > 
                      <td height="19" class="smallfont" align="left">[<%=rs("qy")%>]&nbsp;<%=rs("hx")%>&nbsp;<font color="#FF6600"><%=rs("min_pay")%></font>~<font color="#FF6600"><%=rs("max_pay")%>(元/月)</font> 
                        <%=replace(rs("date"),right(rs("date"),8),"")%></td>
                      </a> </tr>
                    <%
		rs.movenext
		loop%>
                    <tr align="right" valign="bottom"> 
                      <td height="23"><img src="images/index_r20_c15.gif" width="131" height="3"><br>
                        <a href="hire.asp" class="ffbyfont2">更多信息&gt;&gt;&gt;</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
          <td width="12" height="174" background="images/index2_r5_c16.gif" align="right"><img src="images/index2_r5_c16.gif" width="12" height="4"></td>
        </tr>
        <tr align="left" valign="top"> 
          <td width="13" height="9"><img src="images/index2_r11_c1.gif" width="13" height="10"></td>
          <td height="9" background="images/index2_r11_c4.gif" colspan="2"><img src="images/index2_r11_c4.gif" width="4" height="10"></td>
          <td width="12" height="9"><img src="images/index2_r11_c15.gif" width="12" height="10"></td>
        </tr>
      </table>
      <table width="615" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top"> 
          <td width="126" height="45"><img src="images/index3_r1_c1.jpg" width="126" height="58"></td>
          <td width="483" background="images/index3_r1_c11.jpg" align="right" height="45" valign="middle">&nbsp; 
            &nbsp; </td>
          <td width="10" align="right" height="45" valign="top"><img src="images/index3_r1_c31.jpg" width="14" height="58"></td>
        </tr>
      </table>
      <table width="615" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top"> 
          <td width="13" background="images/index2_r6_c1.gif" height="174"><img src="images/index2_r6_c1.gif" width="13" height="4"></td>
          <td width="297" height="174"> 
            <table width="299" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="292" class="font">　<font color="#FF6600"><b>出 售</b></font></td>
                <td width="10" class="font">&nbsp;</td>
              </tr>
              <tr align="left" valign="top"> 
                <td colspan="2" height="5"><img src="images/index2_line.gif" width="280" height="3"></td>
              </tr>
              <tr> 
                <td width="292" align="left" valign="top" height="143"> 
                  <table width="280" border="0" cellspacing="0" cellpadding="0" background="images/index_r13_c7.gif">
                    <%
	strSql="select top 6 * from [house_sell] where pass='是' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
    do while not rs.eof%>
                    <tr align="center" valign="middle" onMouseOver="mOvr(this,'#fff7e6');"  onMouseOut="mOut(this,'#ffffff');"> 
                      <a href="sub_sell.asp?id=<%=rs("id")%>" target="_blank" > 
                      <td height="19" class="smallfont" align="left">[<%=left(rs("house_name"),6)%>]&nbsp;<%=rs("hx")%>&nbsp;<font color="#FF6600"><%=rs("pay")%>(万)</font> 
                        <%=replace(rs("date"),right(rs("date"),8),"")%> </td>
                      </a> </tr>
                    <%
		rs.movenext
		loop%>
                    <tr align="right" valign="bottom"> 
                      <td height="23"><img src="images/index_r20_c15.gif" width="131" height="3"><br>
                        <a href="hack.asp" class="ffbyfont2">更多信息&gt;&gt;&gt;</a></td>
                    </tr>
                  </table>
                </td>
                <td width="10" align="center" valign="top" height="143"><img src="images/index2_line2.gif" width="3" height="145"></td>
              </tr>
            </table>
          </td>
          <td align="center" height="174" width="293"> 
            <table width="285" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td class="font">　<b><font color="#FF6600">求 购</font></b></td>
              </tr>
              <tr align="left" valign="top"> 
                <td height="5"><img src="images/index2_line.gif" width="280" height="3"></td>
              </tr>
              <tr> 
                <td align="left" valign="top" height="142"> 
                  <table width="280" border="0" cellspacing="0" cellpadding="0" background="images/index_r13_c7.gif">
                    <%
	strSql="select top 6 * from [house_buy] where pass='是' order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
%>
                    <%do while not rs.eof%>
                    <tr align="center" valign="middle" onMouseOver="mOvr(this,'#fff7e6');"  onMouseOut="mOut(this,'#ffffff');"> 
                      <a href="sub_buy.asp?id=<%=rs("id")%>" target="_blank" > 
                      <td height="19" class="smallfont" align="left">[<%=rs("qy")%>]&nbsp;<%=rs("hx")%>&nbsp;<font color="#FF6600"><%=rs("min_pay")%></font>~<font color="#FF6600"><%=rs("max_pay")%>(万)</font> 
                        <%=replace(rs("date"),right(rs("date"),8),"")%></td>
                      </a> </tr>
                    <%
		rs.movenext
		loop%>
                    <tr align="right" valign="bottom"> 
                      <td height="23"><img src="images/index_r20_c15.gif" width="131" height="3"><br>
                        <a href="hire.asp" class="ffbyfont2">更多信息&gt;&gt;&gt;</a></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
          <td width="12" height="174" background="images/index2_r5_c16.gif" align="right"><img src="images/index2_r5_c16.gif" width="12" height="4"></td>
        </tr>
        <tr align="left" valign="top"> 
          <td width="13" height="9"><img src="images/index2_r11_c1.gif" width="13" height="10"></td>
          <td height="9" background="images/index2_r11_c4.gif" colspan="2"><img src="images/index2_r11_c4.gif" width="4" height="10"></td>
          <td width="12" height="9"><img src="images/index2_r11_c15.gif" width="12" height="10"></td>
        </tr>
      </table>
      <table width="613" border="0" cellspacing="0" cellpadding="0" align="right">
        <tr>
          <td width="609" align="right" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="612" height="112">
              <param name=movie value="ad/index_center.swf">
              <param name=quality value=high>
              <embed src="adinfo/index_center.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="612" height="112">
              </embed> 
            </object></td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
</table>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left" valign="top" bgcolor="#fd9035"><img src="images/index_r12_c1.gif" width="145" height="7"></td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="left" valign="top"> 
    <td width="163" bgcolor="#FFF4D2" height="248" align="center"> <img src="images/index_r24_c1.gif" width="163" height="30"><br>
      <table width="89%" border="0" cellspacing="0" cellpadding="0">
        <%
	strSql="select top 10 * from [house_new] order by id desc"
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
    %>
        <tr> 
          <td height="17" class="font"> 
            <%do while not rs.eof%>
            <font color="#FF6600">·</font><a href="sub_newhouse.asp?id=<%=rs("id")%>" target="_blank" class="menu"><font color=<%=rs("color")%>><%=left(rs("house_name"),6)%></font></a> <font color="#999999"><%=rs("jun_pay")%>元/㎡</font>
			<%
		rs.movenext
	if not rs.eof then 
	response.write "<br>"
	end if
		loop%>
		</td>
        </tr>
		<tr>
          <td align="center" valign="middle" height="49"><img src="adinfo/gif/ad.gif" width="163" height="51" class="black_kuan"></td>
        </tr>
      </table>
      <img src="images/index_r30_c1.gif" width="163" height="30"><br>
      <table width="89%" border="0" cellspacing="0" cellpadding="0">
        <%
	strSql="select top 9 * from [paper] where type='7' order by id desc"