📄 house.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="pass.asp"-->
<head>
<link href="../images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<form name="form1" method="post" action="?gn=search">
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<%
sql2="select * from BigType"
set rs2=conn.execute (sql2)
%>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="13%" bgcolor="#FFFFFF"><font color="#007db5"><strong>房源搜索：</strong></font></td>
<td width="13%" bgcolor="#FFFFFF"><div align="left"><font color="#007db5">输入关键字：</font></div></td>
<td width="20%"><input name="ss" type="text" id="ss"></td>
<td width="14%" bgcolor="#FFFFFF"> <div align="right"><font color="#007db5">选择查找方式：</font>
</div></td>
<td width="33%"><input name="sslb" type="radio" value="bh" checked>
按编号
<input type="radio" name="sslb" value="fw_dizhi">
按地址
<input type="radio" name="sslb" value="fw_uid">
按发布人</td>
<td width="7%" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="GO"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF"><strong><font color="#007db5">添加房源：</font></strong></td>
<td colspan="5" bgcolor="#FFFFFF"><a href="../fb.asp" target="_blank">≡≡
添 加 ≡≡</a></td>
</tr>
<tr bgcolor="#FFFFFF">
<td bgcolor="#FFFFFF"><font color="#007db5"><strong> 分类查找：</strong></font></td>
<td colspan="5" bgcolor="#FFFFFF">
<%
if rs2.bof and rs2.eof then
response.write ""
else
while not rs2.eof
%>
<a href=?lb=<% =rs2("BigType") %>><% =rs2("BigType")%></a>
<%
rs2.movenext
wend
end if
%>
<div align="right"><font color="#007db5"></font></div>
<div align="left"></div></td>
</tr>
</table></TD>
</TR>
</TABLE>
</form>
<% if request("gn")="search" then %>
<!--#include file="house_search.asp"-->
<%
else
response.Write""
end if
%>
<%
if request("gn")<>"search" and request("xiugai")="" then
lb=request("lb")
if request("lb")="" then
lb="出售"
end if
%>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
<TR borderColor=#007db5 bgColor=#007db5>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from house where mytype='"& lb &"' order by id desc"
rs.open sql,conn,1
rs.pagesize=15 '每页显示多少条
pagecount=rs.pagecount '总页数
%>
<TD vAlign=bottom bgcolor="#007db5"><font color="#FFFFFF"> <% =lb %>信息：</font></TD>
</TR>
<TR borderColor=#ffffff bgColor=#ffffff>
<TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2" bordercolor="#999999">
<tr bgcolor="#FFFFFF">
<td width="41%"><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>
<td width="11%"> <div align="center"><font color="#007db5"><strong>房屋结构</strong></font></div></td>
<td width="11%"> <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="16%"><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>
</tr>
<%
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 bgcolor="#FFFFFF">
<td> <a href="../h_house.asp?id=<% =rs("id") %>" target="_blank">
<% =rs("fw_dizhi") %>
</a></td>
<td><div align="center">
<% =rs("mytype") %>
</div></td>
<td><div align="center">
<% =rs("fw_jiegou") %>
</div></td>
<td><div align="center">
<% =rs("fw_uid") %>
</div></td>
<td><div align="center">
<% =rs("fw_jiage")%>
</div></td>
<td><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
if rs.eof then exit for
next
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 mytype='"& lb &"'") %>
共有〖<% =tj("tj1") %> 〗条信息
<%
r=7
'总页数
zys=round(clng(rs.pagecount)/r+0.5)
'当前页数
dqys=request.QueryString("dqys")
'开始页
ksy=request.QueryString("ksy")
if dqys="" then dqys=1
if ksy="" then ksy=1
js=clng(dqys) * r '一个FOR语句结束
if js > clng(rs.pagecount) then js=clng(rs.pagecount)
newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &"&lb="& lb &">" &"上一页" &"</a>"
for t=newksy to js
response.write "<a href=?page=" &t&"&dqys="&dqys&"&lb="& lb &">" &t& "</a> "
next
if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &"&lb="& lb &">" &"下一页" &"</a>"
%>
</div></TD>
</TR>
</TBODY>
</TABLE>
<%
else
response.Write""
end if
%>
<%
if request("del")<>"" then
id=request.QueryString("del")
conn.execute ("delete from house where id="&id)
Response.Write"<script language=JavaScript>"
Response.Write"alert(""恭喜！删除成功"");"
Response.Write"window.location='house.asp'"
Response.Write"</script>"
else
response.Write""
end if
%>
<% if request("xiugai")<>"" then %>
<!--#include file="house_update.asp"-->
<%
else
response.Write""
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -