📄 index.asp
字号:
<table height="120" cellSpacing="0" cellPadding="0" width="220" bgColor="#ebf6dd" border="0">
<tr>
<td align="center">
欢迎您！<font color="#FF0000"><%=session("loginid")%></font><p>
<a href="<%=fcml%>house/house_fabu.asp">
<font color="#FF0000">[管理中心]</font></a></p>
<p>
<a href="<%=fcml%>house/login.asp?action=logout">
<font color="#FF0000">[退出登陆]</font></a></td>
</tr>
</table>
<%end if%>
</td>
</tr>
</table>
</div>
<TABLE cellSpacing=0 cellPadding=0 width=10 border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE></TD></TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=975 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=970><TABLE
style="BORDER-RIGHT: #ffd395 1px solid; BORDER-TOP: #ffd395 1px solid; BORDER-LEFT: #ffd395 1px solid; BORDER-BOTTOM: #ffd395 1px solid"
cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD
style="FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #cc3300; FONT-FAMILY: '宋体'"
align=left width=645 bgColor=#FFFFFF height=30 background="img1/ksss.jpg"> 二手房推荐</TD>
<TD width=71 bgColor=#FFFFFF background="img1/ksss.jpg"><a href="house/hs.asp">
<IMG height=5
src="img1/more.gif"
width=33 border=0></a></TD></TR>
<TR>
<TD vAlign=top align=left
colSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=745 border=0>
<TBODY></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 border=0>
<TBODY>
<TR>
<TD height=3></TD></TR>
<TR>
<TD ></TD>
</TR>
<TR>
<TD class=blue12 height=80>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY><!--循环行开始--><%
sqlTDH3="select top 7 * from house where tj='1' and sh='1' and bimg<>'' order by id desc"
Set rs3= Server.CreateObject("ADODB.Recordset")
rs3.open sqlTDH3,conn,1,1
if rs3.eof then
response.write "<TR><td><p align='center'>没有房产信息</p></td></tr>"
else
do while not rs3.eof
%>
<TR><%for i=1 to 5
if not rs3.eof then
fzname=rs3("area")
esfpic=Rs3("bimg")
if Instr(esfpic,"@@@")>0 then
PhotoPicUrlstr1=Split(esfpic,"@@@")
PhotoPicUrlstr2=PhotoPicUrlstr1(0)
PhotoPicUrlstr21=Split(PhotoPicUrlstr2,"|")
esfpic=PhotoPicUrlstr21(1)
end if
if Instr(esfpic,"|")>0 then
PhotoPicUrlstr21=Split(esfpic,"|")
esfpic=PhotoPicUrlstr21(1)
end if
if Instr(esfpic,"|")=0 and Instr(esfpic,"@@@")=0 then
esfpic="fyfile/"&esfpic
end if
%>
<TD vAlign=top align=middle width=145
background=img/newbg2.gif height=120>
<TABLE height=16 cellSpacing=0 cellPadding=0 width=75
border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=100
border=0>
<TBODY>
<TR>
<TD><a href=house/hs_open.asp?id=<%=trim(rs3("id"))%> class="linkone">
<img onMouseOver="ddrivetip('<table border=0 cellspacing=0 cellpadding=0><tr><td height=5></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>小区：</b><%=Trim(Rs3("area"))%></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>面积：</b><%=Trim(Rs3("mianji"))%>m<sup>2</sup></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>价格：</b><%=Trim(Rs3("jyprice"))%><%=Trim(Rs3("jgdw"))%> </td></tr><tr><td height=18><img src=images/arr_green.gif> <b>户型：</b><%=Trim(Rs3("fclx"))%> <td><tr></table>')" onMouseOut="hideddrivetip()" height="60" src="<%=esfpic%>" width="100" border="0"></A></TD></TR></TBODY></TABLE>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=110
border=0>
<TBODY>
<TR>
<TD height=1></TD></TR>
<TR>
<TD class=WordBreak align=middle><font color="#EE5806"><%=fzname%></font></TD></TR></TBODY></TABLE></TD>
<%
end if
if not rs3.eof then
rs3.movenext
end if
next
%>
</TR>
<%
loop
end if
rs3.close
set rs3=nothing
%>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=980 align=center border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=975 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=480>
<TABLE
style="BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; BORDER-BOTTOM: #dedede 1px solid"
cellSpacing=0 cellPadding=0 width=480 border=0>
<TBODY>
<TR>
<TD align=left
background="img1/ksss.jpg"
height=28>
<font color="#1C9900"><b>出售信息</b></font></TD>
<TD align=left
background="img1/ksss.jpg"
height=28>
</TD>
<TD align=left
background="img1/ksss.jpg"
height=28>
<p align="center"><a href=house/hs.asp?xxlb=4><font color="#1C9900">更多</font></a></TD>
</TR>
<TR>
<TD colspan="3">
<table width="450" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td height="24" align="center" bgcolor="#FFFFFF" >
<font color="#EE5806">标志物</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">户型</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">价格</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">日期</font></td>
</tr><%
Sql="select top 7 * from house where sh='1' and xxlb='4' order by dateandtime desc"
Rs.Open Sql,conn,1,1
Do While Not Rs.Eof
%>
<tr>
<td height="24" align="center">
<p><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone">
<font color="#424242"><%=getStr(trim(rs("area")),7)%></font></A></td>
<td height="24" align="center">
<p><font color="#424242"><%=Trim(Rs("fclx"))%></font></td>
<td height="24" align="center">
<p><font color="#424242"><%=rs("jyprice")%><%=rs("jgdw")%></font></td>
<td height="24" align="center"><font color="#1C9900"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></font></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
%>
</table></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=middle width=480>
<TABLE
style="BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; BORDER-BOTTOM: #dedede 1px solid"
cellSpacing=0 cellPadding=0 width=480 border=0>
<TBODY>
<TR>
<TD align=left width=123
background="img1/ksss.jpg"
height=28>
<P> <b><font color="#1C9900">出租信息</font></b></P></TD>
<TD align=left width=123
background="img1/ksss.jpg"
height=28>
</TD>
<TD align=left width=123
background="img1/ksss.jpg"
height=28>
<p align="center"><a href=house/hs.asp?xxlb=1><font color="#1C9900">更多</font></a></TD>
</TR>
<TR>
<TD colspan="3">
<table width="480" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td height="24" align="center" bgcolor="#FFFFFF" >
<font color="#EE5806">标志物</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">户型</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">价格</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#EE5806">日期</font></td>
</tr><%
Sql="select top 7 * from house where sh='1' and xxlb='1' order by dateandtime desc"
Rs.Open Sql,conn,1,1
Do While Not Rs.Eof
%>
<tr>
<td height="24" align="center">
<p><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><font color="#424242"><%=getStr(trim(rs("area")),7)%></font></A></td>
<td height="24" align="center">
<p><font color="#424242"><%=Trim(Rs("fclx"))%></font></td>
<td height="24" align="center">
<p><font color="#424242"><%=rs("jyprice")%><%=rs("jgdw")%></font></td>
<td height="24" align="center"><font color="#1C9900"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></font></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
%>
</table></TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=980 align=center border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=975 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=480>
<TABLE
style="BORDER-RIGHT: #dedede 1px solid; BORDER-TOP: #dedede 1px solid; BORDER-LEFT: #dedede 1px solid; BORDER-BOTTOM: #dedede 1px solid"
cellSpacing=0 cellPadding=0 width=480 border=0>
<TBODY>
<TR>
<TD align=left
background="img1/ksss.jpg"
height=28>
<P> <SPAN class=STYLE11>求租信息</SPAN></P></TD>
<TD align=left
background="img1/ksss.jpg"
height=28>
</TD>
<TD align=left
background="img1/ksss.jpg"
height=28>
<p align="center"><a href=house/hs.asp?xxlb=2><font color="#EE5806">更多</font></a></TD></TR>
<TR>
<TD colspan="3">
<table width="480" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#FFFFFF" style="border-collapse: collapse">
<tr>
<td height="24" align="center" bgcolor="#FFFFFF" >
<font color="#1C9900">标志物</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#1C9900">户型</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#1C9900">价格</font></td>
<td height="24" align="center" bgcolor="#FFFFFF">
<font color="#1C9900">日期</font></td>
</tr><%set rs=server.CreateObject("adodb.recordset")
Sql="select top 6 * from house where sh='1' and xxlb='2' order by dateandtime desc"
Rs.Open Sql,conn,1,1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -