<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'//              Z-Blog
'// 作    者:    朱煊(zx.asd)
'// 版权所有:    RainbowSoft Studio
'// 技术支持:    rainbowsoft@163.com
'// 程序名称:    
'// 程序版本:    
'// 单元名称:    cmd.asp
'// 开始时间:    2004.07.27
'// 最后修改:    
'// 备    注:    命令执行&跳转页
'///////////////////////////////////////////////////////////////////////////////
%>
<% 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")

'如果不是"接收引用"就要检查非法链接
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

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
		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"
	Else
		Call ShowError(11)
	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
%>