index.asp

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

                                <% =rscz("fw_louceng") %>
                                层 &nbsp;&nbsp; </a></div>
                              <div align="center"> </div>
                            </td>
                          </tr>
                          <% 
                          rscz.movenext
                          wend
                          end if 
                          rscz.close
                          set rscz=nothing
                          %>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
                <td width="48%" valign="top"> 
                  <table width="100%" border=0 cellpadding=0 cellspacing=0 bordercolor=#111111 style="BORDER-COLLAPSE: collapse">
                    <% set rscs=conn.execute("select top 13 * from house where mytype='出售 ' order by id desc")%>
                    <tr> 
                      <td> 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="60%"><img src="anniu/12.gif" width="105" height="24"></td>
                            <td width="40%"> 
                              <% =rscs("mytype") %>
                            </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                    <tr> 
                      <td width="100%"> 
                        <table cellspacing=0 cellpadding=0 width="100%" border=0>
                          <% if rscs.bof and rscs.eof then
                              response.write "暂时没有房源"
                              else
                              while not rscs.eof%>
                          <tr> 
                            <td width="6%"> 
                              <div align="center"><img src="images/006.gif"></div>
                            </td>
                            <td align=right> 
                              <div align="left"><a href="h_open.asp?id=<% =rscs("id") %>"> 
                                <% =rscs("fw_jiegou") %>
                                &nbsp;&nbsp; 
                                <% =rscs("fw_louceng") %>
                                层 &nbsp;&nbsp; </a></div>
                              <div align="center"> </div>
                            </td>
                          </tr>
                          <% 
                          rscs.movenext
                          wend
                          end if 
                          rscs.close
                          set rscs=nothing
                          %>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      <table width="75%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="anniu/zhishi.gif" width="350" height="25"></td>
        </tr>
        <tr>
          <td>
            <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <% dim t
	 Set RsSmall=Server.Createobject("ADODB.Recordset")
	 RsSmallSrt="select top 14 * from news where mytype='房产知识'  order by id desc"
	 RsSmall.Open RsSmallSrt,Conn,1,3 %>
              <tr> 
                <% t=0
      while not RsSmall.eof %>
                <td width="369">
                  <div align="left">&nbsp;&nbsp;<img src="images/006.gif">&nbsp; 
                    <a title="<% =left(RsSmall("nr"),15) %>..." href=open.asp?xiangxi=<% =RsSmall("id") %>>
                    <% =RsSmall("bt") %>
                    </a> </div>
                </td>
                <% t=t+1
	    if t=2 then
	    t=0 %>
              </tr>
              <% end if
     RsSmall.movenext
     wend %>
            </table>
          </td>
        </tr>
      </table>
      <table width="75%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="anniu/xinshang.gif" width="350" height="25"></td>
        </tr>
        <tr>
          <td> 
            <table width="100%" border="0" align="center" cellspacing="0" cellpadding="0">
              <tr>
                <td width="47%"> 
                  <div align="center"><img src="anniu/jiaju1.gif" width="100" height="110"></div>
                </td>
                <td width="11%">&nbsp;</td>
                <td width="42%"> 
                  <div align="center"><img src="anniu/jiaju2.gif" width="100" height="110"></div>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
    <td width="28%"> 
      <table width="97%" border="0" cellpadding="1" cellspacing="0" align="center">
        <tr> 
          <td><img src="images/right_a_3.gif" width="194" height="23"></td>
        </tr>
        <tr> 
          <td> 
            <div align="center">
              <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>
            </div>
            <div align="center"></div>
            <div align="center"> </div>
          </td>
        </tr>
      </table>
      
      
      <table width="75%" border="0" align="center" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="190" border="0" height="286" align="center" cellspacing="0" cellpadding="0">
        <tr>
          <td> 
            <table width="75%" border="0" align="center" cellspacing="0" cellpadding="0">
              <tr>
                <td>
                  <div align="center"><img src="anniu/2.jpg" width="100" height="50"></div>
                </td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td>
                  <div align="center"><img src="anniu/3.gif" width="100" height="50"></div>
                </td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td>
                  <div align="center"><img src="anniu/4.jpg" width="100" height="100"></div>
                </td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
              <tr>
                <td>
                  <div align="center"><img src="anniu/5.jpg" width="100" height="100"></div>
                </td>
              </tr>
              <tr>
                <td>&nbsp;</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</BODY></HTML><!--#include file="let.asp"-->