<%@ CODEPAGE=65001 %>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<!-- #include file="c_option.asp" -->
<!-- #include file="function/c_function.asp" -->
<!-- #include file="function/c_function_md5.asp" -->
<!-- #include file="function/c_system_lib.asp" -->
<!-- #include file="function/c_system_base.asp" -->
<!-- #include file="function/c_system_event.asp" -->
<!-- #include file="function/c_system_plugin.asp" -->
<!-- #include file="function/rss_lib.asp" -->
<!-- #include file="function/atom_lib.asp" -->
<!-- #include file="plugin/p_config.asp" -->
<%
Call System_Initialize()

'plugin node
For Each sAction_Plugin_Command_Begin in Action_Plugin_Command_Begin
 If Not IsEmpty(sAction_Plugin_Command_Begin) Then Call Execute(sAction_Plugin_Command_Begin)
Next

Dim strAct
strAct=Request.QueryString("act")
strAct="ArticlePst"  'zzcity add

'如果不是"接收引用"就要检查非法链接
'If (strAct<>"tb") And (strAct<>"search") Then Call CheckReference("")

'权限检查
'If Not CheckRights(strAct) Then Call ShowError(6)


Select Case strAct

 '命令列表

 Case "login" 

  Call BlogLogin()

 Case "verify"

  Call BlogVerify()

 Case "logout"

  Call BlogLogout()

 Case "admin" 

  Call BlogAdmin()

 Case "cmt"

  Call CommentPost()

 Case "tb"
  Call TrackBackPost()

 Case "vrs"
  Call ViewRights()

 Case "ArticleMng"

  Call ArticleMng()

 Case "ArticleEdt"

  Call ArticleEdt()

 Case "ArticlePst"

  Call ArticlePst()

 Case "ArticleDel"

  Call ArticleDel()

 Case "CategoryMng"

  Call CategoryMng()

 Case "CategoryEdt"

  Call CategoryEdt()

 Case "CategoryPst"

  Call CategoryPst()

 Case "CategoryDel"

  Call CategoryDel()

 Case "CommentMng"

  Call CommentMng()

 Case "CommentDel"

  Call CommentDel()

 Case "CommentRev"

  Call CommentRev()

 Case "CommentEdt"

  Call CommentEdt()

 Case "CommentSav"

  Call CommentSav()

 Case "TrackBackMng"

  Call TrackBackMng()

 Case "TrackBackDel"

  Call TrackBackDel()

 Case "TrackBackSnd"

  Call TrackBackSnd()

 Case "UserMng"

  Call UserMng()

 Case "UserCrt"

  Call UserCrt()

 Case "UserEdt"

  Call UserEdt()

 Case "UserDel"

  Call UserDel()

 Case "FileReBuild"

  Call FileReBuild()

 Case "FileMng"

  Call FileMng()

 Case "FileSnd"

  Call FileSnd()

 Case "FileUpload"

  Call FileUpload()

 Case "FileDel"

  Call FileDel()

 Case "BlogReBuild"

  Call BlogReBuild()

 Case "DirectoryReBuild"

  Call DirectoryReBuild()

 Case "Search"

  Call Search()

 Case "SettingMng"

  Call SettingMng()

 Case "SettingSav"

  Call SettingSav()

 Case "TagMng"

  Call TagMng()

 Case "TagEdt"

  Call TagEdt()

 Case "TagPst"

  Call TagPst()

 Case "TagDel"

  Call TagDel()

 Case "PlugInMng"

  Call PlugInMng()

 Case "SiteInfo"

  Call SiteInfo()

 Case "SiteFileMng"

  Call SiteFileMng()

 Case "SiteFileEdt"

  Call SiteFileEdt()

 Case "SiteFilePst"

  Call SiteFilePst()

 Case "SiteFileDel"

  Call SiteFileDel()

 Case "AskFileReBuild"

  Call AskFileReBuild()

 Case "gettburl"
  Call TrackBackUrlGet()

 Case "CommentDelBatch"

  Call CommentDelBatch()

 Case "TrackBackDelBatch"

  Call TrackBackDelBatch()

 Case "FileDelBatch"

  Call FileDelBatch()

 Case "ThemesMng"

  Call ThemesMng()

 Case "ThemesSav"

  Call ThemesSav()


 Case "LinkMng"

  Call LinkMng()

 Case "LinkSav"

  Call LinkSav()


 Case "PlugInActive"

  Call PlugInActive()

 Case "PlugInDisable"

  Call PlugInDisable()


End Select



Function BlogLogin

 'plugin node
 For Each sAction_Plugin_BlogLogin_Begin in Action_Plugin_BlogLogin_Begin
  If Not IsEmpty(sAction_Plugin_BlogLogin_Begin) Then Call Execute(sAction_Plugin_BlogLogin_Begin)
  If bAction_Plugin_BlogLogin_Begin=True Then Exit Function
 Next

 If BlogUser.Verify=False Then
  Response.Redirect "login.asp"
 Else
  Call BlogAdmin()
 End If

End Function

Function BlogVerify()

 'plugin node
 For Each sAction_Plugin_BlogVerify_Begin in Action_Plugin_BlogVerify_Begin
  If Not IsEmpty(sAction_Plugin_BlogVerify_Begin) Then Call Execute(sAction_Plugin_BlogVerify_Begin)
  If bAction_Plugin_BlogVerify_Begin=True Then Exit Function
 Next

 If Login=True Then

  'plugin node
  For Each sAction_Plugin_BlogVerify_Succeed in Action_Plugin_BlogVerify_Succeed
   If Not IsEmpty(sAction_Plugin_BlogVerify_Succeed) Then Call Execute(sAction_Plugin_BlogVerify_Succeed)
   If bAction_Plugin_BlogVerify_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=admin"
 Else
  Call ShowError(8)
 End If

End Function

Function BlogLogout

 'plugin node
 For Each sAction_Plugin_BlogLogout_Begin in Action_Plugin_BlogLogout_Begin
  If Not IsEmpty(sAction_Plugin_BlogLogout_Begin) Then Call Execute(sAction_Plugin_BlogLogout_Begin)
  If bAction_Plugin_BlogLogout_Begin=True Then Exit Function
 Next

 If Logout=True Then

  'plugin node
  For Each sAction_Plugin_BlogLogout_Succeed in Action_Plugin_BlogLogout_Succeed
   If Not IsEmpty(sAction_Plugin_BlogLogout_Succeed) Then Call Execute(sAction_Plugin_BlogLogout_Succeed)
   If bAction_Plugin_BlogLogout_Succeed=True Then Exit Function
  Next

 End If

End Function

Function BlogAdmin

 'plugin node
 For Each sAction_Plugin_BlogAdmin_Begin in Action_Plugin_BlogAdmin_Begin
  If Not IsEmpty(sAction_Plugin_BlogAdmin_Begin) Then Call Execute(sAction_Plugin_BlogAdmin_Begin)
  If bAction_Plugin_BlogAdmin_Begin=True Then Exit Function
 Next

 'Call MakeBlogReBuild_Core()

 Response.Redirect "admin/admin_default.asp"

End Function

Function ViewRights()

 'plugin node
 For Each sAction_Plugin_ViewRights_Begin in Action_Plugin_ViewRights_Begin
  If Not IsEmpty(sAction_Plugin_ViewRights_Begin) Then Call Execute(sAction_Plugin_ViewRights_Begin)
  If bAction_Plugin_ViewRights_Begin=True Then Exit Function
 Next

 Call ListUser_Rights()
End Function


Function ArticleMng

 'plugin node
 For Each sAction_Plugin_ArticleMng_Begin in Action_Plugin_ArticleMng_Begin
  If Not IsEmpty(sAction_Plugin_ArticleMng_Begin) Then Call Execute(sAction_Plugin_ArticleMng_Begin)
  If bAction_Plugin_ArticleMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=ArticleMng&page=" & Request.QueryString("id")
End Function

Function ArticleEdt

 'plugin node
 For Each sAction_Plugin_ArticleEdt_Begin in Action_Plugin_ArticleEdt_Begin
  If Not IsEmpty(sAction_Plugin_ArticleEdt_Begin) Then Call Execute(sAction_Plugin_ArticleEdt_Begin)
  If bAction_Plugin_ArticleEdt_Begin=True Then Exit Function
 Next

 On Error Resume Next
 If (Ubound(Categorys)=0) Then 
  Call SetBlogHint_Custom(ZC_MSG294)
  Response.Redirect "admin/edit_catalog.asp"
 End If

 If Request.QueryString("type")<>"" Then
  If IsEmpty(Request.QueryString("id"))=False Then
   Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp?id="& Request.QueryString("id")
  Else
   Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp"
  End If
 Else
  If IsEmpty(Request.QueryString("id"))=False Then
   Response.Redirect "admin/edit.asp?id="& Request.QueryString("id")
  Else
   Response.Redirect "admin/edit.asp"
  End If
 End If
End Function

'/////////////////////////////////////////////////////////////////////////////////////////
'*********************************************************
' 目的：    Post Article
'*********************************************************
'zzcity add
Function zzisnum(str)
    zzisnum = false
    Dim regEx
    Set regEx = New RegExp
    regEx.Pattern = "^\d+$"   //匹配由数字线组成的字符串
    regEx.IgnoreCase = True
    zzisnum = regEx.test(str)
End Function

Function zzPostArticle()

 Dim s,i,t,k
 Dim strTag

' If Request.Form("edtID")<>"0" Then
'  Dim objTestArticle
'  Set objTestArticle=New TArticle
'  If objTestArticle.LoadInfobyID(Request.Form("edtID")) Then
'   If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
'   strTag=objTestArticle.Tag
'   objTestArticle.DelFile
'  Else
'   Call ShowError(9)
'  End If
' End If
 Dim objArticle
 Set objArticle=New TArticle
' objArticle.ID=Request.Form("edtID")
 objArticle.ID=0
 objArticle.CateID=Request.Form("edtCateID")
 if (not zzisnum(objArticle.CateID)) or (objArticle.CateID=0) then
  response.Write("[err]分类ID不能为空[/err]")
  response.End()
 end if
    if (not zzisnum(Request.Form("edtAuthorID"))) or (Request.Form("edtAuthorID")=0) then
            response.Write("[err]管理员ID为数字ID，不能为空，不能填为账号名[/err]")
            response.End()
    end if
    objArticle.AuthorID=Request.Form("edtAuthorID")

 objArticle.Level=Request.Form("edtLevel")
' objArticle.PostTime=Request.Form("edtYear") & "-" & Request.Form("edtMonth") & "-" & Request.Form("edtDay") & " " &  Request.Form("edtTime")
 objArticle.PostTime=now()
 objArticle.Title=Request.Form("edtTitle")
 if trim(objArticle.Title)="" then
  response.Write("[err]标题不能为空[/err]")
  response.End()
 end if
 objArticle.Tag=ParseTag(Request.Form("edtTag"))
 objArticle.Alias=Request.Form("edtAlias")
 objArticle.Istop=Request.Form("edtIstop")

 objArticle.Intro=Request.Form("txaIntro")

' Select Case LCase(Request.QueryString("type"))
' Case "htmlarea"
'  objArticle.Content=Request.Form("ta")
'
'  If objArticle.Intro="" Then
'   s=objArticle.Content
'   If Len(s)>ZC_TB_EXCERPT_MAX Then
'    i=InStr(s,vbCrlf)
'    If i>0 Then
'     t=Split(s,vblf)
'     s=""
'     For k=LBound(t) To UBound(t)
'      s=s & t(k)
'      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
'     Next
'     s=Replace(s,vbCr,vbCrlf)
'    End If
'    s=s & ZC_MSG305
'   End If
'   s=TransferHTML(s,"[closehtml]")
'   objArticle.Intro=s
'  End If
' Case "tinymce"
'  objArticle.Content=Request.Form("txaContent")
'  If objArticle.Intro="" Then
'   s=objArticle.Content
'   If Len(s)>ZC_TB_EXCERPT_MAX Then
'    i=InStr(s,vbCrlf)
'    If i>0 Then
'     t=Split(s,vblf)
'     s=""
'     For k=LBound(t) To UBound(t)
'      s=s & t(k)
'      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
'     Next
'     s=Replace(s,vbCr,vbCrlf)
'    End If
'    s=s & ZC_MSG305
'   End If
'   s=TransferHTML(s,"[closehtml]")
'   objArticle.Intro=s
'  End If
'  objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
'  objArticle.Content=Replace(objArticle.Content,vbLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
' Case "fckeditor"
  objArticle.Content=Request.Form("txaContent")
  If objArticle.Intro="" Then
   s=objArticle.Content
   If Len(s)>ZC_TB_EXCERPT_MAX Then
    i=InStr(s,vbCrlf)
    If i>0 Then
     t=Split(s,vblf)
     s=""
     For k=LBound(t) To UBound(t)
      s=s & t(k)
      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
     Next
     s=Replace(s,vbCr,vbCrlf)
    End If
    s=s & ZC_MSG305
   End If
   s=TransferHTML(s,"[closehtml]")
   objArticle.Intro=s
  End If
  objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
  objArticle.Content=Replace(objArticle.Content,vbLf,"")
  objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
  objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
' Case "ewebeditor"
'  objArticle.Content=Request.Form("txaContent")
'  If objArticle.Intro="" Then
'   s=objArticle.Content
'   If Len(s)>ZC_TB_EXCERPT_MAX Then
'    i=InStr(s,vbCrlf)
'    If i>0 Then
'     t=Split(s,vblf)
'     s=""
'     For k=LBound(t) To UBound(t)
'      s=s & t(k)
'      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
'     Next
'     s=Replace(s,vbCr,vbCrlf)
'    End If
'    s=s & ZC_MSG305
'   End If
'   s=TransferHTML(s,"[closehtml]")
'   objArticle.Intro=s
'  End If
'  objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
'  objArticle.Content=Replace(objArticle.Content,vbLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
' Case "widgeditor"
'  objArticle.Content=Request.Form("txaContent")
'  If objArticle.Intro="" Then
'   s=objArticle.Content
'   If Len(s)>ZC_TB_EXCERPT_MAX Then
'    i=InStr(s,vbCrlf)
'    If i>0 Then
'     t=Split(s,vblf)
'     s=""
'     For k=LBound(t) To UBound(t)
'      s=s & t(k)
'      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
'     Next
'     s=Replace(s,vbCr,vbCrlf)
'    End If
'    s=s & ZC_MSG305
'   End If
'   s=TransferHTML(s,"[closehtml]")
'   objArticle.Intro=s
'  End If
'  objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
'  objArticle.Content=Replace(objArticle.Content,vbLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
'  objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
' Case Else
'  objArticle.Content=Request.Form("txaContent")
'  If objArticle.Intro="" Then
'   s=objArticle.Content
'   If Len(s)>ZC_TB_EXCERPT_MAX Then
'    i=InStr(s,vbCrlf)
'    If i>0 Then
'     t=Split(s,vblf)
'     s=""
'     For k=LBound(t) To UBound(t)
'      s=s & t(k)
'      If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
'     Next
'     s=Replace(s,vbCr,vbCrlf)
'    End If
'    s=s & ZC_MSG305
'   End If
'   s=TransferHTML(s,"[closehtml]")
'   objArticle.Intro=s
'  End If
' End Select

 '接口
 Call Filter_Plugin_PostArticle_Core(objArticle)
 If objArticle.Post Then
  Call Filter_Plugin_PostArticle_Succeed(objArticle)
  Call ScanTagCount(strTag)
  Call ScanTagCount(objArticle.Tag)
  Call BuildArticle(objArticle.ID,True,True)
  zzPostArticle=True
 End If

 Set objArticle=Nothing

End Function
'*********************************************************


Function ArticlePst

 'plugin node
 For Each sAction_Plugin_ArticlePst_Begin in Action_Plugin_ArticlePst_Begin
  If Not IsEmpty(sAction_Plugin_ArticlePst_Begin) Then Call Execute(sAction_Plugin_ArticlePst_Begin)
  If bAction_Plugin_ArticlePst_Begin=True Then Exit Function
 Next
' If PostArticle Then
 If zzPostArticle Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_ArticlePst_Succeed in Action_Plugin_ArticlePst_Succeed
   If Not IsEmpty(sAction_Plugin_ArticlePst_Succeed) Then Call Execute(sAction_Plugin_ArticlePst_Succeed)
   If bAction_Plugin_ArticlePst_Succeed=True Then Exit Function
  Next

  'Response.Redirect "cmd.asp?act=ArticleMng"
  Response.Write("[ok]")
 Else
  'Call ShowError(11)
  Response.Write("[err]发布失败，请检查提交的参数[/err]")
  
 End If
End Function

Function ArticleDel

 'plugin node
 For Each sAction_Plugin_ArticleDel_Begin in Action_Plugin_ArticleDel_Begin
  If Not IsEmpty(sAction_Plugin_ArticleDel_Begin) Then Call Execute(sAction_Plugin_ArticleDel_Begin)
  If bAction_Plugin_ArticleDel_Begin=True Then Exit Function
 Next

 If DelArticle(Request.QueryString("id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_ArticleDel_Succeed in Action_Plugin_ArticleDel_Succeed
   If Not IsEmpty(sAction_Plugin_ArticleDel_Succeed) Then Call Execute(sAction_Plugin_ArticleDel_Succeed)
   If bAction_Plugin_ArticleDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=ArticleMng"
 Else
  Call ShowError(11)
 End If
End Function


Function CategoryMng

 'plugin node
 For Each sAction_Plugin_CategoryMng_Begin in Action_Plugin_CategoryMng_Begin
  If Not IsEmpty(sAction_Plugin_CategoryMng_Begin) Then Call Execute(sAction_Plugin_CategoryMng_Begin)
  If bAction_Plugin_CategoryMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=CategoryMng&page=" & Request.QueryString("id")
End Function

Function CategoryEdt

 'plugin node
 For Each sAction_Plugin_CategoryEdt_Begin in Action_Plugin_CategoryEdt_Begin
  If Not IsEmpty(sAction_Plugin_CategoryEdt_Begin) Then Call Execute(sAction_Plugin_CategoryEdt_Begin)
  If bAction_Plugin_CategoryEdt_Begin=True Then Exit Function
 Next

 If IsEmpty(Request.QueryString("id"))=False Then
  Response.Redirect "admin/edit_catalog.asp?id=" & Request.QueryString("id")
 Else
  Response.Redirect "admin/edit_catalog.asp"
 End If
End Function

Function CategoryPst

 'plugin node
 For Each sAction_Plugin_CategoryPst_Begin in Action_Plugin_CategoryPst_Begin
  If Not IsEmpty(sAction_Plugin_CategoryPst_Begin) Then Call Execute(sAction_Plugin_CategoryPst_Begin)
  If bAction_Plugin_CategoryPst_Begin=True Then Exit Function
 Next

 If PostCategory Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_CategoryPst_Succeed in Action_Plugin_CategoryPst_Succeed
   If Not IsEmpty(sAction_Plugin_CategoryPst_Succeed) Then Call Execute(sAction_Plugin_CategoryPst_Succeed)
   If bAction_Plugin_CategoryPst_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=CategoryMng"
 Else
  Call ShowError(12)
 End If
End Function

Function CategoryDel

 'plugin node
 For Each sAction_Plugin_CategoryDel_Begin in Action_Plugin_CategoryDel_Begin
  If Not IsEmpty(sAction_Plugin_CategoryDel_Begin) Then Call Execute(sAction_Plugin_CategoryDel_Begin)
  If bAction_Plugin_CategoryDel_Begin=True Then Exit Function
 Next

 If DelCategory(Request.QueryString("id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_CategoryDel_Succeed in Action_Plugin_CategoryDel_Succeed
   If Not IsEmpty(sAction_Plugin_CategoryDel_Succeed) Then Call Execute(sAction_Plugin_CategoryDel_Succeed)
   If bAction_Plugin_CategoryDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=CategoryMng"
 Else
  Call ShowError(12)
 End If
End Function


Function CommentMng

 'plugin node
 For Each sAction_Plugin_CommentMng_Begin in Action_Plugin_CommentMng_Begin
  If Not IsEmpty(sAction_Plugin_CommentMng_Begin) Then Call Execute(sAction_Plugin_CommentMng_Begin)
  If bAction_Plugin_CommentMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=CommentMng&page=" & Request.QueryString("id")
End Function

Function CommentPost

 'plugin node
 For Each sAction_Plugin_CommentPost_Begin in Action_Plugin_CommentPost_Begin
  If Not IsEmpty(sAction_Plugin_CommentPost_Begin) Then Call Execute(sAction_Plugin_CommentPost_Begin)
  If bAction_Plugin_CommentPost_Begin=True Then Exit Function
 Next

 If PostComment(Request.QueryString("key")) Then

  Call ClearGlobeCache
  Call LoadGlobeCache

  'plugin node
  For Each sAction_Plugin_CommentPost_Succeed in Action_Plugin_CommentPost_Succeed
   If Not IsEmpty(sAction_Plugin_CommentPost_Succeed) Then Call Execute(sAction_Plugin_CommentPost_Succeed)
   If bAction_Plugin_CommentPost_Succeed=True Then Exit Function
  Next

  If IsEmpty(Request.Form("inpAjax"))=False Then
   Response.End
  End If

  Response.Redirect Request.Form("inpLocation")

 Else
  Call ShowError(14)
 End If

End Function

Function CommentDel

 'plugin node
 For Each sAction_Plugin_CommentDel_Begin in Action_Plugin_CommentDel_Begin
  If Not IsEmpty(sAction_Plugin_CommentDel_Begin) Then Call Execute(sAction_Plugin_CommentDel_Begin)
  If bAction_Plugin_CommentDel_Begin=True Then Exit Function
 Next

 If DelComment(Request.QueryString("id"),Request.QueryString("log_id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_CommentDel_Succeed in Action_Plugin_CommentDel_Succeed
   If Not IsEmpty(sAction_Plugin_CommentDel_Succeed) Then Call Execute(sAction_Plugin_CommentDel_Succeed)
   If bAction_Plugin_CommentDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=CommentMng"
 Else
  Call ShowError(18)
 End If
End Function

Function CommentRev

 'plugin node
 For Each sAction_Plugin_CommentRev_Begin in Action_Plugin_CommentRev_Begin
  If Not IsEmpty(sAction_Plugin_CommentRev_Begin) Then Call Execute(sAction_Plugin_CommentRev_Begin)
  If bAction_Plugin_CommentRev_Begin=True Then Exit Function
 Next

 If RevertComment(Request.QueryString("key"),Request.QueryString("id")) Then

  Call ClearGlobeCache
  Call LoadGlobeCache

  'plugin node
  For Each sAction_Plugin_CommentRev_Succeed in Action_Plugin_CommentRev_Succeed
   If Not IsEmpty(sAction_Plugin_CommentRev_Succeed) Then Call Execute(sAction_Plugin_CommentRev_Succeed)
   If bAction_Plugin_CommentRev_Succeed=True Then Exit Function
  Next

  If IsEmpty(Request.Form("inpAjax"))=False Then
   Response.End
  End If

  Response.Redirect Request.Form("inpLocation")
 Else
  Call ShowError(14)
 End If
End Function


Function CommentEdt

 'plugin node
 For Each sAction_Plugin_CommentEdt_Begin in Action_Plugin_CommentEdt_Begin
  If Not IsEmpty(sAction_Plugin_CommentEdt_Begin) Then Call Execute(sAction_Plugin_CommentEdt_Begin)
  If bAction_Plugin_CommentEdt_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/edit_comment.asp?id="& Request.QueryString("id") & "&log_id="& Request.QueryString("log_id") 

End Function


Function CommentSav

 'plugin node
 For Each sAction_Plugin_CommentSav_Begin in Action_Plugin_CommentSav_Begin
  If Not IsEmpty(sAction_Plugin_CommentSav_Begin) Then Call Execute(sAction_Plugin_CommentSav_Begin)
  If bAction_Plugin_CommentSav_Begin=True Then Exit Function
 Next

 If SaveComment(Request.Form("edtID"),Request.Form("inpID")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_CommentSav_Succeed in Action_Plugin_CommentSav_Succeed
   If Not IsEmpty(sAction_Plugin_CommentSav_Succeed) Then Call Execute(sAction_Plugin_CommentSav_Succeed)
   If bAction_Plugin_CommentSav_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=CommentMng"
 Else
  Call ShowError(42)
 End If

End Function


Function TrackBackMng

 'plugin node
 For Each sAction_Plugin_TrackBackMng_Begin in Action_Plugin_TrackBackMng_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackMng_Begin) Then Call Execute(sAction_Plugin_TrackBackMng_Begin)
  If bAction_Plugin_TrackBackMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=TrackBackMng&page=" & Request.QueryString("id")
End Function

Function TrackBackPost

 'plugin node
 For Each sAction_Plugin_TrackBackPost_Begin in Action_Plugin_TrackBackPost_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackPost_Begin) Then Call Execute(sAction_Plugin_TrackBackPost_Begin)
  If bAction_Plugin_TrackBackPost_Begin=True Then Exit Function
 Next

 If PostTrackBack(Request.QueryString("id"),Request.QueryString("key"))=True Then 
  'plugin node
  For Each sAction_Plugin_TrackBackPost_Succeed in Action_Plugin_TrackBackPost_Succeed
   If Not IsEmpty(sAction_Plugin_TrackBackPost_Succeed) Then Call Execute(sAction_Plugin_TrackBackPost_Succeed)
   If bAction_Plugin_TrackBackPost_Succeed=True Then Exit Function
  Next
 End If

End Function

Function TrackBackDel

 'plugin node
 For Each sAction_Plugin_TrackBackDel_Begin in Action_Plugin_TrackBackDel_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackDel_Begin) Then Call Execute(sAction_Plugin_TrackBackDel_Begin)
  If bAction_Plugin_TrackBackDel_Begin=True Then Exit Function
 Next

 If DelTrackBack(Request.QueryString("id"),Request.QueryString("log_id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_TrackBackDel_Succeed in Action_Plugin_TrackBackDel_Succeed
   If Not IsEmpty(sAction_Plugin_TrackBackDel_Succeed) Then Call Execute(sAction_Plugin_TrackBackDel_Succeed)
   If bAction_Plugin_TrackBackDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=TrackBackMng"
 Else
  Call ShowError(19)
 End If
End Function

Function TrackBackSnd

 'plugin node
 For Each sAction_Plugin_TrackBackSnd_Begin in Action_Plugin_TrackBackSnd_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackSnd_Begin) Then Call Execute(sAction_Plugin_TrackBackSnd_Begin)
  If bAction_Plugin_TrackBackSnd_Begin=True Then Exit Function
 Next

 If SendTrackBack() Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_TrackBackSnd_Succeed in Action_Plugin_TrackBackSnd_Succeed
   If Not IsEmpty(sAction_Plugin_TrackBackSnd_Succeed) Then Call Execute(sAction_Plugin_TrackBackSnd_Succeed)
   If bAction_Plugin_TrackBackSnd_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=ArticleMng"
 Else
  Call ShowError(20)
 End If
End Function


Function UserMng()

 'plugin node
 For Each sAction_Plugin_UserMng_Begin in Action_Plugin_UserMng_Begin
  If Not IsEmpty(sAction_Plugin_UserMng_Begin) Then Call Execute(sAction_Plugin_UserMng_Begin)
  If bAction_Plugin_UserMng_Begin=True Then Exit Function
 Next
 Call SetBlogHint_Custom(ZC_MSG315)
 Response.Redirect "admin/admin.asp?act=UserMng&page=" & Request.QueryString("id")
End Function

Function UserCrt()

 'plugin node
 For Each sAction_Plugin_UserCrt_Begin in Action_Plugin_UserCrt_Begin
  If Not IsEmpty(sAction_Plugin_UserCrt_Begin) Then Call Execute(sAction_Plugin_UserCrt_Begin)
  If bAction_Plugin_UserCrt_Begin=True Then Exit Function
 Next

 If EditUser Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_UserCrt_Succeed in Action_Plugin_UserCrt_Succeed
   If Not IsEmpty(sAction_Plugin_UserCrt_Succeed) Then Call Execute(sAction_Plugin_UserCrt_Succeed)
   If bAction_Plugin_UserCrt_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=UserMng"
 Else
  Call ShowError(16)
 End If
End Function

Function UserEdt()

 'plugin node
 For Each sAction_Plugin_UserEdt_Begin in Action_Plugin_UserEdt_Begin
  If Not IsEmpty(sAction_Plugin_UserEdt_Begin) Then Call Execute(sAction_Plugin_UserEdt_Begin)
  If bAction_Plugin_UserEdt_Begin=True Then Exit Function
 Next

 If EditUser Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_UserEdt_Succeed in Action_Plugin_UserEdt_Succeed
   If Not IsEmpty(sAction_Plugin_UserEdt_Succeed) Then Call Execute(sAction_Plugin_UserEdt_Succeed)
   If bAction_Plugin_UserEdt_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=UserMng"
 Else
  Call ShowError(16)
 End If
End Function

Function UserDel()

 'plugin node
 For Each sAction_Plugin_UserDel_Begin in Action_Plugin_UserDel_Begin
  If Not IsEmpty(sAction_Plugin_UserDel_Begin) Then Call Execute(sAction_Plugin_UserDel_Begin)
  If bAction_Plugin_UserDel_Begin=True Then Exit Function
 Next

 If DelUser(Request.QueryString("id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_UserDel_Succeed in Action_Plugin_UserDel_Succeed
   If Not IsEmpty(sAction_Plugin_UserDel_Succeed) Then Call Execute(sAction_Plugin_UserDel_Succeed)
   If bAction_Plugin_UserDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=UserMng"
 Else
  Call ShowError(17)
 End If
End Function


Function FileMng()

 'plugin node
 For Each sAction_Plugin_FileMng_Begin in Action_Plugin_FileMng_Begin
  If Not IsEmpty(sAction_Plugin_FileMng_Begin) Then Call Execute(sAction_Plugin_FileMng_Begin)
  If bAction_Plugin_FileMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
End Function

Function FileSnd()

 'plugin node
 For Each sAction_Plugin_FileSnd_Begin in Action_Plugin_FileSnd_Begin
  If Not IsEmpty(sAction_Plugin_FileSnd_Begin) Then Call Execute(sAction_Plugin_FileSnd_Begin)
  If bAction_Plugin_FileSnd_Begin=True Then Exit Function
 Next

 Call SendFile()
End Function

Function FileUpload()

 'plugin node
 For Each sAction_Plugin_FileUpload_Begin in Action_Plugin_FileUpload_Begin
  If Not IsEmpty(sAction_Plugin_FileUpload_Begin) Then Call Execute(sAction_Plugin_FileUpload_Begin)
  If bAction_Plugin_FileUpload_Begin=True Then Exit Function
 Next

 Server.ScriptTimeout = 1200
 If UploadFile(CBool(Request.QueryString("autoname")),CBool(Request.QueryString("reload"))) Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_FileUpload_Succeed in Action_Plugin_FileUpload_Succeed
   If Not IsEmpty(sAction_Plugin_FileUpload_Succeed) Then Call Execute(sAction_Plugin_FileUpload_Succeed)
   If bAction_Plugin_FileUpload_Succeed=True Then Exit Function
  Next

  If CBool(Request.QueryString("reload"))=True Then
   Response.End
  End If

  Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
 Else
  Call ShowError(21)
 End If
End Function

Function FileDel()

 'plugin node
 For Each sAction_Plugin_FileDel_Begin in Action_Plugin_FileDel_Begin
  If Not IsEmpty(sAction_Plugin_FileDel_Begin) Then Call Execute(sAction_Plugin_FileDel_Begin)
  If bAction_Plugin_FileDel_Begin=True Then Exit Function
 Next

 If DelFile(Request.QueryString("id")) Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_FileDel_Succeed in Action_Plugin_FileDel_Succeed
   If Not IsEmpty(sAction_Plugin_FileDel_Succeed) Then Call Execute(sAction_Plugin_FileDel_Succeed)
   If bAction_Plugin_FileDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=FileMng"
 Else
  Call ShowError(22)
 End If
End Function


Function Search()

 'plugin node
 For Each sAction_Plugin_Search_Begin in Action_Plugin_Search_Begin
  If Not IsEmpty(sAction_Plugin_Search_Begin) Then Call Execute(sAction_Plugin_Search_Begin)
  If bAction_Plugin_Search_Begin=True Then Exit Function
 Next

 RedirectBy301(ZC_BLOG_HOST & "search.asp?q=" & Server.URLEncode(Request.Form("edtSearch")))
End Function

Function SettingMng()

 'plugin node
 For Each sAction_Plugin_SettingMng_Begin in Action_Plugin_SettingMng_Begin
  If Not IsEmpty(sAction_Plugin_SettingMng_Begin) Then Call Execute(sAction_Plugin_SettingMng_Begin)
  If bAction_Plugin_SettingMng_Begin=True Then Exit Function
 Next

 If Not IsEmpty(Request.QueryString("ok")) Then
  Call SetBlogHint(True,Empty,Empty)
  'Call MakeBlogReBuild_Core()
 End If

 Response.Redirect "admin/edit_setting.asp"
End Function

Function SettingSav()

 'plugin node
 For Each sAction_Plugin_SettingSav_Begin in Action_Plugin_SettingSav_Begin
  If Not IsEmpty(sAction_Plugin_SettingSav_Begin) Then Call Execute(sAction_Plugin_SettingSav_Begin)
  If bAction_Plugin_SettingSav_Begin=True Then Exit Function
 Next

 If SaveSetting Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_SettingSav_Succeed in Action_Plugin_SettingSav_Succeed
   If Not IsEmpty(sAction_Plugin_SettingSav_Succeed) Then Call Execute(sAction_Plugin_SettingSav_Succeed)
   If bAction_Plugin_SettingSav_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=SettingMng&ok"
 Else
  Call ShowError(25)
 End If
End Function

Function TagMng()

 'plugin node
 For Each sAction_Plugin_TagMng_Begin in Action_Plugin_TagMng_Begin
  If Not IsEmpty(sAction_Plugin_TagMng_Begin) Then Call Execute(sAction_Plugin_TagMng_Begin)
  If bAction_Plugin_TagMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=TagMng&page=" & Request.QueryString("id")
End Function

Function TagEdt()

 'plugin node
 For Each sAction_Plugin_TagEdt_Begin in Action_Plugin_TagEdt_Begin
  If Not IsEmpty(sAction_Plugin_TagEdt_Begin) Then Call Execute(sAction_Plugin_TagEdt_Begin)
  If bAction_Plugin_TagEdt_Begin=True Then Exit Function
 Next

 If IsEmpty(Request.QueryString("id"))=False Then
  Response.Redirect "admin/edit_tag.asp?id=" & Request.QueryString("id")
 Else
  Response.Redirect "admin/edit_tag.asp"
 End If
End Function

Function TagPst()

 'plugin node
 For Each sAction_Plugin_TagPst_Begin in Action_Plugin_TagPst_Begin
  If Not IsEmpty(sAction_Plugin_TagPst_Begin) Then Call Execute(sAction_Plugin_TagPst_Begin)
  If bAction_Plugin_TagPst_Begin=True Then Exit Function
 Next

 If PostTag Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_TagPst_Succeed in Action_Plugin_TagPst_Succeed
   If Not IsEmpty(sAction_Plugin_TagPst_Succeed) Then Call Execute(sAction_Plugin_TagPst_Succeed)
   If bAction_Plugin_TagPst_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=TagMng"
 Else
  Call ShowError(35)
 End If
End Function

Function TagDel()

 'plugin node
 For Each sAction_Plugin_TagDel_Begin in Action_Plugin_TagDel_Begin
  If Not IsEmpty(sAction_Plugin_TagDel_Begin) Then Call Execute(sAction_Plugin_TagDel_Begin)
  If bAction_Plugin_TagDel_Begin=True Then Exit Function
 Next

 If DelTag(Request.QueryString("id")) Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_TagDel_Succeed in Action_Plugin_TagDel_Succeed
   If Not IsEmpty(sAction_Plugin_TagDel_Succeed) Then Call Execute(sAction_Plugin_TagDel_Succeed)
   If bAction_Plugin_TagDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=TagMng"
 Else
  Call ShowError(36)
 End If
End Function


Function BlogReBuild()

 'plugin node
 For Each sAction_Plugin_BlogReBuild_Begin in Action_Plugin_BlogReBuild_Begin
  If Not IsEmpty(sAction_Plugin_BlogReBuild_Begin) Then Call Execute(sAction_Plugin_BlogReBuild_Begin)
  If bAction_Plugin_BlogReBuild_Begin=True Then Exit Function
 Next

 Server.ScriptTimeout = 1200

 If MakeBlogReBuild Then
  Call ClearGlobeCache
  Call LoadGlobeCache

  'plugin node
  For Each sAction_Plugin_BlogReBuild_Succeed in Action_Plugin_BlogReBuild_Succeed
   If Not IsEmpty(sAction_Plugin_BlogReBuild_Succeed) Then Call Execute(sAction_Plugin_BlogReBuild_Succeed)
   If bAction_Plugin_BlogReBuild_Succeed=True Then Exit Function
  Next

 Else
  Call ShowError(23)
 End If
End Function

Function DirectoryReBuild

 'plugin node
 For Each sAction_Plugin_DirectoryReBuild_Begin in Action_Plugin_DirectoryReBuild_Begin
  If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Begin) Then Call Execute(sAction_Plugin_DirectoryReBuild_Begin)
  If bAction_Plugin_DirectoryReBuild_Begin=True Then Exit Function
 Next

 Server.ScriptTimeout = 1200


 If MakeDirectoryReBuild Then
  Call ClearGlobeCache
  Call LoadGlobeCache

  'plugin node
  For Each sAction_Plugin_DirectoryReBuild_Succeed in Action_Plugin_DirectoryReBuild_Succeed
   If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Succeed) Then Call Execute(sAction_Plugin_DirectoryReBuild_Succeed)
   If bAction_Plugin_DirectoryReBuild_Succeed=True Then Exit Function
  Next

 Else
  Call ShowError(23)
 End If

 Response.Redirect "admin/admin.asp?act=AskFileReBuild"
End Function

Function FileReBuild()

 'plugin node
 For Each sAction_Plugin_FileReBuild_Begin in Action_Plugin_FileReBuild_Begin
  If Not IsEmpty(sAction_Plugin_FileReBuild_Begin) Then Call Execute(sAction_Plugin_FileReBuild_Begin)
  If bAction_Plugin_FileReBuild_Begin=True Then Exit Function
 Next

 Server.ScriptTimeout = 1200

 If  MakeFileReBuild()=True Then

  'plugin node
  For Each sAction_Plugin_FileReBuild_Succeed in Action_Plugin_FileReBuild_Succeed
   If Not IsEmpty(sAction_Plugin_FileReBuild_Succeed) Then Call Execute(sAction_Plugin_FileReBuild_Succeed)
   If bAction_Plugin_FileReBuild_Succeed=True Then Exit Function
  Next

 End If

End Function


Function SiteInfo()

 'plugin node
 For Each sAction_Plugin_SiteInfo_Begin in Action_Plugin_SiteInfo_Begin
  If Not IsEmpty(sAction_Plugin_SiteInfo_Begin) Then Call Execute(sAction_Plugin_SiteInfo_Begin)
  If bAction_Plugin_SiteInfo_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=SiteInfo"
End Function

Function SiteFileMng()

 'plugin node
 For Each sAction_Plugin_SiteFileMng_Begin in Action_Plugin_SiteFileMng_Begin
  If Not IsEmpty(sAction_Plugin_SiteFileMng_Begin) Then Call Execute(sAction_Plugin_SiteFileMng_Begin)
  If bAction_Plugin_SiteFileMng_Begin=True Then Exit Function
 Next

 Call SetBlogHint_Custom(ZC_MSG299)

 Response.Redirect "admin/admin.asp?act=SiteFileMng&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
End Function

Function SiteFileEdt()

 'plugin node
 For Each sAction_Plugin_SiteFileEdt_Begin in Action_Plugin_SiteFileEdt_Begin
  If Not IsEmpty(sAction_Plugin_SiteFileEdt_Begin) Then Call Execute(sAction_Plugin_SiteFileEdt_Begin)
  If bAction_Plugin_SiteFileEdt_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=SiteFileEdt&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
End Function

Function SiteFilePst()

 'plugin node
 For Each sAction_Plugin_SiteFilePst_Begin in Action_Plugin_SiteFilePst_Begin
  If Not IsEmpty(sAction_Plugin_SiteFilePst_Begin) Then Call Execute(sAction_Plugin_SiteFilePst_Begin)
  If bAction_Plugin_SiteFilePst_Begin=True Then Exit Function
 Next

 If PostSiteFile(Request.QueryString("path")) Then
  Call SetBlogHint(True,True,Empty)

  'plugin node
  For Each sAction_Plugin_SiteFilePst_Succeed in Action_Plugin_SiteFilePst_Succeed
   If Not IsEmpty(sAction_Plugin_SiteFilePst_Succeed) Then Call Execute(sAction_Plugin_SiteFilePst_Succeed)
   If bAction_Plugin_SiteFilePst_Succeed=True Then Exit Function
  Next

  Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
 End If
End Function

Function SiteFileDel()

 'plugin node
 For Each sAction_Plugin_SiteFileDel_Begin in Action_Plugin_SiteFileDel_Begin
  If Not IsEmpty(sAction_Plugin_SiteFileDel_Begin) Then Call Execute(sAction_Plugin_SiteFileDel_Begin)
  If bAction_Plugin_SiteFileDel_Begin=True Then Exit Function
 Next

 If DelSiteFile(Request.QueryString("path")) Then
  Call SetBlogHint(True,True,Empty)

  'plugin node
  For Each sAction_Plugin_SiteFileDel_Succeed in Action_Plugin_SiteFileDel_Succeed
   If Not IsEmpty(sAction_Plugin_SiteFileDel_Succeed) Then Call Execute(sAction_Plugin_SiteFileDel_Succeed)
   If bAction_Plugin_SiteFileDel_Succeed=True Then Exit Function
  Next

  Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Request.QueryString("opath")
 End If
End Function

Function AskFileReBuild()

 'plugin node
 For Each sAction_Plugin_AskFileReBuild_Begin in Action_Plugin_AskFileReBuild_Begin
  If Not IsEmpty(sAction_Plugin_AskFileReBuild_Begin) Then Call Execute(sAction_Plugin_AskFileReBuild_Begin)
  If bAction_Plugin_AskFileReBuild_Begin=True Then Exit Function
 Next

 Call ClearGlobeCache
 Call LoadGlobeCache

 'Call SetBlogHint(Empty,True,Empty)

 Response.Redirect "admin/admin.asp?act=AskFileReBuild"
End Function

Function TrackBackUrlGet()

 'plugin node
 For Each sAction_Plugin_TrackBackUrlGet_Begin in Action_Plugin_TrackBackUrlGet_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackUrlGet_Begin) Then Call Execute(sAction_Plugin_TrackBackUrlGet_Begin)
  If bAction_Plugin_TrackBackUrlGet_Begin=True Then Exit Function
 Next

 Call GetRealUrlofTrackBackUrl(Request.QueryString("id"))
End Function

Function CommentDelBatch

 'plugin node
 For Each sAction_Plugin_CommentDelBatch_Begin in Action_Plugin_CommentDelBatch_Begin
  If Not IsEmpty(sAction_Plugin_CommentDelBatch_Begin) Then Call Execute(sAction_Plugin_CommentDelBatch_Begin)
  If bAction_Plugin_CommentDelBatch_Begin=True Then Exit Function
 Next

 If DelCommentBatch() Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_CommentDelBatch_Succeed in Action_Plugin_CommentDelBatch_Succeed
   If Not IsEmpty(sAction_Plugin_CommentDelBatch_Succeed) Then Call Execute(sAction_Plugin_CommentDelBatch_Succeed)
   If bAction_Plugin_CommentDelBatch_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=CommentMng"
 End If
End Function

Function TrackBackDelBatch

 'plugin node
 For Each sAction_Plugin_TrackBackDelBatch_Begin in Action_Plugin_TrackBackDelBatch_Begin
  If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Begin) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Begin)
  If bAction_Plugin_TrackBackDelBatch_Begin=True Then Exit Function
 Next

 If DelTrackBackBatch() Then
  Call SetBlogHint(True,True,Empty)
  Call MakeBlogReBuild_Core()

  'plugin node
  For Each sAction_Plugin_TrackBackDelBatch_Succeed in Action_Plugin_TrackBackDelBatch_Succeed
   If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Succeed) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Succeed)
   If bAction_Plugin_TrackBackDelBatch_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=TrackBackMng"
 End If
End Function

Function FileDelBatch

 'plugin node
 For Each sAction_Plugin_FileDelBatch_Begin in Action_Plugin_FileDelBatch_Begin
  If Not IsEmpty(sAction_Plugin_FileDelBatch_Begin) Then Call Execute(sAction_Plugin_FileDelBatch_Begin)
  If bAction_Plugin_FileDelBatch_Begin=True Then Exit Function
 Next

 If DelFileBatch() Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_FileDelBatch_Succeed in Action_Plugin_FileDelBatch_Succeed
   If Not IsEmpty(sAction_Plugin_FileDelBatch_Succeed) Then Call Execute(sAction_Plugin_FileDelBatch_Succeed)
   If bAction_Plugin_FileDelBatch_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=FileMng"
 End If
End Function


Function ThemesMng()

 'plugin node
 For Each sAction_Plugin_ThemesMng_Begin in Action_Plugin_ThemesMng_Begin
  If Not IsEmpty(sAction_Plugin_ThemesMng_Begin) Then Call Execute(sAction_Plugin_ThemesMng_Begin)
  If bAction_Plugin_ThemesMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
End Function


Function ThemesSav()

 'plugin node
 For Each sAction_Plugin_ThemesSav_Begin in Action_Plugin_ThemesSav_Begin
  If Not IsEmpty(sAction_Plugin_ThemesSav_Begin) Then Call Execute(sAction_Plugin_ThemesSav_Begin)
  If bAction_Plugin_ThemesSav_Begin=True Then Exit Function
 Next

 If SaveThemes Then
  Call SetBlogHint(True,True,Empty)

  'plugin node
  For Each sAction_Plugin_ThemesSav_Succeed in Action_Plugin_ThemesSav_Succeed
   If Not IsEmpty(sAction_Plugin_ThemesSav_Succeed) Then Call Execute(sAction_Plugin_ThemesSav_Succeed)
   If bAction_Plugin_ThemesSav_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.Form("edtZC_BLOG_THEME"))
 Else
  Call ShowError(25)
 End If

End Function



Function LinkMng()

 'plugin node
 For Each sAction_Plugin_LinkMng_Begin in Action_Plugin_LinkMng_Begin
  If Not IsEmpty(sAction_Plugin_LinkMng_Begin) Then Call Execute(sAction_Plugin_LinkMng_Begin)
  If bAction_Plugin_LinkMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/edit_link.asp"
End Function


Function LinkSav()

 'plugin node
 For Each sAction_Plugin_LinkSav_Begin in Action_Plugin_LinkSav_Begin
  If Not IsEmpty(sAction_Plugin_LinkSav_Begin) Then Call Execute(sAction_Plugin_LinkSav_Begin)
  If bAction_Plugin_LinkSav_Begin=True Then Exit Function
 Next

 If SaveLink Then
  Call SetBlogHint(True,Empty,Empty)

  'plugin node
  For Each sAction_Plugin_LinkSav_Succeed in Action_Plugin_LinkSav_Succeed
   If Not IsEmpty(sAction_Plugin_LinkSav_Succeed) Then Call Execute(sAction_Plugin_LinkSav_Succeed)
   If bAction_Plugin_LinkSav_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=LinkMng"
 Else
  Call ShowError(25)
 End If
End Function


Function PlugInMng()

 'plugin node
 For Each sAction_Plugin_PlugInMng_Begin in Action_Plugin_PlugInMng_Begin
  If Not IsEmpty(sAction_Plugin_PlugInMng_Begin) Then Call Execute(sAction_Plugin_PlugInMng_Begin)
  If bAction_Plugin_PlugInMng_Begin=True Then Exit Function
 Next

 Response.Redirect "admin/admin.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
End Function


Function PlugInActive()

 'plugin node
 For Each sAction_Plugin_PlugInActive_Begin in Action_Plugin_PlugInActive_Begin
  If Not IsEmpty(sAction_Plugin_PlugInActive_Begin) Then Call Execute(sAction_Plugin_PlugInActive_Begin)
  If bAction_Plugin_PlugInActive_Begin=True Then Exit Function
 Next

 If ActivePlugInByName(Request.QueryString("name"))=True Then

  'plugin node
  For Each sAction_Plugin_PlugInActive_Succeed in Action_Plugin_PlugInActive_Succeed
   If Not IsEmpty(sAction_Plugin_PlugInActive_Succeed) Then Call Execute(sAction_Plugin_PlugInActive_Succeed)
   If bAction_Plugin_PlugInActive_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("name"))

 End If

End Function


Function PlugInDisable()

 'plugin node
 For Each sAction_Plugin_PlugInDisable_Begin in Action_Plugin_PlugInDisable_Begin
  If Not IsEmpty(sAction_Plugin_PlugInDisable_Begin) Then Call Execute(sAction_Plugin_PlugInDisable_Begin)
  If bAction_Plugin_PlugInDisable_Begin=True Then Exit Function
 Next

 If DisablePlugInByName(Request.QueryString("name"))=True Then

  'plugin node
  For Each sAction_Plugin_PlugInDisable_Succeed in Action_Plugin_PlugInDisable_Succeed
   If Not IsEmpty(sAction_Plugin_PlugInDisable_Succeed) Then Call Execute(sAction_Plugin_PlugInDisable_Succeed)
   If bAction_Plugin_PlugInDisable_Succeed=True Then Exit Function
  Next

  Response.Redirect "cmd.asp?act=PlugInMng"
 End If
End Function


'plugin node
For Each sAction_Plugin_Command_End in Action_Plugin_Command_End
 If Not IsEmpty(sAction_Plugin_Command_End) Then Call Execute(sAction_Plugin_Command_End)
Next

Call System_Terminate()

If Err.Number<>0 then
 Call ShowError(0)
End If
%>