📄 search.asp
字号:
<!-- #include file="top.asp"-->
<%
H_lx=trim(request("lx"))
H_qy=trim(request("qy"))
H_mj=trim(request("mj"))
H_mj1=trim(request("mj1"))
H_jg=trim(request("jg"))
H_jg1=trim(request("jg1"))
set rs=server.createobject("adodb.recordset")
sql="select * from house where mytype='"& H_lx &"' and fw_quyu='"& H_qy &"' and fw_mianji >= "&H_mj&" and fw_mianji <= "&H_mj1&" and fw_jiage >= "&H_jg&" and fw_jiage <= "&H_jg1&" order by id desc"
rs.open sql,conn,1
%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center bgColor=#ffffff border=0>
<TBODY>
<TR vAlign=top>
<TD width=180> <TABLE height=62 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<img border="0" src="img/menu2.gif" width="180" height="34"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD align=middle width="180" background=images/m-b.gif bgColor=#ffffff height=20>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%"><div align="center"> </div></td>
<% set house=conn.execute("Select count(*) as house1 From house") %>
<td width="90%">房产信息:<font color="#FF9933">
<% =house("house1") %>
</font> 条 </td>
</tr>
<tr>
<td><div align="center"> </div></td>
<% set puser=conn.execute("Select count(*) as puser1 From user_info") %>
<td>注册会员:<font color="#FF9933">
<% =puser("puser1") %>
</font> 人</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width=2 bgColor=#ffe7d0></TD>
<TD><TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 borderColor=#111111 background="images/c-b.gif" style="BORDER-COLLAPSE: collapse">
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor="#FF9933" height="20" align="center">
<font color="#FFFFFF">搜索结果</font></td>
</tr>
</table></TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF"><DIV align=center>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=0 bgcolor="#FF9933">
<%
if rs.bof and rs.eof then
response.write "对不起!没搜索到您要的信息!"
else
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page '跳到多少页
for i=1 to rs.pagesize
%>
<TR>
<TD width="11%" bgcolor="#FFFFFF"> <img src="img/plus.gif" width="7" height="7"><font size="2">
<% =rs("mytype")%>
</font></TD>
<TD align=right width="13%" bgcolor="#FFFFFF"><div align="center"><font size="2">
<% =rs("fw_quyu")%>
</font></div></TD>
<TD align=left width="16%" bgcolor="#FFFFFF"><div align="center"><font size="2">
<% =rs("fw_jiegou")%>
</font></div></TD>
<TD align=middle width="20%" bgcolor="#FFFFFF"> <div align="center"><font size="2">
<% =rs("fw_jiage") %><% =rs("fw_jiageLX") %>
</font></div></TD>
<TD align=left width="10%" bgcolor="#FFFFFF"><div align="center"><font color="#666666" size="2">
<% =rs("fw_lls") %>
</font></div></TD>
<TD align=left width="18%" bgcolor="#FFFFFF"><div align="center"><font color="#666666" size="2">
<% =rs("fw_fbri") %>
</font></div></TD>
<TD align=left width="12%" bgcolor="#FFFFFF"><div align="center"><a href="h_open.asp?id=<%=rs("id")%>">查看</a>
</div></TD>
</TR>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</TABLE>
</DIV></TD>
</TR>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<!-- #include file="let.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -