📄 admin_party.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 party where 编号=" &trim(request("id")) ,conn,3,3
response.redirect "admin_party.asp?x=dell&order=" &order
'删除全部未审核聚会
case "delall"
rs.open "delete from party where 审核=0",conn,3,3
response.write("<center>未审核资讯删除成功！<a href='admin_party.asp'>>>点击这里返回<<</a></center>")
response.end
end select
select case order
'未审核聚会
case "notype"
rs.open "select * from party where 审核=0 order by 编号 desc",conn,1,1
'已审核聚会
case "yestype"
rs.open "select * from party where 审核=-1 order by 编号 desc",conn,1,1
'所有聚会（默认）
case else
rs.open "select * from party 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_party.asp">所有资讯</a> |
<a href="?order=notype">未审核聚会</a> |
<a href="?order=yestype">已审核聚会</a> | <a href="?order=delall">删除所有未审核聚会</a> |
<a href="?order=<%=order%>&x=dell">显示删除按钮</a></td>
</tr>
<tr bgcolor="#333333">
<td height="25" bgcolor="#FFFFFF"><% 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="145" height="30" bgcolor="#DFEAF2">名称：<%=rs("名称")%></td>
<td width="100" height="30">
<%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="85" height="30" bgcolor="#DFEAF2">发起人：<%=rs("发起人")%></td>
<td width="130" height="30">联系：<%=rs("联系方式")%></td>
<td width="70" height="30" bgcolor="#DFEAF2" align="center"><%=rs("登记时间")%></td>
<td width="70" height="30" align="left">
<%if rs("审核")=-1 then
response.write"已审"
else
response.write"<font color=red>未审</font>"
end if%>|<a href="admin_partyedit.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" width="600" height="30">主题：<%=rs("主题")%></td>
</tr>
<tr>
<td colspan="3" width="330" height="28" bgcolor="#DFEAF2">地点：<%=rs("地点")%></td>
<td colspan="3" width="270">时间：<%=rs("时间")%></td>
</tr>
<tr>
<td width="330" height="28" colspan="3">费用：<%=rs("费用")%></td>
<td width="270" 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 + -