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