PJBLOG后台日志分类批量管理

后台按分类查看该分类下的日志,可按发表时间,评论,查看次数,引用升降排序.

单个,批量删除及移动日志..

因为编辑前台就有此功能了,所以后台在列表中点标题可以直接查看该日志,点编辑新窗口到前台编辑该日志..其他的大家自己看吧
 

1.打开ConMenu.asp,在第43或44行插入以下代码：

<li><a href="javascript:void(0)" class="menuA" onClick="MenuClick(this,'ConContent.asp?Fmenu=LogMg&Smenu=')"><img src="images/Control/icon/icon4.gif" alt="" border="0" class="MenuIcon"/>日志管理</a></li>

2.打开ConContent.asp 找到如下代码：

<%
elseif Request.QueryString("Fmenu")="Categories" then '日志分类管理

在其上插入如以下代码，OK：

<%ElseIF Request.QueryString("Fmenu")="LogMg" Then%>
<table width="100%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" class="CContent">
<tr>
<td bgcolor="#FFFFFF" class="CTitle">Pjblog日志管理BY <a href=http://www.muzili.com target=_blank>戒聊</a> 发表时间 <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=1">↑</a> <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=2">↓</a> | 访问 <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=3">↑</a> <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=4">↓</a> | 评论 <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=5">↑</a> <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=6">↓</a> | 引用 <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=7">↑</a> <a href="?Fmenu=LogMg&cate_ID=<%=Request.QueryString("cate_ID")%>&Log_sort=8">↓</a> </td>
</tr>
<%IF Request.QueryString("type")="LogMG" Then%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="48">
<%
If Request.form("moveto")=1 Then
Dim Log_Dele,Log_source_ID
Log_Dele=split(Request.form("Log_Dele"),", ")
for i=0 to ubound(Log_Dele)
Log_source_ID=conn.execute("select log_CateID from blog_Content where log_ID="&Log_Dele(i))(0)
conn.execute ("update blog_Content set log_CateID="&Request.form("source")&" where log_ID="&Log_Dele(i))
conn.execute ("update blog_Category set cate_count=cate_count+1 where cate_ID="&Request.form("source"))
conn.execute ("update blog_Category set cate_count=cate_count-1 where cate_ID="&Log_source_ID)
next
Else
Log_Dele=split(Request.form("Log_Dele"),", ")
for i=0 to ubound(Log_Dele)
Log_source_ID=conn.execute("select log_CateID from blog_Content where log_ID="&Log_Dele(i))(0)
conn.execute ("update blog_Category set cate_count=cate_count-1 where cate_ID="&Log_source_ID)
conn.execute("Delete * from blog_Content where log_ID="&Log_Dele(i))
next
End If
%>
<a href="?Fmenu=LogMg&cate_ID=<%=Request.form("cate_ID")%>">操作成功，请点击返回</a>
</td>
</tr>
<%Else%>
<form action="ConContent.asp?Fmenu=LogMg&type=LogMG" method="