开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
cmd.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：40k
源码类别：

中间件编程

开发平台：

HTML/CSS

cmd.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog
  5. '// 作    者:    朱煊(zx.asd)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    cmd.asp
  11. '// 开始时间:    2004.07.27
  12. '// 最后修改:    
  13. '// 备    注:    命令执行&跳转页
  14. '///////////////////////////////////////////////////////////////////////////////
  15. %>
  16. <% Option Explicit %>
  17. <% On Error Resume Next %>
  18. <% Response.Charset="UTF-8" %>
  19. <% Response.Buffer=True %>
  20. <!-- #include file="c_option.asp" -->
  21. <!-- #include file="function/c_function.asp" -->
  22. <!-- #include file="function/c_function_md5.asp" -->
  23. <!-- #include file="function/c_system_lib.asp" -->
  24. <!-- #include file="function/c_system_base.asp" -->
  25. <!-- #include file="function/c_system_event.asp" -->
  26. <!-- #include file="function/c_system_plugin.asp" -->
  27. <!-- #include file="function/rss_lib.asp" -->
  28. <!-- #include file="function/atom_lib.asp" -->
  29. <!-- #include file="plugin/p_config.asp" -->
  30. <%
  31. Call System_Initialize()
  33. 'plugin node
  34. For Each sAction_Plugin_Command_Begin in Action_Plugin_Command_Begin
  35. If Not IsEmpty(sAction_Plugin_Command_Begin) Then Call Execute(sAction_Plugin_Command_Begin)
  36. Next
  38. Dim strAct
  39. strAct=Request.QueryString("act")
  41. '如果不是"接收引用"就要检查非法链接
  42. If (strAct<>"tb") And (strAct<>"search") Then Call CheckReference("")
  44. '权限检查
  45. If Not CheckRights(strAct) Then Call ShowError(6)
  48. Select Case strAct
  50. '命令列表
  52. Case "login" 
  54. Call BlogLogin()
  56. Case "verify"
  58. Call BlogVerify()
  60. Case "logout"
  62. Call BlogLogout()
  64. Case "admin" 
  66. Call BlogAdmin()
  68. Case "cmt"
  70. Call CommentPost()
  72. Case "tb"
  73. Call TrackBackPost()
  75. Case "vrs"
  76. Call ViewRights()
  78. Case "ArticleMng"
  80. Call ArticleMng()
  82. Case "ArticleEdt"
  84. Call ArticleEdt()
  86. Case "ArticlePst"
  88. Call ArticlePst()
  90. Case "ArticleDel"
  92. Call ArticleDel()
  94. Case "CategoryMng"
  96. Call CategoryMng()
  98. Case "CategoryEdt"
  100. Call CategoryEdt()
  102. Case "CategoryPst"
  104. Call CategoryPst()
  106. Case "CategoryDel"
  108. Call CategoryDel()
  110. Case "CommentMng"
  112. Call CommentMng()
  114. Case "CommentDel"
  116. Call CommentDel()
  118. Case "CommentRev"
  120. Call CommentRev()
  122. Case "CommentEdt"
  124. Call CommentEdt()
  126. Case "CommentSav"
  128. Call CommentSav()
  130. Case "TrackBackMng"
  132. Call TrackBackMng()
  134. Case "TrackBackDel"
  136. Call TrackBackDel()
  138. Case "TrackBackSnd"
  140. Call TrackBackSnd()
  142. Case "UserMng"
  144. Call UserMng()
  146. Case "UserCrt"
  148. Call UserCrt()
  150. Case "UserEdt"
  152. Call UserEdt()
  154. Case "UserDel"
  156. Call UserDel()
  158. Case "FileReBuild"
  160. Call FileReBuild()
  162. Case "FileMng"
  164. Call FileMng()
  166. Case "FileSnd"
  168. Call FileSnd()
  170. Case "FileUpload"
  172. Call FileUpload()
  174. Case "FileDel"
  176. Call FileDel()
  178. Case "BlogReBuild"
  180. Call BlogReBuild()
  182. Case "DirectoryReBuild"
  184. Call DirectoryReBuild()
  186. Case "Search"
  188. Call Search()
  190. Case "SettingMng"
  192. Call SettingMng()
  194. Case "SettingSav"
  196. Call SettingSav()
  198. Case "TagMng"
  200. Call TagMng()
  202. Case "TagEdt"
  204. Call TagEdt()
  206. Case "TagPst"
  208. Call TagPst()
  210. Case "TagDel"
  212. Call TagDel()
  214. Case "PlugInMng"
  216. Call PlugInMng()
  218. Case "SiteInfo"
  220. Call SiteInfo()
  222. Case "SiteFileMng"
  224. Call SiteFileMng()
  226. Case "SiteFileEdt"
  228. Call SiteFileEdt()
  230. Case "SiteFilePst"
  232. Call SiteFilePst()
  234. Case "SiteFileDel"
  236. Call SiteFileDel()
  238. Case "AskFileReBuild"
  240. Call AskFileReBuild()
  242. Case "gettburl"
  243. Call TrackBackUrlGet()
  245. Case "CommentDelBatch"
  247. Call CommentDelBatch()
  249. Case "TrackBackDelBatch"
  251. Call TrackBackDelBatch()
  253. Case "FileDelBatch"
  255. Call FileDelBatch()
  257. Case "ThemesMng"
  259. Call ThemesMng()
  261. Case "ThemesSav"
  263. Call ThemesSav()
  266. Case "LinkMng"
  268. Call LinkMng()
  270. Case "LinkSav"
  272. Call LinkSav()
  275. Case "PlugInActive"
  277. Call PlugInActive()
  279. Case "PlugInDisable"
  281. Call PlugInDisable()
  284. End Select
  288. Function BlogLogin
  290. 'plugin node
  291. For Each sAction_Plugin_BlogLogin_Begin in Action_Plugin_BlogLogin_Begin
  292. If Not IsEmpty(sAction_Plugin_BlogLogin_Begin) Then Call Execute(sAction_Plugin_BlogLogin_Begin)
  293. If bAction_Plugin_BlogLogin_Begin=True Then Exit Function
  294. Next
  296. If BlogUser.Verify=False Then
  297. Response.Redirect "login.asp"
  298. Else
  299. Call BlogAdmin()
  300. End If
  302. End Function
  304. Function BlogVerify()
  306. 'plugin node
  307. For Each sAction_Plugin_BlogVerify_Begin in Action_Plugin_BlogVerify_Begin
  308. If Not IsEmpty(sAction_Plugin_BlogVerify_Begin) Then Call Execute(sAction_Plugin_BlogVerify_Begin)
  309. If bAction_Plugin_BlogVerify_Begin=True Then Exit Function
  310. Next
  312. If Login=True Then
  314. 'plugin node
  315. For Each sAction_Plugin_BlogVerify_Succeed in Action_Plugin_BlogVerify_Succeed
  316. If Not IsEmpty(sAction_Plugin_BlogVerify_Succeed) Then Call Execute(sAction_Plugin_BlogVerify_Succeed)
  317. If bAction_Plugin_BlogVerify_Succeed=True Then Exit Function
  318. Next
  320. Response.Redirect "cmd.asp?act=admin"
  321. Else
  322. Call ShowError(8)
  323. End If
  325. End Function
  327. Function BlogLogout
  329. 'plugin node
  330. For Each sAction_Plugin_BlogLogout_Begin in Action_Plugin_BlogLogout_Begin
  331. If Not IsEmpty(sAction_Plugin_BlogLogout_Begin) Then Call Execute(sAction_Plugin_BlogLogout_Begin)
  332. If bAction_Plugin_BlogLogout_Begin=True Then Exit Function
  333. Next
  335. If Logout=True Then
  337. 'plugin node
  338. For Each sAction_Plugin_BlogLogout_Succeed in Action_Plugin_BlogLogout_Succeed
  339. If Not IsEmpty(sAction_Plugin_BlogLogout_Succeed) Then Call Execute(sAction_Plugin_BlogLogout_Succeed)
  340. If bAction_Plugin_BlogLogout_Succeed=True Then Exit Function
  341. Next
  343. End If
  345. End Function
  347. Function BlogAdmin
  349. 'plugin node
  350. For Each sAction_Plugin_BlogAdmin_Begin in Action_Plugin_BlogAdmin_Begin
  351. If Not IsEmpty(sAction_Plugin_BlogAdmin_Begin) Then Call Execute(sAction_Plugin_BlogAdmin_Begin)
  352. If bAction_Plugin_BlogAdmin_Begin=True Then Exit Function
  353. Next
  355. 'Call MakeBlogReBuild_Core()
  357. Response.Redirect "admin/admin_default.asp"
  359. End Function
  361. Function ViewRights()
  363. 'plugin node
  364. For Each sAction_Plugin_ViewRights_Begin in Action_Plugin_ViewRights_Begin
  365. If Not IsEmpty(sAction_Plugin_ViewRights_Begin) Then Call Execute(sAction_Plugin_ViewRights_Begin)
  366. If bAction_Plugin_ViewRights_Begin=True Then Exit Function
  367. Next
  369. Call ListUser_Rights()
  370. End Function
  373. Function ArticleMng
  375. 'plugin node
  376. For Each sAction_Plugin_ArticleMng_Begin in Action_Plugin_ArticleMng_Begin
  377. If Not IsEmpty(sAction_Plugin_ArticleMng_Begin) Then Call Execute(sAction_Plugin_ArticleMng_Begin)
  378. If bAction_Plugin_ArticleMng_Begin=True Then Exit Function
  379. Next
  381. Response.Redirect "admin/admin.asp?act=ArticleMng&page=" & Request.QueryString("id")
  382. End Function
  384. Function ArticleEdt
  386. 'plugin node
  387. For Each sAction_Plugin_ArticleEdt_Begin in Action_Plugin_ArticleEdt_Begin
  388. If Not IsEmpty(sAction_Plugin_ArticleEdt_Begin) Then Call Execute(sAction_Plugin_ArticleEdt_Begin)
  389. If bAction_Plugin_ArticleEdt_Begin=True Then Exit Function
  390. Next
  392. On Error Resume Next
  393. If (Ubound(Categorys)=0) Then 
  394. Call SetBlogHint_Custom(ZC_MSG294)
  395. Response.Redirect "admin/edit_catalog.asp"
  396. End If
  398. If Request.QueryString("type")<>"" Then
  399. If IsEmpty(Request.QueryString("id"))=False Then
  400. Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp?id="& Request.QueryString("id")
  401. Else
  402. Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp"
  403. End If
  404. Else
  405. If IsEmpty(Request.QueryString("id"))=False Then
  406. Response.Redirect "admin/edit.asp?id="& Request.QueryString("id")
  407. Else
  408. Response.Redirect "admin/edit.asp"
  409. End If
  410. End If
  411. End Function
  413. Function ArticlePst
  415. 'plugin node
  416. For Each sAction_Plugin_ArticlePst_Begin in Action_Plugin_ArticlePst_Begin
  417. If Not IsEmpty(sAction_Plugin_ArticlePst_Begin) Then Call Execute(sAction_Plugin_ArticlePst_Begin)
  418. If bAction_Plugin_ArticlePst_Begin=True Then Exit Function
  419. Next
  421. If PostArticle Then
  422. Call SetBlogHint(True,True,Empty)
  423. Call MakeBlogReBuild_Core()
  425. 'plugin node
  426. For Each sAction_Plugin_ArticlePst_Succeed in Action_Plugin_ArticlePst_Succeed
  427. If Not IsEmpty(sAction_Plugin_ArticlePst_Succeed) Then Call Execute(sAction_Plugin_ArticlePst_Succeed)
  428. If bAction_Plugin_ArticlePst_Succeed=True Then Exit Function
  429. Next
  431. Response.Redirect "cmd.asp?act=ArticleMng"
  432. Else
  433. Call ShowError(11)
  434. End If
  435. End Function
  437. Function ArticleDel
  439. 'plugin node
  440. For Each sAction_Plugin_ArticleDel_Begin in Action_Plugin_ArticleDel_Begin
  441. If Not IsEmpty(sAction_Plugin_ArticleDel_Begin) Then Call Execute(sAction_Plugin_ArticleDel_Begin)
  442. If bAction_Plugin_ArticleDel_Begin=True Then Exit Function
  443. Next
  445. If DelArticle(Request.QueryString("id")) Then
  446. Call SetBlogHint(True,True,Empty)
  447. Call MakeBlogReBuild_Core()
  449. 'plugin node
  450. For Each sAction_Plugin_ArticleDel_Succeed in Action_Plugin_ArticleDel_Succeed
  451. If Not IsEmpty(sAction_Plugin_ArticleDel_Succeed) Then Call Execute(sAction_Plugin_ArticleDel_Succeed)
  452. If bAction_Plugin_ArticleDel_Succeed=True Then Exit Function
  453. Next
  455. Response.Redirect "cmd.asp?act=ArticleMng"
  456. Else
  457. Call ShowError(11)
  458. End If
  459. End Function
  462. Function CategoryMng
  464. 'plugin node
  465. For Each sAction_Plugin_CategoryMng_Begin in Action_Plugin_CategoryMng_Begin
  466. If Not IsEmpty(sAction_Plugin_CategoryMng_Begin) Then Call Execute(sAction_Plugin_CategoryMng_Begin)
  467. If bAction_Plugin_CategoryMng_Begin=True Then Exit Function
  468. Next
  470. Response.Redirect "admin/admin.asp?act=CategoryMng&page=" & Request.QueryString("id")
  471. End Function
  473. Function CategoryEdt
  475. 'plugin node
  476. For Each sAction_Plugin_CategoryEdt_Begin in Action_Plugin_CategoryEdt_Begin
  477. If Not IsEmpty(sAction_Plugin_CategoryEdt_Begin) Then Call Execute(sAction_Plugin_CategoryEdt_Begin)
  478. If bAction_Plugin_CategoryEdt_Begin=True Then Exit Function
  479. Next
  481. If IsEmpty(Request.QueryString("id"))=False Then
  482. Response.Redirect "admin/edit_catalog.asp?id=" & Request.QueryString("id")
  483. Else
  484. Response.Redirect "admin/edit_catalog.asp"
  485. End If
  486. End Function
  488. Function CategoryPst
  490. 'plugin node
  491. For Each sAction_Plugin_CategoryPst_Begin in Action_Plugin_CategoryPst_Begin
  492. If Not IsEmpty(sAction_Plugin_CategoryPst_Begin) Then Call Execute(sAction_Plugin_CategoryPst_Begin)
  493. If bAction_Plugin_CategoryPst_Begin=True Then Exit Function
  494. Next
  496. If PostCategory Then
  497. Call SetBlogHint(True,True,Empty)
  498. Call MakeBlogReBuild_Core()
  500. 'plugin node
  501. For Each sAction_Plugin_CategoryPst_Succeed in Action_Plugin_CategoryPst_Succeed
  502. If Not IsEmpty(sAction_Plugin_CategoryPst_Succeed) Then Call Execute(sAction_Plugin_CategoryPst_Succeed)
  503. If bAction_Plugin_CategoryPst_Succeed=True Then Exit Function
  504. Next
  506. Response.Redirect "cmd.asp?act=CategoryMng"
  507. Else
  508. Call ShowError(12)
  509. End If
  510. End Function
  512. Function CategoryDel
  514. 'plugin node
  515. For Each sAction_Plugin_CategoryDel_Begin in Action_Plugin_CategoryDel_Begin
  516. If Not IsEmpty(sAction_Plugin_CategoryDel_Begin) Then Call Execute(sAction_Plugin_CategoryDel_Begin)
  517. If bAction_Plugin_CategoryDel_Begin=True Then Exit Function
  518. Next
  520. If DelCategory(Request.QueryString("id")) Then
  521. Call SetBlogHint(True,True,Empty)
  522. Call MakeBlogReBuild_Core()
  524. 'plugin node
  525. For Each sAction_Plugin_CategoryDel_Succeed in Action_Plugin_CategoryDel_Succeed
  526. If Not IsEmpty(sAction_Plugin_CategoryDel_Succeed) Then Call Execute(sAction_Plugin_CategoryDel_Succeed)
  527. If bAction_Plugin_CategoryDel_Succeed=True Then Exit Function
  528. Next
  530. Response.Redirect "cmd.asp?act=CategoryMng"
  531. Else
  532. Call ShowError(12)
  533. End If
  534. End Function
  537. Function CommentMng
  539. 'plugin node
  540. For Each sAction_Plugin_CommentMng_Begin in Action_Plugin_CommentMng_Begin
  541. If Not IsEmpty(sAction_Plugin_CommentMng_Begin) Then Call Execute(sAction_Plugin_CommentMng_Begin)
  542. If bAction_Plugin_CommentMng_Begin=True Then Exit Function
  543. Next
  545. Response.Redirect "admin/admin.asp?act=CommentMng&page=" & Request.QueryString("id")
  546. End Function
  548. Function CommentPost
  550. 'plugin node
  551. For Each sAction_Plugin_CommentPost_Begin in Action_Plugin_CommentPost_Begin
  552. If Not IsEmpty(sAction_Plugin_CommentPost_Begin) Then Call Execute(sAction_Plugin_CommentPost_Begin)
  553. If bAction_Plugin_CommentPost_Begin=True Then Exit Function
  554. Next
  556. If PostComment(Request.QueryString("key")) Then
  558. Call ClearGlobeCache
  559. Call LoadGlobeCache
  561. 'plugin node
  562. For Each sAction_Plugin_CommentPost_Succeed in Action_Plugin_CommentPost_Succeed
  563. If Not IsEmpty(sAction_Plugin_CommentPost_Succeed) Then Call Execute(sAction_Plugin_CommentPost_Succeed)
  564. If bAction_Plugin_CommentPost_Succeed=True Then Exit Function
  565. Next
  567. If IsEmpty(Request.Form("inpAjax"))=False Then
  568. Response.End
  569. End If
  571. Response.Redirect Request.Form("inpLocation")
  573. Else
  574. Call ShowError(14)
  575. End If
  577. End Function
  579. Function CommentDel
  581. 'plugin node
  582. For Each sAction_Plugin_CommentDel_Begin in Action_Plugin_CommentDel_Begin
  583. If Not IsEmpty(sAction_Plugin_CommentDel_Begin) Then Call Execute(sAction_Plugin_CommentDel_Begin)
  584. If bAction_Plugin_CommentDel_Begin=True Then Exit Function
  585. Next
  587. If DelComment(Request.QueryString("id"),Request.QueryString("log_id")) Then
  588. Call SetBlogHint(True,True,Empty)
  589. Call MakeBlogReBuild_Core()
  591. 'plugin node
  592. For Each sAction_Plugin_CommentDel_Succeed in Action_Plugin_CommentDel_Succeed
  593. If Not IsEmpty(sAction_Plugin_CommentDel_Succeed) Then Call Execute(sAction_Plugin_CommentDel_Succeed)
  594. If bAction_Plugin_CommentDel_Succeed=True Then Exit Function
  595. Next
  597. Response.Redirect "cmd.asp?act=CommentMng"
  598. Else
  599. Call ShowError(18)
  600. End If
  601. End Function
  603. Function CommentRev
  605. 'plugin node
  606. For Each sAction_Plugin_CommentRev_Begin in Action_Plugin_CommentRev_Begin
  607. If Not IsEmpty(sAction_Plugin_CommentRev_Begin) Then Call Execute(sAction_Plugin_CommentRev_Begin)
  608. If bAction_Plugin_CommentRev_Begin=True Then Exit Function
  609. Next
  611. If RevertComment(Request.QueryString("key"),Request.QueryString("id")) Then
  613. Call ClearGlobeCache
  614. Call LoadGlobeCache
  616. 'plugin node
  617. For Each sAction_Plugin_CommentRev_Succeed in Action_Plugin_CommentRev_Succeed
  618. If Not IsEmpty(sAction_Plugin_CommentRev_Succeed) Then Call Execute(sAction_Plugin_CommentRev_Succeed)
  619. If bAction_Plugin_CommentRev_Succeed=True Then Exit Function
  620. Next
  622. If IsEmpty(Request.Form("inpAjax"))=False Then
  623. Response.End
  624. End If
  626. Response.Redirect Request.Form("inpLocation")
  627. Else
  628. Call ShowError(14)
  629. End If
  630. End Function
  633. Function CommentEdt
  635. 'plugin node
  636. For Each sAction_Plugin_CommentEdt_Begin in Action_Plugin_CommentEdt_Begin
  637. If Not IsEmpty(sAction_Plugin_CommentEdt_Begin) Then Call Execute(sAction_Plugin_CommentEdt_Begin)
  638. If bAction_Plugin_CommentEdt_Begin=True Then Exit Function
  639. Next
  641. Response.Redirect "admin/edit_comment.asp?id="& Request.QueryString("id") & "&log_id="& Request.QueryString("log_id") 
  643. End Function
  646. Function CommentSav
  648. 'plugin node
  649. For Each sAction_Plugin_CommentSav_Begin in Action_Plugin_CommentSav_Begin
  650. If Not IsEmpty(sAction_Plugin_CommentSav_Begin) Then Call Execute(sAction_Plugin_CommentSav_Begin)
  651. If bAction_Plugin_CommentSav_Begin=True Then Exit Function
  652. Next
  654. If SaveComment(Request.Form("edtID"),Request.Form("inpID")) Then
  655. Call SetBlogHint(True,True,Empty)
  656. Call MakeBlogReBuild_Core()
  658. 'plugin node
  659. For Each sAction_Plugin_CommentSav_Succeed in Action_Plugin_CommentSav_Succeed
  660. If Not IsEmpty(sAction_Plugin_CommentSav_Succeed) Then Call Execute(sAction_Plugin_CommentSav_Succeed)
  661. If bAction_Plugin_CommentSav_Succeed=True Then Exit Function
  662. Next
  664. Response.Redirect "cmd.asp?act=CommentMng"
  665. Else
  666. Call ShowError(42)
  667. End If
  669. End Function
  672. Function TrackBackMng
  674. 'plugin node
  675. For Each sAction_Plugin_TrackBackMng_Begin in Action_Plugin_TrackBackMng_Begin
  676. If Not IsEmpty(sAction_Plugin_TrackBackMng_Begin) Then Call Execute(sAction_Plugin_TrackBackMng_Begin)
  677. If bAction_Plugin_TrackBackMng_Begin=True Then Exit Function
  678. Next
  680. Response.Redirect "admin/admin.asp?act=TrackBackMng&page=" & Request.QueryString("id")
  681. End Function
  683. Function TrackBackPost
  685. 'plugin node
  686. For Each sAction_Plugin_TrackBackPost_Begin in Action_Plugin_TrackBackPost_Begin
  687. If Not IsEmpty(sAction_Plugin_TrackBackPost_Begin) Then Call Execute(sAction_Plugin_TrackBackPost_Begin)
  688. If bAction_Plugin_TrackBackPost_Begin=True Then Exit Function
  689. Next
  691. If PostTrackBack(Request.QueryString("id"),Request.QueryString("key"))=True Then 
  692. 'plugin node
  693. For Each sAction_Plugin_TrackBackPost_Succeed in Action_Plugin_TrackBackPost_Succeed
  694. If Not IsEmpty(sAction_Plugin_TrackBackPost_Succeed) Then Call Execute(sAction_Plugin_TrackBackPost_Succeed)
  695. If bAction_Plugin_TrackBackPost_Succeed=True Then Exit Function
  696. Next
  697. End If
  699. End Function
  701. Function TrackBackDel
  703. 'plugin node
  704. For Each sAction_Plugin_TrackBackDel_Begin in Action_Plugin_TrackBackDel_Begin
  705. If Not IsEmpty(sAction_Plugin_TrackBackDel_Begin) Then Call Execute(sAction_Plugin_TrackBackDel_Begin)
  706. If bAction_Plugin_TrackBackDel_Begin=True Then Exit Function
  707. Next
  709. If DelTrackBack(Request.QueryString("id"),Request.QueryString("log_id")) Then
  710. Call SetBlogHint(True,True,Empty)
  711. Call MakeBlogReBuild_Core()
  713. 'plugin node
  714. For Each sAction_Plugin_TrackBackDel_Succeed in Action_Plugin_TrackBackDel_Succeed
  715. If Not IsEmpty(sAction_Plugin_TrackBackDel_Succeed) Then Call Execute(sAction_Plugin_TrackBackDel_Succeed)
  716. If bAction_Plugin_TrackBackDel_Succeed=True Then Exit Function
  717. Next
  719. Response.Redirect "cmd.asp?act=TrackBackMng"
  720. Else
  721. Call ShowError(19)
  722. End If
  723. End Function
  725. Function TrackBackSnd
  727. 'plugin node
  728. For Each sAction_Plugin_TrackBackSnd_Begin in Action_Plugin_TrackBackSnd_Begin
  729. If Not IsEmpty(sAction_Plugin_TrackBackSnd_Begin) Then Call Execute(sAction_Plugin_TrackBackSnd_Begin)
  730. If bAction_Plugin_TrackBackSnd_Begin=True Then Exit Function
  731. Next
  733. If SendTrackBack() Then
  734. Call SetBlogHint(True,Empty,Empty)
  736. 'plugin node
  737. For Each sAction_Plugin_TrackBackSnd_Succeed in Action_Plugin_TrackBackSnd_Succeed
  738. If Not IsEmpty(sAction_Plugin_TrackBackSnd_Succeed) Then Call Execute(sAction_Plugin_TrackBackSnd_Succeed)
  739. If bAction_Plugin_TrackBackSnd_Succeed=True Then Exit Function
  740. Next
  742. Response.Redirect "cmd.asp?act=ArticleMng"
  743. Else
  744. Call ShowError(20)
  745. End If
  746. End Function
  749. Function UserMng()
  751. 'plugin node
  752. For Each sAction_Plugin_UserMng_Begin in Action_Plugin_UserMng_Begin
  753. If Not IsEmpty(sAction_Plugin_UserMng_Begin) Then Call Execute(sAction_Plugin_UserMng_Begin)
  754. If bAction_Plugin_UserMng_Begin=True Then Exit Function
  755. Next
  756. Call SetBlogHint_Custom(ZC_MSG315)
  757. Response.Redirect "admin/admin.asp?act=UserMng&page=" & Request.QueryString("id")
  758. End Function
  760. Function UserCrt()
  762. 'plugin node
  763. For Each sAction_Plugin_UserCrt_Begin in Action_Plugin_UserCrt_Begin
  764. If Not IsEmpty(sAction_Plugin_UserCrt_Begin) Then Call Execute(sAction_Plugin_UserCrt_Begin)
  765. If bAction_Plugin_UserCrt_Begin=True Then Exit Function
  766. Next
  768. If EditUser Then
  769. Call SetBlogHint(True,True,Empty)
  770. Call MakeBlogReBuild_Core()
  772. 'plugin node
  773. For Each sAction_Plugin_UserCrt_Succeed in Action_Plugin_UserCrt_Succeed
  774. If Not IsEmpty(sAction_Plugin_UserCrt_Succeed) Then Call Execute(sAction_Plugin_UserCrt_Succeed)
  775. If bAction_Plugin_UserCrt_Succeed=True Then Exit Function
  776. Next
  778. Response.Redirect "cmd.asp?act=UserMng"
  779. Else
  780. Call ShowError(16)
  781. End If
  782. End Function
  784. Function UserEdt()
  786. 'plugin node
  787. For Each sAction_Plugin_UserEdt_Begin in Action_Plugin_UserEdt_Begin
  788. If Not IsEmpty(sAction_Plugin_UserEdt_Begin) Then Call Execute(sAction_Plugin_UserEdt_Begin)
  789. If bAction_Plugin_UserEdt_Begin=True Then Exit Function
  790. Next
  792. If EditUser Then
  793. Call SetBlogHint(True,True,Empty)
  794. Call MakeBlogReBuild_Core()
  796. 'plugin node
  797. For Each sAction_Plugin_UserEdt_Succeed in Action_Plugin_UserEdt_Succeed
  798. If Not IsEmpty(sAction_Plugin_UserEdt_Succeed) Then Call Execute(sAction_Plugin_UserEdt_Succeed)
  799. If bAction_Plugin_UserEdt_Succeed=True Then Exit Function
  800. Next
  802. Response.Redirect "cmd.asp?act=UserMng"
  803. Else
  804. Call ShowError(16)
  805. End If
  806. End Function
  808. Function UserDel()
  810. 'plugin node
  811. For Each sAction_Plugin_UserDel_Begin in Action_Plugin_UserDel_Begin
  812. If Not IsEmpty(sAction_Plugin_UserDel_Begin) Then Call Execute(sAction_Plugin_UserDel_Begin)
  813. If bAction_Plugin_UserDel_Begin=True Then Exit Function
  814. Next
  816. If DelUser(Request.QueryString("id")) Then
  817. Call SetBlogHint(True,True,Empty)
  818. Call MakeBlogReBuild_Core()
  820. 'plugin node
  821. For Each sAction_Plugin_UserDel_Succeed in Action_Plugin_UserDel_Succeed
  822. If Not IsEmpty(sAction_Plugin_UserDel_Succeed) Then Call Execute(sAction_Plugin_UserDel_Succeed)
  823. If bAction_Plugin_UserDel_Succeed=True Then Exit Function
  824. Next
  826. Response.Redirect "cmd.asp?act=UserMng"
  827. Else
  828. Call ShowError(17)
  829. End If
  830. End Function
  833. Function FileMng()
  835. 'plugin node
  836. For Each sAction_Plugin_FileMng_Begin in Action_Plugin_FileMng_Begin
  837. If Not IsEmpty(sAction_Plugin_FileMng_Begin) Then Call Execute(sAction_Plugin_FileMng_Begin)
  838. If bAction_Plugin_FileMng_Begin=True Then Exit Function
  839. Next
  841. Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
  842. End Function
  844. Function FileSnd()
  846. 'plugin node
  847. For Each sAction_Plugin_FileSnd_Begin in Action_Plugin_FileSnd_Begin
  848. If Not IsEmpty(sAction_Plugin_FileSnd_Begin) Then Call Execute(sAction_Plugin_FileSnd_Begin)
  849. If bAction_Plugin_FileSnd_Begin=True Then Exit Function
  850. Next
  852. Call SendFile()
  853. End Function
  855. Function FileUpload()
  857. 'plugin node
  858. For Each sAction_Plugin_FileUpload_Begin in Action_Plugin_FileUpload_Begin
  859. If Not IsEmpty(sAction_Plugin_FileUpload_Begin) Then Call Execute(sAction_Plugin_FileUpload_Begin)
  860. If bAction_Plugin_FileUpload_Begin=True Then Exit Function
  861. Next
  863. Server.ScriptTimeout = 1200
  864. If UploadFile(CBool(Request.QueryString("autoname")),CBool(Request.QueryString("reload"))) Then
  865. Call SetBlogHint(True,Empty,Empty)
  867. 'plugin node
  868. For Each sAction_Plugin_FileUpload_Succeed in Action_Plugin_FileUpload_Succeed
  869. If Not IsEmpty(sAction_Plugin_FileUpload_Succeed) Then Call Execute(sAction_Plugin_FileUpload_Succeed)
  870. If bAction_Plugin_FileUpload_Succeed=True Then Exit Function
  871. Next
  873. If CBool(Request.QueryString("reload"))=True Then
  874. Response.End
  875. End If
  877. Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
  878. Else
  879. Call ShowError(21)
  880. End If
  881. End Function
  883. Function FileDel()
  885. 'plugin node
  886. For Each sAction_Plugin_FileDel_Begin in Action_Plugin_FileDel_Begin
  887. If Not IsEmpty(sAction_Plugin_FileDel_Begin) Then Call Execute(sAction_Plugin_FileDel_Begin)
  888. If bAction_Plugin_FileDel_Begin=True Then Exit Function
  889. Next
  891. If DelFile(Request.QueryString("id")) Then
  892. Call SetBlogHint(True,Empty,Empty)
  894. 'plugin node
  895. For Each sAction_Plugin_FileDel_Succeed in Action_Plugin_FileDel_Succeed
  896. If Not IsEmpty(sAction_Plugin_FileDel_Succeed) Then Call Execute(sAction_Plugin_FileDel_Succeed)
  897. If bAction_Plugin_FileDel_Succeed=True Then Exit Function
  898. Next
  900. Response.Redirect "cmd.asp?act=FileMng"
  901. Else
  902. Call ShowError(22)
  903. End If
  904. End Function
  907. Function Search()
  909. 'plugin node
  910. For Each sAction_Plugin_Search_Begin in Action_Plugin_Search_Begin
  911. If Not IsEmpty(sAction_Plugin_Search_Begin) Then Call Execute(sAction_Plugin_Search_Begin)
  912. If bAction_Plugin_Search_Begin=True Then Exit Function
  913. Next
  915. RedirectBy301(ZC_BLOG_HOST & "search.asp?q=" & Server.URLEncode(Request.Form("edtSearch")))
  916. End Function
  918. Function SettingMng()
  920. 'plugin node
  921. For Each sAction_Plugin_SettingMng_Begin in Action_Plugin_SettingMng_Begin
  922. If Not IsEmpty(sAction_Plugin_SettingMng_Begin) Then Call Execute(sAction_Plugin_SettingMng_Begin)
  923. If bAction_Plugin_SettingMng_Begin=True Then Exit Function
  924. Next
  926. If Not IsEmpty(Request.QueryString("ok")) Then
  927. Call SetBlogHint(True,Empty,Empty)
  928. 'Call MakeBlogReBuild_Core()
  929. End If
  931. Response.Redirect "admin/edit_setting.asp"
  932. End Function
  934. Function SettingSav()
  936. 'plugin node
  937. For Each sAction_Plugin_SettingSav_Begin in Action_Plugin_SettingSav_Begin
  938. If Not IsEmpty(sAction_Plugin_SettingSav_Begin) Then Call Execute(sAction_Plugin_SettingSav_Begin)
  939. If bAction_Plugin_SettingSav_Begin=True Then Exit Function
  940. Next
  942. If SaveSetting Then
  943. Call SetBlogHint(True,Empty,Empty)
  945. 'plugin node
  946. For Each sAction_Plugin_SettingSav_Succeed in Action_Plugin_SettingSav_Succeed
  947. If Not IsEmpty(sAction_Plugin_SettingSav_Succeed) Then Call Execute(sAction_Plugin_SettingSav_Succeed)
  948. If bAction_Plugin_SettingSav_Succeed=True Then Exit Function
  949. Next
  951. Response.Redirect "cmd.asp?act=SettingMng&ok"
  952. Else
  953. Call ShowError(25)
  954. End If
  955. End Function
  957. Function TagMng()
  959. 'plugin node
  960. For Each sAction_Plugin_TagMng_Begin in Action_Plugin_TagMng_Begin
  961. If Not IsEmpty(sAction_Plugin_TagMng_Begin) Then Call Execute(sAction_Plugin_TagMng_Begin)
  962. If bAction_Plugin_TagMng_Begin=True Then Exit Function
  963. Next
  965. Response.Redirect "admin/admin.asp?act=TagMng&page=" & Request.QueryString("id")
  966. End Function
  968. Function TagEdt()
  970. 'plugin node
  971. For Each sAction_Plugin_TagEdt_Begin in Action_Plugin_TagEdt_Begin
  972. If Not IsEmpty(sAction_Plugin_TagEdt_Begin) Then Call Execute(sAction_Plugin_TagEdt_Begin)
  973. If bAction_Plugin_TagEdt_Begin=True Then Exit Function
  974. Next
  976. If IsEmpty(Request.QueryString("id"))=False Then
  977. Response.Redirect "admin/edit_tag.asp?id=" & Request.QueryString("id")
  978. Else
  979. Response.Redirect "admin/edit_tag.asp"
  980. End If
  981. End Function
  983. Function TagPst()
  985. 'plugin node
  986. For Each sAction_Plugin_TagPst_Begin in Action_Plugin_TagPst_Begin
  987. If Not IsEmpty(sAction_Plugin_TagPst_Begin) Then Call Execute(sAction_Plugin_TagPst_Begin)
  988. If bAction_Plugin_TagPst_Begin=True Then Exit Function
  989. Next
  991. If PostTag Then
  992. Call SetBlogHint(True,True,Empty)
  993. Call MakeBlogReBuild_Core()
  995. 'plugin node
  996. For Each sAction_Plugin_TagPst_Succeed in Action_Plugin_TagPst_Succeed
  997. If Not IsEmpty(sAction_Plugin_TagPst_Succeed) Then Call Execute(sAction_Plugin_TagPst_Succeed)
  998. If bAction_Plugin_TagPst_Succeed=True Then Exit Function
  999. Next
  1001. Response.Redirect "cmd.asp?act=TagMng"
  1002. Else
  1003. Call ShowError(35)
  1004. End If
  1005. End Function
  1007. Function TagDel()
  1009. 'plugin node
  1010. For Each sAction_Plugin_TagDel_Begin in Action_Plugin_TagDel_Begin
  1011. If Not IsEmpty(sAction_Plugin_TagDel_Begin) Then Call Execute(sAction_Plugin_TagDel_Begin)
  1012. If bAction_Plugin_TagDel_Begin=True Then Exit Function
  1013. Next
  1015. If DelTag(Request.QueryString("id")) Then
  1016. Call SetBlogHint(True,True,Empty)
  1017. Call MakeBlogReBuild_Core()
  1019. 'plugin node
  1020. For Each sAction_Plugin_TagDel_Succeed in Action_Plugin_TagDel_Succeed
  1021. If Not IsEmpty(sAction_Plugin_TagDel_Succeed) Then Call Execute(sAction_Plugin_TagDel_Succeed)
  1022. If bAction_Plugin_TagDel_Succeed=True Then Exit Function
  1023. Next
  1025. Response.Redirect "cmd.asp?act=TagMng"
  1026. Else
  1027. Call ShowError(36)
  1028. End If
  1029. End Function
  1032. Function BlogReBuild()
  1034. 'plugin node
  1035. For Each sAction_Plugin_BlogReBuild_Begin in Action_Plugin_BlogReBuild_Begin
  1036. If Not IsEmpty(sAction_Plugin_BlogReBuild_Begin) Then Call Execute(sAction_Plugin_BlogReBuild_Begin)
  1037. If bAction_Plugin_BlogReBuild_Begin=True Then Exit Function
  1038. Next
  1040. Server.ScriptTimeout = 1200
  1042. If MakeBlogReBuild Then
  1043. Call ClearGlobeCache
  1044. Call LoadGlobeCache
  1046. 'plugin node
  1047. For Each sAction_Plugin_BlogReBuild_Succeed in Action_Plugin_BlogReBuild_Succeed
  1048. If Not IsEmpty(sAction_Plugin_BlogReBuild_Succeed) Then Call Execute(sAction_Plugin_BlogReBuild_Succeed)
  1049. If bAction_Plugin_BlogReBuild_Succeed=True Then Exit Function
  1050. Next
  1052. Else
  1053. Call ShowError(23)
  1054. End If
  1055. End Function
  1057. Function DirectoryReBuild
  1059. 'plugin node
  1060. For Each sAction_Plugin_DirectoryReBuild_Begin in Action_Plugin_DirectoryReBuild_Begin
  1061. If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Begin) Then Call Execute(sAction_Plugin_DirectoryReBuild_Begin)
  1062. If bAction_Plugin_DirectoryReBuild_Begin=True Then Exit Function
  1063. Next
  1065. Server.ScriptTimeout = 1200
  1068. If MakeDirectoryReBuild Then
  1069. Call ClearGlobeCache
  1070. Call LoadGlobeCache
  1072. 'plugin node
  1073. For Each sAction_Plugin_DirectoryReBuild_Succeed in Action_Plugin_DirectoryReBuild_Succeed
  1074. If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Succeed) Then Call Execute(sAction_Plugin_DirectoryReBuild_Succeed)
  1075. If bAction_Plugin_DirectoryReBuild_Succeed=True Then Exit Function
  1076. Next
  1078. Else
  1079. Call ShowError(23)
  1080. End If
  1082. Response.Redirect "admin/admin.asp?act=AskFileReBuild"
  1083. End Function
  1085. Function FileReBuild()
  1087. 'plugin node
  1088. For Each sAction_Plugin_FileReBuild_Begin in Action_Plugin_FileReBuild_Begin
  1089. If Not IsEmpty(sAction_Plugin_FileReBuild_Begin) Then Call Execute(sAction_Plugin_FileReBuild_Begin)
  1090. If bAction_Plugin_FileReBuild_Begin=True Then Exit Function
  1091. Next
  1093. Server.ScriptTimeout = 1200
  1095. If  MakeFileReBuild()=True Then
  1097. 'plugin node
  1098. For Each sAction_Plugin_FileReBuild_Succeed in Action_Plugin_FileReBuild_Succeed
  1099. If Not IsEmpty(sAction_Plugin_FileReBuild_Succeed) Then Call Execute(sAction_Plugin_FileReBuild_Succeed)
  1100. If bAction_Plugin_FileReBuild_Succeed=True Then Exit Function
  1101. Next
  1103. End If
  1105. End Function
  1108. Function SiteInfo()
  1110. 'plugin node
  1111. For Each sAction_Plugin_SiteInfo_Begin in Action_Plugin_SiteInfo_Begin
  1112. If Not IsEmpty(sAction_Plugin_SiteInfo_Begin) Then Call Execute(sAction_Plugin_SiteInfo_Begin)
  1113. If bAction_Plugin_SiteInfo_Begin=True Then Exit Function
  1114. Next
  1116. Response.Redirect "admin/admin.asp?act=SiteInfo"
  1117. End Function
  1119. Function SiteFileMng()
  1121. 'plugin node
  1122. For Each sAction_Plugin_SiteFileMng_Begin in Action_Plugin_SiteFileMng_Begin
  1123. If Not IsEmpty(sAction_Plugin_SiteFileMng_Begin) Then Call Execute(sAction_Plugin_SiteFileMng_Begin)
  1124. If bAction_Plugin_SiteFileMng_Begin=True Then Exit Function
  1125. Next
  1127. Call SetBlogHint_Custom(ZC_MSG299)
  1129. Response.Redirect "admin/admin.asp?act=SiteFileMng&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  1130. End Function
  1132. Function SiteFileEdt()
  1134. 'plugin node
  1135. For Each sAction_Plugin_SiteFileEdt_Begin in Action_Plugin_SiteFileEdt_Begin
  1136. If Not IsEmpty(sAction_Plugin_SiteFileEdt_Begin) Then Call Execute(sAction_Plugin_SiteFileEdt_Begin)
  1137. If bAction_Plugin_SiteFileEdt_Begin=True Then Exit Function
  1138. Next
  1140. Response.Redirect "admin/admin.asp?act=SiteFileEdt&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  1141. End Function
  1143. Function SiteFilePst()
  1145. 'plugin node
  1146. For Each sAction_Plugin_SiteFilePst_Begin in Action_Plugin_SiteFilePst_Begin
  1147. If Not IsEmpty(sAction_Plugin_SiteFilePst_Begin) Then Call Execute(sAction_Plugin_SiteFilePst_Begin)
  1148. If bAction_Plugin_SiteFilePst_Begin=True Then Exit Function
  1149. Next
  1151. If PostSiteFile(Request.QueryString("path")) Then
  1152. Call SetBlogHint(True,True,Empty)
  1154. 'plugin node
  1155. For Each sAction_Plugin_SiteFilePst_Succeed in Action_Plugin_SiteFilePst_Succeed
  1156. If Not IsEmpty(sAction_Plugin_SiteFilePst_Succeed) Then Call Execute(sAction_Plugin_SiteFilePst_Succeed)
  1157. If bAction_Plugin_SiteFilePst_Succeed=True Then Exit Function
  1158. Next
  1160. Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  1161. End If
  1162. End Function
  1164. Function SiteFileDel()
  1166. 'plugin node
  1167. For Each sAction_Plugin_SiteFileDel_Begin in Action_Plugin_SiteFileDel_Begin
  1168. If Not IsEmpty(sAction_Plugin_SiteFileDel_Begin) Then Call Execute(sAction_Plugin_SiteFileDel_Begin)
  1169. If bAction_Plugin_SiteFileDel_Begin=True Then Exit Function
  1170. Next
  1172. If DelSiteFile(Request.QueryString("path")) Then
  1173. Call SetBlogHint(True,True,Empty)
  1175. 'plugin node
  1176. For Each sAction_Plugin_SiteFileDel_Succeed in Action_Plugin_SiteFileDel_Succeed
  1177. If Not IsEmpty(sAction_Plugin_SiteFileDel_Succeed) Then Call Execute(sAction_Plugin_SiteFileDel_Succeed)
  1178. If bAction_Plugin_SiteFileDel_Succeed=True Then Exit Function
  1179. Next
  1181. Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Request.QueryString("opath")
  1182. End If
  1183. End Function
  1185. Function AskFileReBuild()
  1187. 'plugin node
  1188. For Each sAction_Plugin_AskFileReBuild_Begin in Action_Plugin_AskFileReBuild_Begin
  1189. If Not IsEmpty(sAction_Plugin_AskFileReBuild_Begin) Then Call Execute(sAction_Plugin_AskFileReBuild_Begin)
  1190. If bAction_Plugin_AskFileReBuild_Begin=True Then Exit Function
  1191. Next
  1193. Call ClearGlobeCache
  1194. Call LoadGlobeCache
  1196. 'Call SetBlogHint(Empty,True,Empty)
  1198. Response.Redirect "admin/admin.asp?act=AskFileReBuild"
  1199. End Function
  1201. Function TrackBackUrlGet()
  1203. 'plugin node
  1204. For Each sAction_Plugin_TrackBackUrlGet_Begin in Action_Plugin_TrackBackUrlGet_Begin
  1205. If Not IsEmpty(sAction_Plugin_TrackBackUrlGet_Begin) Then Call Execute(sAction_Plugin_TrackBackUrlGet_Begin)
  1206. If bAction_Plugin_TrackBackUrlGet_Begin=True Then Exit Function
  1207. Next
  1209. Call GetRealUrlofTrackBackUrl(Request.QueryString("id"))
  1210. End Function
  1212. Function CommentDelBatch
  1214. 'plugin node
  1215. For Each sAction_Plugin_CommentDelBatch_Begin in Action_Plugin_CommentDelBatch_Begin
  1216. If Not IsEmpty(sAction_Plugin_CommentDelBatch_Begin) Then Call Execute(sAction_Plugin_CommentDelBatch_Begin)
  1217. If bAction_Plugin_CommentDelBatch_Begin=True Then Exit Function
  1218. Next
  1220. If DelCommentBatch() Then
  1221. Call SetBlogHint(True,True,Empty)
  1222. Call MakeBlogReBuild_Core()
  1224. 'plugin node
  1225. For Each sAction_Plugin_CommentDelBatch_Succeed in Action_Plugin_CommentDelBatch_Succeed
  1226. If Not IsEmpty(sAction_Plugin_CommentDelBatch_Succeed) Then Call Execute(sAction_Plugin_CommentDelBatch_Succeed)
  1227. If bAction_Plugin_CommentDelBatch_Succeed=True Then Exit Function
  1228. Next
  1230. Response.Redirect "cmd.asp?act=CommentMng"
  1231. End If
  1232. End Function
  1234. Function TrackBackDelBatch
  1236. 'plugin node
  1237. For Each sAction_Plugin_TrackBackDelBatch_Begin in Action_Plugin_TrackBackDelBatch_Begin
  1238. If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Begin) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Begin)
  1239. If bAction_Plugin_TrackBackDelBatch_Begin=True Then Exit Function
  1240. Next
  1242. If DelTrackBackBatch() Then
  1243. Call SetBlogHint(True,True,Empty)
  1244. Call MakeBlogReBuild_Core()
  1246. 'plugin node
  1247. For Each sAction_Plugin_TrackBackDelBatch_Succeed in Action_Plugin_TrackBackDelBatch_Succeed
  1248. If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Succeed) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Succeed)
  1249. If bAction_Plugin_TrackBackDelBatch_Succeed=True Then Exit Function
  1250. Next
  1252. Response.Redirect "cmd.asp?act=TrackBackMng"
  1253. End If
  1254. End Function
  1256. Function FileDelBatch
  1258. 'plugin node
  1259. For Each sAction_Plugin_FileDelBatch_Begin in Action_Plugin_FileDelBatch_Begin
  1260. If Not IsEmpty(sAction_Plugin_FileDelBatch_Begin) Then Call Execute(sAction_Plugin_FileDelBatch_Begin)
  1261. If bAction_Plugin_FileDelBatch_Begin=True Then Exit Function
  1262. Next
  1264. If DelFileBatch() Then
  1265. Call SetBlogHint(True,Empty,Empty)
  1267. 'plugin node
  1268. For Each sAction_Plugin_FileDelBatch_Succeed in Action_Plugin_FileDelBatch_Succeed
  1269. If Not IsEmpty(sAction_Plugin_FileDelBatch_Succeed) Then Call Execute(sAction_Plugin_FileDelBatch_Succeed)
  1270. If bAction_Plugin_FileDelBatch_Succeed=True Then Exit Function
  1271. Next
  1273. Response.Redirect "cmd.asp?act=FileMng"
  1274. End If
  1275. End Function
  1278. Function ThemesMng()
  1280. 'plugin node
  1281. For Each sAction_Plugin_ThemesMng_Begin in Action_Plugin_ThemesMng_Begin
  1282. If Not IsEmpty(sAction_Plugin_ThemesMng_Begin) Then Call Execute(sAction_Plugin_ThemesMng_Begin)
  1283. If bAction_Plugin_ThemesMng_Begin=True Then Exit Function
  1284. Next
  1286. Response.Redirect "admin/admin.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
  1287. End Function
  1290. Function ThemesSav()
  1292. 'plugin node
  1293. For Each sAction_Plugin_ThemesSav_Begin in Action_Plugin_ThemesSav_Begin
  1294. If Not IsEmpty(sAction_Plugin_ThemesSav_Begin) Then Call Execute(sAction_Plugin_ThemesSav_Begin)
  1295. If bAction_Plugin_ThemesSav_Begin=True Then Exit Function
  1296. Next
  1298. If SaveThemes Then
  1299. Call SetBlogHint(True,True,Empty)
  1301. 'plugin node
  1302. For Each sAction_Plugin_ThemesSav_Succeed in Action_Plugin_ThemesSav_Succeed
  1303. If Not IsEmpty(sAction_Plugin_ThemesSav_Succeed) Then Call Execute(sAction_Plugin_ThemesSav_Succeed)
  1304. If bAction_Plugin_ThemesSav_Succeed=True Then Exit Function
  1305. Next
  1307. Response.Redirect "cmd.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.Form("edtZC_BLOG_THEME"))
  1308. Else
  1309. Call ShowError(25)
  1310. End If
  1312. End Function
  1316. Function LinkMng()
  1318. 'plugin node
  1319. For Each sAction_Plugin_LinkMng_Begin in Action_Plugin_LinkMng_Begin
  1320. If Not IsEmpty(sAction_Plugin_LinkMng_Begin) Then Call Execute(sAction_Plugin_LinkMng_Begin)
  1321. If bAction_Plugin_LinkMng_Begin=True Then Exit Function
  1322. Next
  1324. Response.Redirect "admin/edit_link.asp"
  1325. End Function
  1328. Function LinkSav()
  1330. 'plugin node
  1331. For Each sAction_Plugin_LinkSav_Begin in Action_Plugin_LinkSav_Begin
  1332. If Not IsEmpty(sAction_Plugin_LinkSav_Begin) Then Call Execute(sAction_Plugin_LinkSav_Begin)
  1333. If bAction_Plugin_LinkSav_Begin=True Then Exit Function
  1334. Next
  1336. If SaveLink Then
  1337. Call SetBlogHint(True,Empty,Empty)
  1339. 'plugin node
  1340. For Each sAction_Plugin_LinkSav_Succeed in Action_Plugin_LinkSav_Succeed
  1341. If Not IsEmpty(sAction_Plugin_LinkSav_Succeed) Then Call Execute(sAction_Plugin_LinkSav_Succeed)
  1342. If bAction_Plugin_LinkSav_Succeed=True Then Exit Function
  1343. Next
  1345. Response.Redirect "cmd.asp?act=LinkMng"
  1346. Else
  1347. Call ShowError(25)
  1348. End If
  1349. End Function
  1352. Function PlugInMng()
  1354. 'plugin node
  1355. For Each sAction_Plugin_PlugInMng_Begin in Action_Plugin_PlugInMng_Begin
  1356. If Not IsEmpty(sAction_Plugin_PlugInMng_Begin) Then Call Execute(sAction_Plugin_PlugInMng_Begin)
  1357. If bAction_Plugin_PlugInMng_Begin=True Then Exit Function
  1358. Next
  1360. Response.Redirect "admin/admin.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
  1361. End Function
  1364. Function PlugInActive()
  1366. 'plugin node
  1367. For Each sAction_Plugin_PlugInActive_Begin in Action_Plugin_PlugInActive_Begin
  1368. If Not IsEmpty(sAction_Plugin_PlugInActive_Begin) Then Call Execute(sAction_Plugin_PlugInActive_Begin)
  1369. If bAction_Plugin_PlugInActive_Begin=True Then Exit Function
  1370. Next
  1372. If ActivePlugInByName(Request.QueryString("name"))=True Then
  1374. 'plugin node
  1375. For Each sAction_Plugin_PlugInActive_Succeed in Action_Plugin_PlugInActive_Succeed
  1376. If Not IsEmpty(sAction_Plugin_PlugInActive_Succeed) Then Call Execute(sAction_Plugin_PlugInActive_Succeed)
  1377. If bAction_Plugin_PlugInActive_Succeed=True Then Exit Function
  1378. Next
  1380. Response.Redirect "cmd.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("name"))
  1382. End If
  1384. End Function
  1387. Function PlugInDisable()
  1389. 'plugin node
  1390. For Each sAction_Plugin_PlugInDisable_Begin in Action_Plugin_PlugInDisable_Begin
  1391. If Not IsEmpty(sAction_Plugin_PlugInDisable_Begin) Then Call Execute(sAction_Plugin_PlugInDisable_Begin)
  1392. If bAction_Plugin_PlugInDisable_Begin=True Then Exit Function
  1393. Next
  1395. If DisablePlugInByName(Request.QueryString("name"))=True Then
  1397. 'plugin node
  1398. For Each sAction_Plugin_PlugInDisable_Succeed in Action_Plugin_PlugInDisable_Succeed
  1399. If Not IsEmpty(sAction_Plugin_PlugInDisable_Succeed) Then Call Execute(sAction_Plugin_PlugInDisable_Succeed)
  1400. If bAction_Plugin_PlugInDisable_Succeed=True Then Exit Function
  1401. Next
  1403. Response.Redirect "cmd.asp?act=PlugInMng"
  1404. End If
  1405. End Function
  1408. 'plugin node
  1409. For Each sAction_Plugin_Command_End in Action_Plugin_Command_End
  1410. If Not IsEmpty(sAction_Plugin_Command_End) Then Call Execute(sAction_Plugin_Command_End)
  1411. Next
  1413. Call System_Terminate()
  1415. If Err.Number<>0 then
  1416. Call ShowError(0)
  1417. End If
  1418. %>