📄 act.manage.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../ACT_inc/cls_pageview.asp"-->
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文章管理 By ActCMS</title>
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css"></head>
<body>
<%
With Response
Dim ShowErr,ModeID,ModeName,Item
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
if ModeID=0 or ModeID="" Then ModeID=1
ModeName= ACTCMS.ACT_C(ModeID,1)
IF ACTCMS.ACT_C(ModeID,7) = 0 Then Item="本操作将选中的文章移到回收站当中.必要时您可以从回收站恢复!" Else item="本操作将选中的文章彻底删除.该操作不可恢复!"
IF ACTCMS.G("Action") = "del" Then'删除
Dim ID,Rsd,Rsp:ID =Request("ID")
IF ID = "" Then
Call Actcms.ActErr("请先选定文章！","1")
.End
End IF
IF ACTCMS.ACT_C(ModeID,7) = 0 Then '是否物理删除
ID = Split(ID,",")
For I = LBound(ID) To UBound(ID)
If ACTCMS.ACTCMS_QXYZ(ModeID,"4",ACT_CL(ID(i))) Then
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set delif=1 where ID = "&ID(I)&"")
End If
Next
set conn=Nothing
Call Actcms.ActErr("文章已经移动到回收站,必要时您可以从回收站中恢复","")
Else
ID = Split(ID,",")
For I = LBound(ID) To UBound(ID)
set Rsd=ACTCMS.ActExe("Select * from "&ACTCMS.ACT_C(ModeID,2)&" Where ID=" & ID(I) & "")
If rsd.eof And rsd.bof Then
Call Actcms.ActErr("参数错误","1")
Else
If ACTCMS.ACTCMS_QXYZ(ModeID,"4",Rsd("classid")) Then
Set Rsp = server.CreateObject("adodb.recordset")'删除图片
Rsp.open "Select * from Upload_Act Where ArtileID=" & ID(I) & " and modeid="&ModeID&"", conn, 1, 3
If Not rsp.eof Then
Do While Not rsp.eof
Call ACTCMS.DeleteFile(Rsp("UpfileDir"))
Conn.execute("Delete from Upload_Act Where id= "&Rsp("id"))
rsp.movenext
loop
End If
Dim Tmps,TmpUs
If Right(ACTCMS.ACT_C(ModeID,10),1)<>"/" Then
Call ACTCMS.DeleteFile(ACTCMS.ActSys&ACTCMS.ACT_C(ModeID,6)&Rsd("FileName")&ACTCMS.ACT_C(ModeID,11))
Else
Call ACTCMS.DeleteFile(ACTCMS.ActSys&ACTCMS.ACT_C(ModeID,6)&Rsd("FileName")&"/Index"&ACTCMS.ACT_C(ModeID,11))
End If
Conn.execute("Delete from "&ACTCMS.ACT_C(ModeID,2)&" Where ID=" & ID(I) & "")
Conn.execute("Delete from Comment_Act Where ID=" & ID(I) & " and ModeID="&ModeID&"")
Conn.execute("Delete from Digg_ACT Where NewsID=" & ID(I) & " and ModeID="&ModeID&"")
End If
End If
Next
Set conn=nothing
End If
Call Actcms.ActErr("文章已经彻底删除！ <a href=Article/ACT.Manage.asp?action=ListisAccept&ModeID="&ModeID&">点击这里返回管理首页</a>","")
End IF
IF Request.QueryString("Action") = "isAccept" Then'审核通过
Dim AcceptID,Rss:AcceptID =Request.Form("ID")
IF AcceptID = "" Then
Call Actcms.ActErr("请先选定文章！","1")
.End
End IF
AcceptID = Split(AcceptID,",")
For I = LBound(AcceptID) To UBound(AcceptID)
If ACTCMS.ACTCMS_QXYZ(ModeID,"3",ACT_CL(AcceptID(i))) Then '只通过该栏目下的文章.无权限的将忽略
Set Rss= ACTCMS.ACTEXE("Select ArticleInput,Title,userid From "&ACTCMS.ACT_C(ModeID,2)&" Where ID=" & CLng(AcceptID(i)))
Call ACTCMS.isAcceptOK(ModeID,Rss(2),Rss(0),Rss(1))
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set isAccept=0 where ID = "&CLng(AcceptID(i))&"")
End If
Next
set conn=nothing
.Redirect("?ModeID="&ModeID&"")
End IF
IF Request.QueryString("Action") = "NoAccept" Then
Dim NoAcceptID:NoAcceptID =Request.Form("ID")
IF NoAcceptID = "" Then
Call Actcms.ActErr("请先选定文章！","1")
.End
End IF
NoAcceptID = Split(NoAcceptID,",")
For I = LBound(NoAcceptID) To UBound(NoAcceptID)
If ACTCMS.ACTCMS_QXYZ(ModeID,"3",ACT_CL(NoAcceptID(i))) Then '只通过该栏目下的文章.无权限的将忽略
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set isAccept=2 where ID = "&NoAcceptID(i)&"")
End If
Next
set conn=nothing
.Redirect("?ModeID="&ModeID&"")
End IF
IF Request.QueryString("Action") = "tg" Then'退稿
Dim TG_ID:TG_ID =Request.Form("ID")
IF TG_ID = "" Then
Call Actcms.ActErr("请先选定文章！","1")
.End
End IF
TG_ID = Split(TG_ID,",")
For I = LBound(TG_ID) To UBound(TG_ID)
If ACTCMS.ACTCMS_QXYZ(ModeID,"3",ACT_CL(TG_ID(i))) Then '只通过该栏目下的文章.无权限的将忽略
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set isAccept=3 where ID = "&TG_ID(i)&"")
End If
Next
set conn=nothing
.Redirect("?ModeID="&ModeID&"")
End IF
IF Request.QueryString("Action") = "Istop" Then'固顶
ID=ACTCMS.ChkNumeric(Request.QueryString("ID"))
If Not ACTCMS.ACTCMS_QXYZ(ModeID,"3",ACT_CL(ID)) Then Call Actcms.Alert("对不起，你没有该栏目下的相应操作权限","")
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set Istop=1 where ID ="&ID&"")
set conn=nothing
.Redirect("?ModeID="&ModeID&"")
End IF
IF Request.QueryString("Action") = "Notop" Then'解除固顶
ID=ACTCMS.ChkNumeric(Request.QueryString("ID"))
If Not ACTCMS.ACTCMS_QXYZ(ModeID,"3",ACT_CL(ID)) Then Call Actcms.Alert("对不起，你没有该栏目下的相应操作权限","")
Conn.execute("Update "&ACTCMS.ACT_C(ModeID,2)&" set Istop=0 where ID ="&ID&"")
set conn=nothing
.Redirect("?ModeID="&ModeID&"")
End IF
Dim strLocalUrl
strLocalUrl = request.ServerVariables("SCRIPT_NAME")
Dim intPageNow
intPageNow = request("page")
Dim intPageSize, strPageInfo
intPageSize = 20
Dim arrRecordInfo, i
Dim sql, sqlCount,Sqls,pages
pages = "action="&Request("action")&"&title="& request("title")&"&ModeID="&ModeID&"&page"
Select Case Request.QueryString("Action")
Case "ListID"
Sqls = " where classid='"&Request.QueryString("ClassID")&"' and delif=0 "
pages = "Action=ListID&ClassID="&Request("ClassID")&"&ModeID="&ModeID&"&page"
Case "ListisAccept"
Sqls = " where isAccept=0 and delif=0 "
Case "ListNoAccept"
Sqls = " where isAccept=2 and delif=0 "
Case "Listcg"
Sqls = " where isAccept=1 and delif=0 "
Case "Listtg"
Sqls = " where isAccept=3 and delif=0 "
Case "Lististop"
Sqls = " where istop=1 and delif=0 "
Case "Listpic"
Sqls = " where ArticlePic=1 and delif=0 "
Case "Slide"
Sqls = " where Slide=1 and delif=0 "
Case "sh"
Sqls = " where isAccept>0 and delif=0 "
Case "MyArticle"
Sqls=" where ArticleInput='"&ACTCMS.RSQL(Request.Cookies(AcTCMSN)("AdminName"))&"' and delif=0 "
Case "t"
If Request("ClassID")="" Then
Sqls = " where title Like '%" & ACTCMS.RSQL(request("title")) & "%' "
Else
Sqls = " where ClassID='"&Request.QueryString("ClassID")&"' and title Like '%" & request("title") & "%' "
End If
Case Else
Sqls = " where delif=0 and isAccept=0 "
pages = "ModeID="&ModeID&"&page"
End Select
sql = "SELECT [ID], [Title], [ArticleInput], [Hits], [isAccept], [IStop], [ClassID], [FileName],[ChangesLink],[Ismake],[GroupID_ACT],[Score_ACT],[ArticlePic],[Slide]" & _
" FROM ["&ACTCMS.ACT_C(ModeID,2)&"]" &Sqls& _
"ORDER BY [ID] DESC"
sqlCount = "SELECT Count([ID])" & _
" FROM ["&ACTCMS.ACT_C(ModeID,2)&"]"&Sqls
Dim clsRecordInfo
Set clsRecordInfo = New Cls_PageView
clsRecordInfo.intRecordCount = 2816
clsRecordInfo.strSqlCount = sqlCount
clsRecordInfo.strSql = sql
clsRecordInfo.intPageSize = intPageSize
clsRecordInfo.intPageNow = intPageNow
clsRecordInfo.strPageUrl = strLocalUrl
clsRecordInfo.strPageVar = pages
clsRecordInfo.objConn = Conn
arrRecordInfo = clsRecordInfo.arrRecordInfo
strPageInfo = clsRecordInfo.strPageInfo
Set clsRecordInfo = nothing
%>
<table width="99%" border="0" align="center" class="table">
<tr>
<td class="bg_tr"><strong>您现在的位置：<%= ModeName %>系统管理 >> <%= ModeName %>管理</strong></td>
</tr>
<tr>
<td ><%= ModeName %>选项：<a href="?ModeID=<%=ModeID%>">所有文章</a> ┆ <a href="?ModeID=<%=ModeID%>&action=ListisAccept">已审核</a>┆ <a href="?ModeID=<%=ModeID%>&action=ListNoAccept">未审核</a>┆ <a href="?ModeID=<%=ModeID%>&action=Listcg">草稿</a> ┆ <a href="?ModeID=<%=ModeID%>&action=Listtg">退稿</a>┆<a href="?ModeID=<%=ModeID%>&action=Lististop">固顶<%= ModeName %></a> ┆<a href="?ModeID=<%=ModeID%>&action=Listpic">图片<%= ModeName %></a>┆<a href="?ModeID=<%=ModeID%>&action=Slide">幻灯片</a></td>
</tr>
</table>
<table width='99%' border='0' align="center" cellpadding='0' cellspacing='1' class="table">
<tr>
<form name='form3' action='?Action=t&ClassID=<%=Request.QueryString("ClassID")%>' method='post'>
<td>
<table width='720' border='0' cellpadding='0' cellspacing='0'>
<tr>
<td width='90' align='center'>请选择栏目：</td>
<td width='160'>
<select name="ClassID" size="1" onchange="javascript:window.location=this.options[this.selectedIndex].value;">
<option value='?ModeID=<%=ModeID%>' >全部</option>
<% Response.Write Classmake(ModeID)
%>
</select> </td>
<td width='70'>
关键字： </td>
<td width='160'>
<input type='text' name='title' value='' style='width:150'> </td>
<td>
<input name="Submit" type="submit" class="ACT_btn" value=" 搜索 "> </td>
</tr>
</table>
</td>
</form>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<form name="Article" method="post" action="?Action=">
<tr>
<td width="28" align="center" class="bg_tr">选中 </td>
<td width="24" align="center" class="bg_tr">ID</td>
<td width="150" align="center" class="bg_tr">文章标题</td>
<%
.Write " <td width=""100"" align=""center"" class=""bg_tr"">栏目</td>"
.Write " <td width=""60"" align=""center"" class=""bg_tr"">录入者</td>"
.Write " <td width=""50"" align=""center"" class=""bg_tr"">点击数</td>"
.Write " <td width=""60"" align=""center"" class=""bg_tr"">审核状态</td>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -