📄 admin_commentman.asp

📁 大榕树网络文章管理系统
💻 ASP
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=4
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="admin_Function.asp" -->
<%
dim compas,comid,bid,rspas,successmsg
compas=trim(request.querystring("compas"))
comid=trim(request("comid"))
bid=trim(request.form("bid"))
if compas="pas" then
if comid<>"" then
set rspas=server.createobject("ADODB.Recordset")
rspas.open"select comid,compass from comment where comid="&comid&"",conn,1,3
rspas("compass")=true
rspas.update
rspas.close
set rspas=nothing
end if
end if
%>
<%
dim rs,page,i,filepath,errmsg
set rs=server.createobject("ADODB.Recordset")
rs.open"select * from comment order by comid desc",conn,1,1
if rs.eof or rs.bof then
errmsg=errmsg + "<br><br><li>暂时还没有评论！</li>"
errmsg=errmsg + "<br><br><li>你可能没有开放评论功能!</li>"
errmsg=errmsg + "<br><br>"
call closeconn()
call ShowErrMsg()
else
%>
<%filepath=request.servervariables("path_info")%>
<%
page=request.querystring("page")
rs.pagesize=15
if not isempty(page) then
   if not isnumeric(page) then
     page=1
	 else
	 page=cint(page)
	 end if
	 if page>rs.pagecount then
	    rs.absolutepage=rs.pagecount
		elseif page<=0 then
		rs.absolutepage=1
		else
		  rs.absolutepage=page
		  end if
		else
	rs.absolutepage=1
	end if
	page=rs.absolutepage
%>
<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">单击文章ID号，你可以删除该篇文章的所有评论</td>
  </tr>
  <tr>
    <td align="center" class="txt05"><form name="form1" method="post" action="admin_CommentDel.asp?comdel=del" onsubmit="return checkdel();">
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center" class="txt1"><span class="txt03">
            <%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
          </span></td>
        </tr>
        <tr>
          <td><table width="99%"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#f5f8f5">
            <tr align="center" class="txt1">
              <td width="4%" class="tbbgtitle">选定</td>
              <td width="4%" class="tbbgtitle">ID</td>
              <td width="5%" class="tbbgtitle">文章ID</td>
              <td width="34%" class="tbbgtitle">评论内容</td>
              <td width="9%" class="tbbgtitle">作者</td>
              <td width="16%" class="tbbgtitle">评论时间</td>
              <td width="11%" class="tbbgtitle">IP地址</td>
              <td width="6%" class="tbbgtitle">审核</td>
              <%if session("adminpurview")<=3 then%>
              <td width="11%" class="tbbgtitle">操作</td>
              <%end if%>
            </tr>
            <% for i=1 to rs.pagesize
	      if rs.eof then
		  exit for
		  end if %>
            <tr align="center" class="txt05">
              <td class="tbbgtitle"><input name="id" type="checkbox" id="id" value="<%=rs("comid")%>"></td>
              <td><%=rs("comid")%></td>
              <td><a href="admin_ComShow.asp?articleid=<%=rs("articleid")%>&comshow=show"><%=rs("articleid")%></a>
                  <input name="comshow" type="hidden" id="comshow2" value="show"></td>
              <td><img src="../<%=rs("comface")%>">&nbsp;
			  <%
			  if len(rs("comtext"))>20 then 
			  response.write"<a href='admin_ComShow.asp?articleid="&rs("articleid")&"&comshow=show' title="&rs("comtext")&">"&left(rs("comtext"),20)&"...</a>"
			  else 
			  response.write""&rs("comtext")&""
			  end if
			  %></td>
              <td><%=rs("comname")%></td>
              <td><%=rs("comtime")%></td>
              <td><%if rs("comip")<>"" then%><%=rs("comip")%><%else%>未知<%end if%></td>
              <td><%if rs("compass")=true then%>是<%else%><span class="txt06">否<%end if%></td>
              <td><%if session("adminpurview")<=3 then%>
                  <a href="admin_CommentDel.asp?comid=<%=rs("comid")%>&comdel=del" onclick="return checkdel();">删除</a>
                  <input name="comdel" type="hidden" id="comdel3" value="del"><%if rs("compass")=false then%><a href="admin_CommentMan.asp?comid=<%=rs("comid")%>&compas=pas">审核</a>
                  <input name="compas" type="hidden" id="compas" value="pas"><%end if%>                  
                  <%end if%>
            &nbsp;</td>
            </tr>
            <% rs.movenext
	    next
	    %>
          </table></td>
        </tr>
        <tr>
          <td align="center" class="txt1"><span class="txt03">
            <%call pagination(rs.pagecount,rs.pagesize,page,rs.recordcount)%>
          </span></td>
        </tr>
        <tr>
          <td align="center" class="txt05"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">
            单击选中本页所有评论
            <input name="Submit" type="submit" class="but" value="删除本页所有选中的评论"></td>
        </tr>
      </table>
    </form></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
call closeconn
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -