📄 admin_zx.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="TurnPage.asp" -->
<!--#include file="admin_check.asp" -->
<%
call manager(session("grade"),session("adminname"),2)
Dim RowCount , order
RowCount = 50 '每页显示的记录条数
set rs=server.CreateObject("adodb.recordset")
order=trim(request("order"))
xdel=trim(request("xdel"))
select case xdel
'删除某资讯
case "del"
rs.open "delete from xinxi where 编号=" &trim(request("id")) ,conn,3,3
response.redirect "admin_zx.asp?x=dell&order=" &order
'删除全部未审核资讯
case "delall"
rs.open "delete from xinxi where 审核=0",conn,3,3
response.write("<center>未审核资讯删除成功！<a href='admin_zx.asp'>>>点击这里返回<<</a></center>")
response.end
end select
select case order
'未审核资讯
case "notype"
rs.open "select * from xinxi where 审核=0 order by 编号 desc",conn,1,1
'已审核资讯
case "yestype"
rs.open "select * from xinxi where 审核=-1 order by 编号 desc",conn,1,1
'推荐资讯
case "tui"
rs.open "select * from xinxi where 审核=-1 and 推荐=-1 order by 城市,编号 desc",conn,1,1
'所有资讯（默认）
case else
rs.open "select * from xinxi order by 编号 desc",conn,1,1
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 - 资讯管理</title>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="960" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="160" valign="top">
<!--#include file="admin_left.asp" -->
</td>
<td width="800" align="center" valign="top">
<table width="800" border="0" cellpadding="3" cellspacing="1" bgcolor="#DFEAF2">
<tr bgcolor="#333333">
<td height="20" bgcolor="#FFFFFF">选择：<a href="admin_zx.asp">所有资讯</a> |
<a href="?order=notype">未审核资讯</a> |
<a href="?order=yestype">已审核资讯</a> |
<a href="?order=tui">推荐资讯</a> | <a href="?order=delall">删除所有未审核资讯</a> |
<a href="?order=<%=order%>&x=dell">显示删除按钮</a></td>
</tr>
<tr bgcolor="#333333">
<td height="25" bgcolor="#FFFFFF" width="800"><% Call TurnPage(Rs,RowCount)%></td>
</tr>
<%
If Not rs.eof then
Do while Not rs.eof and RowCount>0 %>
<tr>
<td bgcolor="#FFFFFF" onMouseOver='this.style.backgroundColor="#DFEAF2"' onMouseOut='this.style.backgroundColor=""'>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width=800>
<tr>
<td width="170" height="30" bgcolor="#DFEAF2">名称：<%=rs("名称")%></td>
<td width="110">
<%set rscity=server.CreateObject("adodb.recordset")
rscity.open "select * from city where 区号='" & rs("城市")&"'",conn,1,1
If Not rscity.eof then%>
城市：<%=rscity("城市")%>
<%end if
rscity.close
set rscity=nothing
%></td>
<td width="110" bgcolor="#DFEAF2">
<%set rslb=server.CreateObject("adodb.recordset")
rslb.open "select * from leibie where 类别编号=" & rs("类别"),conn,1,1
If Not rslb.eof then%>
类别：<%=rslb("类别名")%>
<%end if
rslb.close
set rslb=nothing
%>
</td>
<td width="140">推荐指数：<img border="0" src="images/level<%=rs("推荐指数")%>.gif"></td>
<td width="130" bgcolor="#DFEAF2" align="center"><%=rs("日期")%> </td>
<td width="140" align="center">
<%if rs("审核")=-1 then
response.write"已审"
else
response.write"<font color=red>未审</font>"
end if%><%if rs("推荐")=-1 then response.write"<font color=red>【荐】</font>" end if%>|<a href="admin_zxedit.asp?id=<%=rs("编号")%>"><font color="#0000FF">修</font></a><% if trim(request("x"))="dell" then%>|<a href="?order=<%=order%>&xdel=del&id=<%=rs("编号")%>"><font color=red>删</font></a><% end if%>
</td>
</tr>
<tr>
<td colspan="6" height="30">介绍：<%=rs("介绍")%></td>
</tr>
<tr>
<td colspan="3" height="30" bgcolor="#DFEAF2">地址：<%=rs("地址")%></td>
<td colspan="3">公交：<%=rs("公交")%></td>
</tr>
<tr>
<td height="30" colspan="3">网站：<%=rs("网站")%></td>
<td colspan="3" bgcolor="#DFEAF2">电话：<%=rs("电话")%></td>
</tr>
</table><hr color="#000000"></td>
</tr>
<%
RowCount = RowCount - 1
rs.MoveNext
Loop
end if%>
</table>
</td>
</tr>
</table>
<% rs.close:conn.close
set rs=nothing:set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -