📄 index.asp
字号:
<!--#include file="inc/conn1.asp"-->
<!--#include file="inc/getPartStrAndBytesLen.asp" -->
<!--#include file="inc/onlinecount.asp"-->
<!--#include file="top.asp"-->
<HTML><HEAD>
<STYLE type=text/css>.sec1 {
BACKGROUND: url(images/bg-2.gif); CURSOR: hand; COLOR: #000000
}
.sec2 {
FONT-WEIGHT: bold; BACKGROUND: url(images/bg-1.gif); CURSOR: hand
}
.main_tab {
BACKGROUND-COLOR: #ffffff
}
</STYLE>
<TITLE><%=homepage_title%></TITLE>
<script language="JavaScript" src="inc/index.js"></script>
<script src="images/layerdetail.js"></script>
<%
Dim Rs,Sql,Logos,LogoCount,TmpLogos(2),t,v
OpenDataConn
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open"select top 3 img,porf,http from logo order by id",conn,1,1
t=0
Do While Not Rs.Eof
If Trim(Rs("porf"))=1 Then
TmpLogos(t)="<a href='"&Trim(Rs("http"))&"'><img src='logo/"&Trim(Rs("img"))&"' width='176' height='54' border='0'></a>"
Else
TmpLogos(t)="<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=""176"" height=""54"">"& _
"<param name=""movie"" value=""logo/"&Trim(Rs("img"))&""">"& _
"<param name=""quality"" value=""high"">"& _
"<embed src=""logo/"&Trim(Rs("img"))&""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""176"" height=""54""></embed></object>"
End If
Rs.MoveNext
t=t+1
Loop
Rs.Close
For v=0 to 2
If TmpLogos(v)="" Then
TmpLogos(v)="<img src='images/frams_118.jpg' width='176' height='54'>"
End If
Next
%>
<style>
<!--
BODY {
FONT-SIZE: 12px; COLOR: #000000;line-height: 16px
}
-->
</style>
<TABLE height=7 cellSpacing=0 cellPadding=0 width=980 align=center
background=img/headbg5.gif border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=710>
<TABLE cellSpacing=0 cellPadding=0 width=708 border=0>
<TBODY>
<TR>
<TD vAlign=top height="2" align="center"></TD></TR>
<TR>
<TD class=out4s_green vAlign=top height="56" align="center">
<table border="0" cellpadding="0" cellspacing="0" width="700" id="table838">
<tr>
<td height="3"></td>
</tr>
<tr align=center>
<td align=center>
<table border="0" align=center cellpadding="0" cellspacing="0" width="698" id="table839" background="img/rbbg1.gif" height="30">
<tr>
<td>
<img border="0" src="img/rb1.gif" width="107" height="30"></td>
<td>
<p align="right">
<img border="0" src="img/rb2.gif" width="72" height="30"></td>
</tr>
</table>
</td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=700 align=center
border=0><TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY><!--循环行开始--><%
sqlTDH="select top 10 * from Newhouse where tj='1' order by HID desc"
Set rst= Server.CreateObject("ADODB.Recordset")
rst.open sqlTDH,conn,1,1
if rst.eof then
response.write "<TR><td><p align='center'>没有楼盘</p></td></tr>"
else
do while not rst.eof
%>
<TR><%for i=1 to 5
if not rst.eof then
fzname=rst("housename")%>
<TD vAlign=top align=middle width=140
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/newhouse_detail2.asp?HID=<%=Trim(Rst("HID"))%>" target=_blank>
<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(Rst("Area"))%></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>房产公司：</b><%=Trim(Rst("Developer"))%></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>占地面积：</b><%=Trim(Rst("mianji"))%> m<sup>2</sup></td></tr><tr><td height=18><img src=images/arr_green.gif> <b>起 价：</b><%=Trim(Rst("BeginPrice"))%> 元/m<sup>2</sup><td><tr></table>')" onmouseout="hideddrivetip()" height="60" src="fyfile/<%=replace(trim(Rst("simg")),",","")%>" 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><%=fzname%></TD></TR></TBODY></TABLE></TD>
<%
end if
if not rst.eof then
rst.movenext
end if
next
%>
</TR>
<%
loop
end if
rst.close
set rst=nothing
%>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<div align="center">
<TABLE cellSpacing=0 cellPadding=0 width=708
border=0 height="20" background="img/rbg1.gif">
<TBODY>
<TR>
<TD align=middle height=30 valign="top">
<p align="left">
<img border="0" src="img/r1.gif" width="15" height="34"><img border="0" src="img/r2.gif" width="205" height="34"></TD>
<TD align=middle height=30 valign="top">
<p align="right"><a href="house/newhouse_show.asp">
<img border="0" src="img/r1x.gif" width="97" height="34"></a><img border="0" src="img/r3.gif" width="14" height="34"></TD>
</TR>
</TBODY>
</TABLE>
</div>
</TD></TR></TBODY></TABLE>
<table border="0" width="100%" id="table19" cellspacing="0" cellpadding="0" height="6">
<tr>
<td></td>
</tr>
</table>
<TABLE height=142 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top width=352>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=352
background=img/m3a.gif border=0>
<TBODY>
<TR>
<TD align=center>
<map name="FPMap3">
<area href=house/hs.asp?xxlb=4 shape="rect" coords="307, 13, 344, 30">
</map>
<img border="0" src="img/12.gif" width="353" height="33" usemap="#FPMap3"></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD height=22>
<div align="center">
<table width="352" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#B3D9FF" style="border-collapse: collapse">
<tr>
<td height="24" align="center"> 地段</td>
<td height="24" align="center">户型</td>
<td height="24" align="center">价格</td>
<td height="24" align="center">日期</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"><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><%=getStr(trim(rs("area")),7)%></A></td>
<td height="24" align="center"><%=Trim(Rs("fclx"))%></td>
<td height="24" align="center"><%=left(rs("jyprice"),15)%>元</td>
<td height="24" align="center"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
%>
</table>
</div>
</TD>
</TR>
</TBODY></TABLE>
</TD>
<TD width=6></TD>
<TD vAlign=top width=352 align=center>
<map name="FPMap4">
<area href="house/hs.asp?xxlb=1" shape="rect" coords="310, 14, 338, 27">
</map>
<img border="0" src="img/15.gif" width="353" height="33" usemap="#FPMap4"><TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
<TBODY>
<TR bgColor=#ffffff>
<TD height=22>
<div align="center">
<table width="352" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#B8EEF4" style="border-collapse: collapse">
<tr>
<td height="24" align="center">地段</td>
<td height="24" align="center">户型</td>
<td height="24" align="center">价格</td>
<td height="24" align="center">日期</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"><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><%=getStr(trim(rs("area")),7)%></A></td>
<td height="24" align="center"><%=Trim(Rs("fclx"))%></td>
<td height="24" align="center"><%=left(rs("jyprice"),15)%>元</td>
<td height="24" align="center"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
%>
</table>
</div>
</TD>
</TR>
</TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<table border="0" cellpadding="0" cellspacing="0" width="318" id="table832" height=5>
<tr>
<td><script type="text/javascript"><!--
google_ad_client = "pub-1643874477780591";
google_ad_width = 700;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_type = "text_image";
google_ad_channel = "";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script></td>
</tr>
</table>
<TABLE height=140 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD vAlign=top width=352 align=center>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=352
background=img/m3a.gif border=0>
<TBODY>
<TR>
<TD>
<map name="FPMap5">
<area href="house/hs.asp?xxlb=2" shape="rect" coords="310, 10, 339, 31">
</map>
<img border="0" src="img/3.gif" width="353" height="33" usemap="#FPMap5"></TD>
</TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=352 border=0>
<TBODY>
<TR bgColor=#c4e0f4>
<TD width="100%" height=20 bgcolor="#FFFFFF" align="center">
<div align="center">
<table width="350" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#FF7575" style="border-collapse: collapse">
<tr align="center">
<td height="23">地段</td>
<td height="23">户型</td>
<td height="23">价格</td>
<td height="23">日期</td>
</tr><%
Sql="select top 7 * from house where sh='1' and xxlb='2' order by dateandtime desc"
Rs.Open Sql,Conn,1,1
Do While Not Rs.Eof
%>
<tr align="center">
<td height="25"><a href=house/hs_open.asp?id=<%=trim(rs("id"))%> class="linkone"><%=getStr(trim(rs("area")),7)%></A></td>
<td height="25"><%=Trim(Rs("fclx"))%></td>
<td height="25"><%=left(rs("jyprice"),15)%>元</td>
<td height="25"><%response.write year(rs("dateandtime")) & "-" & month(rs("dateandtime")) & "-" & day(rs("dateandtime"))%></td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
%>
</table>
</div>
</TD>
</TR>
</TBODY></TABLE>
</TD>
<TD width=6></TD>
<TD vAlign=top width=352 align=center>
<map name="FPMap6">
<area href="house/hs.asp?xxlb=3" shape="rect" coords="310, 14, 342, 29">
</map>
<img border="0" src="img/4.gif" width="353" height="33" usemap="#FPMap6"><div align="center">
<table width="350" border="1" cellpadding="0" cellspacing="0" class="main" bordercolor="#FF97FF" style="border-collapse: collapse">
<tr align="center">
<td height="24">地段</td>
<td height="24">户型</td>
<td height="24">价格</td>
<td height="24">日期</td>
</tr><%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -