cmd.asp
上传用户:saigedz
上传日期:2019-10-14
资源大小:997k
文件大小:40k
源码类别:

中间件编程

开发平台:

HTML/CSS

  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()
  32. 'plugin node
  33. For Each sAction_Plugin_Command_Begin in Action_Plugin_Command_Begin
  34. If Not IsEmpty(sAction_Plugin_Command_Begin) Then Call Execute(sAction_Plugin_Command_Begin)
  35. Next
  36. Dim strAct
  37. strAct=Request.QueryString("act")
  38. '如果不是"接收引用"就要检查非法链接
  39. If (strAct<>"tb") And (strAct<>"search") Then Call CheckReference("")
  40. '权限检查
  41. If Not CheckRights(strAct) Then Call ShowError(6)
  42. Select Case strAct
  43. '命令列表
  44. Case "login" 
  45. Call BlogLogin()
  46. Case "verify"
  47. Call BlogVerify()
  48. Case "logout"
  49. Call BlogLogout()
  50. Case "admin" 
  51. Call BlogAdmin()
  52. Case "cmt"
  53. Call CommentPost()
  54. Case "tb"
  55. Call TrackBackPost()
  56. Case "vrs"
  57. Call ViewRights()
  58. Case "ArticleMng"
  59. Call ArticleMng()
  60. Case "ArticleEdt"
  61. Call ArticleEdt()
  62. Case "ArticlePst"
  63. Call ArticlePst()
  64. Case "ArticleDel"
  65. Call ArticleDel()
  66. Case "CategoryMng"
  67. Call CategoryMng()
  68. Case "CategoryEdt"
  69. Call CategoryEdt()
  70. Case "CategoryPst"
  71. Call CategoryPst()
  72. Case "CategoryDel"
  73. Call CategoryDel()
  74. Case "CommentMng"
  75. Call CommentMng()
  76. Case "CommentDel"
  77. Call CommentDel()
  78. Case "CommentRev"
  79. Call CommentRev()
  80. Case "CommentEdt"
  81. Call CommentEdt()
  82. Case "CommentSav"
  83. Call CommentSav()
  84. Case "TrackBackMng"
  85. Call TrackBackMng()
  86. Case "TrackBackDel"
  87. Call TrackBackDel()
  88. Case "TrackBackSnd"
  89. Call TrackBackSnd()
  90. Case "UserMng"
  91. Call UserMng()
  92. Case "UserCrt"
  93. Call UserCrt()
  94. Case "UserEdt"
  95. Call UserEdt()
  96. Case "UserDel"
  97. Call UserDel()
  98. Case "FileReBuild"
  99. Call FileReBuild()
  100. Case "FileMng"
  101. Call FileMng()
  102. Case "FileSnd"
  103. Call FileSnd()
  104. Case "FileUpload"
  105. Call FileUpload()
  106. Case "FileDel"
  107. Call FileDel()
  108. Case "BlogReBuild"
  109. Call BlogReBuild()
  110. Case "DirectoryReBuild"
  111. Call DirectoryReBuild()
  112. Case "Search"
  113. Call Search()
  114. Case "SettingMng"
  115. Call SettingMng()
  116. Case "SettingSav"
  117. Call SettingSav()
  118. Case "TagMng"
  119. Call TagMng()
  120. Case "TagEdt"
  121. Call TagEdt()
  122. Case "TagPst"
  123. Call TagPst()
  124. Case "TagDel"
  125. Call TagDel()
  126. Case "PlugInMng"
  127. Call PlugInMng()
  128. Case "SiteInfo"
  129. Call SiteInfo()
  130. Case "SiteFileMng"
  131. Call SiteFileMng()
  132. Case "SiteFileEdt"
  133. Call SiteFileEdt()
  134. Case "SiteFilePst"
  135. Call SiteFilePst()
  136. Case "SiteFileDel"
  137. Call SiteFileDel()
  138. Case "AskFileReBuild"
  139. Call AskFileReBuild()
  140. Case "gettburl"
  141. Call TrackBackUrlGet()
  142. Case "CommentDelBatch"
  143. Call CommentDelBatch()
  144. Case "TrackBackDelBatch"
  145. Call TrackBackDelBatch()
  146. Case "FileDelBatch"
  147. Call FileDelBatch()
  148. Case "ThemesMng"
  149. Call ThemesMng()
  150. Case "ThemesSav"
  151. Call ThemesSav()
  152. Case "LinkMng"
  153. Call LinkMng()
  154. Case "LinkSav"
  155. Call LinkSav()
  156. Case "PlugInActive"
  157. Call PlugInActive()
  158. Case "PlugInDisable"
  159. Call PlugInDisable()
  160. End Select
  161. Function BlogLogin
  162. 'plugin node
  163. For Each sAction_Plugin_BlogLogin_Begin in Action_Plugin_BlogLogin_Begin
  164. If Not IsEmpty(sAction_Plugin_BlogLogin_Begin) Then Call Execute(sAction_Plugin_BlogLogin_Begin)
  165. If bAction_Plugin_BlogLogin_Begin=True Then Exit Function
  166. Next
  167. If BlogUser.Verify=False Then
  168. Response.Redirect "login.asp"
  169. Else
  170. Call BlogAdmin()
  171. End If
  172. End Function
  173. Function BlogVerify()
  174. 'plugin node
  175. For Each sAction_Plugin_BlogVerify_Begin in Action_Plugin_BlogVerify_Begin
  176. If Not IsEmpty(sAction_Plugin_BlogVerify_Begin) Then Call Execute(sAction_Plugin_BlogVerify_Begin)
  177. If bAction_Plugin_BlogVerify_Begin=True Then Exit Function
  178. Next
  179. If Login=True Then
  180. 'plugin node
  181. For Each sAction_Plugin_BlogVerify_Succeed in Action_Plugin_BlogVerify_Succeed
  182. If Not IsEmpty(sAction_Plugin_BlogVerify_Succeed) Then Call Execute(sAction_Plugin_BlogVerify_Succeed)
  183. If bAction_Plugin_BlogVerify_Succeed=True Then Exit Function
  184. Next
  185. Response.Redirect "cmd.asp?act=admin"
  186. Else
  187. Call ShowError(8)
  188. End If
  189. End Function
  190. Function BlogLogout
  191. 'plugin node
  192. For Each sAction_Plugin_BlogLogout_Begin in Action_Plugin_BlogLogout_Begin
  193. If Not IsEmpty(sAction_Plugin_BlogLogout_Begin) Then Call Execute(sAction_Plugin_BlogLogout_Begin)
  194. If bAction_Plugin_BlogLogout_Begin=True Then Exit Function
  195. Next
  196. If Logout=True Then
  197. 'plugin node
  198. For Each sAction_Plugin_BlogLogout_Succeed in Action_Plugin_BlogLogout_Succeed
  199. If Not IsEmpty(sAction_Plugin_BlogLogout_Succeed) Then Call Execute(sAction_Plugin_BlogLogout_Succeed)
  200. If bAction_Plugin_BlogLogout_Succeed=True Then Exit Function
  201. Next
  202. End If
  203. End Function
  204. Function BlogAdmin
  205. 'plugin node
  206. For Each sAction_Plugin_BlogAdmin_Begin in Action_Plugin_BlogAdmin_Begin
  207. If Not IsEmpty(sAction_Plugin_BlogAdmin_Begin) Then Call Execute(sAction_Plugin_BlogAdmin_Begin)
  208. If bAction_Plugin_BlogAdmin_Begin=True Then Exit Function
  209. Next
  210. 'Call MakeBlogReBuild_Core()
  211. Response.Redirect "admin/admin_default.asp"
  212. End Function
  213. Function ViewRights()
  214. 'plugin node
  215. For Each sAction_Plugin_ViewRights_Begin in Action_Plugin_ViewRights_Begin
  216. If Not IsEmpty(sAction_Plugin_ViewRights_Begin) Then Call Execute(sAction_Plugin_ViewRights_Begin)
  217. If bAction_Plugin_ViewRights_Begin=True Then Exit Function
  218. Next
  219. Call ListUser_Rights()
  220. End Function
  221. Function ArticleMng
  222. 'plugin node
  223. For Each sAction_Plugin_ArticleMng_Begin in Action_Plugin_ArticleMng_Begin
  224. If Not IsEmpty(sAction_Plugin_ArticleMng_Begin) Then Call Execute(sAction_Plugin_ArticleMng_Begin)
  225. If bAction_Plugin_ArticleMng_Begin=True Then Exit Function
  226. Next
  227. Response.Redirect "admin/admin.asp?act=ArticleMng&page=" & Request.QueryString("id")
  228. End Function
  229. Function ArticleEdt
  230. 'plugin node
  231. For Each sAction_Plugin_ArticleEdt_Begin in Action_Plugin_ArticleEdt_Begin
  232. If Not IsEmpty(sAction_Plugin_ArticleEdt_Begin) Then Call Execute(sAction_Plugin_ArticleEdt_Begin)
  233. If bAction_Plugin_ArticleEdt_Begin=True Then Exit Function
  234. Next
  235. On Error Resume Next
  236. If (Ubound(Categorys)=0) Then 
  237. Call SetBlogHint_Custom(ZC_MSG294)
  238. Response.Redirect "admin/edit_catalog.asp"
  239. End If
  240. If Request.QueryString("type")<>"" Then
  241. If IsEmpty(Request.QueryString("id"))=False Then
  242. Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp?id="& Request.QueryString("id")
  243. Else
  244. Response.Redirect "admin/edit_"& ZC_BLOG_WEBEDIT &".asp"
  245. End If
  246. Else
  247. If IsEmpty(Request.QueryString("id"))=False Then
  248. Response.Redirect "admin/edit.asp?id="& Request.QueryString("id")
  249. Else
  250. Response.Redirect "admin/edit.asp"
  251. End If
  252. End If
  253. End Function
  254. Function ArticlePst
  255. 'plugin node
  256. For Each sAction_Plugin_ArticlePst_Begin in Action_Plugin_ArticlePst_Begin
  257. If Not IsEmpty(sAction_Plugin_ArticlePst_Begin) Then Call Execute(sAction_Plugin_ArticlePst_Begin)
  258. If bAction_Plugin_ArticlePst_Begin=True Then Exit Function
  259. Next
  260. If PostArticle Then
  261. Call SetBlogHint(True,True,Empty)
  262. Call MakeBlogReBuild_Core()
  263. 'plugin node
  264. For Each sAction_Plugin_ArticlePst_Succeed in Action_Plugin_ArticlePst_Succeed
  265. If Not IsEmpty(sAction_Plugin_ArticlePst_Succeed) Then Call Execute(sAction_Plugin_ArticlePst_Succeed)
  266. If bAction_Plugin_ArticlePst_Succeed=True Then Exit Function
  267. Next
  268. Response.Redirect "cmd.asp?act=ArticleMng"
  269. Else
  270. Call ShowError(11)
  271. End If
  272. End Function
  273. Function ArticleDel
  274. 'plugin node
  275. For Each sAction_Plugin_ArticleDel_Begin in Action_Plugin_ArticleDel_Begin
  276. If Not IsEmpty(sAction_Plugin_ArticleDel_Begin) Then Call Execute(sAction_Plugin_ArticleDel_Begin)
  277. If bAction_Plugin_ArticleDel_Begin=True Then Exit Function
  278. Next
  279. If DelArticle(Request.QueryString("id")) Then
  280. Call SetBlogHint(True,True,Empty)
  281. Call MakeBlogReBuild_Core()
  282. 'plugin node
  283. For Each sAction_Plugin_ArticleDel_Succeed in Action_Plugin_ArticleDel_Succeed
  284. If Not IsEmpty(sAction_Plugin_ArticleDel_Succeed) Then Call Execute(sAction_Plugin_ArticleDel_Succeed)
  285. If bAction_Plugin_ArticleDel_Succeed=True Then Exit Function
  286. Next
  287. Response.Redirect "cmd.asp?act=ArticleMng"
  288. Else
  289. Call ShowError(11)
  290. End If
  291. End Function
  292. Function CategoryMng
  293. 'plugin node
  294. For Each sAction_Plugin_CategoryMng_Begin in Action_Plugin_CategoryMng_Begin
  295. If Not IsEmpty(sAction_Plugin_CategoryMng_Begin) Then Call Execute(sAction_Plugin_CategoryMng_Begin)
  296. If bAction_Plugin_CategoryMng_Begin=True Then Exit Function
  297. Next
  298. Response.Redirect "admin/admin.asp?act=CategoryMng&page=" & Request.QueryString("id")
  299. End Function
  300. Function CategoryEdt
  301. 'plugin node
  302. For Each sAction_Plugin_CategoryEdt_Begin in Action_Plugin_CategoryEdt_Begin
  303. If Not IsEmpty(sAction_Plugin_CategoryEdt_Begin) Then Call Execute(sAction_Plugin_CategoryEdt_Begin)
  304. If bAction_Plugin_CategoryEdt_Begin=True Then Exit Function
  305. Next
  306. If IsEmpty(Request.QueryString("id"))=False Then
  307. Response.Redirect "admin/edit_catalog.asp?id=" & Request.QueryString("id")
  308. Else
  309. Response.Redirect "admin/edit_catalog.asp"
  310. End If
  311. End Function
  312. Function CategoryPst
  313. 'plugin node
  314. For Each sAction_Plugin_CategoryPst_Begin in Action_Plugin_CategoryPst_Begin
  315. If Not IsEmpty(sAction_Plugin_CategoryPst_Begin) Then Call Execute(sAction_Plugin_CategoryPst_Begin)
  316. If bAction_Plugin_CategoryPst_Begin=True Then Exit Function
  317. Next
  318. If PostCategory Then
  319. Call SetBlogHint(True,True,Empty)
  320. Call MakeBlogReBuild_Core()
  321. 'plugin node
  322. For Each sAction_Plugin_CategoryPst_Succeed in Action_Plugin_CategoryPst_Succeed
  323. If Not IsEmpty(sAction_Plugin_CategoryPst_Succeed) Then Call Execute(sAction_Plugin_CategoryPst_Succeed)
  324. If bAction_Plugin_CategoryPst_Succeed=True Then Exit Function
  325. Next
  326. Response.Redirect "cmd.asp?act=CategoryMng"
  327. Else
  328. Call ShowError(12)
  329. End If
  330. End Function
  331. Function CategoryDel
  332. 'plugin node
  333. For Each sAction_Plugin_CategoryDel_Begin in Action_Plugin_CategoryDel_Begin
  334. If Not IsEmpty(sAction_Plugin_CategoryDel_Begin) Then Call Execute(sAction_Plugin_CategoryDel_Begin)
  335. If bAction_Plugin_CategoryDel_Begin=True Then Exit Function
  336. Next
  337. If DelCategory(Request.QueryString("id")) Then
  338. Call SetBlogHint(True,True,Empty)
  339. Call MakeBlogReBuild_Core()
  340. 'plugin node
  341. For Each sAction_Plugin_CategoryDel_Succeed in Action_Plugin_CategoryDel_Succeed
  342. If Not IsEmpty(sAction_Plugin_CategoryDel_Succeed) Then Call Execute(sAction_Plugin_CategoryDel_Succeed)
  343. If bAction_Plugin_CategoryDel_Succeed=True Then Exit Function
  344. Next
  345. Response.Redirect "cmd.asp?act=CategoryMng"
  346. Else
  347. Call ShowError(12)
  348. End If
  349. End Function
  350. Function CommentMng
  351. 'plugin node
  352. For Each sAction_Plugin_CommentMng_Begin in Action_Plugin_CommentMng_Begin
  353. If Not IsEmpty(sAction_Plugin_CommentMng_Begin) Then Call Execute(sAction_Plugin_CommentMng_Begin)
  354. If bAction_Plugin_CommentMng_Begin=True Then Exit Function
  355. Next
  356. Response.Redirect "admin/admin.asp?act=CommentMng&page=" & Request.QueryString("id")
  357. End Function
  358. Function CommentPost
  359. 'plugin node
  360. For Each sAction_Plugin_CommentPost_Begin in Action_Plugin_CommentPost_Begin
  361. If Not IsEmpty(sAction_Plugin_CommentPost_Begin) Then Call Execute(sAction_Plugin_CommentPost_Begin)
  362. If bAction_Plugin_CommentPost_Begin=True Then Exit Function
  363. Next
  364. If PostComment(Request.QueryString("key")) Then
  365. Call ClearGlobeCache
  366. Call LoadGlobeCache
  367. 'plugin node
  368. For Each sAction_Plugin_CommentPost_Succeed in Action_Plugin_CommentPost_Succeed
  369. If Not IsEmpty(sAction_Plugin_CommentPost_Succeed) Then Call Execute(sAction_Plugin_CommentPost_Succeed)
  370. If bAction_Plugin_CommentPost_Succeed=True Then Exit Function
  371. Next
  372. If IsEmpty(Request.Form("inpAjax"))=False Then
  373. Response.End
  374. End If
  375. Response.Redirect Request.Form("inpLocation")
  376. Else
  377. Call ShowError(14)
  378. End If
  379. End Function
  380. Function CommentDel
  381. 'plugin node
  382. For Each sAction_Plugin_CommentDel_Begin in Action_Plugin_CommentDel_Begin
  383. If Not IsEmpty(sAction_Plugin_CommentDel_Begin) Then Call Execute(sAction_Plugin_CommentDel_Begin)
  384. If bAction_Plugin_CommentDel_Begin=True Then Exit Function
  385. Next
  386. If DelComment(Request.QueryString("id"),Request.QueryString("log_id")) Then
  387. Call SetBlogHint(True,True,Empty)
  388. Call MakeBlogReBuild_Core()
  389. 'plugin node
  390. For Each sAction_Plugin_CommentDel_Succeed in Action_Plugin_CommentDel_Succeed
  391. If Not IsEmpty(sAction_Plugin_CommentDel_Succeed) Then Call Execute(sAction_Plugin_CommentDel_Succeed)
  392. If bAction_Plugin_CommentDel_Succeed=True Then Exit Function
  393. Next
  394. Response.Redirect "cmd.asp?act=CommentMng"
  395. Else
  396. Call ShowError(18)
  397. End If
  398. End Function
  399. Function CommentRev
  400. 'plugin node
  401. For Each sAction_Plugin_CommentRev_Begin in Action_Plugin_CommentRev_Begin
  402. If Not IsEmpty(sAction_Plugin_CommentRev_Begin) Then Call Execute(sAction_Plugin_CommentRev_Begin)
  403. If bAction_Plugin_CommentRev_Begin=True Then Exit Function
  404. Next
  405. If RevertComment(Request.QueryString("key"),Request.QueryString("id")) Then
  406. Call ClearGlobeCache
  407. Call LoadGlobeCache
  408. 'plugin node
  409. For Each sAction_Plugin_CommentRev_Succeed in Action_Plugin_CommentRev_Succeed
  410. If Not IsEmpty(sAction_Plugin_CommentRev_Succeed) Then Call Execute(sAction_Plugin_CommentRev_Succeed)
  411. If bAction_Plugin_CommentRev_Succeed=True Then Exit Function
  412. Next
  413. If IsEmpty(Request.Form("inpAjax"))=False Then
  414. Response.End
  415. End If
  416. Response.Redirect Request.Form("inpLocation")
  417. Else
  418. Call ShowError(14)
  419. End If
  420. End Function
  421. Function CommentEdt
  422. 'plugin node
  423. For Each sAction_Plugin_CommentEdt_Begin in Action_Plugin_CommentEdt_Begin
  424. If Not IsEmpty(sAction_Plugin_CommentEdt_Begin) Then Call Execute(sAction_Plugin_CommentEdt_Begin)
  425. If bAction_Plugin_CommentEdt_Begin=True Then Exit Function
  426. Next
  427. Response.Redirect "admin/edit_comment.asp?id="& Request.QueryString("id") & "&log_id="& Request.QueryString("log_id") 
  428. End Function
  429. Function CommentSav
  430. 'plugin node
  431. For Each sAction_Plugin_CommentSav_Begin in Action_Plugin_CommentSav_Begin
  432. If Not IsEmpty(sAction_Plugin_CommentSav_Begin) Then Call Execute(sAction_Plugin_CommentSav_Begin)
  433. If bAction_Plugin_CommentSav_Begin=True Then Exit Function
  434. Next
  435. If SaveComment(Request.Form("edtID"),Request.Form("inpID")) Then
  436. Call SetBlogHint(True,True,Empty)
  437. Call MakeBlogReBuild_Core()
  438. 'plugin node
  439. For Each sAction_Plugin_CommentSav_Succeed in Action_Plugin_CommentSav_Succeed
  440. If Not IsEmpty(sAction_Plugin_CommentSav_Succeed) Then Call Execute(sAction_Plugin_CommentSav_Succeed)
  441. If bAction_Plugin_CommentSav_Succeed=True Then Exit Function
  442. Next
  443. Response.Redirect "cmd.asp?act=CommentMng"
  444. Else
  445. Call ShowError(42)
  446. End If
  447. End Function
  448. Function TrackBackMng
  449. 'plugin node
  450. For Each sAction_Plugin_TrackBackMng_Begin in Action_Plugin_TrackBackMng_Begin
  451. If Not IsEmpty(sAction_Plugin_TrackBackMng_Begin) Then Call Execute(sAction_Plugin_TrackBackMng_Begin)
  452. If bAction_Plugin_TrackBackMng_Begin=True Then Exit Function
  453. Next
  454. Response.Redirect "admin/admin.asp?act=TrackBackMng&page=" & Request.QueryString("id")
  455. End Function
  456. Function TrackBackPost
  457. 'plugin node
  458. For Each sAction_Plugin_TrackBackPost_Begin in Action_Plugin_TrackBackPost_Begin
  459. If Not IsEmpty(sAction_Plugin_TrackBackPost_Begin) Then Call Execute(sAction_Plugin_TrackBackPost_Begin)
  460. If bAction_Plugin_TrackBackPost_Begin=True Then Exit Function
  461. Next
  462. If PostTrackBack(Request.QueryString("id"),Request.QueryString("key"))=True Then 
  463. 'plugin node
  464. For Each sAction_Plugin_TrackBackPost_Succeed in Action_Plugin_TrackBackPost_Succeed
  465. If Not IsEmpty(sAction_Plugin_TrackBackPost_Succeed) Then Call Execute(sAction_Plugin_TrackBackPost_Succeed)
  466. If bAction_Plugin_TrackBackPost_Succeed=True Then Exit Function
  467. Next
  468. End If
  469. End Function
  470. Function TrackBackDel
  471. 'plugin node
  472. For Each sAction_Plugin_TrackBackDel_Begin in Action_Plugin_TrackBackDel_Begin
  473. If Not IsEmpty(sAction_Plugin_TrackBackDel_Begin) Then Call Execute(sAction_Plugin_TrackBackDel_Begin)
  474. If bAction_Plugin_TrackBackDel_Begin=True Then Exit Function
  475. Next
  476. If DelTrackBack(Request.QueryString("id"),Request.QueryString("log_id")) Then
  477. Call SetBlogHint(True,True,Empty)
  478. Call MakeBlogReBuild_Core()
  479. 'plugin node
  480. For Each sAction_Plugin_TrackBackDel_Succeed in Action_Plugin_TrackBackDel_Succeed
  481. If Not IsEmpty(sAction_Plugin_TrackBackDel_Succeed) Then Call Execute(sAction_Plugin_TrackBackDel_Succeed)
  482. If bAction_Plugin_TrackBackDel_Succeed=True Then Exit Function
  483. Next
  484. Response.Redirect "cmd.asp?act=TrackBackMng"
  485. Else
  486. Call ShowError(19)
  487. End If
  488. End Function
  489. Function TrackBackSnd
  490. 'plugin node
  491. For Each sAction_Plugin_TrackBackSnd_Begin in Action_Plugin_TrackBackSnd_Begin
  492. If Not IsEmpty(sAction_Plugin_TrackBackSnd_Begin) Then Call Execute(sAction_Plugin_TrackBackSnd_Begin)
  493. If bAction_Plugin_TrackBackSnd_Begin=True Then Exit Function
  494. Next
  495. If SendTrackBack() Then
  496. Call SetBlogHint(True,Empty,Empty)
  497. 'plugin node
  498. For Each sAction_Plugin_TrackBackSnd_Succeed in Action_Plugin_TrackBackSnd_Succeed
  499. If Not IsEmpty(sAction_Plugin_TrackBackSnd_Succeed) Then Call Execute(sAction_Plugin_TrackBackSnd_Succeed)
  500. If bAction_Plugin_TrackBackSnd_Succeed=True Then Exit Function
  501. Next
  502. Response.Redirect "cmd.asp?act=ArticleMng"
  503. Else
  504. Call ShowError(20)
  505. End If
  506. End Function
  507. Function UserMng()
  508. 'plugin node
  509. For Each sAction_Plugin_UserMng_Begin in Action_Plugin_UserMng_Begin
  510. If Not IsEmpty(sAction_Plugin_UserMng_Begin) Then Call Execute(sAction_Plugin_UserMng_Begin)
  511. If bAction_Plugin_UserMng_Begin=True Then Exit Function
  512. Next
  513. Call SetBlogHint_Custom(ZC_MSG315)
  514. Response.Redirect "admin/admin.asp?act=UserMng&page=" & Request.QueryString("id")
  515. End Function
  516. Function UserCrt()
  517. 'plugin node
  518. For Each sAction_Plugin_UserCrt_Begin in Action_Plugin_UserCrt_Begin
  519. If Not IsEmpty(sAction_Plugin_UserCrt_Begin) Then Call Execute(sAction_Plugin_UserCrt_Begin)
  520. If bAction_Plugin_UserCrt_Begin=True Then Exit Function
  521. Next
  522. If EditUser Then
  523. Call SetBlogHint(True,True,Empty)
  524. Call MakeBlogReBuild_Core()
  525. 'plugin node
  526. For Each sAction_Plugin_UserCrt_Succeed in Action_Plugin_UserCrt_Succeed
  527. If Not IsEmpty(sAction_Plugin_UserCrt_Succeed) Then Call Execute(sAction_Plugin_UserCrt_Succeed)
  528. If bAction_Plugin_UserCrt_Succeed=True Then Exit Function
  529. Next
  530. Response.Redirect "cmd.asp?act=UserMng"
  531. Else
  532. Call ShowError(16)
  533. End If
  534. End Function
  535. Function UserEdt()
  536. 'plugin node
  537. For Each sAction_Plugin_UserEdt_Begin in Action_Plugin_UserEdt_Begin
  538. If Not IsEmpty(sAction_Plugin_UserEdt_Begin) Then Call Execute(sAction_Plugin_UserEdt_Begin)
  539. If bAction_Plugin_UserEdt_Begin=True Then Exit Function
  540. Next
  541. If EditUser Then
  542. Call SetBlogHint(True,True,Empty)
  543. Call MakeBlogReBuild_Core()
  544. 'plugin node
  545. For Each sAction_Plugin_UserEdt_Succeed in Action_Plugin_UserEdt_Succeed
  546. If Not IsEmpty(sAction_Plugin_UserEdt_Succeed) Then Call Execute(sAction_Plugin_UserEdt_Succeed)
  547. If bAction_Plugin_UserEdt_Succeed=True Then Exit Function
  548. Next
  549. Response.Redirect "cmd.asp?act=UserMng"
  550. Else
  551. Call ShowError(16)
  552. End If
  553. End Function
  554. Function UserDel()
  555. 'plugin node
  556. For Each sAction_Plugin_UserDel_Begin in Action_Plugin_UserDel_Begin
  557. If Not IsEmpty(sAction_Plugin_UserDel_Begin) Then Call Execute(sAction_Plugin_UserDel_Begin)
  558. If bAction_Plugin_UserDel_Begin=True Then Exit Function
  559. Next
  560. If DelUser(Request.QueryString("id")) Then
  561. Call SetBlogHint(True,True,Empty)
  562. Call MakeBlogReBuild_Core()
  563. 'plugin node
  564. For Each sAction_Plugin_UserDel_Succeed in Action_Plugin_UserDel_Succeed
  565. If Not IsEmpty(sAction_Plugin_UserDel_Succeed) Then Call Execute(sAction_Plugin_UserDel_Succeed)
  566. If bAction_Plugin_UserDel_Succeed=True Then Exit Function
  567. Next
  568. Response.Redirect "cmd.asp?act=UserMng"
  569. Else
  570. Call ShowError(17)
  571. End If
  572. End Function
  573. Function FileMng()
  574. 'plugin node
  575. For Each sAction_Plugin_FileMng_Begin in Action_Plugin_FileMng_Begin
  576. If Not IsEmpty(sAction_Plugin_FileMng_Begin) Then Call Execute(sAction_Plugin_FileMng_Begin)
  577. If bAction_Plugin_FileMng_Begin=True Then Exit Function
  578. Next
  579. Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
  580. End Function
  581. Function FileSnd()
  582. 'plugin node
  583. For Each sAction_Plugin_FileSnd_Begin in Action_Plugin_FileSnd_Begin
  584. If Not IsEmpty(sAction_Plugin_FileSnd_Begin) Then Call Execute(sAction_Plugin_FileSnd_Begin)
  585. If bAction_Plugin_FileSnd_Begin=True Then Exit Function
  586. Next
  587. Call SendFile()
  588. End Function
  589. Function FileUpload()
  590. 'plugin node
  591. For Each sAction_Plugin_FileUpload_Begin in Action_Plugin_FileUpload_Begin
  592. If Not IsEmpty(sAction_Plugin_FileUpload_Begin) Then Call Execute(sAction_Plugin_FileUpload_Begin)
  593. If bAction_Plugin_FileUpload_Begin=True Then Exit Function
  594. Next
  595. Server.ScriptTimeout = 1200
  596. If UploadFile(CBool(Request.QueryString("autoname")),CBool(Request.QueryString("reload"))) Then
  597. Call SetBlogHint(True,Empty,Empty)
  598. 'plugin node
  599. For Each sAction_Plugin_FileUpload_Succeed in Action_Plugin_FileUpload_Succeed
  600. If Not IsEmpty(sAction_Plugin_FileUpload_Succeed) Then Call Execute(sAction_Plugin_FileUpload_Succeed)
  601. If bAction_Plugin_FileUpload_Succeed=True Then Exit Function
  602. Next
  603. If CBool(Request.QueryString("reload"))=True Then
  604. Response.End
  605. End If
  606. Response.Redirect "admin/admin.asp?act=FileMng&page=" & Request.QueryString("id")
  607. Else
  608. Call ShowError(21)
  609. End If
  610. End Function
  611. Function FileDel()
  612. 'plugin node
  613. For Each sAction_Plugin_FileDel_Begin in Action_Plugin_FileDel_Begin
  614. If Not IsEmpty(sAction_Plugin_FileDel_Begin) Then Call Execute(sAction_Plugin_FileDel_Begin)
  615. If bAction_Plugin_FileDel_Begin=True Then Exit Function
  616. Next
  617. If DelFile(Request.QueryString("id")) Then
  618. Call SetBlogHint(True,Empty,Empty)
  619. 'plugin node
  620. For Each sAction_Plugin_FileDel_Succeed in Action_Plugin_FileDel_Succeed
  621. If Not IsEmpty(sAction_Plugin_FileDel_Succeed) Then Call Execute(sAction_Plugin_FileDel_Succeed)
  622. If bAction_Plugin_FileDel_Succeed=True Then Exit Function
  623. Next
  624. Response.Redirect "cmd.asp?act=FileMng"
  625. Else
  626. Call ShowError(22)
  627. End If
  628. End Function
  629. Function Search()
  630. 'plugin node
  631. For Each sAction_Plugin_Search_Begin in Action_Plugin_Search_Begin
  632. If Not IsEmpty(sAction_Plugin_Search_Begin) Then Call Execute(sAction_Plugin_Search_Begin)
  633. If bAction_Plugin_Search_Begin=True Then Exit Function
  634. Next
  635. RedirectBy301(ZC_BLOG_HOST & "search.asp?q=" & Server.URLEncode(Request.Form("edtSearch")))
  636. End Function
  637. Function SettingMng()
  638. 'plugin node
  639. For Each sAction_Plugin_SettingMng_Begin in Action_Plugin_SettingMng_Begin
  640. If Not IsEmpty(sAction_Plugin_SettingMng_Begin) Then Call Execute(sAction_Plugin_SettingMng_Begin)
  641. If bAction_Plugin_SettingMng_Begin=True Then Exit Function
  642. Next
  643. If Not IsEmpty(Request.QueryString("ok")) Then
  644. Call SetBlogHint(True,Empty,Empty)
  645. 'Call MakeBlogReBuild_Core()
  646. End If
  647. Response.Redirect "admin/edit_setting.asp"
  648. End Function
  649. Function SettingSav()
  650. 'plugin node
  651. For Each sAction_Plugin_SettingSav_Begin in Action_Plugin_SettingSav_Begin
  652. If Not IsEmpty(sAction_Plugin_SettingSav_Begin) Then Call Execute(sAction_Plugin_SettingSav_Begin)
  653. If bAction_Plugin_SettingSav_Begin=True Then Exit Function
  654. Next
  655. If SaveSetting Then
  656. Call SetBlogHint(True,Empty,Empty)
  657. 'plugin node
  658. For Each sAction_Plugin_SettingSav_Succeed in Action_Plugin_SettingSav_Succeed
  659. If Not IsEmpty(sAction_Plugin_SettingSav_Succeed) Then Call Execute(sAction_Plugin_SettingSav_Succeed)
  660. If bAction_Plugin_SettingSav_Succeed=True Then Exit Function
  661. Next
  662. Response.Redirect "cmd.asp?act=SettingMng&ok"
  663. Else
  664. Call ShowError(25)
  665. End If
  666. End Function
  667. Function TagMng()
  668. 'plugin node
  669. For Each sAction_Plugin_TagMng_Begin in Action_Plugin_TagMng_Begin
  670. If Not IsEmpty(sAction_Plugin_TagMng_Begin) Then Call Execute(sAction_Plugin_TagMng_Begin)
  671. If bAction_Plugin_TagMng_Begin=True Then Exit Function
  672. Next
  673. Response.Redirect "admin/admin.asp?act=TagMng&page=" & Request.QueryString("id")
  674. End Function
  675. Function TagEdt()
  676. 'plugin node
  677. For Each sAction_Plugin_TagEdt_Begin in Action_Plugin_TagEdt_Begin
  678. If Not IsEmpty(sAction_Plugin_TagEdt_Begin) Then Call Execute(sAction_Plugin_TagEdt_Begin)
  679. If bAction_Plugin_TagEdt_Begin=True Then Exit Function
  680. Next
  681. If IsEmpty(Request.QueryString("id"))=False Then
  682. Response.Redirect "admin/edit_tag.asp?id=" & Request.QueryString("id")
  683. Else
  684. Response.Redirect "admin/edit_tag.asp"
  685. End If
  686. End Function
  687. Function TagPst()
  688. 'plugin node
  689. For Each sAction_Plugin_TagPst_Begin in Action_Plugin_TagPst_Begin
  690. If Not IsEmpty(sAction_Plugin_TagPst_Begin) Then Call Execute(sAction_Plugin_TagPst_Begin)
  691. If bAction_Plugin_TagPst_Begin=True Then Exit Function
  692. Next
  693. If PostTag Then
  694. Call SetBlogHint(True,True,Empty)
  695. Call MakeBlogReBuild_Core()
  696. 'plugin node
  697. For Each sAction_Plugin_TagPst_Succeed in Action_Plugin_TagPst_Succeed
  698. If Not IsEmpty(sAction_Plugin_TagPst_Succeed) Then Call Execute(sAction_Plugin_TagPst_Succeed)
  699. If bAction_Plugin_TagPst_Succeed=True Then Exit Function
  700. Next
  701. Response.Redirect "cmd.asp?act=TagMng"
  702. Else
  703. Call ShowError(35)
  704. End If
  705. End Function
  706. Function TagDel()
  707. 'plugin node
  708. For Each sAction_Plugin_TagDel_Begin in Action_Plugin_TagDel_Begin
  709. If Not IsEmpty(sAction_Plugin_TagDel_Begin) Then Call Execute(sAction_Plugin_TagDel_Begin)
  710. If bAction_Plugin_TagDel_Begin=True Then Exit Function
  711. Next
  712. If DelTag(Request.QueryString("id")) Then
  713. Call SetBlogHint(True,True,Empty)
  714. Call MakeBlogReBuild_Core()
  715. 'plugin node
  716. For Each sAction_Plugin_TagDel_Succeed in Action_Plugin_TagDel_Succeed
  717. If Not IsEmpty(sAction_Plugin_TagDel_Succeed) Then Call Execute(sAction_Plugin_TagDel_Succeed)
  718. If bAction_Plugin_TagDel_Succeed=True Then Exit Function
  719. Next
  720. Response.Redirect "cmd.asp?act=TagMng"
  721. Else
  722. Call ShowError(36)
  723. End If
  724. End Function
  725. Function BlogReBuild()
  726. 'plugin node
  727. For Each sAction_Plugin_BlogReBuild_Begin in Action_Plugin_BlogReBuild_Begin
  728. If Not IsEmpty(sAction_Plugin_BlogReBuild_Begin) Then Call Execute(sAction_Plugin_BlogReBuild_Begin)
  729. If bAction_Plugin_BlogReBuild_Begin=True Then Exit Function
  730. Next
  731. Server.ScriptTimeout = 1200
  732. If MakeBlogReBuild Then
  733. Call ClearGlobeCache
  734. Call LoadGlobeCache
  735. 'plugin node
  736. For Each sAction_Plugin_BlogReBuild_Succeed in Action_Plugin_BlogReBuild_Succeed
  737. If Not IsEmpty(sAction_Plugin_BlogReBuild_Succeed) Then Call Execute(sAction_Plugin_BlogReBuild_Succeed)
  738. If bAction_Plugin_BlogReBuild_Succeed=True Then Exit Function
  739. Next
  740. Else
  741. Call ShowError(23)
  742. End If
  743. End Function
  744. Function DirectoryReBuild
  745. 'plugin node
  746. For Each sAction_Plugin_DirectoryReBuild_Begin in Action_Plugin_DirectoryReBuild_Begin
  747. If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Begin) Then Call Execute(sAction_Plugin_DirectoryReBuild_Begin)
  748. If bAction_Plugin_DirectoryReBuild_Begin=True Then Exit Function
  749. Next
  750. Server.ScriptTimeout = 1200
  751. If MakeDirectoryReBuild Then
  752. Call ClearGlobeCache
  753. Call LoadGlobeCache
  754. 'plugin node
  755. For Each sAction_Plugin_DirectoryReBuild_Succeed in Action_Plugin_DirectoryReBuild_Succeed
  756. If Not IsEmpty(sAction_Plugin_DirectoryReBuild_Succeed) Then Call Execute(sAction_Plugin_DirectoryReBuild_Succeed)
  757. If bAction_Plugin_DirectoryReBuild_Succeed=True Then Exit Function
  758. Next
  759. Else
  760. Call ShowError(23)
  761. End If
  762. Response.Redirect "admin/admin.asp?act=AskFileReBuild"
  763. End Function
  764. Function FileReBuild()
  765. 'plugin node
  766. For Each sAction_Plugin_FileReBuild_Begin in Action_Plugin_FileReBuild_Begin
  767. If Not IsEmpty(sAction_Plugin_FileReBuild_Begin) Then Call Execute(sAction_Plugin_FileReBuild_Begin)
  768. If bAction_Plugin_FileReBuild_Begin=True Then Exit Function
  769. Next
  770. Server.ScriptTimeout = 1200
  771. If  MakeFileReBuild()=True Then
  772. 'plugin node
  773. For Each sAction_Plugin_FileReBuild_Succeed in Action_Plugin_FileReBuild_Succeed
  774. If Not IsEmpty(sAction_Plugin_FileReBuild_Succeed) Then Call Execute(sAction_Plugin_FileReBuild_Succeed)
  775. If bAction_Plugin_FileReBuild_Succeed=True Then Exit Function
  776. Next
  777. End If
  778. End Function
  779. Function SiteInfo()
  780. 'plugin node
  781. For Each sAction_Plugin_SiteInfo_Begin in Action_Plugin_SiteInfo_Begin
  782. If Not IsEmpty(sAction_Plugin_SiteInfo_Begin) Then Call Execute(sAction_Plugin_SiteInfo_Begin)
  783. If bAction_Plugin_SiteInfo_Begin=True Then Exit Function
  784. Next
  785. Response.Redirect "admin/admin.asp?act=SiteInfo"
  786. End Function
  787. Function SiteFileMng()
  788. 'plugin node
  789. For Each sAction_Plugin_SiteFileMng_Begin in Action_Plugin_SiteFileMng_Begin
  790. If Not IsEmpty(sAction_Plugin_SiteFileMng_Begin) Then Call Execute(sAction_Plugin_SiteFileMng_Begin)
  791. If bAction_Plugin_SiteFileMng_Begin=True Then Exit Function
  792. Next
  793. Call SetBlogHint_Custom(ZC_MSG299)
  794. Response.Redirect "admin/admin.asp?act=SiteFileMng&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  795. End Function
  796. Function SiteFileEdt()
  797. 'plugin node
  798. For Each sAction_Plugin_SiteFileEdt_Begin in Action_Plugin_SiteFileEdt_Begin
  799. If Not IsEmpty(sAction_Plugin_SiteFileEdt_Begin) Then Call Execute(sAction_Plugin_SiteFileEdt_Begin)
  800. If bAction_Plugin_SiteFileEdt_Begin=True Then Exit Function
  801. Next
  802. Response.Redirect "admin/admin.asp?act=SiteFileEdt&path=" & Server.URLEncode(Request.QueryString("path")) & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  803. End Function
  804. Function SiteFilePst()
  805. 'plugin node
  806. For Each sAction_Plugin_SiteFilePst_Begin in Action_Plugin_SiteFilePst_Begin
  807. If Not IsEmpty(sAction_Plugin_SiteFilePst_Begin) Then Call Execute(sAction_Plugin_SiteFilePst_Begin)
  808. If bAction_Plugin_SiteFilePst_Begin=True Then Exit Function
  809. Next
  810. If PostSiteFile(Request.QueryString("path")) Then
  811. Call SetBlogHint(True,True,Empty)
  812. 'plugin node
  813. For Each sAction_Plugin_SiteFilePst_Succeed in Action_Plugin_SiteFilePst_Succeed
  814. If Not IsEmpty(sAction_Plugin_SiteFilePst_Succeed) Then Call Execute(sAction_Plugin_SiteFilePst_Succeed)
  815. If bAction_Plugin_SiteFilePst_Succeed=True Then Exit Function
  816. Next
  817. Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Server.URLEncode(Request.QueryString("opath"))
  818. End If
  819. End Function
  820. Function SiteFileDel()
  821. 'plugin node
  822. For Each sAction_Plugin_SiteFileDel_Begin in Action_Plugin_SiteFileDel_Begin
  823. If Not IsEmpty(sAction_Plugin_SiteFileDel_Begin) Then Call Execute(sAction_Plugin_SiteFileDel_Begin)
  824. If bAction_Plugin_SiteFileDel_Begin=True Then Exit Function
  825. Next
  826. If DelSiteFile(Request.QueryString("path")) Then
  827. Call SetBlogHint(True,True,Empty)
  828. 'plugin node
  829. For Each sAction_Plugin_SiteFileDel_Succeed in Action_Plugin_SiteFileDel_Succeed
  830. If Not IsEmpty(sAction_Plugin_SiteFileDel_Succeed) Then Call Execute(sAction_Plugin_SiteFileDel_Succeed)
  831. If bAction_Plugin_SiteFileDel_Succeed=True Then Exit Function
  832. Next
  833. Response.Redirect "admin/admin.asp?act=SiteFileMng" & "&opath=" & Request.QueryString("opath")
  834. End If
  835. End Function
  836. Function AskFileReBuild()
  837. 'plugin node
  838. For Each sAction_Plugin_AskFileReBuild_Begin in Action_Plugin_AskFileReBuild_Begin
  839. If Not IsEmpty(sAction_Plugin_AskFileReBuild_Begin) Then Call Execute(sAction_Plugin_AskFileReBuild_Begin)
  840. If bAction_Plugin_AskFileReBuild_Begin=True Then Exit Function
  841. Next
  842. Call ClearGlobeCache
  843. Call LoadGlobeCache
  844. 'Call SetBlogHint(Empty,True,Empty)
  845. Response.Redirect "admin/admin.asp?act=AskFileReBuild"
  846. End Function
  847. Function TrackBackUrlGet()
  848. 'plugin node
  849. For Each sAction_Plugin_TrackBackUrlGet_Begin in Action_Plugin_TrackBackUrlGet_Begin
  850. If Not IsEmpty(sAction_Plugin_TrackBackUrlGet_Begin) Then Call Execute(sAction_Plugin_TrackBackUrlGet_Begin)
  851. If bAction_Plugin_TrackBackUrlGet_Begin=True Then Exit Function
  852. Next
  853. Call GetRealUrlofTrackBackUrl(Request.QueryString("id"))
  854. End Function
  855. Function CommentDelBatch
  856. 'plugin node
  857. For Each sAction_Plugin_CommentDelBatch_Begin in Action_Plugin_CommentDelBatch_Begin
  858. If Not IsEmpty(sAction_Plugin_CommentDelBatch_Begin) Then Call Execute(sAction_Plugin_CommentDelBatch_Begin)
  859. If bAction_Plugin_CommentDelBatch_Begin=True Then Exit Function
  860. Next
  861. If DelCommentBatch() Then
  862. Call SetBlogHint(True,True,Empty)
  863. Call MakeBlogReBuild_Core()
  864. 'plugin node
  865. For Each sAction_Plugin_CommentDelBatch_Succeed in Action_Plugin_CommentDelBatch_Succeed
  866. If Not IsEmpty(sAction_Plugin_CommentDelBatch_Succeed) Then Call Execute(sAction_Plugin_CommentDelBatch_Succeed)
  867. If bAction_Plugin_CommentDelBatch_Succeed=True Then Exit Function
  868. Next
  869. Response.Redirect "cmd.asp?act=CommentMng"
  870. End If
  871. End Function
  872. Function TrackBackDelBatch
  873. 'plugin node
  874. For Each sAction_Plugin_TrackBackDelBatch_Begin in Action_Plugin_TrackBackDelBatch_Begin
  875. If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Begin) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Begin)
  876. If bAction_Plugin_TrackBackDelBatch_Begin=True Then Exit Function
  877. Next
  878. If DelTrackBackBatch() Then
  879. Call SetBlogHint(True,True,Empty)
  880. Call MakeBlogReBuild_Core()
  881. 'plugin node
  882. For Each sAction_Plugin_TrackBackDelBatch_Succeed in Action_Plugin_TrackBackDelBatch_Succeed
  883. If Not IsEmpty(sAction_Plugin_TrackBackDelBatch_Succeed) Then Call Execute(sAction_Plugin_TrackBackDelBatch_Succeed)
  884. If bAction_Plugin_TrackBackDelBatch_Succeed=True Then Exit Function
  885. Next
  886. Response.Redirect "cmd.asp?act=TrackBackMng"
  887. End If
  888. End Function
  889. Function FileDelBatch
  890. 'plugin node
  891. For Each sAction_Plugin_FileDelBatch_Begin in Action_Plugin_FileDelBatch_Begin
  892. If Not IsEmpty(sAction_Plugin_FileDelBatch_Begin) Then Call Execute(sAction_Plugin_FileDelBatch_Begin)
  893. If bAction_Plugin_FileDelBatch_Begin=True Then Exit Function
  894. Next
  895. If DelFileBatch() Then
  896. Call SetBlogHint(True,Empty,Empty)
  897. 'plugin node
  898. For Each sAction_Plugin_FileDelBatch_Succeed in Action_Plugin_FileDelBatch_Succeed
  899. If Not IsEmpty(sAction_Plugin_FileDelBatch_Succeed) Then Call Execute(sAction_Plugin_FileDelBatch_Succeed)
  900. If bAction_Plugin_FileDelBatch_Succeed=True Then Exit Function
  901. Next
  902. Response.Redirect "cmd.asp?act=FileMng"
  903. End If
  904. End Function
  905. Function ThemesMng()
  906. 'plugin node
  907. For Each sAction_Plugin_ThemesMng_Begin in Action_Plugin_ThemesMng_Begin
  908. If Not IsEmpty(sAction_Plugin_ThemesMng_Begin) Then Call Execute(sAction_Plugin_ThemesMng_Begin)
  909. If bAction_Plugin_ThemesMng_Begin=True Then Exit Function
  910. Next
  911. Response.Redirect "admin/admin.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
  912. End Function
  913. Function ThemesSav()
  914. 'plugin node
  915. For Each sAction_Plugin_ThemesSav_Begin in Action_Plugin_ThemesSav_Begin
  916. If Not IsEmpty(sAction_Plugin_ThemesSav_Begin) Then Call Execute(sAction_Plugin_ThemesSav_Begin)
  917. If bAction_Plugin_ThemesSav_Begin=True Then Exit Function
  918. Next
  919. If SaveThemes Then
  920. Call SetBlogHint(True,True,Empty)
  921. 'plugin node
  922. For Each sAction_Plugin_ThemesSav_Succeed in Action_Plugin_ThemesSav_Succeed
  923. If Not IsEmpty(sAction_Plugin_ThemesSav_Succeed) Then Call Execute(sAction_Plugin_ThemesSav_Succeed)
  924. If bAction_Plugin_ThemesSav_Succeed=True Then Exit Function
  925. Next
  926. Response.Redirect "cmd.asp?act=ThemesMng&installed=" & Server.URLEncode(Request.Form("edtZC_BLOG_THEME"))
  927. Else
  928. Call ShowError(25)
  929. End If
  930. End Function
  931. Function LinkMng()
  932. 'plugin node
  933. For Each sAction_Plugin_LinkMng_Begin in Action_Plugin_LinkMng_Begin
  934. If Not IsEmpty(sAction_Plugin_LinkMng_Begin) Then Call Execute(sAction_Plugin_LinkMng_Begin)
  935. If bAction_Plugin_LinkMng_Begin=True Then Exit Function
  936. Next
  937. Response.Redirect "admin/edit_link.asp"
  938. End Function
  939. Function LinkSav()
  940. 'plugin node
  941. For Each sAction_Plugin_LinkSav_Begin in Action_Plugin_LinkSav_Begin
  942. If Not IsEmpty(sAction_Plugin_LinkSav_Begin) Then Call Execute(sAction_Plugin_LinkSav_Begin)
  943. If bAction_Plugin_LinkSav_Begin=True Then Exit Function
  944. Next
  945. If SaveLink Then
  946. Call SetBlogHint(True,Empty,Empty)
  947. 'plugin node
  948. For Each sAction_Plugin_LinkSav_Succeed in Action_Plugin_LinkSav_Succeed
  949. If Not IsEmpty(sAction_Plugin_LinkSav_Succeed) Then Call Execute(sAction_Plugin_LinkSav_Succeed)
  950. If bAction_Plugin_LinkSav_Succeed=True Then Exit Function
  951. Next
  952. Response.Redirect "cmd.asp?act=LinkMng"
  953. Else
  954. Call ShowError(25)
  955. End If
  956. End Function
  957. Function PlugInMng()
  958. 'plugin node
  959. For Each sAction_Plugin_PlugInMng_Begin in Action_Plugin_PlugInMng_Begin
  960. If Not IsEmpty(sAction_Plugin_PlugInMng_Begin) Then Call Execute(sAction_Plugin_PlugInMng_Begin)
  961. If bAction_Plugin_PlugInMng_Begin=True Then Exit Function
  962. Next
  963. Response.Redirect "admin/admin.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("installed"))
  964. End Function
  965. Function PlugInActive()
  966. 'plugin node
  967. For Each sAction_Plugin_PlugInActive_Begin in Action_Plugin_PlugInActive_Begin
  968. If Not IsEmpty(sAction_Plugin_PlugInActive_Begin) Then Call Execute(sAction_Plugin_PlugInActive_Begin)
  969. If bAction_Plugin_PlugInActive_Begin=True Then Exit Function
  970. Next
  971. If ActivePlugInByName(Request.QueryString("name"))=True Then
  972. 'plugin node
  973. For Each sAction_Plugin_PlugInActive_Succeed in Action_Plugin_PlugInActive_Succeed
  974. If Not IsEmpty(sAction_Plugin_PlugInActive_Succeed) Then Call Execute(sAction_Plugin_PlugInActive_Succeed)
  975. If bAction_Plugin_PlugInActive_Succeed=True Then Exit Function
  976. Next
  977. Response.Redirect "cmd.asp?act=PlugInMng&installed=" & Server.URLEncode(Request.QueryString("name"))
  978. End If
  979. End Function
  980. Function PlugInDisable()
  981. 'plugin node
  982. For Each sAction_Plugin_PlugInDisable_Begin in Action_Plugin_PlugInDisable_Begin
  983. If Not IsEmpty(sAction_Plugin_PlugInDisable_Begin) Then Call Execute(sAction_Plugin_PlugInDisable_Begin)
  984. If bAction_Plugin_PlugInDisable_Begin=True Then Exit Function
  985. Next
  986. If DisablePlugInByName(Request.QueryString("name"))=True Then
  987. 'plugin node
  988. For Each sAction_Plugin_PlugInDisable_Succeed in Action_Plugin_PlugInDisable_Succeed
  989. If Not IsEmpty(sAction_Plugin_PlugInDisable_Succeed) Then Call Execute(sAction_Plugin_PlugInDisable_Succeed)
  990. If bAction_Plugin_PlugInDisable_Succeed=True Then Exit Function
  991. Next
  992. Response.Redirect "cmd.asp?act=PlugInMng"
  993. End If
  994. End Function
  995. 'plugin node
  996. For Each sAction_Plugin_Command_End in Action_Plugin_Command_End
  997. If Not IsEmpty(sAction_Plugin_Command_End) Then Call Execute(sAction_Plugin_Command_End)
  998. Next
  999. Call System_Terminate()
  1000. If Err.Number<>0 then
  1001. Call ShowError(0)
  1002. End If
  1003. %>