📄 admin_annman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=3
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp"-->
<!--#include file="admin_Function.asp"-->
<%
dim rsann,announceid,page,i,filepath,errmsg
set rsann=server.createobject("ADODB.Recordset")
rsann.open"select * from Announce order by announceid desc",conn,1,1
if rsann.bof or rsann.eof then
errmsg=errmsg + "<br><br><li>暂时还没有公告可管理！</li>"
errmsg=errmsg + "<br><br><li>请添加新公告：［<a href='admin_AnnAdd.asp'>添加新公告</a>］</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rsann.pagesize=15
if not isempty(page) then
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page>rsann.pagecount then
rsann.absolutepage=rsann.pagecount
elseif page<=0 then
rsann.absolutepage=1
else
rsann.absolutepage=page
end if
else
rsann.absolutepage=1
end if
page=rsann.absolutepage
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>公告管理面板</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkdel()
{
if(confirm("是否要删除该公告，一旦删除，将不能恢复！"))
return true;
else
return false;
}
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt1">欢迎来到公告管理面板</td>
</tr>
<tr>
<td align="center" class="txt05">状态为［NEW］时在滚动面板显示，单击［修改］可设定广告的各种属性。［<a href="admin_AnnAdd.asp">添加新公告</a>］</td>
</tr>
<td class="txt05"><tr>
<td><table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F5F8F5">
<tr align="center">
<td class="tbbgtitle">公告内容</td>
<td class="tbbgtitle">作者</td>
<td class="tbbgtitle">发布时间</td>
<td class="tbbgtitle">状态</td>
<td class="tbbgtitle">操作</td>
</tr>
<% for i=1 to rsann.pagesize
if rsann.eof then
exit for
end if %>
<tr align="center" class="txt05">
<td><%=rsann("content")%></td>
<td><%=rsann("author")%></td>
<td><%=rsann("addtime")%></td>
<td><%if rsann("isnew")=true then%><img src="imgs/new.gif" width="24" height="11"><%else%><img src="imgs/old.gif" width="16" height="15"><%end if%></td>
<td><a href="admin_AnnMod.asp?announceid=<%=rsann("announceid")%>">修改</a> | <a href="admin_AnnDel.asp?announceid=<%=rsann("announceid")%>&anndel=del" onclick="return checkdel();">删除</a></td>
<input name="anndel" type="hidden" id="anndel" value="del"></td>
</tr>
<% rsann.movenext
next
%>
</table></td>
</tr>
<tr>
<td align="center" class="tbbgtitle"><%call pagination(rsann.pagecount,rsann.pagesize,page,rsann.recordcount)%> </td>
</tr>
</table>
</body>
</html>
<%end if
rsann.close
set rsann=nothing
call closeconn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -