📄 adminnocheck.asp
字号:
<!--#include file = conn.asp -->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited { text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;}
body { font-size: 9pt; font-family: 宋体, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
body { margin-top: 0; margin-bottom: 0; color: #000000 }
--></STYLE>
</head>
<%
if session("user")="" or session("pass")="" then
%>
<a href="admin.asp" target=_top>验证错误或超时,请登录</a>
<%
conn.Close
Set conn = Nothing
response.end
end if
sql = "select * from house where checkup=0"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,3
if rs.recordcount=0 then
response.write "<br><br><br><center><font size=6>没有任何未审核的房屋信息</font>"
response.end
end if
page=int(request.QueryString ("page"))
rs.PageSize=5
pagecount=rs.pagesize
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
gg=rs.recordcount/pagecount
gh=int(gg)
if gh<=1 then gh=1
if gg>gh then gh=gh+1
gg=gh
sh=request("sh")
de=request("de")
if sh<>"" then
sql = "select * from house where id=" & sh
Set rs1 = Server.CreateObject("ADODB.RecordSet")
rs1.Open sql,conn,1,3
rs1("checkup")=1
rs1.update
response.redirect "adminnocheck.asp"
end if
if de<>"" then
sql = "delete from house where id=" & de
conn.Execute(sql)
response.redirect "adminnocheck.asp"
end if
%>
<center>
<div align="center">
<span style="font-size: 22pt; font-weight: 700">未审核的房屋信息</span><br>
<br>
<table border="0" width="744" >
<tr align="center">
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">房屋地址</td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">发布类型</td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">价格</td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">联系人</td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">联系方式</td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC">操作</td>
</tr>
<%
for i=1 to pagecount
%>
<tr align="center">
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><%=rs("region")%><%=rs("address")%></td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><%=rs("puttype")%></td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><%=rs("price")%></td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><%=rs("linkman")%></td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><%=rs("connect")%></td>
<td style="border-style: dotted; border-width: 1px" bordercolor="#CCCCCC"><a href=adminhouseview.asp?hcgood=<%=rs("id")%>>查看</a> <a href=adminedit.asp?hcedit=<%=rs("id")%>>修改</a> <a href=adminnocheck.asp?de=<%=rs("id")%>>删除</a> <a href=adminnocheck.asp?sh=<%=rs("id")%>>审核</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
%></table><br>
<%
if page<>1 then
%>
<a href='adminnocheck.asp?page=<%=page-1%>'>上一页</a>
<%end if%>
<%if rs.eof then%>
<%else%>
<a href='adminnocheck.asp?page=<%=page+1%>'>下一页</a>
<%end if%>
共<%=rs.recordcount%>条 每页显示<%=pagecount%>条 第<%=page%>页 共<%=gg%>页
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -