📄 act.book.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<!--#include file="../../ACT_inc/cls_pageview.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>Act内容管理系统</title>
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim ShowErr,ID,ModeID
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
if ModeID=0 or ModeID="" Then ModeID=1
If Not ACTCMS.ACTCMS_QXYZ(ModeID,"","") Then Call Actcms.Alert("对不起，您没有"&ACTCMS.ACT_C(ModeID,1)&"系该项操作权限！","")
ID = actcms.ChkNumeric(Request.QueryString("ID"))
IF Request.QueryString("Action") = "UnLock" Then'固顶
Conn.execute("Update Comment_Act set Locked=0 where ID ="&ID&"")
set conn=nothing
Response.Redirect("?")
End IF
IF Request.QueryString("Action") = "Lock" Then'固顶
Conn.execute("Update Comment_Act set Locked=1 where ID ="&ID&"")
set conn=nothing
Response.Redirect("?")
End IF
IF Request.QueryString("Action") = "del" Then'固顶
dim Sqlbook
Conn.Execute ("Delete from Comment_Act Where ID=" & ID)
set conn=nothing
ShowErr = "<li>评论已经删除！</li>"
Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl=Article/ACT.Book.asp")
End IF
IF Request.QueryString("Action") = "alldel" Then'单一删除
ID = Request.Form("ID")
IF ID = "" Then
ShowErr = "<li>请先选定评论！</li>"
Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl="&"&Title=1")
Response.End
End IF
ID = Split(ID,",")
For I = LBound(ID) To UBound(ID)
Conn.execute("Delete from Comment_Act Where ID=" & ID(I) & "")
Next
set conn=nothing
ShowErr = "<li>评论已经删除！</li>"
Response.Redirect("../Error.asp?Errs="&Server.URLEncode(ShowErr)&"&ErrorUrl=Article/ACT.Book.asp")
End IF
Dim strLocalUrl
strLocalUrl = request.ServerVariables("SCRIPT_NAME")
Dim intPageNow
intPageNow = request.QueryString("page")
Dim intPageSize, strPageInfo
intPageSize = 20
Dim arrRecordInfo, i
Dim sql, sqlCount,Sqls,pages
pages = "Type="&Request("Type")&"&page"
Select Case Request.QueryString("Type")
Case "Lock"
Sqls = " Where ModeID = "&ModeID&" And Locked = 1 "
Case "UnLock"
Sqls = " Where ModeID = "&ModeID&" And Locked = 0 "
Case Else
Sqls = " Where ModeID = "&ModeID&" "
End Select
sql = "SELECT [ID], [ModeID], [Content], [AddDate],[Locked],[UserIP],[ClassID],[acticleID]" & _
" FROM [Comment_Act]" &Sqls& _
"ORDER BY [ID] DESC"
sqlCount = "SELECT Count([ID])" & _
" FROM [Comment_Act] Where ModeID = 1 "
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
%><form name="Article" method="post" action="?Action=">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="bg_tr"><strong>您现在的位置：文章中心管理 >> 评论管理<a href="#" target="_blank" style="cursor:help;'" class="Help"></a></strong></td>
</tr>
<tr>
<td class="td_bg"><strong>评论选项：</strong><strong><a href="?">所有评论</a> ┆ <a href="?Type=Lock">已审核</a>┆ <a href="?Type=UnLock">未审核</a>┆</strong> </td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td width="40" align="center" class="bg_tr">选中 </td>
<td width="45" align="center" class="bg_tr">ID</td>
<td width="300" align="center" class="bg_tr">评论内容</td>
<td width="157" align="center" class="bg_tr">发表时间</td>
<td width="125" align="center" class="bg_tr">IP</td>
<td width="84" align="center" class="bg_tr">审核与否</td>
<td width="154" colspan="2" align="center" class="bg_tr">常规管理操作</td>
</tr>
<%
Dim bgColor
If IsArray(arrRecordInfo) Then
For i = 0 to UBound(arrRecordInfo, 2)
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td align="center" class="td_bg" >
<input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>"> </td>
<td align="center" class="td_bg" ><%= arrRecordInfo(0,i) %></td>
<td class="td_bg" ><a target="_blank" href="<%=AcTCMS.ActCMSDM&"Comment.asp?ModeID="&arrRecordInfo(1,i)&"&ClassID="&arrRecordInfo(6,i)&"&ID="&arrRecordInfo(7,i)%>"><%=arrRecordInfo(2,i)%></a></td>
<td class="td_bg" ><%= arrRecordInfo(3,i) %></td>
<td align="center" class="td_bg" ><%= arrRecordInfo(5,i) %></td>
<td align="center" class="td_bg" >
<% IF arrRecordInfo(4,i) = 1 Then Response.Write "<font color=red> 已审核 </font>" Else Response.Write "<font color=#0000FF> 未审核 </font>"%> </td>
<td align="center" class="td_bg">
<a href="?Action=del&id=<%= arrRecordInfo(0,i) %>" onClick="return confirm('确认删除此评论吗?')">删除</a>
┆<% if arrRecordInfo(4,i) = 0 Then %>
<a href="?Action=Lock&id=<%= arrRecordInfo(0,i) %>">通过审核</a>
<% ELse
%> <a title="解除固顶" href="?Action=UnLock&id=<%= arrRecordInfo(0,i) %>">取消审核</a>
<%
end if%> </td>
</tr>
<%
Next
End If
%>
<tr >
<td height="30" colspan="8" class="td_bg">
<label for=chk>
<input id="chk" type="checkbox" name="chkall" value="checkbox" onClick="CheckAll(this.form)">选择全部评论</label>
<input type="button" Class="ACT_BTN" name="yd" value="批量删除" onClick="delpost()"></td>
</tr>
<tr >
<td height="25" colspan="8" align="center" class="td_bg"><%= strPageInfo%></td>
</tr>
</table>
</form>
<script language="javascript">
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = Article.elements[i];
if (e.name != 'chkall')
e.checked = Article.chkall.checked;
}
}
//CSS背景控制
function overColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg1"
Obj.bgColor="";
}
}
function outColor(Obj)
{
var elements=Obj.childNodes;
for(var i=0;i<elements.length;i++)
{
elements[i].className="tdbg";
Obj.bgColor="";
}
}
function delpost(){
document.Article.method="post";
document.Article.action="?Action=alldel";
{
if(confirm('确认要删除选中的评论吗?')){
this.document.Article.submit();
return true;}return false;
}
}
</script>
<% CloseConn %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -