⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search_buy.asp

📁 一个关于房产的asp程序
💻 ASP
字号:
<!--#include file=efwmanager/include/config.asp-->
<!--#include file=conn_view.asp-->
<!--#include file=efwmanager/include/function.asp-->
<%
dim search,search_qy,search_lx,search_hx,search_zj,search_mj_min,search_mj_max,search_jg_min,search_jg_max
search_qy=request("search_qy")
search_lx=request("search_lx")
search_hx=request("search_hx")
search_zj=request("search_zj")
search_mj_min=trim(request("search_mj_min"))
search_mj_max=trim(request("search_mj_max"))
search_jg_min=trim(request("search_jg_min"))
search_jg_max=trim(request("search_jg_max"))

search=""
if request("search_qy")<>"" then
   search=search & "and qy='" & request("search_qy") & "'"
end if
if request("search_lx")<>"" then
      search=search & " and wylx='" & request("search_lx") & "'"
end if
if request("search_hx")<>"" then
      search=search & " and hx='" & request("search_hx") & "'"
end if
if request("search_zj")<>"" then
      search=search & " and zj='" & request("search_zj") & "'"
end if


%>

<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<style> body{ scrollbar-face-color:fd9035; scrollbar-shadow-color:ffffff;  scrollbar-highlight-color:ffffff; scrollbar-3dlight-color:ffffff;  scrollbar-darkshadow-color:ffffff; scrollbar-track-color:ffefd7;  scrollbar-arrow-color:ffffff;} 
.rightkuan {  border-color: black #FFFFFF black black; border-style: solid; border-top-width: 0px; border-right-width: 1px; border-bottom-width: 0px; border-left-width: 0px}
</style>
<script language="JavaScript" src="share/nei_fc.js"></script>
<script language="JavaScript">
<!--
	function checksearch()
	{
	if(!CheckIsNumeric(search.search_mj_min,"请在输入框中输入数值!")) return false;
	if(!CheckIsNumeric(search.search_mj_max,"请在输入框中输入数值!")) return false;
	if(!CheckIsNumeric(search.search_jg_min,"请在输入框中输入数值!")) return false;
	if(!CheckIsNumeric(search.search_jg_max,"请在输入框中输入数值!")) return false;
	}
//-->
</script>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
<!--#include file="share/top.htm"-->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="left" valign="top"> 
    <td width="131"><img src="images/hack_r2_c1.gif" width="155" height="92"></td>
    <td width="647">
      <!--#include file="share/top_menu.htm"-->
      <table width="623" border="0" cellspacing="0" cellpadding="0">
        <tr align="left" valign="top"> 
          <td width="623" height="51" background="images/buy_top.jpg"> 
            <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="623" height="50">
              <param name=movie value="images/nei_banner1.swf">
			  <param name=WMODE value=Transparent>
              <param name=quality value=high>
              <embed src="images/nei_banner1.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="623" height="50">
              </embed> 
            </object></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="left" valign="top"> 
    <td width="154" bgcolor="#fff9e2" class="rightkuan"> 
      <!--#include file="share/nei_login.htm"-->
<form action="search_buy.asp" method=post name="search"  onSubmit="return checksearch()">
<!--#include file="share/search_hire.asp"-->
</form>
<!--#include file="share/nei_dengji.htm"-->
      <br>
    </td>
    <td width="653" align="center"> 
      <table width="624" border="0" cellspacing="0" cellpadding="0">
	            <%
	dim strSql,rs,i,PageNo
	if request("search_qy")="" and request("search_lx")="" and request("search_hx")="" and request("search_zj")="" and trim(request("search_mj_min"))="" and trim(request("search_mj_max"))="" and trim(request("search_jg_min"))="" and trim(request("search_jg_max"))="" then
	strSql="select * from [house_buy] where pass='是' order by id desc"
	else
	strSql="select * from [house_buy] where pass='是'" & search & "order by id desc"
	end if
	set rs=Server.CreateObject("ADODB.RecordSet")
	rs.open strSql,conn,3,3
	rs.PageSize=25
	PageNo=request("PageNo")
	if PageNo<1 or not isnumeric(PageNo) then
		PageNo=1
	end if
	if cint(PageNo)>rs.PageCount then
		PageNo=rs.PageCount
	end if
%>
        <tr> 
          <td bgcolor="#ECECFF" align="center" valign="middle" height="30" class="font" width="624">您 
            好! 以 下 是 你 要 查 询 的 结 果!<font color="#787878">[共</font><font color=red><%=rs.recordcount%></font><font color="#787878">条记录]</font></td>
        </tr>
      </table>
      <table width="623" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFCC99">
        <form name="form4" method="post">
          <tr align="center" valign="middle" bgcolor="#F0F0F0"> 
            <td width="55" height="21" class="font"><font color="#FF6600">是否中介</font></td>
            <td width="206" height="25" class="font" bgcolor="#F0F0F0"><font color="#FF6600">要求地段</font></td>
            <td height="21" class="font" width="92"><font color="#FF6600" class="font">房型</font></td>
            <td width="94" height="21"><font color="#FF6600" class="font">面积(㎡)</font></td>
            <td width="87" height="21"><font color="#FF6600" class="font">价格(万元)</font></td>
            <td width="83"><font color="#FF6600" class="font">登记时间</font></td>
          </tr>
          <%
		  dim yy
		if rs.recordcount>0 then
		   rs.AbsolutePage =PageNo
		   for i=1 to rs.pageSize

			  if i/2=int(i/2) then
			  yy="#ffffff"
			  else
			  yy="#fff9e1"
			  end if
  %>
          <tr align="center" valign="middle" bgcolor="<%=yy%>" onMouseOver="mOvr(this,'#FFECD9');"  onMouseOut="mOut(this,'<%=yy%>');"> 
            <%if rs.eof then
			response.write ("<td height=21></td>")
            response.write ("<td height=21></td>")
            response.write ("<td height=21></td>")
            response.write ("<td height=21></td>")
            response.write ("<td height=21></td>")
            response.write ("<td></td>")
			else%>
            <td height="21" class="font" ><%=rs("zj")%></td>
            <td height="21" ><a href="sub_buy.asp?id=<%=rs("id")%>" target="_blank" class="linkfont"><font color="#FF6600"><%=left(rs("address"),12)%></font></a></td>
            <td height="21" class="font" ><%=rs("hx")%></td>
            <td height="21" class="font" ><%=rs("min_area")%> ~ <%=rs("max_area")%></td>
            <td height="21" class="font" ><%=rs("min_pay")%> ~ <%=rs("max_pay")%></td>
            <td class="font" ><%if replace(now(),right(now(),8),"")=replace(rs("date"),right(rs("date"),8),"") then %>
			<font color="#FF6600"><%=replace(rs("date"),right(rs("date"),8),"")%></font>
			<%else%>
			<%=replace(rs("date"),right(rs("date"),8),"")%>
			<%end if%></td>
            <%end if%>
          </tr>
          <%
		  if not rs.eof then
				rs.movenext
		  end if
			next
  %>
          <tr align="right" valign="middle" bgcolor="#FFE7CE"> 
            <td height="28" colspan="6" class="font" > 
              <%
			out("<font color=#929292>当前页次:</font><font color=red>" & PageNo & "/" & rs.pagecount & "</font> &nbsp;&nbsp;")
			out("<font color=#929292>共</font><font color=red>" & rs.pagecount & "</font><font color=#929292>页</font> &nbsp;&nbsp;")
			out("<font color=#929292>共</font><font color=red>" & rs.recordcount & "</font><font color=#929292>条记录</font> &nbsp;&nbsp;")
			out("<font color=#929292>每页显示</font><font color=red>" & rs.pagesize & "</font><font color=#929292>条</font> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")
	  dim pag
	  %>
              <a href="search_buy.asp?pageno=1&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>" class="menu1">[首页]</a> 
              <a href="search_buy.asp?pageno=<%=pageno-1%>&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>" class="menu1">[上一页]</a> 
              <a href="search_buy.asp?pageno=<%=pageno+1%>&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>" class="menu1">[下一页]</a> 
              <a href="search_buy.asp?pageno=<%=rs.pagecount%>&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>" class="menu1">[尾页]</a> 
              <select name="jump" class="textinput" onchange="javascript:window.open(this.options[this.selectedIndex].value,'_self')">
                <% for pag=1 to rs.pagecount
				if int(pageno)=pag then %>
                <option value="search_buy.asp?pageno=<%=pageno%>&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>" selected><%=pageno%></option>
                <%else%>
                <option value="search_buy.asp?pageno=<%=pag%>&amp;search_qy=<%=search_qy%>&amp;search_lx=<%=search_lx%>&amp;search_hx=<%=search_hx%>&amp;search_zj=<%=search_zj%>&amp;search_mj_min=<%=search_mj_min%>&amp;search_mj_max=<%=search_mj_max%>&amp;search_jg_min=<%=search_jg_min%>&amp;search_jg_max=<%=search_jg_max%>"><%=pag%></option>
                <%
				end if
				next %>
              </select>
              &nbsp; </td>
          </tr>
          <% else %>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="6" height="458"> 
              <div align="center" class="font">没有数据!</div>
            </td>
          </tr>
          <%
		end if 
		rs.close
		set rs=nothing
  %>
        </form>
      </table>    
    </td>
  </tr>
</table>
<!--#include file="share/foot.htm"-->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -