📄 index.asp
字号:
<TD>
<TABLE width="100%" 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%"><a href="news_all.asp?mytype=房产新闻"><img src="images/cent_03.gif" alt="更多房产新闻" width="51" height="20" border="0"></a></td>
</tr>
</table></TD>
</TR><TR>
<TD><DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<% set rsnew=server.createobject("adodb.recordset")
sqlnew="select top 10 * from news where mytype='房产新闻' order by id desc"
rsnew.open sqlnew,conn,3,3
for i=1 to 10 %>
<TR>
<TD width="62%"> <IMG height=10 src="images/006.gif" width=8>
<a title="<% =left(rsnew("nr"),15) %>..." href=open.asp?xiangxi=<% =rsnew("id") %>><% =left(rsnew("bt"),9) %></a>
</FONT></TD>
<TD width="22%" align=right>
<% =rsnew("riqi") %>
</B></FONT> </TD>
<TD width="16%" align=middle><div align="center"><FONT color=#666666><% =rsnew("lls") %>
</FONT></div></TD></TR>
<% rsnew.movenext
if rsnew.eof then exit for
next
rsnew.close %>
</TABLE>
</DIV></TD>
</TR>
<TR>
<TD width="100%" height=0 align=right background="images/c-dl.gif"></TD>
</TR>
</TABLE>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="572" height="102">
<param name="movie" value="house01.swf">
<param name="quality" value="high">
<embed src="house01.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="572" height="102"></embed></object></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="48%" valign="top"><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 style="BORDER-COLLAPSE: collapse">
<% set rscz=conn.execute("select top 15 * from house where mytype='出租 ' order by id desc")%>
<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%" background="images/cent_02.gif">最新<% =rscz("mytype") %></td>
<td width="4%"><a href="house.asp?lb=出租"><img src="images/cent_03.gif" alt="更多出租" width="51" height="20" border="0"></a></td>
</tr>
</table></TD>
</TR>
<TR>
<TD width="100%"><DIV align=center>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#A3E0A3">
<tr>
<td><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<% if rscz.bof and rscz.eof then
response.write "暂时没有房源"
else
while not rscz.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=<% =rscz("id") %>">
<% =rscz("fw_jiegou") %>
<% =rscz("fw_louceng") %>
层
<% =rscz("fw_jiage") %><% =rscz("fw_jiageLX") %>
</a></div>
<div align="center"> </div></TD>
</TR>
<%
rscz.movenext
wend
end if
rscz.close
set rscz=nothing
%>
</TABLE></td>
</tr>
</table>
</DIV></TD>
</TR>
</TABLE></td>
<td width="4%"> </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 15 * from house where mytype='出售 ' order by id desc")%>
<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%" background="images/cent_02.gif">最新<% =rscs("mytype") %></td>
<td width="4%"><a href="house.asp?lb=出售"><img src="images/cent_03.gif" alt="更多出售" width="51" height="20" border="0"></a></td>
</tr>
</table></TD>
</TR>
<TR>
<TD width="100%"> <DIV align=center>
<table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#A3E0A3">
<tr>
<td><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") %>
<% =rscs("fw_louceng") %>
层
<% =rscs("fw_jiage") %><% =rscs("fw_jiageLX") %>
</a></div>
<div align="center"> </div></TD>
</TR>
<%
rscs.movenext
wend
end if
rscs.close
set rscs=nothing
%>
</TABLE></td>
</tr>
</table>
</DIV></TD>
</TR></TABLE></td>
</tr></table><br>
<TABLE width="100%" 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%"><a href="news_all.asp?mytype=房产知识"><img src="images/cent_03.gif" alt="更多房产知识" width="51" height="20" border="0"></a></td>
</tr>
</table></TD>
</TR>
<TR>
<TD><DIV align=center>
<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"> <IMG src="images/006.gif">
<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></DIV></TD>
</TR>
<TR>
<TD width="100%" height=0 align=right background="images/c-dl.gif"></TD>
</TR>
</TABLE><br>
<TABLE width="100%" 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%"><a href="pictures.asp?gn=more"><img src="images/cent_03.gif" alt="更多居家欣赏" width="51" height="20" border="0"></a></td>
</tr>
</table></TD>
</TR>
<TR>
<TD><DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
<TR>
<% sqlP="select top 4 * from imgbook order by id desc"
set rsP=conn.execute(sqlP)
if rsP.eof and rsP.bof then
response.Write"暂无信息"
else
while not rsP.eof%>
<TD align=middle><table width="120" height="140" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="20" height="16"><img src="images/k1_1.gif"></td>
<td width="170" background="images/k1_top.gif"> </td>
<td width="10"><img src="images/k1_2.gif" width="20" height="20"></td>
</tr>
<tr>
<td height="100" background="images/k1_left.gif"> </td>
<td><div align="center"><a href="pictures.asp?id=<% =rsP("id") %>" target="_blank"><img src="<% =rsP("news_content")%>" name="P" width="100" height="100" border="0"></a></div></td>
<td background="images/k1_right.gif"> </td>
</tr>
<tr>
<td height="16"><img src="images/k1_3.gif" width="20" height="20"></td>
<td background="images/k1_end.gif"> </td>
<td><img src="images/k1_4.gif" width="20" height="20"></td>
</tr>
</table></TD>
<% rsP.movenext
wend
end if %>
</TR>
</TABLE>
</DIV></TD>
</TR>
<TR>
<TD width="100%" height=0 align=right background="images/c-dl.gif"></TD>
</TR>
</TABLE>
<br>
</TD>
</TR><!--#include file="let.asp"-->
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -