hack.asp
来自「一个关于房产的asp程序」· ASP 代码 · 共 300 行
ASP
300 行
<!--#include file=efwmanager/include/config.asp-->
<!--#include file=conn_view.asp-->
<!--#include file=efwmanager/include/function.asp-->
<html>
<head>
<title><%=title%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
<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>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" oncontextmenu="window.event.returnValue=false" onselectstart="return false" background="images/bbb1.gif">
<!--#include file="share/top.htm"--><table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="white">
<tr align="left" valign="top">
<td width="778" height="24"><p><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0" width="778" height="55">
<param name="movie" value="share/MENU.swf">
<param name="play" value="true">
<param name="loop" value="true">
<param name="quality" value="high">
<embed src="share/MENU.swf" play="true" loop="true" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" width="778" height="55"></embed>
</object></p>
</td>
</tr>
<tr align="left" valign="top">
<td width="778" height="14"> <p><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0" width="778" height="67">
<param name="movie" value="images/sqinfo.swf">
<param name="play" value="true">
<param name="loop" value="true">
<param name="quality" value="high">
<embed src="images/sqinfo.swf" play="true" loop="true" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" width="778" height="67"></embed>
</object></p>
</td>
</tr>
<tr align="left" valign="top">
<td style="BORDER-BOTTOM: #d8d8d8 1px solid" width="778" height="25" valign="middle">
<p> <span style="font-size:9pt;">当前位置：
</span><a href="index.asp" class="ffbyfont"><span style="font-size:9pt;">首页</span></a><span style="font-size:9pt;"> >> 出租信息</span></p>
</td>
</tr>
</table>
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="white">
<tr align="left" valign="top">
<td style="BORDER-RIGHT: #d8d8d8 1px solid; width=" 125" bgcolor="white">
<!--#include file="share/nei_login.htm"-->
<!--#include file="share/nei_dengji.htm"-->
<br>
<!--#include file="share/nei_zfzn.htm"-->
<br>
<!--#include file="share/nei_lyb.htm"-->
</td>
<td width="653">
<table width="624" border="0" cellspacing="0" cellpadding="0">
<tr align="left" valign="top">
<td width=" 260" height="163" colspan="3"><img src="images/hack_r4_c6.jpg" width="260" height="172"></td>
<td width="10" background="images/hack_r4_c18.jpg" height="163"><img src="images/hack_r4_c11.jpg" width="6" height="172"></td>
<td width="329" background="images/hack_r4_c18.jpg" height="163"><img src="images/hack_r4_c12.gif" width="175" height="42"><br>
<table width="326" border="0" cellpadding="0" cellspacing="0">
<form action="search_hack.asp" method=post name="search" onSubmit="return checksearch()">
<tr align="left" valign="middle">
<td width="163" height="25" class="font">区域：
<select name="search_qy" style="FONT-SIZE: 9pt; WIDTH: 90px; FONT-FAMILY: 宋体; HEIGHT: 22px" >
<option value="" selected>-请选择-</option>
<%
dim Sql,rs0
Sql="select * from [area] order by id"
set rs0=Server.CreateObject("ADODB.RecordSet")
rs0.open Sql,conn,1,1
do while not rs0.eof
%>
<option value="<%=rs0("area_name")%>"><%=rs0("area_name")%></option>
<%
rs0.movenext
loop
rs0.close
%>
</select> </td>
<td width="163" class="font">房屋类型：
<select name=search_lx class="textinput">
<option value="" selected>-请选择-</option>
<option value="商品房">商品房</option>
<option value="集资房">集资房</option>
<option value="拆迁房">拆迁房</option>
<option value="写字楼">写字楼</option>
<option value="公房">公房</option>
<option value="店面">店面</option>
<option value="民房">民房</option>
<option value="别墅">别墅</option>
</select></td>
</tr>
<tr align="left" valign="middle">
<td height="25" class="font">户型：
<select
name=search_hx style="FONT-SIZE: 9pt; WIDTH: 90px; FONT-FAMILY: 宋体; HEIGHT: 22px" >
<option value="" selected>-请选择-</option>
<option value="4室2厅2卫">4室2厅2卫</option>
<option value="4室2厅1卫">4室2厅1卫</option>
<option value="4室1厅1卫">4室1厅1卫</option>
<option value="3室2厅2卫">3室2厅2卫</option>
<option value="3室2厅1卫">3室2厅1卫</option>
<option value="3室1厅1卫">3室1厅1卫</option>
<option value="2室2厅1卫">2室2厅1卫</option>
<option value="2室1厅1卫">2室1厅1卫</option>
<option value="2室半1厅1卫">2室半1厅1卫</option>
<option value="1室1厅1卫">1室1厅1卫</option>
<option value="单间">单间</option>
<option value="复式">复式</option>
<option value="其他">其他</option>
</select> </td>
<td height="25" class="font">是否中介：
<select name="search_zj" class="textinput">
<option value="" selected>-请选择-</option>
<option value="非中介">非中介</option>
<option value="中介">中介</option>
</select></td>
</tr>
<tr align="left" valign="middle">
<td height="25" class="font">面积：
<input name="search_mj_min" type="text" class="textinput" id="min" size="1">
~
<input name="search_mj_max" type="text" class="textinput" id="max" size="1">
㎡</td>
<td height="25" class="font">价格：
<input name="search_jg_min" type="text" class="textinput" id="min23" size="1">
~
<input name="search_jg_max" type="text" class="textinput" id="max23" size="1">
元</td>
</tr>
<tr align="center" valign="bottom" >
<td height="34" colspan="2" class="font"><input name="imageField" type="image" src="images/search.gif" width="60" height="23" border="0">
</td>
</tr>
</form>
</table> </td>
<td width="25" align="right" height="181" rowspan="2"><img src="images/hack_r4_c20.jpg" width="25" height="172"></td>
</tr>
<tr align="left" valign="top">
<td width="599" height="7" colspan="5">
<p></p>
</td>
</tr>
<tr align="left" valign="top">
<td width="3" height="32">
<p></p>
</td>
<td width="55" height="32"><img src="images/HB.gif" width="55" height="34" border="0"></td>
<td width="202" height="32" background="images/hbg.gif" valign="middle">
<p> <span style="font-size:9pt;">房屋出租信息</span></p>
</td>
<td width="339" height="32" colspan="2" background="images/hbg.gif">
<p> </p>
</td>
<td width="25" align="right" height="32" background="images/hbg.gif">
<p> </p>
</td>
</tr>
<tr align="left" valign="top">
<td width="599" height="8" colspan="5">
<p></p>
</td>
<td width="25" align="right" height="8">
<p></p>
</td>
</tr>
</table>
<table width="610" border="0" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8" align="center">
<form name="form4" method="post">
<%
dim strSql,rs,i,PageNo
if request("userid")="" and request("zjid")="" then
strSql="select * from [house_hack] where pass='是' order by id desc"
end if
if request("userid")<>"" and isnumeric(request("userid")) then
strSql="select * from [house_hack] where pass='是' and user_id='"&request("userid")&"' order by id desc"
end if
if request("zjid")<>"" and isnumeric(request("zjid")) then
strSql="select * from [house_hack] where pass='是' and zj_id='"&request("zjid")&"' 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 align="center" valign="middle" bgcolor="#F0F0F0">
<td width="55" height="21" class="font"><font color="#FF6600">是否中介</font></td>
<td width="168" height="25" class="font" bgcolor="#F0F0F0"><font color="#FF6600">小区名称</font></td>
<td width="62" height="21" class="font"><font color="#FF6600">所属区域</font></td>
<td width="100" height="21"><font color="#FF6600" class="font">房型</font></td>
<td width="67" height="21"><font color="#FF6600" class="font">面积(㎡)</font></td>
<td width="72" height="21"><font color="#FF6600" class="font">租金(元)</font></td>
<td width="78"><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="#ffffff"
end if
%>
<tr align="center" valign="middle" bgcolor="<%=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 height=21></td>")
response.write ("<td></td>")
else%>
<td height="21" class="font" width="55" ><%=rs("zj")%></td>
<td height="21" width="168" ><a href="sub_hack.asp?id=<%=rs("id")%>" target="_blank" class="linkfont"><font color="#FF6600"><%=left(rs("house_name"),12)%>
</font></a></td>
<td height="21" class="font" width="62" ><%=rs("qy")%></td>
<td height="21" class="font" width="100" ><%=rs("hx")%></td>
<td height="21" class="font" width="67" ><%=rs("jz_area")%></td>
<td height="21" class="font" width="72" ><%=rs("pay")%></td>
<td class="font" width="78" ><%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="white">
<td height="28" colspan="7" class="font" width="608" >
<%
out("<font color=#929292>当前页次:</font><font color=red>" & PageNo & "/" & rs.pagecount & "</font> ")
out("<font color=#929292>共</font><font color=red>" & rs.pagecount & "</font><font color=#929292>页</font> ")
out("<font color=#929292>共</font><font color=red>" & rs.recordcount & "</font><font color=#929292>条记录</font> ")
out("<font color=#929292>每页显示</font><font color=red>" & rs.pagesize & "</font><font color=#929292>条</font> ")
out("<a href=""hack.asp?PageNo=1"" class=""menu1"">[首页]</a> ")
out("<a href=""hack.asp?PageNo=" & (PageNo-1) & """ class=""menu1"">[上一页]</a> ")
out("<a href=""hack.asp?PageNo=" & (PageNo+1) & """ class=""menu1"">[下一页]</a> ")
out("<a href=""hack.asp?PageNo=" & rs.pagecount & """ class=""menu1"">[尾页]</a> ")
dim pag
%>
<select name="jump" class="textinput" onchange="javascript:window.open('hack.asp?pageno='+this.options[this.selectedIndex].value,'_self')">
<% for pag=1 to rs.pagecount
if int(pageno)=pag then %>
<option value=<%=pageno%> selected><%=pageno%></option>
<%else%>
<option value="<%=pag%>"><%=pag%></option>
<%
end if
next %>
</select>
</td>
</tr>
<% else %>
<tr>
<td colspan="7" width="608">
<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 + =
减小字号Ctrl + -
显示快捷键?