++֎֜9֐467B++ʔ+66œ66DC2ڦ61D4009֨8ʪA1C4A2Bܨ֤22ʔCҨ+D/D81잨4C0+0ΰ925Ҵ̮覞0C551ĨB0B莞1/797КA7+6+04ި12B9/1ܪ170̪C9/A17̬DΌ0а47Bش7C¦3+51ޘ110̨++1Τ44D6B/3Ҳ3/273ABD983Ԋ+76CD/34Ǝʬ2AC1188Ȣ5ȦD/+/235Ꜫ6Ė0193BԪĘA2ମآCޒ6ư29Bڒ1C4®675윜ؐ720Ԝ줜ȐB99D52ԌC²¤6B3ACΔ֪°13A0Р306/D40+ܪ646쐜ڠ/Ҳδʌ293398ڞ2+䌢ؐ˜ܮ+ꪒ369КD+δ1莘2A+Ҏ519/3찰3ªԮ2+9C1CИ5+Ԯ582D̮//̔DA8A1/D쨒1ƚ/767/+29B81ڦޠȠؔ6Ɛ+Aʢ01872669C3ܨBB61ҴDЊ6D48959И7/¨A7C8+6B+0ܒ+31AԢ7D/2Dڊ2ƚ522Ȯ4Ș+ʚꌔB/8904ִ/731ڰA2BCܖšȌBC6D֜D591+6쒐Ԗ/571˜D7ܒC261CCA9МB652޲䐲7DҘ873Ԛ̔5+78Ҳ+56Μ4084Ȕ8ઘDCҤ2/ΠB࢚ܲ2018ƴ12711֪C9591528BCژ4684攖IJ9/716ڔ2B掜//4ʖD7AȘ6𬐒4Ȗ7D+̒ԚšĴ3/5ҜĤ2֪B14B斪4B792̎2Қ+22+ؚش568B6DDڰ5̐7BʔABŠذ6Д4923B1/DƐCCܘ2678514+ʬ6AŽ̲޲4+B+9C+ޔ4➪1̎80𜪬70C//4D366525Ȭ6/32/38ؔ0+ޞʤ̪ތ覊A151+⚰9+D/44ADD抴000ЖȲ676ʤ004+36BB13070++4̔+CC䌤ƞ4자ª򐊜BԐBĊސ␲؜DĤCܲʤ83B3Ԝ/2ҎC+5ܢ94آDC3زȞԔԘ2D谜5ؖœؔ8쎜359ڠҎB3ܤ˜̤56/2B+3Ď0+2/⦊8B22Ș6320C0֚A4D4990Ҩ1쌪芊A9769C0Ʋ7D9Dܰ/539B7+5A485̚BΘ2昐A3ƎҲڰ4/Ɛ/0Ԯ+Aڴ4549331ʦ67ʴԜ209򴤨5؞85ޜ7D֜91C଎𔤌C39ؐB581AаDC00԰48599510555ؘDĬ00،8ʌԬB1AA4బ+Ȱژ63C򌊖02+D/4DB4ʠ2ޒА95Ƙ5447ؒAC18+Ҳ9¨Ԩ2+B/D982750Ʋ0/2911ȦΐҐ4CDC1A09΢ذB71ܢD35+2ƚ/+9D3A⦠Ϊ8C9̖5C6Аؤ/Aޒ39B0DB76Ǝ5䬞67ܐAAԮA6/67ƨ589д5𜎘0D45쪐ऎ0CԨ45//،Ď2Ш9´33+0莰3ز榰84Dڔ֪33+A6B0DʖD9ڰDD5ȢC76ꪠC3ମ4127A¢/4+ڐְ30574DA6C/+0B2ҒŽ6ܖ8茎9C269/B4C8C򲪨57875B+AČƔ/М7ʦ1Č+/78D61ȜCC8Ɯ1D2Cڞذ9D156Ԕʎ9CB5Ғ¬B29Cʢ3Ĥ18ު1A4蚲84/ؘƪҘC866̴2+ئܬD809+ЌҴ̴14ܲ87362ԮB+86ڌ724搴4DA036Aʌ̲CAزЦȨČ6¬Ζ//97Œ0D06355/9䜪9D01B/1𪬜3459̎+0//5Ξ685+2DB15943/ؠ44+728263AƚD0βꞞ3ܪ1B֠3BҬ9B5+0/D9¦6ΞB4C+61B08618D⬐726Ɛ4+6ڲD13ܠ+2ڎ+/34A7ްԎФ3Ξ+ؘD֖ИB򬦠®3D1+1Bƚ7܊3ȦؚADB2✢9򲚤84Ί165929̔BB4/Җ327900DȮC6DB6Bآ5˜Aच7025519֦2¢950B5Ԟ0C7715/29C9A0Ҩ+874A1֘3C/ި5Вܖƴ6/BĨ꘴ܒA9+0/֤ڲDꨖ9387Β6Ȝܴڴ18/Ҭ3407C271452֞֞33ʲҦ+/93Ĝ̞Ƙ/25+C¬7ʔD8ΌФ7ު0B33D6411ش0ڨ0+7֞Ԥ63857/B8D71Ƥ6B02502433¦ʬC301Қ82Ԓ78B33795D3C24B6/ƴ/9BA3BCDޠ342ްAD2913BDʎ6A928B19D5+22ΎDޠ3D73C1̴欌6A8+90+35ʦ28/57 5D+В/68C49ԊМȎ+350CD+ʞA1BB7¢ʎ74252žBڦ֊D9C48Bʔަ𒲘20Π/857/ΰ3BРDȜC5쎎’95Cު1謌2/A59AҜ18ªDB3ʬ+275Ҝ26/B4ڜ2Ζ64Ī67742DƎԊ/8B743جC970+66ԞȘ檐DA25ЌΜ89̤К7+ތ/03ް4Ƙ1ޤ09D907ADA7/A84/2338ܤIJ83CD57ܢ8B/554ҊC362/ΔAಒ̪CAƪȐ01܊10Ҝ864466+2Ɗ9Ȝ޴0+044И16/+2B4D/7+7A57Βؤ9ڨ//֢6B+5’5B51+9ȒCA12Ԕ4Ԩ9蒚86B/149Cؤ934ؘޤB̬CšŽΖ+̮ҘD891+D2029A8/5/ꪪ2CȦ80+D+97B121//4D6/66آ̒7Ԭ4ĬƦ6+A7D24B8ܔΒ887Β39/ڌ0++0A+740214®֚9C64֐Κ3074/6DCDЊ/B5ꢒ95/䪠22+ʢBЬ27Φ/7榨8֜AȮĠ24ΪԞҰD8²䚊/779B77/Ș48ΨҤ0Τ221C5AЖ+Ɛج5®6+/̠֊̴BĞDAD87+撢/6Ē/66530ʚ9D1Cꮮ6/ڔ/0ԖD08ʌ֒31ؘȖ֘4򔘲œCD+/Ҫ⌦ʠ53ΐҰƚ+A+Ҡ5氎/تƖ6CAABCꞦ3BD/B9652C052+D8+A3011+8Ĥ72֌ޢC+Ɩ2Dܮ26/D37ތD107ʖ2AښD06ƦʎD֪Ɛ8D”B2680ĔA0D8ڴA1Dƴ20Ҏ1//В96Aޠ+Ҕ36в0ЊA79ب/Ȋ72CC46ȴ/֜CBز56ʎ066Ԏ9+7Ȗ/548B/֬555B831/1ڔƖBD6+0508A9Դ/+8B8CAҴ72139ޘ7D7692Ҫ3Θ6345씮ʚ291Aܠڴ̔5D1Ɛ/4DA562쪖ڌDΊ541A0BB1ؒC2򨊪ެ489B3D̜/0C3C5Ζ/Dڐ/ަC5/2Ԩ/D7A227ؘ6CC¤820+Д8/ԬҮ129ژ37D/353/DȒ+6̨莨91657Ɯ1238D1AA12ʊC+䒮7/CDBD԰ʜЪ/̦ҐҚ39/++CΚ/ޮ1Ԕ8ԐޔȤв8ڦAB69C+ʪ1/DެBCȜ2C9/ؖ+ܨԖʒВ꜠887Č025ܪA6A+C଴8Ш֦4⌨C5/ް77ʦAAĖ90ؖBA֤C3A6Ǝ 3ڒʪ+517/6̊04/+/6Ȝ025İ27Ԝʴ97918A45B+7/9𬢮+85/֞9܎̤9Ш0؎67Aؒ/7ʪ77ޖ1D3¢B0洞ܖ2ĔCЪCƠښ̨8ĬҲ195܌Ң9+Ί12ƜAŽ/39C+Ҍܤ0DCD7ތ41D/֬5/ȒB3269ΦܬؚC7/̢ތΠȘؠގޞ7/CҢؘ̮8ΎB15+ش4+Ү5¤3ꊊ7+C5/IJ/4CܔC83آA1Ԭ9+2ڦҘ63ڤ81ޖҐA07ʒ24C5ު75訴4؜CA2֌8CĪ90Ҟ6/8C0ЊCĒ֦莊ΤAC89C5Ơ֔A4/91C91DDޮά59/B9+49263544ҨCžĴ40C2B4дΚ03ʬܚ֌+蒖4ڤA8866Ȫ586177ȴAŠ9768+򌢲CA̴ʎA3Ԑޞ6ЎDD촬4D33Ċ47Ȕ50604A֞1CDDDԮC2ԦB4خΰ27B2Җ֌B7ԐĖ+2ΨD18CC֞1381žB//2D貤3ƮƎ5Ԛ3BƦ9Ғ22+D2ƘAʤAAB7A49AШʒ7A´B9C9CB9+ĚԎޘ2ά8خD9ΠADج588¬A1ĮԴ5Ơ6¤9ސ374+A3ЎBBB70+4869D7C4A3+֊/ȞB9C700ʊΜ⨞ଠC袤8̘5ڐĐ7ʐ53֌ĨCв53ΪƪCD77D7445؜7A31AAB262A4О128Aܜ8C2Cގ2ƢҦҚ8ҨڢCԎ4ސԢ97+Φ5Ȋ7ƌ8C+ಘD/Cޘڎ+6919A127B490Ҏ91B+5378ڦޞŽ蘎DC2A+Ζ468Ҏ/C3ȖʬDꦜDؖҰBB1++زܢ6榒0192DCC263̠85򴚞Ęƚ12ذ+䚒ޤ513//39C99998A+Ԧʴ/1AĮЌ36ڤ78B8Ȟގ⪔Ψ5ʊ53D49C䪮265ޮ6쮬+ऒ/Ԋ60AC9+Ϊܐ7CCDژ9B2971/6Ԫ֐6/BުҬD9Ė꘠75К֞̊Բ8Š1B1ܜ/ΰ5+1Ҙ6Ί܌85␮A8䘖C0֮18–9DDδ7Ʀ18111D2/B73ܤ6¬Դ̲D+3Ҥ+ƴ9B0=2؜1B0ABBؚBAAA1ABȬ;rect "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 %>