📄 ad_comment.asp
字号:
<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true
Const PurviewLevel=2 '操作权限
Const CheckChannelID=2 '所属频道，0为不检测所属频道
%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="ad_ChkPurview.asp"-->
<!--#include file="inc/func.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
dim strFileName,ComeUrl
strFileName="ad_Comment.asp"
ComeUrl=trim(request("ComeUrl"))
if ComeUrl="" then
ComeUrl=Request.ServerVariables("HTTP_REFERER")
end if
const MaxPerPage=20
dim totalPut,CurrentPage,TotalPages,i,j
dim Title
dim Action,FoundErr,Errmsg
Action=Trim(request("Action"))
Title=Trim(request("Title"))
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
dim sql,rs
%>
<html>
<head>
<title>文章评论管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link rel="stylesheet" type="text/css" href="ad_Style.css">
<SCRIPT language=javascript>
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;
}
}
function ConfirmDel()
{
if(confirm("确定要删除选中的评论吗？一旦删除将不能恢复！"))
return true;
else
return false;
}
</SCRIPT>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" Class="border">
<tr class="topbg">
<td height="22" colspan=2 align=center><b>文 章 评 论 管 理</b></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<table width="100%"><tr>
<form name="searchsoft" method="get" action="ad_Comment.asp">
<td>
<input name="Title" type="text" class=smallInput id="Title" size="28">
<input name="Query" type="submit" id="Query" value="查 询">
请输入评论的标题。如果为空，则查找所有评论。</td>
</form></tr></table>
</td>
</tr>
</table>
<%
if Action="Modify" then
call Modify()
elseif Action="SaveModify" then
call SaveModify()
elseif Action="Del" then
call DelComment()
elseif Action="Del2" then
call DelComment2()
elseif Action="Reply" then
call Reply()
elseif Action="SaveReply" then
call SaveReply()
else
call main()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub main()
sql="select A.ArticleID, A.ClassID, A.Title as ArticleTitle, A.IncludePic, C.CommentID,C.UserName,C.IP,C.Title as CommentTitle, C.Content,C.WriteTime,C.ReplyName,C.ReplyContent,C.ReplyTime from Comment C Left Join Article A On C.ArticleID=A.ArticleID "
if Title<>"" then
sql=sql & " where C.Title like '%" & Title & "%' "
end if
sql=sql & " order by A.ArticleID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<form name="del" method="Post" action="ad_Comment.asp" onsubmit="return ConfirmDel();">
<tr>
<td align="center">
<table border="0" cellpadding="2" width="100%" cellspacing="0">
<tr>
<td>您现在的位置：<a href="ad_Comment.asp">评论管理</a> >>
<%
if request.querystring="" then
response.write "所有评论"
else
if request("Query")<>"" then
if Title<>"" then
response.write "标题中含有“<font color=blue>" & Title & "</font>”的评论"
else
response.Write("所有评论")
end if
end if
end if
%>
</td>
<td width="150" align="right">
<%
if rs.eof and rs.bof then
response.write "共找到 0 篇评论</td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
response.Write "共找到 " & totalPut & " 篇评论"
%>
</td>
</tr>
</table>
<%
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"篇评论"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"篇评论"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"篇评论"
end if
end if
end if
%>
</form>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub
sub showContent
dim i
i=0
dim PrevID
PrevID=rs("ArticleID")
do while not rs.eof
if rs("ArticleID")<>PrevID then response.write "</table></td></tr></table><br>"
if i=0 or rs("ArticleID")<>PrevID then
%>
<table class="border" width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="title">
<td width="80%" height="22">|
<%
if rs("IncludePic")=true then
response.write "<font color=blue>[图文]</font>"
end if
response.write "<a href='Ad_infoShow.asp?ArticleID=" & rs("ArticleID") & "'>" & rs("ArticleTitle") & "</a>"
%></td>
<td width="20%" align="right"><a href="ad_Comment.asp?ArticleID=<%=rs("ArticleID")%>&Action=Del2">删除此文章下的所有评论</a></td>
</tr>
<tr>
<td colspan="2" align="right"> <table border="0" cellspacing="1" width="96%" cellpadding="0" style="word-break:break-all">
<%end if%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td width="30" align="center"><input name='CommentID' type='checkbox' onclick="unselectall()" id="CommentID" value='<%=cstr(rs("CommentID"))%>'></td>
<td><a href="#" Title="<%=left(rs("Content"),200)%>"><%=rs("CommentTitle")%></a></td>
<td width="80" align="center"><%=rs("UserName") %></td>
<td width="120" align="center"><%=rs("IP")%></td>
<td width="120" align="center"><%= rs("WriteTime") %></td>
<td width="100" align="center"><%
if rs("ReplyName")<>"" then
response.write " "
else
response.write "<a href='ad_Comment.asp?Action=Reply&CommentID=" & rs("Commentid") & "'>回复</a> "
end if
response.write "<a href='ad_Comment.asp?Action=Modify&CommentID=" & rs("Commentid") & "'>修改</a> "
response.write "<a href='ad_Comment.asp?Action=Del&CommentID=" & rs("CommentID") & "' onclick='return ConfirmDel();'>删除</a>"
%></td>
</tr>
<%if rs("ReplyName")<>"" then%>
<tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="center"> </td>
<td colspan="4"><%response.write "管理员【" & rs("ReplyName") & "】于 " & rs("ReplyTime") & " 回复：<br><div style='padding:0px 20px'>" & rs("ReplyContent") & "</div>"%></td>
<td align="center"><a href="ad_Comment.asp?Action=Reply&CommentID=<%=rs("CommentID")%>">修改回复内容</a></td>
</tr>
<%
end if
i=i+1
if i>=MaxPerPage then exit do
PrevID=rs("ArticleID")
rs.movenext
loop
%>
</table></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="250" height="30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
选中本页显示的所有评论 </td>
<td><input name="submit" type='submit' value='删除选定的评论'>
<input name="Action" type="hidden" id="Action" value="Del"></td>
</tr>
</table>
<%
end sub
sub Modify()
dim CommentID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -