newhouse_show.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 409 行 · 第 1/2 页
ASP
409 行
<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="../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>
</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">
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>楼盘列表</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></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 class=out4s_green 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><font color="#000000">楼盘名称</font></strong></td>
<td width="93" height="25"><strong><font color="#000000">区域</font></strong></td>
<td width="81" height="25"><strong><font color="#000000">均价(元/m<sup>2</sup>)</font></strong></td>
<td width="162" height="25"><strong><font color="#000000">开发商</font></strong></td>
<td width="90" height="25"><strong><font color="#000000">售楼热线</font></strong></td>
</tr>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
Dim Curpage,Totalpages,Count,Area,Price1,Price2,Developer,HouseName
Price1=Trim(Request("price1"))
Price2=Trim(Request("price2"))
Area=Trim(Request("fangwei"))
Developer=Trim(Request("Developer"))
HouseName=Trim(Request("HouseName"))
const Numpage=25
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 BeginPrice<="&price2&""
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
%>
<tr onMouseOver="this.style.backgroundColor='#effceb';" onMouseOut="this.style.backgroundColor='<%=bgcolor%>'" bgcolor="#FBF9F9">
<td height="27" align="center" bgcolor="#FBF9F9"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%> ><%=getStr(Trim(Rs("HouseName")),9)%></a></td>
<td height="27" align="center"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%> ><%=getStr(Trim(Rs("Area")),4)%></a></td>
<td height="27" align="center"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%> ><%=getStr(Trim(Rs("AvgPrice")),4)%></a></td>
<td height="27" align="center"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%> ><%=getStr(Trim(Rs("Developer")),12)%></a></td>
<td height="27" align="center"><a href=newhouse_detail2.asp?HID=<%=Trim(Rs("HID"))%>><%=getStr(Trim(Rs("SellHotTel")),7)%></a></td>
</tr>
<%
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%>
首页
<%Else%>
<a href="?Curpage=1&Area=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>" class="linkone">首页</a>
<%End If%>
<%If Cint(Curpage)>1 Then%>
<a href="?Curpage=<%=Cint(Curpage)-1%>&Area=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>" class="linkone">上一页</a>
<%Else%>
上一页
<%End If%>
<%If Cint(Curpage)<Cint(Totalpages) Then%>
<a href="?Curpage=<%=Cint(Curpage)+1%>&Area=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>" class="linkone">下一页</a>
<%Else%>
下一页
<%End If%>
<%If Cint(Totalpages)>Cint(Curpage) Then%>
<a href="?Curpage=<%=Cint(Totalpages)%>&Area=<%=Area%>&Price1=<%=price1%>&price2=<%=price2%>&houseName=<%=housename%>&developer=<%=developer%>" class="linkone">末页</a>
<%Else%>
末页
<%End If%>
</div></td>
</tr>
</table>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0 id="table5">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0 id="table6">
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
</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 + =
减小字号Ctrl + -
显示快捷键?