后台日志管理插件

<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>

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

<%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="post" name="ph_Category" id="ph_Category" style="margin:0px;">
           <input type="hidden" name="doModule" value="DelSelect"/>
           <input type="hidden" name="cate_ID" value="<%=Request.QueryString("cate_ID")%>"/>
<tr><td style="font-size:12px;border-bottom:1px #ccc solid;">
<%
    Dim Log_cate
    Set Log_cate=Server.CreateObject("ADODB.RecordSet")
    Sql="select * from blog_Category where not cate_OutLink"
    Log_cate.Open Sql,conn,1,1
    If Log_cate.eof and Log_cate.bof then
        response.write "暂未添加分类！"
    Else
        response.write "<a href=ConContent.asp?Fmenu=LogMg&Smenu=><font color=#000000>查看全部</font></a> | "
        Dim Log_cateID
        If Request.QueryString("cate_ID")<>Empty Then Log_cateID=Int(Request.QueryString("cate_ID"))
        Do While Not Log_cate.eof
            If Log_cate("cate_ID")=Log_cateID then
                response.write "<a href=ConContent.asp?Fmenu=LogMg&cate_ID="&Log_cate("cate_ID")&"&Smenu=><font color=red>"&Log_cate("cate_Name")&"</font></a>("&Log_cate("cate_Count")&") | "
            Else
                response.write "<a href=ConContent.asp?Fmenu=LogMg&cate_ID="&Log_cate("cate_ID")&"&Smenu=>"&Log_cate("cate_Name")&"</a>("&Log_cate("cate_Count")&") | "
            End If
        Log_cate.MoveNext
        Loop  
    End If
    Log_cate.Close
    Set Log_cate=Nothing
%>
</td></tr>
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF" class="CPanel">
<table width="100%" border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC" class="CPanel">
<%
    If CheckStr(Request.QueryString("Page"))<>Empty Then
        Curpage=CheckStr(Request.QueryString("Page"))
        If IsInteger(Curpage)=False or Curpage<0 Then Curpage=1
    Else
        Curpage=1
    End If

Dim Log_List
Set Log_List=Server.CreateObject("ADODB.RecordSet")

If Request.QueryString("cate_ID")<>Empty Then
    Sql="select log_ID,log_CateID,log_Title,log_PostTime,log_CommNums,log_QuoteNums,log_ViewNums,cate_ID,cate_Name from blog_Content c inner join blog_Category l on c.log_CateID=l.cate_ID Where log_CateID="&Request.QueryString("cate_ID")&""
Else
    Sql="select log_ID,log_CateID,log_Title,log_PostTime,log_CommNums,log_QuoteNums,log_ViewNums,cate_ID,cate_Name from blog_Content c inner join blog_Category l on c.log_CateID=l.cate_ID"
End If
If Request.QueryString("Log_sort")<>Empty Then
    Select Case Request.QueryString("Log_sort")
        Case 1
            Sql=Sql&" order by log_PostTime"
        Case 2
            Sql=Sql&" order by log_PostTime desc"
        Case 3
            Sql=Sql&" order by log_ViewNums"
        Case 4
            Sql=Sql&" order by log_ViewNums desc"
        Case 5
            Sql=Sql&" order by log_CommNums"
        Case 6
            Sql=Sql&" order by log_CommNums desc"
        Case 7
            Sql=Sql&" order by log_QuoteNums"
        Case 8
            Sql=Sql&" order by log_QuoteNums desc"
    End Select
Else
    Sql=Sql&" order by log_ID desc"  
End If

Log_List.Open Sql,conn,1,1

If not Log_List.eof Then
    Dim Log_PageCM
    Log_PageCM=0
    Log_List.PageSize=15
    Log_List.AbsolutePage=CurPage
    Dim Log_List_nums
    Log_List_nums=Log_List.RecordCount
%>
<tr>
<td align=center bgcolor="#339999">选择</td>
<td align=center bgcolor="#339999">标题</td>
<td align=center bgcolor="#339999">发布时间</td>
<td align=center bgcolor="#339999">评论</td>
<td align=center bgcolor="#339999">引用</td>
<td align=center bgcolor="#339999">查看</td>
<td align=center bgcolor="#339999">操作</td>
</tr>
<%Do Until Log_List.EOF or Log_PageCM=Log_List.PageSize
%>
<tr bgcolor="#FFFFFF">
<td align="center"><input name="Log_Dele" type="checkbox" id="Log_Dele" value=<%=Log_List(0)%>></td>
<td>
<%
If Request.QueryString("cate_ID")=Empty Then
    response.write "【"&Log_List(8)&"】"
End If
%>
<a target="_blank" href="article.asp?id=<%=Log_List(0)%>"><%=Log_List(2)%></a></td>
<td><%=Log_List(3)%></td>
<td align="center">
<%
If Log_List(4)>0 then
%>
<a href="article.asp?id=<%=Log_List(0)%>#comm_top" target="_blank"><%=Log_List(4)%></a>
<%
Else
%>
0
<%End If
%>
</td>
<td align="center"><%=Log_List(5)%></td>
<td align="center"><%=Log_List(6)%></td>
<td align="center"><a target="_blank" href="blogedit.asp?id=<%=Log_List(0)%>">编辑</a>
</select>
</td>
</tr>
<%
Log_List.MoveNext
Log_PageCM=Log_PageCM+1
Loop
%>
<tr><td colspan="7" bgcolor="#ffffff">
                        <input type="button" value="全选" onClick="checkAll()" class="button" style="margin:0px;margin-bottom:5px;margin-right:6px"/>
                        <input type="button" value="删除所选内容" onClick="DelComment()" class="button" style="margin:0px;margin-bottom:5px;"/>
                        <input type="hidden" value="0" name="moveto">
                       <input type="submit" value="将所选内容移至" onClick="moveto.value=1" class="button" style="margin:0px;margin-bottom:5px;"/>
                       <select name="source"  style="margin:0px;margin-bottom:5px;">
<%
Dim Log_CategoryListDB,Log_CateInOpstions
        set Log_CategoryListDB=conn.execute("select * from blog_Category order by cate_local asc, cate_Order desc")
         do while not Log_CategoryListDB.eof
          if not Log_CategoryListDB("cate_OutLink") then
           Log_CateInOpstions=Log_CateInOpstions&"<option value="""&Log_CategoryListDB("cate_ID")&""">  "&Log_CategoryListDB("cate_Name")&" ["&Log_CategoryListDB("cate_count")&"]</option>"
          end if
          Log_CategoryListDB.movenext
         loop
         set Log_CategoryListDB=nothing
%>
    <%=Log_CateInOpstions%>
                        </select>
</td></tr>                  
<%
    response.write "<tr><td colspan=""7"" style=""border-bottom:1px solid #999;""><div class=""pageContent"">"&MultiPage(Log_List_nums,Log_List.PageSize,CurPage,"?Fmenu=LogMg&Log_sort="&Request.QueryString("Log_sort")&"&cate_ID="&Request.QueryString("cate_ID")&"&","","float:left")&"</div></td></tr>"
Else
   response.write ("<tr><td colspan=""7"" align=""center"" >该分类暂无日志不存在！</td></tr>")
End If
Log_List.close
Set Log_List=Nothing
%>
</table>
</td>
</tr>
</form>
<%End IF%>
</td>
</tr>
</table>