📄 admin_news.asp
字号:
<!--#include file="../Comm/subconn.asp"-->
<%
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "news")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
%>
<html>
<head>
<META content="" name=keywords>
<META content="" name=description>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>文章管理</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
tr {color: #FFFFFF;}
--></style>
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</head>
<body bgcolor="#336699" background="../images/bggreen.gif" text=#ffffff topmargin="0">
<!--#include file="top.asp"-->
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--文章管理</td>
</tr><tr><td>
<%action=request("action")%>
<%if action="" then%>
<table border="1" style="border-collapse: collapse;border:dotted 1px" bordercolor="#333333" cellpadding=3 width=100%> <form name=Newslist action=admin_news.asp method=post>
<tr bgcolor="#003366"><td >选</td> <td>预览号</td><td>标题(编辑)</td><td>类别</td><td>发布时间</td><td>失效时间</td><td>状态</td></tr>
<%
dim rs,msg_per_page
dim sql
msg_per_page = 10 '定义每页显示记录条数
sql = "select * from News order by PubDate desc"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.cursorlocation = 3 '使用客户端游标，可以使效率提高
rs.pagesize = msg_per_page '定义分页记录集每页显示记录数
rs.open sql,conn,1,1
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数
dim i
dim k
%>
<%
do while not rs.eof and rowcount>0
%>
<tr><td class=b><input type='checkbox' value='<%=Cstr(rs("NewsId"))%>' name=id></td><td><a href="admin_newsprev.asp?NewsId=<%=Cstr(rs("NewsId"))%>" target="_blank"> <%=rs("NewsId")%></a></td><td><a href="admin_news.asp?action=modify&id=<%=Cstr(rs("NewsId"))%>" ><%=rs("NewsTitle")%></a></td><td><%=rs("NewsClass")%></td><td><%=rs("PubDate")%></td><td><%=rs("OffDate")%></td><td><% if rs("Online")=true then response.write "在线" else response.write "<font color=yellow><b>离线</b></font>" end if%></td></tr>
<%
rowcount=rowcount-1
rs.movenext
loop
end if
end if
rs.close
conn.close
set rs=nothing
set coon=nothing
%>
<tr><td colspan=6 class=b>
<input type='checkbox' name=chkall onclick='CheckAll(this.form)'>全选
<input type="submit" name="action" value="删除" onclick="{if(confirm('该操作不可恢复！\n\n确定删除选定的文章？')){this.document.Newslist.submit();return true;}return false;}">
<input type="submit" name="action" value="关闭" onclick="{if(confirm('确定关闭选定的文章在线？')){this.document.Newslist.submit();return true;}return false;}"> <input type="submit" name="action" value="打开" onclick="{if(confirm('确定打开选定的文章在线？')){this.document.Newslist.submit();return true;}return false;}">
</td><td class=b colspan=3>
<input type="button" name="action" onclick="javascript:location.href='admin_news.asp?action=加文章';" value="加文章">
</td></tr></form></table>
<%call listPages()%>
<%end if
if action="关闭" then
NewsId=replace(request("id")," ","")
call prodclose()
end if
if action="打开" then
NewsId=replace(request("id")," ","")
call prodopen()
end if
if action="删除" then
delid=replace(request("id")," ","")
call proddel()
end if
if action="加文章" then
call newsadd()
end if
if action="modify" then
id=replace(request("id")," ","")
call modify()
end if%>
</table><br><br></td></tr>
<tr>
<td height="10" align=center colspan="2">程序美工设计：九江市大地广告策划中心<%=sitever%></td>
</tr>
</table>
</body>
</html>
<%
sub listPages()
if n <= 1 then exit sub
%>
<p>>>
<%if currentpage = 1 then%>
<font color=darkgray>首页</font>
<%else%>
<font color=black face="arial"><a href="<%=request.ServerVariables("script_name")%>?page=1">
首页</font></a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage-1%>">
<font color=black face="arial" >前页</a></font>
<%end if%>
<%if currentpage = n then%>
<font color=darkgray face="arial" >后页</font>
<%else%>
<font color=black face="arial" ><a href="<%=request.ServerVariables("script_name")%>?page=<%=currentpage+1%>">下页</a>
<a href="<%=request.ServerVariables("script_name")%>?page=<%=n%>">末页</a></font>
<%end if%>
<font color=black face="arial" >
总:<%=currentpage%>/<%=n%>页 <%=msg_per_page%>文章/页 共:<%=totalrec%>文章</font></p>
<%end sub
sub prodopen()
if NewsId="" or isnull(NewsId) then
Response.write "<BLOCKQUOTE><br><br>操作失败，没有选择合适参数！<A HREF='admin_news.asp'><b>点击返回</b></A><BR><br><meta http-equiv=refresh content=""2;URL=admin_news.asp""></BLOCKQUOTE>"
else
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from News where NewsId in ("&NewsId&")"
rs.open sql,conn,1,3
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if rs.eof and rs.bof then
response.write "<script language='javascript'>"
response.write "alert('该文章不存在，或者被删除了！');"
response.write "location.href='admin_news.asp';"
response.write "</script>"
else
Do while not rs.eof
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -