📄 admin_articleman.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=5
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp"-->
<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;
}
function unselectall()
{
if(document.del.chkAll.checked){
document.del.chkAll.checked = document.del.chkAll.checked&0;
}
}
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>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class="txt1">欢迎来到文章管理面板</td>
</tr>
<tr>
<td align="center" class="txt05">单击［修改］可设定文章的各种属性，单击文章标题可预览文章的各项属性。［<a href="admin_ArticlePas.asp">审核文章</a>］［<a href="admin_ArticleAdd.asp">添加新文章</a>］</td>
</tr>
<tr>
<td><form name="del" method="Post" action="admin_ArticleDel.asp" onsubmit="return checkdel();">
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#EDF1EF">
<tr class="txt1">
<td colspan="9" class="txt03">--请选择所属专题：<select name="special" class="but" size="1" onChange="window.open(this.options[this.selectedIndex].value,'_self')">
<option>请选择所属专题</option>
<%dim rsspecial
set rsspecial=conn.execute("select specialid,special from special order by specialid desc")
if rsspecial.eof or rsspecial.bof then
%>
<option>还没有专题</option>
<%else
do while not rsspecial.eof%>
<option value="admin_ArticleMan.asp?special=<%=rsspecial("special")%>"><%=rsspecial("special")%></option>
<%rsspecial.movenext
loop
end if
%>
</select>
<br>--请选择所属大类：
<%
dim rsbig
set rsbig=server.createobject("ADODB.Recordset")
rsbig.open"select * from bigclass order by bigclassid desc",conn,1,1
if rsbig.eof or rsbig.eof then
response.write"还没有大类栏目"
rsbig.close
set rsbig=nothing
else
do while not rsbig.eof
response.write"『<a href='admin_ArticleMan.asp?bigclass="&rsbig("bigclass")&"'>"&rsbig("bigclass")&"</a>』"
rsbig.movenext
loop
response.write"<br>"
rsbig.close
set rsbig=nothing
end if %>
<%
dim rsar,page,i,articleid,filepath,rssmall,bigclass,smallclass,special,title
special=trim(request("special"))
bigclass=trim(request("bigclass"))
smallclass=trim(request("smallclass"))
title=trim(request("title"))
if bigclass<>"" then
set rssmall=server.createobject("ADODB.Recordset")
rssmall.open"select * from smallclass where bigclass='"&bigclass&"'",conn,1,1
if rssmall.eof or rssmall.bof then
response.write"--请选择所属小类："
response.write"还没有小类栏目"
rssmall.close
set rssmall=nothing
else
response.write"--请选择所属小类："
do while not rssmall.eof
response.write"［<a href='admin_ArticleMan.asp?bigclass="&bigclass&"&smallclass="&rssmall("smallclass")&"'>"&rssmall("smallclass")&"</a>］"
rssmall.movenext
loop
rssmall.close
set rssmall=nothing
end if
end if
%>
</td>
</tr>
<tr align="center" class="txt1">
<td colspan="9" class="txt1">
<%
set rsar=server.createObject("ADODB.Recordset")
if special<>"" then
rsar.open"select articleid,title,author,updatetime,bigclass,includepic,ontop,elite,hot,hits,textclass,yescomment,passed from article where special='"&special&"' order by articleid desc",conn,1,1
else
if bigclass<>"" and smallclass="" then
rsar.open"select articleid,title,author,updatetime,bigclass,includepic,ontop,elite,hot,hits,textclass,yescomment,passed from article where bigclass='"&bigclass&"' order by articleid desc",conn,1,1
else
if bigclass<>"" and smallclass<>"" then
rsar.open"select articleid,title,author,updatetime,bigclass,includepic,ontop,elite,hot,hits,textclass,yescomment,passed from article where bigclass='"&bigclass&"' and smallclass='"&smallclass&"' order by articleid desc",conn,1,1
else
if title<>"" then
rsar.open"select * from article where title like '%"&title&"%' order by articleid desc",conn,1,1
else
rsar.open"select articleid,title,author,updatetime,bigclass,includepic,ontop,elite,hot,hits,textclass,yescomment,passed from article order by articleid desc",conn,1,1
end if
end if
end if
end if
if rsar.eof or rsar.bof then
response.write"<div align='center'>还没有文章可管理,请添加新文章！</div>"
response.end()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rsar.pagesize=15
if not isempty(page) then
if not isnumeric(page) then
page=1
else
page=cint(page)
end if
if page>rsar.pagecount then
rsar.absolutepage=rsar.pagecount
elseif page<=0 then
rsar.absolutepage=1
else
rsar.absolutepage=page
end if
else
rsar.absolutepage=1
end if
page=rsar.absolutepage
%>
<span class="txt03">
<%call pagination(rsar.pagecount,rsar.pagesize,page,rsar.recordcount)%>
</span></td>
</tr>
<tr align="center" class="tbbgtitle">
<td width="4%" class="tbbgtitle">选定</td>
<td width="4%" class="tbbgtitle">ID号</td>
<td width="40%" class="tbbgtitle">文章标题</td>
<td width="7%" class="tbbgtitle">作者</td>
<td width="7%" class="tbbgtitle">文章属性</td>
<td width="7%" class="tbbgtitle">等级</td>
<td width="5%" class="tbbgtitle">审核</td>
<td width="5%" class="tbbgtitle">评论</td>
<td width="21%" class="tbbgtitle">操作</td>
</tr>
<% for i=1 to rsar.pagesize
if rsar.eof then
exit for
end if %>
<tr align="center" class="txt02">
<td align="center" class="tbbgtitle"><input name='ArticleID' type='checkbox' class="but" id="ArticleID" onclick="unselectall()" value='<%=cstr(rsar("articleID"))%>'></td>
<td align="center"><%=rsar("articleid")%></td>
<td><%if rsar("includepic")=true then
%><span class="txt06">[图]</span>
<%end if%><a href="admin_ArticleRead.asp?articleid=<%=rsar("articleid")%>" target="_blank" title="标题：<%=rsar("title")%>//作者：<%=rsar("author")%> //添加时间：<%=rsar("updatetime")%>//点击数：<%=rsar("hits")%>">
<%if len(rsar("title"))>20 then
response.write""&left(rsar("title"),20)&"…"
else
response.write""&rsar("title")&""
end if
%></a></td>
<td align="center"><%=rsar("author")%></td>
<td align="center"><%if rsar("ontop")=1 then%>
顶
<%end if%>
<%if rsar("elite")=2 then%>
荐
<%end if%>
<%if rsar("hot")=3 then%>
精
<%end if%></td>
<td align="center"><%select case rsar("textclass")
case "0"
response.write"一般游客"
case "1"
response.write"注册用户"
case "2"
response.write"普通会员"
case "3"
response.write"中级会员"
case "4"
response.write"高级会员"
case "5"
response.write"特级会员"
end select
%></td>
<td align="center"><%if rsar("passed")=true then%>
是
<%else%>
<span class="txt04"> 否</span>
<%end if%></td>
<td align="center"><%if rsar("yescomment")=true then%>是<%else%><span class="txt04"> 否</span><%end if%></td>
<td align="center"><a href="admin_ArticleMod.asp?articleid=<%=rsar("articleid")%>&armod=artmod">修改</a>
<input name="armod" type="hidden" id="armod2" value="artmod">
<%if session("adminpurview")<=3 then%><a href="admin_ArticleDel.asp?ArticleID=<%=rsar("ArticleID")%>&Action=Del" onclick="return checkdel();">删除</a>
<%end if%></td>
</tr>
<% rsar.movenext
next
%>
<tr align="center" class="txt02">
<td colspan="9" class="txt1"><span class="txt03">
<%call pagination(rsar.pagecount,rsar.pagesize,page,rsar.recordcount)%>
</span></td>
</tr>
<tr align="center" class="txt02">
<td colspan="9" class="txt05"><input name="chkAll" type="checkbox" class="but" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页所有文章
<input name="Submit" type="submit" class="but" value="删除所有选中的文章">
<input name="Action" type="hidden" id="delar2" value="Del"></td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td><form name="search" method="get" action="admin_ArticleMan.asp">
<p class="txt05"><strong>请输入主题：</strong>
<input name="title" type="text" class="but" id="title" size="20" maxlength="50">
<input name="Submit2" type="submit" class="but" value="查找">
请输入主题关键字，如果为空，则查找所有的主题。
</p>
</form></td>
</tr>
</table>
</body>
</html>
<%end if
rsar.close
set rsar=nothing
call closeconn()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -