house_search.asp

一个朋友购买的商业版房产网源程序

<!--#include file="pass.asp"-->
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
  <TR borderColor=#007db5 bgColor=#007db5> 
    <TD vAlign=bottom bgcolor="#007db5"><font color="#FFFFFF">&nbsp;信息搜索：</font></TD>
  </TR>
  <TR borderColor=#ffffff bgColor=#ffffff> 
    <TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999">
        <%
ss=request("ss")
sslb=request("sslb")

set rs=server.createobject("adodb.recordset") 
sql="select * from house where "&sslb&" like '%"&ss&"%' order by id desc"
rs.open sql,conn,1,3

%>
        <tr bgcolor="#FFFFFF"> 
          <td width="38%"><div align="center"><font color="#007db5"><strong>房屋地址</strong></font></div></td>
          <td width="8%"> <div align="center"><font color="#007db5"><strong>类型</strong></font></div></td>
          <td width="12%"> <div align="center"><font color="#007db5"><strong>房屋结构</strong></font></div></td>
          <td width="13%"> <div align="center"><font color="#007db5"><strong>发布人</strong></font></div></td>
          <td width="6%"> <div align="center"><font color="#007db5"><strong>价格</strong></font></div></td>
          <td width="16%"><div align="center"><font color="#007db5"><strong>日期</strong></font></div></td>
          <td width="7%"><div align="center"><font color="#007db5"><strong>操作</strong></font></div></td>
        </tr>
<%
if rs.bof and rs.eof then
response.write "Sorry 没找到您要的内容 ！"
else
while not rs.eof
%>
        <tr bgcolor="#FFFFFF"> 
          <td width="38%"> <a href="../TZopen.asp?xiangxi=<% =rs("id") %>" target="_blank"> 
            <% =rs("fw_dizhi") %>
            </a> </td>
          <td width="8%"><div align="center"> 
              <% =rs("mytype") %>
            </div></td>
          <td width="12%"><div align="center"> 
              <% =rs("fw_jiegou") %>
            </div></td>
          <td width="13%"><div align="center"> 
              <% =rs("fw_uid") %>
            </div></td>
          <td width="6%"><div align="center"> 
              <% =rs("fw_jiage")%>
            </div></td>
          <td width="16%"><div align="center"> 
              <% =rs("fw_fbri") %>
            </div></td>
          <td><div align="center"><font size="2"> 
              <input name="cz"  type="button" id="cz" onClick="window.location='?xiugai=<% =rs("id") %>'" value="操作">
              </font></div></td>
        </tr>
        <% 
rs.movenext
wend
end if

%>
      </table></TD>
</TR>
</TABLE>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<TBODY>
<TR borderColor=#ededed bgColor=#ededed> 
<TD align=middle height=25><div align="center"> 
<% 
set tj=conn.execute("Select count(*) as tj1 From house where "&sslb&" like '%"&ss&"%'")
%>
          共搜索到信息〖 
          <% =tj("tj1") %>
          〗条</div></TD>
    </TR>
  </TBODY>
</TABLE>