📄 view_buy.asp
字号:
<!--#include file=../include/config.asp-->
<!--#include file=../include/conn_view.asp-->
<!--#include file=../include/access.asp-->
<!--#include file=../include/function.asp-->
<%
dim pass1,bh1
if request("pass")="" then
pass1=" "
else
pass1="pass=" & request("pass")
end if
if request("bh")="" then
bh1=" "
else
if request("pass")="" then
bh1="bh='" & trim(request("bh")) & "'"
else
bh1=" and bh='" & trim(request("bh")) & "'"
end if
end if
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../style.css" type="text/css">
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
function GON()
{
var pageno;
var strs;
if(form1.pp.value=="")
{
pageno=1;
}
else
{
pageno=form1.pp.value;
}
strs="view_buy.asp?PageNO=" + pageno;
window.location.href=strs;
}
//-->
</SCRIPT>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
<div align="center"><br>
<b><font size="3">出 租 信 息</font></b><br>
</div>
<FORM METHOD=POST NAME="form1">
<center>
<a href="view_buy.asp?pass=%27%B7%F1%27" class="linkfont">浏览<font color="#FF0000">未通过</font>的记录</a> <a href="view_buy.asp?pass=%27%CA%C7%27" class="linkfont">浏览<font color="#FF0000">已通过</font>的记录</a>
<input type="text" name="bh">
<input type="submit" name="Submit" value="查询">
<br>
</center>
<table width="600" border="0" cellpadding="0" cellspacing="2" class="kuan" align="center" height="49" bgcolor="#FFFFFF">
<%
dim strSql,rs,i,PageNo
if request("pass")="" and request("bh")="" then
strSql="select * from [house_buy] order by id desc"
else
strSql="select * from [house_buy] where " & pass1 & bh1 & " order by id desc"
end if
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSql,conn,3,3
rs.PageSize=20
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 background="../images/system1.gif" height="25" align="center" width="57"><font color="#FF6633" class="font"><b><font color="#FF9B59">发布日期</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="100"><font color="#FF6633" class="font"><b><font color="#FF6633" class="font"><b><font color="#FF9B59">编号</font></b></font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="37"><font color="#FF6633" class="font"><b><font color="#FF9B59">通过</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="143"><font color="#FF6633" class="font"><b><font color="#FF9B59">地址</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="58"><font color="#FF6633" class="font"><b><font color="#FF9B59">面积(㎡)</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="75"><font color="#FF6633" class="font"><b><font color="#FF9B59">价格(万)</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="42"><font color="#FF6633" class="font"><b><font color="#FF9B59">删除</font></b></font></td>
<td background="../images/system1.gif" height="25" align="center" width="70"><font color="#FF6633" class="font"><b></b></font><font color="#FF6633" class="font"><b><font color="#FF9B59">详细资料</font></b></font></td>
</tr>
<%
if rs.recordcount>0 then
rs.AbsolutePage =PageNo
for i=1 to rs.pageSize
if rs.eof then exit for
%>
<tr bgcolor="#ECFFEC">
<td class="font" align="center" valign="middle" height="26" width="57" bgcolor="#DBE7F2"><%=replace(rs("date"),right(rs("date"),8),"")%></td>
<td class="font" align="center" valign="middle" height="26" width="100" bgcolor="#C1D6EA"><font color="red"><%=rs("bh")%></font></td>
<td class="font" align="center" valign="middle" height="26" width="37" bgcolor="#C1D6EA"><font color="red"><%=rs("pass")%></font></td>
<td class="font" align="center" valign="middle" height="26" width="143" bgcolor="#DBE7F2"><%=left(rs("address"),12)%></td>
<td class="font" align="center" valign="middle" height="26" width="58" bgcolor="#C1D6EA"><%=rs("min_area")%>~<%=rs("max_area")%></td>
<td class="font" align="center" valign="middle" height="26" width="75" bgcolor="#DBE7F2"><%=rs("min_pay")%>~<%=rs("max_pay")%></td>
<td class="font" align="center" valign="middle" height="26" width="42" bgcolor="#C1D6EA"><a href="del_buy.asp?id=<%=rs("id")%>" class="linkfont">删除</a></td>
<td class="linkfont" align="center" valign="middle" height="26" width="70" bgcolor="#DBE7F2"><a href="change_buy.asp?id=<%=rs("id")%>" class="linkfont" target="_blank">查看或修改</a></td>
</tr>
<%
rs.movenext
next
%>
<tr>
<td colspan="8" align="right" class="font">
<%
out("共 " & rs.pagecount & " 页 ")
out("共 " & rs.recordcount & " 条记录 ")
out("当前第 " & PageNo & " 页 ")
out("到第 <input class=""textinput"" name=""pp"" type=""text"" size=""2""> 页")
out(" <INPUT class=""textinput"" TYPE=""button"" value=""GO"" onclick=""javascript:GON()""> ")
out("<a href=""view_buy.asp?PageNo=1"">首页</a> ")
out("<a href=""view_buy.asp?PageNo=" & (PageNo-1) & """>上一页</a> ")
out("<a href=""view_buy.asp?PageNo=" & (PageNo+1) & """>下一页</a> ")
out("<a href=""view_buy.asp?PageNo=" & rs.pagecount & """>尾页</a> ")
%>
</td>
</tr>
<%
else
%>
<tr>
<td colspan="8" class="font">
<div align="center">没有数据!</div>
</td>
</tr>
<%
end if
rs.close
set rs=nothing
%>
</table>
</FORM>
</body>
</html>
<!--#include file=../include/foot.asp-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -