search.asp

711房产管理系统

<!-- #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="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                    <td width="94%" background="images/left_02.gif">数据统计</td>
                    <td width="3%"><img src="images/left_03.gif" width="58" height="23"></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"><img src="images/dian04.gif" width="11" height="11"></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"><img src="images/dian04.gif" width="11" height="11"></div></td>
                    <% set news=conn.execute("Select count(*) as news1 From news") %>
                    <td>新闻总数：<font color="#FF9933"> 
                      <% =news("news1") %>
                      </font> 条</td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                    <% set puser=conn.execute("Select count(*) as puser1 From puser") %>
                    <td>注册会员：<font color="#FF9933"> 
                      <% =puser("puser1") %>
                      </font> 人</td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                    <%set rs2=server.CreateObject("ADODB.RecordSet") 
                      rs2.Source="select top 1 * from puser order by id desc"
                      rs2.Open rs2.Source,conn,1,1
                     %>
                    <td>最新注册：<font color="#FF9933"><a href="L_user.asp?pname=<% =rs2("uid") %>"><%=rs2("uid")%></a></font></td>
                  </tr>
                  <tr> 
                    <td><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                    <td>总访问量：<font color="#FF9933"> 
                      <% =application("counter") %>
                      </font></td>
                  </tr>
                </table></TD>
            </TR>
            <TR> 
              <TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff>&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE>
        <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="3%"><img src="images/left_01.gif" width="27" height="23"></td>
                    <td width="94%" background="images/left_02.gif">热点新闻</td>
                    <td width="3%"><img src="images/left_03.gif" width="58" height="23"></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="3">
                  <% set rsTOP=server.createobject("adodb.recordset")
				  sqlTOP="select top 10 * from news where mytype='热点新闻' order by lls desc"
				  rsTOP.open sqlTOP,conn,3,3
		          for i=1 to 10 %>
                  <tr> 
                    <td width="10%"><div align="center"><img src="images/dian04.gif" width="11" height="11"></div></td>
                    <td width="90%"><a title="<% =left(rsTOP("nr"),15) %>..." href=news.asp?xiangxi=<% =rsTOP("id") %>> 
                      <% =left(rsTOP("bt"),9) %>
                      <% if len(rsTOP("bt")) > 10 then 
				  response.Write"..."
				  end if%>
                      </a></td>
                  </tr>
                  <% rsTOP.movenext
                   if rsTOP.eof then exit for
                   next
                   rsTOP.close %>
                </table></TD>
            </TR>
            <TR> 
              <TD height=19 vAlign=center background="images/left_04.gif" bgColor=#ffffff>&nbsp;</TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD width=6 bgColor=#ffffff>&nbsp;</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="6%"><img src="images/cent_01.gif" width="37" height="20"></td>
                  <td width="84%" valign="bottom" background="images/cent_02.gif">搜索结果</td>
                  <td width="10%"><a href="fb.asp"><img src="images/fb01.gif" border="0"></a></td>
                </tr>
              </table></TD>
          </TR>
          <TR> 
            <TD><DIV align=center> 
                <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
                  <% 
  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%">&nbsp;<img src="images/006.gif" width="8" height="10"><font size="2"> 
                      <% =rs("mytype")%>
                      </font></TD>
                    <TD align=right width="13%"><div align="center"><font size="2"> 
                        <% =rs("fw_quyu")%>
                        </font></div></TD>
                    <TD align=left width="16%"><div align="center"><font size="2"> 
                        <% =rs("fw_jiegou")%>
                        </font></div></TD>
                    <TD align=middle width="20%"> <div align="center"><font size="2"> 
                        <% =rs("fw_jiage") %><% =rs("fw_jiageLX") %>
                        </font></div></TD>
                    <TD align=left width="10%"><div align="center"><font color="#666666" size="2"> 
                        <% =rs("fw_lls") %>
                        </font></div></TD>
                    <TD align=left width="18%"><div align="center"><font color="#666666" size="2"> 
                        <% =rs("fw_fbri") %>
                        </font></div></TD>
                    <TD align=left width="12%"><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>
          <TR> 
            <TD><div align="right"></div></TD>
          </TR>
          <TR> 
            <TD width="100%" height=2 align=right background="images/c-dl.gif"></TD>
          </TR>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<!-- #include file="let.asp"-->