📄 newhouse_show.asp
字号:
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/getPartStrAndBytesLen.asp" -->
<!--#include file="../top.asp"-->
<script src="../images/layerdetail.js"></script>
<script language="JavaScript" src="../inc/index.js"></script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>楼盘展示－<%=homepage_title%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="../img1/css.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2706" name=GENERATOR></HEAD>
<BODY class=bg1 text=#000000 bgColor=#ffffff leftMargin=0 topMargin=1>
<TABLE height=28 cellSpacing=0 cellPadding=0 width=980 align=center
background=../img/headbg4.gif border=0>
<TBODY>
<TR>
<TD align=right width=35>
<IMG height=13 src="../img/headarrow.gif"
width=17></TD>
<TD align=middle width=10></TD>
<TD class=TD_Place width=935><font color="#FFFFFF">您现在的位置：</font><a href="../index.aspx"><font color="#FFFFFF"><%=homepage_title%> </FONT></a>
<font color="#FFFFFF">>></FONT>
<font color="#FFFFFF">楼盘展示</font></TD></TR></TBODY></TABLE>
<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 height=497 cellSpacing=0 cellPadding=0 width=970 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=259 height=733 rowspan="2"><!--#include file="lpleft.asp"--></td>
<TD vAlign=top width=711>
<table border="0" width="100%" id="table10" cellspacing="0" cellpadding="0">
<tr>
<td align="center">
<TABLE cellSpacing=0 cellPadding=0 width=708 border=1 bordercolordark="#FFE2BB">
<TBODY>
<TR>
<TD vAlign=top height="56">
<TABLE cellSpacing=0 cellPadding=0 width=700 align=center
border=0><TBODY>
<TR>
<TD>
<table border="0" width="100%" cellspacing="0" cellpadding="0" id="table11">
<tr>
<td background="../img1/fj.jpg" height="28"> <font color="#EE5806">推荐楼盘</font></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY><!--循环行开始--><%
OpenDataConn()
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="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><font color="#EE5806"><%=fzname%></font></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>
</TD></TR></TBODY></TABLE></td>
</tr>
<tr>
<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0 id="table7" background="../img1/fj.jpg">
<TBODY>
<TR>
<TD> <font color="#EE5806">楼盘列表</font></TD>
</TR></TBODY></TABLE></td>
</tr>
<tr>
<td align="center"><TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table3">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width=710 border=0 id="table2">
<TBODY>
<TR>
<TD vAlign=top>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#999999" id="table8">
<tr align="center" bgcolor="#effceb">
<td width="128" height="25">
<strong style="font-weight: 400"><font color="#EE5806">楼盘名称</font></strong></td>
<td width="93" height="25">
<strong style="font-weight: 400"><font color="#EE5806">区域</font></strong></td>
<td width="81" height="25">
<strong style="font-weight: 400"><font color="#EE5806">均价(元/m<sup>2</sup>)</font></strong></td>
<td width="162" height="25">
<strong style="font-weight: 400"><font color="#EE5806">开发商</font></strong></td>
<td width="90" height="25">
<strong style="font-weight: 400"><font color="#EE5806">售楼热线</font></strong></td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Dim Curpage,Totalpages,Count,Area,Price1,Price2,Developer,HouseName
Price1=changechr(Request("price1"))
Price2=changechr(Request("price2"))
Area=changechr(Request("fangwei"))
Developer=changechr(Request("Developer"))
HouseName=changechr(Request("HouseName"))
tj=changechr(Request("tj"))
sp=changechr(Request("sp"))
const Numpage=15
Sql="select * from NewHouse where HouseName<>'' "
If Area<>"" Then
Sql=Sql&" and Area='"&Area&"'"
End If
If Developer<>"" Then
Sql=Sql&" and Developer like '%"&Developer&"%'"
End If
If HouseName<>"" Then
Sql=Sql&" and HouseName like'%"&HouseName&"%'"
End If
If Price1<>"" then
Sql=Sql&" and avgprice>="&price1&""
End If
If Price2<>"" Then
Sql=Sql&" and avgprice<="&price2&""
End if
if tj="1" then
Sql=Sql&" and tj='1' "
end if
if sp="1" then
Sql=Sql&" and lpsp<>'' "
end if
Sql=Sql&" order by dateandtime desc"
rs.Open Sql,conn,1,3
If rs.Eof Then
Response.Write("<tr><td colspan='5' bgcolor='#FFFFFF'><div align='center'>还没有任何楼盘</div></td></tr>")
End If
If Not rs.Eof Then
rs.PageSize=Numpage
Totalpages=rs.PageCount
Curpage=Trim(Request("Curpage"))
If Curpage="" Then
Curpage=1
Elseif Not Isnumeric(Curpage) Then
Curpage=1
Elseif Cint(Curpage)<1 Then
Curpage=1
Elseif Cint(Curpage)>Cint(Totalpages) Then
Curapge=Totalpages
End If
rs.Absolutepage=Curpage
Count=0
Do While Not rs.Eof And Count<Numpage
If count mod 2=0 Then
bgcolor="#FEFAEE"
Else
bgcolor="#FFFFFF"
End If
hid=Rs("HID")
%>
<tr onMouseOver="this.style.backgroundColor='#effceb';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="#FBF9F9">
<td height="27" align="center" bgcolor="#FBF9F9"><a href=<%if sp="1" then%>newhouse_sp.asp?HID=<%=hid%><%else%>newhouse_detail2.asp?HID=<%=hid%><%end if%> target=_blank><font color="#EE5806"><%=getStr(Trim(Rs("HouseName")),9)%></font></a></td>
<td height="27" align="center"><font color="#EE5806"><%=getStr(Trim(Rs("Area")),4)%></font></td>
<td height="27" align="center"><font color="#EE5806"><%=getStr(Trim(Rs("AvgPrice")),4)%></font></td>
<td height="27" align="center"><font color="#EE5806"><%=getStr(Trim(Rs("Developer")),12)%></font></td>
<td height="27" align="center"><font color="#EE5806"><%=getStr(Trim(Rs("SellHotTel")),7)%></font></td>
</tr>
<%
Count=Count+1
rs.MoveNext
Loop
End If
rs.Close
Set rs=Nothing
%>
<tr bgcolor="#FFFFFF">
<td height="23" colspan="5"> <div align="center">
<%If Cint(Totalpages)<=1 Then%>
<font color="#EE5806">首页
<%Else%>
</font>
<a href="?Curpage=1&fangwei=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>&tj=<%=tj%>&sp=<%=sp%>" class="linkone">
<font color="#EE5806">首页</font></a><font color="#EE5806">
<%End If%>
<%If Cint(Curpage)>1 Then%>
</font>
<a href="?Curpage=<%=Cint(Curpage)-1%>&fangwei=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>&tj=<%=tj%>&sp=<%=sp%>" class="linkone">
<font color="#EE5806">上一页</font></a><font color="#EE5806">
<%Else%>
上一页
<%End If%>
<%If Cint(Curpage)<Cint(Totalpages) Then%>
</font>
<a href="?Curpage=<%=Cint(Curpage)+1%>&fangwei=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>&tj=<%=tj%>&sp=<%=sp%>" class="linkone">
<font color="#EE5806">下一页</font></a><font color="#EE5806">
<%Else%>
下一页
<%End If%>
<%If Cint(Totalpages)>Cint(Curpage) Then%>
</font>
<a href="?Curpage=<%=Cint(Totalpages)%>&fangwei=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>&tj=<%=tj%>&sp=<%=sp%>" class="linkone">
<font color="#EE5806">末页</font></a><font color="#EE5806">
<%Else%>
末页
<%End If%> 第<%=curpage%> 页/共<%=totalpages%>页</font>
</div></td>
</tr>
</table>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table5">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE></td>
</tr>
</table>
</TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -