📄 dir_vip.asp
字号:
<option value=A>50平方以下</option>
<option value=B>50-70平方</option>
<option value=C>70-90平方</option>
<option value=D>90-110平方</option>
<option value=E>110-150平方</option>
<option value=F>150平方以上</option>
</select></span></span> </TD>
</tr>
<tr>
<TD class=12 height=27 width="44"><FONT color=#ffffff> </FONT><span class=9size><span style="font-size: 9pt"><span id=fps3>租金：</span></span></span></TD>
<TD class=12 height=27 width="111">
<span style="font-size: 9pt" id="fps5">
<select name=txtJiag class=form>
<option value=% selected>---不
限---</option>
<option value=A>1-3百/月</option>
<option value=B>3-5百/月</option>
<option value=C>5-7百/月</option>
<option value=D>7百-1千/月</option>
<option value=E>1千以上/月</option>
</select></span>
</TD>
</tr>
<tr>
<TD class=12 height=27 width="44"><FONT color=#ffffff> </FONT><FONT
color=#000000>时间：</FONT></TD>
<TD class=12 height=27 width="111">
<span class=9size>
<span style="font-size: 9pt" id="fps6">
<select name=txtsj class=form>
<option value=3600 selected>---不
限---</option>
<option value=7>七天内信息</option>
<option value=15>半月内信息</option>
<option value=30>一月内信息</option>
<option value=90>三月内信息</option>
</select></span></span>
</TD>
</tr>
<tr>
<TD align=middle colSpan=2 height=9 width="155"><INPUT name=Submit type=submit value=搜索> <INPUT name=Submit2 type=reset value=重置> </TD>
</tr>
</table>
</TD>
</tr>
</form>
<tr>
<td width="100%" height="15"></td>
</tr>
</table>
</TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=167>
<TBODY>
<TR>
<TD>
<IMG height=37 src="images/old_left3.jpg"
width=167></TD></TR></TBODY></TABLE><LINK
href="file:///D|/ASP/house/images/realty.css" rel=stylesheet
type=text/css>
</TD>
<TD align=middle bgColor=#FFFFFF vAlign=top height="489">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="96%">
<TBODY>
<TR>
<TD>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<tr>
<TD background="images/lv5-5.jpg" width="554" height="25" valign="top"><b><span style="font-size: 10.5pt"><font color="#000080"> <%if keyword="sale" then%></font><font color="#FF0000">精品房出售信息</font></span><FONT class=f3><font color="#000080"><span style="font-size: 10.5pt"><%else%></span></font></FONT><font color="#FF0000"><span style="font-size: 10.5pt">房屋出租推荐</span></font><FONT class=f3><font color="#000080"><span style="font-size: 10.5pt"><%end if%></span></font></FONT></b></TD>
</tr>
<tr>
<td height="6" width="567" style="border-left-style: none; border-left-width: medium" valign="bottom" bgcolor="#E4E4CB">
<%
set rs=server.createobject("adodb.recordset")
sql= "SELECT zid,Num,Diduan, Fangx, Taox, Mianj, M, Lc,Jiag, J, Xiaoqm, Tele, Content,Dat,fangshi,dj, "& typeto &".Dat FROM "& typeto &" WHERE vip='是' order by dat Desc "
rs.open sql,conn,1,1
if rs.eof and rs.bof then %>
<p align="center"> <font color="#FF0000">还没有房源！</font></p>
<p><% else
rs.pagesize=25
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showpages
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showpages
showContent
showpages1
else
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
%>
</td>
</tr>
<tr>
<td width="567" valign="top" style="border-left-style: none; border-left-width: medium">
<table width="100%" style="border-collapse: collapse" bordercolor="#FFFFFF" cellpadding="3" border="1" bordercolorlight="#808080" bordercolordark="#808080" height="113">
<tr bgcolor="#00CCFF" class="9size" valign="bottom">
<td width="7%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <div align="center">
编 号 </div></td>
<td width="9%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"><div align="center"><span style="font-size: 9pt">
所属区域</span></div></td>
<td width="16%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <div align="center"> <span style="font-size: 9pt">
地 点</span></div></td>
<td width="13%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <div align="center"><span style="font-size: 9pt">
套 型</span>
</div></td>
<td width="5%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <p align="center">
楼层</td>
<td width="8%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <div align="center"> <span style="font-size: 9pt">
面积(M<sup>2</sup>)</span></div></td>
<td width="12%" bgcolor="#D7D7AE" style="border-style: solid; border-width: 1" height="16"> <div align="center"> <span style="font-size: 9pt">
<% If typeto="sale" Then
response.Write("价 格")
else
response.Write("租 金")
end if %>
</span> </div></td>
<td width="6%" bgcolor="#D7D7AE" style="border-style: solid; border-width:0" height="16"> <div align="center"> <span style="font-size: 9pt">
详情</span></div></td>
</tr>
<% i=1
do while not (rs.eof or err)%>
<tr bgcolor="<%If (i Mod 2) Then%>#f2f6db<%Else%>#FFfFFF<%End If%>">
<td width="7%" style="border-style: solid; border-width: 0"> <div align="center"></span>
<p align="center"><font color="green"> <span style="font-size:9pt">
<% If rs("num")="" Then %>
<%=rs("zid")%>
<% Else %>
<%= rs("num") %>
<% End If %></span>
</font></div></td>
<td width="9%" style="border-style: solid; border-width: 1"><div align="center"><span style="font-size:9pt"><%=(rs.Fields.Item("Diduan").Value)%></span></div></td>
<td width="16%" style="border-style: solid; border-width: 1"> <div align="left"><span style="font-size:9pt">
<a target="_blank" href="list.asp?zid=<%= rs.Fields.Item("zid").Value %>&typeto=<%= typeto %>" onClick="return newpage(this.href);"><%=(rs.Fields.Item("Xiaoqm").Value)%></a></span></div></td>
<td width="13%" style="border-style: solid; border-width: 1" align="center"> <span style="font-size:9pt">
<%=(rs.Fields.Item("Taox").Value)%></span></td>
<td width="5%" style="border-style: solid; border-width: 1" align="center"> <p align="center"><span style="font-size:9pt"><%=(rs.Fields.Item("Lc").Value)%></span></td>
<td width="8%" style="border-style: solid; border-width: 1"> <div align="center"><span style="font-size:9pt"><%=(rs.Fields.Item("Mianj").Value)%></span></div></td>
<td width="12%" style="border-style: solid; border-width: 1"> <div align="center"><span style="font-size:9pt"><%=(rs.Fields.Item("Jiag").Value)%><%=(rs.Fields.Item("fangshi").Value)%></span></div></td>
<td width="6%" style="border-style: solid; border-width: 1"> <div align="center"><a target="_blank" href="list.asp?zid=<%= rs.Fields.Item("zid").Value %>&typeto=<%= typeto %>" onClick="return newpage(this.href);"><font color="#0033FF" ><span style="font-size:9pt"><font color="#0000FF">
详情</font></span></font></a></div></td>
</tr>
<%
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
i=i+1
rs.movenext
loop
%>
</table>
<%end sub %>
<%sub showpages() %>
<table width="98%" cellspacing="0" border="0" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0">
<tr>
<td align="right"><div align="right"><span style="font-size:9pt">
符合条件的房源共<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><%=totalPut%></font>条</span></div></td>
</tr>
</table>
<%
end sub
dim n
n=totalPage
%>
<center>
<table width="108%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" bgcolor="#E4E4CB"> <div align="center"><span style="font-size:9pt">
<form action="dir.asp" method="GET" align="right">
共<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><%=totalPut%></font>条房源</span>
<% If currentPage <> 1 Then %>
<A href=dir.asp?type=<%= request("type") %>><font color="#FF6600"><span style="font-size:9pt">
[首页]</span></font></A>
<A href=dir.asp?type=<%= request("type") %>&Page=<%= (currentPage-1) %> ><font color="#FF6600"><span style="font-size:9pt">
[上一页]</span></font></A>
<% End If %>
<% If currentPage <> rs.PageCount Then %>
<A href=dir.asp?type=<%= request("type") %>&Page=<%= (currentPage+1) %> ><font color="#FF6600"><span style="font-size:9pt">
[下一页]</span></font></A>
<A href=dir.asp?type=<%= request("type") %>&Page=<%= totalPage %>><font color="#FF6600"><span style="font-size:9pt">
[尾页]</span></font></A>
<% End If %>
<span style="font-size:9pt">第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页
<% response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write "<input type='hidden' name='type' value="&typeto&">"
response.write " <input class=buttonface type='submit' value='go' style='font-family: 宋体; font-size: 9pt;'>"
%>
</span></td>
</tr>
</table>
</form>
</td>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=right>
<IMG src="images/old_mimg.jpg" width="551" height="67"></TD></TR></TBODY></TABLE></TD>
<TD bgcolor="#F2F6DB"> </body>
</body>
</table>
</body>
<tr>
<TD width="0" bgcolor="#EDF4C1">
<p> </p>
</body>
</table>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<!--#include file="inc/bottom.asp"-->
</html>
</html>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -