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

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

中间件编程

开发平台：

HTML/CSS

c_system_event.asp：源码内容
  1. <%
  2. '///////////////////////////////////////////////////////////////////////////////
  3. '//              Z-Blog
  4. '// 作    者:    朱煊(zx.asd)
  5. '// 版权所有:    RainbowSoft Studio
  6. '// 技术支持:    rainbowsoft@163.com
  7. '// 程序名称:    
  8. '// 程序版本:    
  9. '// 单元名称:    c_system_event.asp
  10. '// 开始时间:    2005.02.11
  11. '// 最后修改:    
  12. '// 备    注:    
  13. '///////////////////////////////////////////////////////////////////////////////
  19. '/////////////////////////////////////////////////////////////////////////////////////////
  20. '*********************************************************
  21. ' 目的：    用户登陆
  22. '*********************************************************
  23. Public Function Login()
  25. If CheckVerifyNumber(Request.Form("edtCheckOut"))=False Then Call ShowError(38)
  27. Login=BlogUser.Verify
  29. End Function
  30. '*********************************************************
  35. '*********************************************************
  36. ' 目的：    用户退出
  37. '*********************************************************
  38. Public Function Logout()
  40. 'Response.Cookies("username")=""
  41. 'Response.Cookies("password")=""
  42. Response.Write "<script language=""JavaScript"" src=""script/common.js"" type=""text/javascript""></script>"
  43. Response.Write "<script language=""JavaScript"" type=""text/javascript"">"
  44. Response.Write "function SetCookie(sName, sValue,iExpireDays) {if (iExpireDays){var dExpire = new Date();dExpire.setTime(dExpire.getTime()+parseInt(iExpireDays*24*60*60*1000));document.cookie = sName + ""="" + escape(sValue) + ""; expires="" + dExpire.toGMTString();}else{document.cookie = sName + ""="" + escape(sValue); }}"
  45. Response.Write "SetCookie(""username"","""","""");"
  46. Response.Write "SetCookie(""password"","""","""");"
  47. Response.Write "window.location=""" & ZC_BLOG_HOST & """;"
  48. Response.Write "</script>"
  50. Logout=True
  52. End Function
  53. '*********************************************************
  58. '/////////////////////////////////////////////////////////////////////////////////////////
  59. '*********************************************************
  60. ' 目的：    文件上抟
  61. '*********************************************************
  62. Function UploadFile(bolAutoName,bolReload)
  64. Dim objUpLoadFile
  65. Set objUpLoadFile=New TUpLoadFile
  67. objUpLoadFile.AuthorID=BlogUser.ID
  69. If bolReload=True Then
  70. ShowError_Custom="Response.Write ""<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'><html xmlns='http://www.w3.org/1999/xhtml' xml:lang='zh-CN' lang='zh-CN'><head> <link rel='stylesheet' rev='stylesheet' href='CSS/admin.css' type='text/css' media='screen' /></head><body><form id='edit' name='edit' method='post'><p>" & ZC_MSG098 & ":" & """&ZVA_ErrorMsg(id)&""" & "</p><p><a href='cmd.asp?act=FileSnd'>" & ZC_MSG295 & "</a></p></form></body></html>"":Response.End"
  71. End If
  73. If objUpLoadFile.UpLoad(bolAutoName) Then
  75. UploadFile=True
  77. If bolReload=False Then Exit Function
  79. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/><meta http-equiv=""Content-Language"" content=""zh-cn"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /></head><body>"
  81. Response.Write "<form border=""1"" name=""edit"" id=""edit"" method=""post"" enctype=""multipart/form-data"" action="""& ZC_BLOG_HOST &"cmd.asp?act=FileSnd"">"
  82. Response.Write "<p>"& ZC_MSG236 &":"
  83. Response.Write ""& "<a href="""& objUpLoadFile.FullUrlPathName &""" target=""_blank"">"& objUpLoadFile.FullUrlPathName &"</a></p>"
  84. Response.Write "<p><input type=""submit"" class=""button"" value="""& ZC_MSG237 &""" name=""B1"" /></p></form>"
  87. Dim strFileType
  88. Dim strFileName
  89. Dim strUPLOADDIR
  90. Dim strUPLOADDIR2
  91. If ZC_UPLOAD_DIRBYMONTH Then
  92. CreatDirectoryByCustomDirectory(ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now())))
  93. strUPLOADDIR = ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now())) & "/"
  94. strUPLOADDIR2 = "upload/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now())) & "/"
  95. Else
  96. strUPLOADDIR = ZC_UPLOAD_DIRECTORY & "/"
  97. strUPLOADDIR2 ="upload/"
  98. End If
  99. strFileType=LCase(objUpLoadFile.FileName)
  101. If (CheckRegExp(strFileType,".(jpeg|jpg|gif|png|bmp)$")=True) Then
  102. strFileName="[IMG]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/IMG]"
  103. ElseIf (CheckRegExp(strFileType,".(swf)$")=True) Then 
  104. strFileName="[FLASH=400,300,True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/FLASH]"
  105. ElseIf (CheckRegExp(strFileType,".(wmv|avi|asf)$")=True) Then 
  106. strFileName="[WMV=400,300,True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/WMV]"
  107. ElseIf (CheckRegExp(strFileType,".(qt|mov)$")=True) Then 
  108. strFileName="[QT=400,300,True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/QT]"
  109. ElseIf (CheckRegExp(strFileType,".(rm|rmvb|mpg|mpeg)$")=True) Then 
  110. strFileName="[RM=400,300,True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/RM]"
  111. ElseIf (CheckRegExp(strFileType,".(wma)$")=True) Then 
  112. strFileName="[WMA=True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/WMA]"
  113. ElseIf (CheckRegExp(strFileType,".(rm)$")=True) Then 
  114. strFileName="[RA=True]"&strUPLOADDIR2&objUpLoadFile.FileName&"[/RA]"
  115. Else
  116. strFileName="[URL="&strUPLOADDIR2 & objUpLoadFile.FileName &"]"& objUpLoadFile.FileName &"[/URL]"
  117. End If
  119. 'edit
  120. Response.Write "<script language=""Javascript"">try{parent.document.edit.txaContent.currPos.text+='"&strFileName&"';}catch(e){try{parent.document.edit.txaContent.value+='"&strFileName&"'}catch(e){}}</script>"
  121. 'edit_widgeditor
  122. Response.Write "<script language=""Javascript"">try{parent.document.getElementById('txaContentWidgIframe').contentWindow.document.getElementsByTagName('body')[0].innerHTML+='"&strFileName&"'}catch(e){}</script>"
  123. 'edit_fckeditor
  124. Response.Write "<script language=""Javascript"">try{parent.document.getElementById('MyEditor___Frame').contentWindow.frames[0].document.getElementsByTagName('body')[0].innerHTML+='"&Replace(TransferHTML(UBBCode(strFileName,"[link][image][media][flash]"),"[upload]"),"'","'")&"'}catch(e){}</script>"
  125. 'edit_htmlarea
  126. Response.Write "<script language=""Javascript"">try{parent.document.getElementById('ta').parentNode.getElementsByTagName('iframe')[0].contentWindow.document.getElementsByTagName('body')[0].innerHTML+='"&strFileName&"'}catch(e){}</script>"
  127. 'edit_tinymce
  128. Response.Write "<script language=""Javascript"">try{parent.document.getElementById('mce_editor_0').contentWindow.document.getElementsByTagName('body')[0].innerHTML+='"&strFileName&"'}catch(e){}</script>"
  129. 'edit_ewebeditor
  130. Response.Write "<script language=""Javascript"">try{parent.document.getElementById('eWebEditor1').contentWindow.document.getElementsByTagName('body')[0].innerHTML+='"&strFileName&"'}catch(e){}</script>"
  132. Response.Write "</body></html>"
  134. 'If bolReload=True Then Response.End
  136. Else
  138. If bolReload=True Then Response.Redirect "admin/admin.asp?act=FileSnd"
  140. End If
  142. Set objUpLoadFile=Nothing
  144. End Function
  145. '*********************************************************
  150. '*********************************************************
  151. ' 目的：    Form of Send File
  152. '*********************************************************
  153. Function SendFile()
  155. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/><meta http-equiv=""Content-Language"" content=""zh-cn"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /><script src=""script/common.js"" type=""text/javascript""></script></head><body>"
  157. Response.Write "<form border=""1"" name=""edit"" id=""edit"" method=""post"" enctype=""multipart/form-data"" action="""& ZC_BLOG_HOST &"cmd.asp?act=FileUpload&reload=1"">"
  158. Response.Write "<p>"& ZC_MSG108 &": </p>"
  159. Response.Write "<p><input type=""file"" id=""edtFileLoad"" name=""edtFileLoad"" size=""20"">  <input type=""submit"" class=""button"" value="""& ZC_MSG087 &""" name=""B1"" onclick='document.getElementById(""edit"").action=document.getElementById(""edit"").action+""&filename=""+escape(document.getElementById(""edtFileLoad"").value)' /> <input class=""button"" type=""reset"" value="""& ZC_MSG088 &""" name=""B2"" />"
  160. Response.Write "&nbsp;<input type=""checkbox"" onclick='if(this.checked==true){document.getElementById(""edit"").action=document.getElementById(""edit"").action+""&autoname=1"";}else{document.getElementById(""edit"").action="""& ZC_BLOG_HOST &"cmd.asp?act=FileUpload&reload=1"";};SetCookie(""chkAutoFileName"",this.checked,365);' id=""chkAutoName"" id=""chkAutoName""/><label for=""chkAutoName"">"& ZC_MSG131 &"</label></p></form>"
  162. Response.Write "<script type=""text/javascript"">if(GetCookie(""chkAutoFileName"")==""true""){document.getElementById(""chkAutoName"").checked=true;document.getElementById(""edit"").action=document.getElementById(""edit"").action+""&autoname=1"";};</script></body></html>"
  164. End Function
  165. '*********************************************************
  172. '*********************************************************
  173. ' 目的：     文件删除
  174. '*********************************************************
  175. Function DelFile(intID)
  177. Dim objUpLoadFile
  178. Set objUpLoadFile=New TUpLoadFile
  180. If objUpLoadFile.LoadInfoByID(intID) Then
  182. If (objUpLoadFile.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True) Then
  183. If objUpLoadFile.Del Then DelFile=True
  184. End If
  186. Else
  187. Exit Function
  188. End If
  190. Set objUpLoadFile=Nothing
  192. End Function
  193. '*********************************************************
  198. '/////////////////////////////////////////////////////////////////////////////////////////
  199. '*********************************************************
  200. ' 目的：    Post Article
  201. '*********************************************************
  202. Function PostArticle()
  204. Dim s,i,t,k
  205. Dim strTag
  207. If Request.Form("edtID")<>"0" Then
  208. Dim objTestArticle
  209. Set objTestArticle=New TArticle
  210. If objTestArticle.LoadInfobyID(Request.Form("edtID")) Then
  211. If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  212. strTag=objTestArticle.Tag
  213. objTestArticle.DelFile
  214. Else
  215. Call ShowError(9)
  216. End If
  217. End If
  219. Dim objArticle
  220. Set objArticle=New TArticle
  221. objArticle.ID=Request.Form("edtID")
  222. objArticle.CateID=Request.Form("edtCateID")
  223. objArticle.AuthorID=Request.Form("edtAuthorID")
  224. objArticle.Level=Request.Form("edtLevel")
  225. objArticle.PostTime=Request.Form("edtYear") & "-" & Request.Form("edtMonth") & "-" & Request.Form("edtDay") & " " &  Request.Form("edtTime")
  226. objArticle.Title=Request.Form("edtTitle")
  227. objArticle.Tag=ParseTag(Request.Form("edtTag"))
  228. objArticle.Alias=Request.Form("edtAlias")
  229. objArticle.Istop=Request.Form("edtIstop")
  231. objArticle.Intro=Request.Form("txaIntro")
  233. Select Case LCase(Request.QueryString("type"))
  234. Case "htmlarea"
  235. objArticle.Content=Request.Form("ta")
  237. If objArticle.Intro="" Then
  238. s=objArticle.Content
  239. If Len(s)>ZC_TB_EXCERPT_MAX Then
  240. i=InStr(s,vbCrlf)
  241. If i>0 Then
  242. t=Split(s,vblf)
  243. s=""
  244. For k=LBound(t) To UBound(t)
  245. s=s & t(k)
  246. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  247. Next
  248. s=Replace(s,vbCr,vbCrlf)
  249. End If
  250. s=s & ZC_MSG305
  251. End If
  252. s=TransferHTML(s,"[closehtml]")
  253. objArticle.Intro=s
  254. End If
  255. Case "tinymce"
  256. objArticle.Content=Request.Form("txaContent")
  257. If objArticle.Intro="" Then
  258. s=objArticle.Content
  259. If Len(s)>ZC_TB_EXCERPT_MAX Then
  260. i=InStr(s,vbCrlf)
  261. If i>0 Then
  262. t=Split(s,vblf)
  263. s=""
  264. For k=LBound(t) To UBound(t)
  265. s=s & t(k)
  266. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  267. Next
  268. s=Replace(s,vbCr,vbCrlf)
  269. End If
  270. s=s & ZC_MSG305
  271. End If
  272. s=TransferHTML(s,"[closehtml]")
  273. objArticle.Intro=s
  274. End If
  275. objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
  276. objArticle.Content=Replace(objArticle.Content,vbLf,"")
  277. objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
  278. objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
  279. Case "fckeditor"
  280. objArticle.Content=Request.Form("txaContent")
  281. If objArticle.Intro="" Then
  282. s=objArticle.Content
  283. If Len(s)>ZC_TB_EXCERPT_MAX Then
  284. i=InStr(s,vbCrlf)
  285. If i>0 Then
  286. t=Split(s,vblf)
  287. s=""
  288. For k=LBound(t) To UBound(t)
  289. s=s & t(k)
  290. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  291. Next
  292. s=Replace(s,vbCr,vbCrlf)
  293. End If
  294. s=s & ZC_MSG305
  295. End If
  296. s=TransferHTML(s,"[closehtml]")
  297. objArticle.Intro=s
  298. End If
  299. objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
  300. objArticle.Content=Replace(objArticle.Content,vbLf,"")
  301. objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
  302. objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
  303. Case "ewebeditor"
  304. objArticle.Content=Request.Form("txaContent")
  305. If objArticle.Intro="" Then
  306. s=objArticle.Content
  307. If Len(s)>ZC_TB_EXCERPT_MAX Then
  308. i=InStr(s,vbCrlf)
  309. If i>0 Then
  310. t=Split(s,vblf)
  311. s=""
  312. For k=LBound(t) To UBound(t)
  313. s=s & t(k)
  314. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  315. Next
  316. s=Replace(s,vbCr,vbCrlf)
  317. End If
  318. s=s & ZC_MSG305
  319. End If
  320. s=TransferHTML(s,"[closehtml]")
  321. objArticle.Intro=s
  322. End If
  323. objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
  324. objArticle.Content=Replace(objArticle.Content,vbLf,"")
  325. objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
  326. objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
  327. Case "widgeditor"
  328. objArticle.Content=Request.Form("txaContent")
  329. If objArticle.Intro="" Then
  330. s=objArticle.Content
  331. If Len(s)>ZC_TB_EXCERPT_MAX Then
  332. i=InStr(s,vbCrlf)
  333. If i>0 Then
  334. t=Split(s,vblf)
  335. s=""
  336. For k=LBound(t) To UBound(t)
  337. s=s & t(k)
  338. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  339. Next
  340. s=Replace(s,vbCr,vbCrlf)
  341. End If
  342. s=s & ZC_MSG305
  343. End If
  344. s=TransferHTML(s,"[closehtml]")
  345. objArticle.Intro=s
  346. End If
  347. objArticle.Content=Replace(objArticle.Content,vbCrLf,"")
  348. objArticle.Content=Replace(objArticle.Content,vbLf,"")
  349. objArticle.Intro=Replace(objArticle.Intro,vbCrLf,"")
  350. objArticle.Intro=Replace(objArticle.Intro,vbLf,"")
  351. Case Else
  352. objArticle.Content=Request.Form("txaContent")
  353. If objArticle.Intro="" Then
  354. s=objArticle.Content
  355. If Len(s)>ZC_TB_EXCERPT_MAX Then
  356. i=InStr(s,vbCrlf)
  357. If i>0 Then
  358. t=Split(s,vblf)
  359. s=""
  360. For k=LBound(t) To UBound(t)
  361. s=s & t(k)
  362. If Len(s)>ZC_TB_EXCERPT_MAX Then Exit For
  363. Next
  364. s=Replace(s,vbCr,vbCrlf)
  365. End If
  366. s=s & ZC_MSG305
  367. End If
  368. s=TransferHTML(s,"[closehtml]")
  369. objArticle.Intro=s
  370. End If
  371. End Select
  373. '接口
  374. Call Filter_Plugin_PostArticle_Core(objArticle)
  376. If objArticle.Post Then
  377. Call Filter_Plugin_PostArticle_Succeed(objArticle)
  378. Call ScanTagCount(strTag)
  379. Call ScanTagCount(objArticle.Tag)
  380. Call BuildArticle(objArticle.ID,True,True)
  381. PostArticle=True
  382. End If
  384. Set objArticle=Nothing
  386. End Function
  387. '*********************************************************
  392. '*********************************************************
  393. ' 目的：    Del Article
  394. '*********************************************************
  395. Function DelArticle(intID)
  397. Dim strTag
  399. If intID<>"" Then
  400. Dim objTestArticle
  401. Set objTestArticle=New TArticle
  402. If objTestArticle.LoadInfobyID(intID) Then
  403. If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  404. strTag=objTestArticle.Tag
  405. Else
  406. Call ShowError(9)
  407. End If
  408. Set objTestArticle=Nothing
  409. End If
  411. Dim objArticle
  412. Set objArticle=New TArticle
  414. If objArticle.LoadInfoByID(intID) Then
  416. Call ScanTagCount(objArticle.Tag)
  418. If objArticle.Del Then DelArticle=True
  420. Call ScanTagCount(strTag)
  422. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  423. Call BuildCategory(Empty,Categorys(objArticle.CateID).ID,Empty,Empty,Empty,ZC_DISPLAY_MODE_ALL,Categorys(objArticle.CateID).Directory,Categorys(objArticle.CateID).FileName)
  424. Call BuildCategory(Empty,Empty,Empty,Year(objArticle.PostTime) & "-" & Month(objArticle.PostTime),Empty,ZC_DISPLAY_MODE_ALL,ZC_STATIC_DIRECTORY,Year(objArticle.PostTime) & "_" & Month(objArticle.PostTime) & "." & ZC_STATIC_TYPE)
  425. End If
  427. Call BlogReBuild_Comments
  429. Dim objNavArticle
  430. Dim objRS
  431. Set objRS=objConn.Execute("SELECT TOP 1 [log_ID] FROM [blog_Article] WHERE ([log_Level]>2) AND ([log_PostTime]<#" & objArticle.PostTime & "#) ORDER BY [log_PostTime] DESC")
  432. If (Not objRS.bof) And (Not objRS.eof) Then
  433. Call BuildArticle(objRS("log_ID"),False,False)
  434. End If
  435. Set objRS=Nothing
  436. Set objRS=objConn.Execute("SELECT TOP 1 [log_ID] FROM [blog_Article] WHERE ([log_Level]>2) AND ([log_PostTime]>#" & objArticle.PostTime & "#) ORDER BY [log_PostTime] ASC")
  437. If (Not objRS.bof) And (Not objRS.eof) Then
  438. Call BuildArticle(objRS("log_ID"),False,False)
  439. End If
  440. Set objRS=Nothing
  442. End If
  444. Set objArticle=Nothing
  446. End Function
  447. '*********************************************************
  452. '/////////////////////////////////////////////////////////////////////////////////////////
  453. '*********************************************************
  454. ' 目的：    Post Category
  455. '*********************************************************
  456. Function PostCategory()
  458. If Request.Form("edtID")<>"0" Then
  459. Dim objTestCategory
  460. Set objTestCategory=New TCategory
  461. If objTestCategory.LoadInfobyID(Request.Form("edtID")) Then
  462. objTestCategory.DelFile
  463. End If
  464. End If
  466. Dim objCategory
  467. Set objCategory=New TCategory
  468. objCategory.ID=Request.Form("edtID")
  469. objCategory.Name=Request.Form("edtName")
  470. objCategory.Order=Request.Form("edtOrder")
  471. objCategory.Alias=Request.Form("edtAlias")
  473. '接口
  474. Call Filter_Plugin_PostCategory_Core(objCategory)
  477. If objCategory.Post Then
  479. Call Filter_Plugin_PostCategory_Succeed(objCategory)
  481. Call BuildCategory(Empty,objCategory.ID,Empty,Empty,Empty,ZC_DISPLAY_MODE_ALL,objCategory.Directory,objCategory.FileName)
  483. PostCategory=True
  485. End If
  487. Set objCategory=Nothing
  489. End Function
  490. '*********************************************************
  495. '*********************************************************
  496. ' 目的：    Del Category
  497. '*********************************************************
  498. Function DelCategory(intID)
  500. Dim objCategory
  501. Set objCategory=New TCategory
  503. If objCategory.LoadInfobyID(intID) Then
  504. If objCategory.Del Then DelCategory=True
  505. End If
  507. Set objCategory=Nothing
  509. End Function
  510. '*********************************************************
  516. '/////////////////////////////////////////////////////////////////////////////////////////
  517. '*********************************************************
  518. ' 目的：    Post Comment
  519. '*********************************************************
  520. Function PostComment(strKey)
  522. If IsEmpty(Request.Form("inpAjax"))=False Then
  523. ShowError_Custom="Call RespondError(id,ZVA_ErrorMsg(id)):Response.End"
  524. End If
  526. If ZC_COMMENT_TURNOFF Then
  527. Call ShowError(40)
  528. End If
  530. If ZC_COMMENT_VERIFY_ENABLE Then
  531. If CheckVerifyNumber(Request.Form("inpVerify"))=False Then Call ShowError(38)
  532. End If
  534. Dim inpID,inpName,inpArticle,inpEmail,inpHomePage
  536. inpID=Request.Form("inpID")
  537. inpName=Request.Form("inpName")
  538. inpArticle=Request.Form("inpArticle")
  539. inpEmail=Request.Form("inpEmail")
  540. inpHomePage=Request.Form("inpHomePage")
  542. If Len(inpArticle)=0 Or Len(inpArticle)>ZC_CONTENT_MAX Then
  543. Call  ShowError(46)
  544. End If
  546. Dim objComment
  547. Dim objArticle
  549. Set objComment=New TComment
  550. objComment.log_ID=inpID
  551. objComment.AuthorID=BlogUser.ID
  552. objComment.Author=inpName
  553. objComment.Content=inpArticle
  554. objComment.Email=inpEmail
  555. objComment.HomePage=inpHomePage
  557. '接口
  558. Call Filter_Plugin_PostComment_Core(objComment)
  560. If objComment.AuthorID>0 Then
  561. objComment.Author=Users(objComment.AuthorID).Name
  562. End If
  564. If objComment.log_ID>0 Then
  565. Set objArticle=New TArticle
  566. If objArticle.LoadInfoByID(objComment.log_ID) Then
  567. If Not (strKey=objArticle.CommentKey) Then Call ShowError(43)
  568. If objArticle.Level<4 Then Call ShowError(44)
  569. End If
  570. Set objArticle=Nothing
  571. Else
  572. If Not (strKey=Left(MD5(ZC_BLOG_HOST & ZC_BLOG_CLSID & CStr(0) & CStr(Day(GetTime(Now())))),8)) Then Call ShowError(43)
  573. End If
  575. Dim objUser
  576. For Each objUser in Users
  577. If IsObject(objUser) Then
  578. If (UCase(objUser.Name)=UCase(objComment.Author)) And (objUser.ID<>objComment.AuthorID) Then Call ShowError(31)
  579. End If
  580. Next
  582. If objComment.Post Then
  583. Call Filter_Plugin_PostComment_Succeed(objComment)
  584. If objComment.log_ID>0 Then
  585. Call BuildArticle(objComment.log_ID,False,True)
  586. BlogReBuild_Comments
  587. Else
  588. BlogReBuild_GuestComments
  589. End If
  590. PostComment=True
  591. End if
  593. If IsEmpty(Request.Form("inpAjax"))=False Then
  594. Call ReturnAjaxComment(objComment)
  595. Call ClearGlobeCache
  596. Call LoadGlobeCache
  597. End If
  599. Set objComment=Nothing
  601. End Function
  602. '*********************************************************
  607. '*********************************************************
  608. ' 目的：    Del Comment
  609. '*********************************************************
  610. Function DelComment(intID,intLog_ID)
  612. Dim objComment
  613. Dim objArticle
  615. Set objComment=New TComment
  616. Set objArticle=New TArticle
  618. If objComment.LoadInfobyID(intID) Then
  620. If objComment.log_ID>0 Then
  621. Dim objTestArticle
  622. Set objTestArticle=New TArticle
  623. If objTestArticle.LoadInfobyID(objComment.log_ID) Then
  624. If Not((objComment.AuthorID=BlogUser.ID) Or (objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  625. Else
  626. Call ShowError(9)
  627. End If
  628. Set objTestArticle=Nothing
  629. Else
  630. If Not ((objComment.log_ID=0) And (CheckRights("GuestBookMng")=True)) Then Exit Function
  631. End If
  633. If objComment.Del Then
  634. If objComment.log_ID>0 Then
  635. Call BuildArticle(objComment.log_ID,False,True)
  636. BlogReBuild_Comments
  637. Else
  638. BlogReBuild_GuestComments
  639. End If
  640. DelComment=True
  641. End If
  643. End If
  645. Set objComment=Nothing
  647. End Function
  648. '*********************************************************
  653. '*********************************************************
  654. ' 目的：    Revert Comment
  655. '*********************************************************
  656. Function RevertComment(strKey,intRevertCommentID)
  658. If IsEmpty(Request.Form("inpAjax"))=False Then
  659. ShowError_Custom="Call RespondError(id,ZVA_ErrorMsg(id)):Response.End"
  660. End If
  662. Call CheckParameter(intRevertCommentID,"int",0)
  664. If ZC_COMMENT_TURNOFF Then
  665. Call ShowError(40)
  666. End If
  668. If ZC_COMMENT_VERIFY_ENABLE Then
  669. If CheckVerifyNumber(Request.Form("inpVerify"))=False Then Call ShowError(38)
  670. End If
  672. Dim inpName,inpArticle
  674. inpName=Request.Form("inpName")
  675. inpArticle=Request.Form("inpArticle")
  677. If Len(inpArticle)=0 Or Len(inpArticle)>ZC_CONTENT_MAX Then
  678. Call  ShowError(46)
  679. End If
  681. Dim objComment
  682. Dim objArticle
  684. Set objComment=New TComment
  685. If objComment.LoadInfoByID(intRevertCommentID)=True Then
  687. If BlogUser.ID=0 Then
  688. If ZC_GUEST_REVERT_COMMENT_ENABLE=False Then Call ShowError(47)
  689. Dim objUser
  690. For Each objUser in Users
  691. If IsObject(objUser) Then
  692. If (UCase(objUser.Name)=UCase(inpName)) Then Call ShowError(31)
  693. End If
  694. Next
  695. Else
  696. inpName=BlogUser.Name
  697. End If
  699. objComment.Content=TransferHTML(objComment.Content,"[anti-html-format]") & "[REVERT="& Replace(Replace(ZC_MSG264,"%s",inpName,1,1),"%s",GetTime(Now()),1,1) &"]"&inpArticle&"[/REVERT]"
  701. End If
  703. If objComment.log_ID>0 Then
  704. Set objArticle=New TArticle
  705. If objArticle.LoadInfoByID(objComment.log_ID) Then
  706. If Not (strKey=objArticle.CommentKey) Then Call ShowError(43)
  707. If objArticle.Level<4 Then Call ShowError(44)
  708. Else
  709. Call ShowError(9)
  710. End If
  711. Set objArticle=Nothing
  712. 'objComment.PostTime=GetTime(Now())
  713. Else
  714. 'If BlogUser.ID=0 Then Call ShowError(45)
  715. If Not (strKey=Left(MD5(ZC_BLOG_HOST & ZC_BLOG_CLSID & CStr(0) & CStr(Day(GetTime(Now())))),8)) Then Call ShowError(43)
  716. End If
  718. '接口
  719. Call Filter_Plugin_PostComment_Core(objComment)
  721. If objComment.Post Then
  722. Call Filter_Plugin_PostComment_Succeed(objComment)
  723. If objComment.log_ID>0 Then
  724. Call BuildArticle(objComment.log_ID,False,False)
  725. BlogReBuild_Comments
  726. Else
  727. BlogReBuild_GuestComments
  728. End If
  730. RevertComment=True
  731. End if
  733. If IsEmpty(Request.Form("inpAjax"))=False Then
  734. Call ReturnAjaxComment(objComment)
  735. Call ClearGlobeCache
  736. Call LoadGlobeCache
  737. End If
  739. Set objComment=Nothing
  741. End Function
  742. '*********************************************************
  747. '*********************************************************
  748. ' 目的：    Save Comment
  749. '*********************************************************
  750. Function SaveComment(intID,intLog_ID)
  752. Dim objComment
  753. Dim objArticle
  755. Set objComment=New TComment
  756. If objComment.LoadInfoByID(intID)=True Then
  758. objComment.log_ID=intLog_ID
  759. objComment.Author=Request.Form("inpName")
  760. objComment.Email=Request.Form("inpEmail")
  761. objComment.HomePage=Request.Form("inpHomePage")
  762. objComment.Content=Request.Form("txaArticle") & vbCrlf  & Replace(Replace(ZC_MSG273,"%s",BlogUser.Name,1,1),"%s",GetTime(Now()),1,1)
  764. End If
  766. If objComment.log_ID>0 Then
  767. Set objArticle=New TArticle
  768. If objArticle.LoadInfoByID(objComment.log_ID) Then
  769. If Not ((objArticle.AuthorID=BlogUser.ID) Or (objComment.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  770. End If
  771. Set objArticle=Nothing
  772. Else
  773. If Not ((objComment.log_ID=0) And (CheckRights("GuestBookMng")=True)) Then Exit Function
  774. End If
  776. If objComment.Post Then
  777. Call Filter_Plugin_PostComment_Succeed(objComment)
  778. If objComment.log_ID>0 Then
  779. Call BuildArticle(objComment.log_ID,False,False)
  780. BlogReBuild_Comments
  781. Else
  782. BlogReBuild_GuestComments
  783. End If
  785. SaveComment=True
  786. End if
  788. Set objComment=Nothing
  790. End Function
  791. '*********************************************************
  796. '*********************************************************
  797. ' 目的：    Return Ajax Comment
  798. '*********************************************************
  799. Dim ReturnAjaxComment_aryTemplateTagsName
  800. Dim ReturnAjaxComment_aryTemplateTagsValue
  802. Function ReturnAjaxComment_Plugin(aryTemplateTagsName,aryTemplateTagsValue)
  803. ReturnAjaxComment_aryTemplateTagsName=aryTemplateTagsName
  804. ReturnAjaxComment_aryTemplateTagsValue=aryTemplateTagsValue
  805. End Function
  807. Function ReturnAjaxComment(objComment)
  809. Dim i,j
  810. i=0
  811. Dim objArticle
  813. If objComment.log_ID>0 Then
  814. 'Filter_Plugin_TArticle_Export_TemplateTags
  815. Call Add_Filter_Plugin("Filter_Plugin_TArticle_Export_TemplateTags","ReturnAjaxComment_Plugin")
  816. Set objArticle=New TArticle
  817. If objArticle.LoadInfoByID(objComment.log_ID) Then
  818. Call objArticle.Export(ZC_DISPLAY_MODE_ALL)
  819. i=objArticle.CommNums
  820. End If
  821. Else
  822. 'Filter_Plugin_TGuestBook_Export_TemplateTags
  823. Call Add_Filter_Plugin("Filter_Plugin_TGuestBook_Export_TemplateTags","ReturnAjaxComment_Plugin")
  824. Dim GuestBook
  825. Set GuestBook=New TGuestBook
  826. Call GuestBook.Export("")
  828. Dim objRS
  829. Set objRS=Server.CreateObject("ADODB.Recordset")
  830. objRS.CursorType = adOpenKeyset
  831. objRS.LockType = adLockReadOnly
  832. objRS.ActiveConnection=objConn
  833. objRS.Source=""
  834. objRS.Open("SELECT COUNT([comm_ID])AS allComment FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=0")
  835. If (Not objRS.bof) And (Not objRS.eof) Then
  836. i=objRS("allComment")
  837. End If
  838. objRS.Close
  839. Set objRS=Nothing
  840. End If
  842. Dim strC
  843. strC=GetTemplate("TEMPLATE_B_ARTICLE_COMMENT")
  845. objComment.Count=i
  846. strC=objComment.MakeTemplate(strC)
  848. strC=Replace(strC,"<#ZC_BLOG_HOST#>",ZC_BLOG_HOST)
  850. Dim aryTemplateTagsName2
  851. Dim aryTemplateTagsValue2
  853. aryTemplateTagsName2=TemplateTagsName
  854. aryTemplateTagsValue2=TemplateTagsValue
  856. j=UBound(aryTemplateTagsName2)
  858. For i=1 to j
  859. strC=Replace(strC,"<#" & aryTemplateTagsName2(i) & "#>",aryTemplateTagsValue2(i))
  860. Next
  862. j=UBound(ReturnAjaxComment_aryTemplateTagsName)
  863. For i=1 to j
  864. strC = Replace(strC,"<#" & ReturnAjaxComment_aryTemplateTagsName(i) & "#>", ReturnAjaxComment_aryTemplateTagsValue(i))
  865. Next
  867. strC= Replace(strC,vbCrLf,"")
  868. strC= Replace(strC,vbLf,"")
  869. strC= Replace(strC,vbTab,"")
  871. Response.Write strC
  873. ReturnAjaxComment=True
  875. End Function
  876. '*********************************************************
  879. '/////////////////////////////////////////////////////////////////////////////////////////
  880. '*********************************************************
  881. ' 目的：    Post TrackBack
  882. '*********************************************************
  883. Function PostTrackBack(intID,strKey)
  885. Dim objTrackBack
  886. Dim objArticle
  888. Dim keys
  889. Dim i,j,k,b
  891. If ZC_TRACKBACK_TURNOFF Then
  892. Call RespondError(41,ZVA_ErrorMsg(41))
  893. End If
  895. If Len(strKey)=5 Then
  897. If CheckVerifyNumber(strKey)=False Then Call ShowError(43)
  899. ElseIf Len(strKey)=8 Then
  901. Set objArticle=New TArticle
  902. If objArticle.LoadInfoByID(intID) Then
  903. If Not (strKey=objArticle.TrackBackKey) Then Call RespondError(43)
  904. If objArticle.Level<4 Then Call RespondError(44)
  905. End If
  906. Set objArticle=Nothing
  908. Else
  909. Exit Function
  910. End If
  912. Set objTrackBack=New TTrackBack
  913. Set objArticle=New TArticle
  915. objTrackBack.log_ID=intID
  916. objTrackBack.URL=Request.Form("url")
  917. objTrackBack.Title=Request.Form("title")
  918. objTrackBack.Blog=Request.Form("blog_name")
  919. objTrackBack.Excerpt=Request.Form("excerpt")
  921. '接口
  922. Call Filter_Plugin_PostTrackBack_Core(objTrackBack)
  924. If objTrackBack.Post Then
  925. Call Filter_Plugin_PostTrackBack_Succeed(objTrackBack)
  926. Call BuildArticle(objTrackBack.log_ID,False,True)
  927. BlogReBuild_TrackBacks
  928. PostTrackBack=True
  929. End If
  931. Response.ContentType = "text/xml"
  932. Response.Clear
  933. Response.Write objTrackBack.TbXML
  935. Set objTrackBack=Nothing
  937. End Function
  938. '*********************************************************
  943. '*********************************************************
  944. ' 目的：    Del TrackBack
  945. '*********************************************************
  946. Function DelTrackBack(intID,intLog_ID)
  948. Dim objTrackBack
  949. Dim objArticle
  951. Set objTrackBack=New TTrackBack
  952. Set objArticle=New TArticle
  954. If objTrackBack.LoadInfobyID(intID) Then
  956. Dim objTestArticle
  957. Set objTestArticle=New TArticle
  958. If objTestArticle.LoadInfobyID(objTrackBack.log_ID) Then
  959. If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  960. Else
  961. Call ShowError(9)
  962. End If
  963. Set objTestArticle=Nothing
  965. If objTrackBack.Del Then
  966. Call BuildArticle(objTrackBack.log_ID,False,True)
  967. BlogReBuild_TrackBacks
  968. DelTrackBack=True
  969. End If
  971. End If
  973. Set objTrackBack=Nothing
  975. End Function
  976. '*********************************************************
  981. '*********************************************************
  982. ' 目的：    Send TrackBack
  983. '*********************************************************
  984. Function SendTrackBack()
  986. Dim objTrackBack
  987. Dim objArticle
  989. Set objTrackBack=New TTrackBack
  990. Set objArticle=New TArticle
  992. If objArticle.LoadInfobyID(Request.Form("edtID")) Then
  993. objTrackBack.URL=objArticle.Url
  994. objTrackBack.Title=objArticle.Title
  995. objTrackBack.Blog=ZC_BLOG_NAME
  996. objTrackBack.Excerpt=Left(objArticle.HtmlContent,250)
  997. Else
  998. Call ShowError(9)
  999. End If
  1001. If objTrackBack.Send(Request.Form("edtTrackBack")) Then SendTrackBack=True
  1002. Set objTrackBack=Nothing
  1004. End Function
  1005. '*********************************************************
  1010. '/////////////////////////////////////////////////////////////////////////////////////////
  1011. '*********************************************************
  1012. ' 目的：    Edit User
  1013. '*********************************************************
  1014. Function EditUser()
  1016. Dim objUser
  1017. Set objUser=New TUser
  1018. objUser.ID=Request.Form("edtID")
  1019. objUser.Level=Request.Form("edtLevel")
  1020. objUser.Name=Request.Form("edtName")
  1021. objUser.PassWord=Request.Form("edtPassWord")
  1022. objUser.Email=Request.Form("edtEmail")
  1023. objUser.HomePage=Request.Form("edtHomePage")
  1024. objUser.Alias=Request.Form("edtAlias")
  1026. If Not((CInt(objUser.ID)=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  1028. '接口
  1029. Call Filter_Plugin_EditUser_Core(objUser)
  1031. If objUser.Edit(BlogUser) Then 
  1032. Call Filter_Plugin_EditUser_Succeed(objUser)
  1033. EditUser=True
  1034. End IF
  1036. Set objUser=Nothing
  1038. End Function
  1039. '*********************************************************
  1044. '*********************************************************
  1045. ' 目的：    Del User
  1046. '*********************************************************
  1047. Function DelUser(intID)
  1049. Dim objRS
  1050. Dim objUser
  1051. Dim objUpLoadFile
  1053. Set objUser=New TUser
  1054. objUser.ID=intID
  1055. If objUser.Del(BlogUser) Then DelUser=True
  1056. Set objUser=Nothing
  1058. End Function
  1059. '*********************************************************
  1064. '/////////////////////////////////////////////////////////////////////////////////////////
  1065. '*********************************************************
  1066. ' 目的：    Blog ReBuild
  1067. '*********************************************************
  1068. Function MakeBlogReBuild()
  1070. 'plugin node
  1071. For Each sAction_Plugin_MakeBlogReBuild_Begin in Action_Plugin_MakeBlogReBuild_Begin
  1072. If Not IsEmpty(sAction_Plugin_MakeBlogReBuild_Begin) Then Call Execute(sAction_Plugin_MakeBlogReBuild_Begin)
  1073. If bAction_Plugin_MakeBlogReBuild_Begin=True Then Exit Function
  1074. Next
  1076. Call MakeBlogReBuild_Core()
  1078. Call SetBlogHint(True,False,Empty)
  1080. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /></head><body>"
  1082. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG072 & "</div>"
  1083. Response.Write "<div id=""divMain2"">"
  1084. Call GetBlogHint()
  1085. Response.Write "<form  name=""edit"" id=""edit"">"
  1087. Response.Write "<p>" & ZC_MSG225 &"</p>"
  1088. Response.Write "<p>" & Replace(ZC_MSG169,"%n",RunTime/1000)&"</p>"
  1090. Response.Write "</form></div></div>"
  1091. Response.Write "</body></html>"
  1093. MakeBlogReBuild=True
  1095. 'plugin node
  1096. For Each sAction_Plugin_MakeBlogReBuild_End in Action_Plugin_MakeBlogReBuild_End
  1097. If Not IsEmpty(sAction_Plugin_MakeBlogReBuild_End) Then Call Execute(sAction_Plugin_MakeBlogReBuild_End)
  1098. If bAction_Plugin_MakeBlogReBuild_End=True Then Exit Function
  1099. Next
  1101. End Function
  1102. '*********************************************************
  1107. '*********************************************************
  1108. ' 目的：    MakeDirectoryReBuild
  1109. '*********************************************************
  1110. Function MakeDirectoryReBuild()
  1112. Dim objRS
  1113. Dim objStream
  1115. Dim ArtList
  1117. 'Catalogs
  1118. Dim strCatalog
  1119. Set objRS=objConn.Execute("SELECT * FROM [blog_Category] ORDER BY [cate_Order] ASC,[cate_Count] DESC,[cate_ID] ASC")
  1120. If (Not objRS.bof) And (Not objRS.eof) Then
  1121. Do While Not objRS.eof
  1123. strCatalog=strCatalog & "<li><span class=""feed-icon""><a href="""& Categorys(objRS("cate_ID")).RssUrl &""" target=""_blank""><img title=""rss"" width=""20"" height=""12"" src="""&ZC_BLOG_HOST&"IMAGE/LOGO/rss.png"" border=""0"" alt=""rss"" /></a>&nbsp;</span><a href="""& Categorys(objRS("cate_ID")).Url & """>"+Categorys(objRS("cate_ID")).Name + "<span class=""article-nums""> (" & Categorys(objRS("cate_ID")).Count & ")</span>" +"</a></li>"
  1126. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  1127. Call BuildCategory(Empty,Categorys(objRS("cate_ID")).ID,Empty,Empty,Empty,ZC_DISPLAY_MODE_ALL,Categorys(objRS("cate_ID")).Directory,Categorys(objRS("cate_ID")).FileName)
  1128. End If
  1130. objRS.MoveNext
  1132. Loop
  1133. End If
  1134. objRS.Close
  1135. Set objRS=Nothing
  1140. Dim i
  1141. Dim j
  1142. Dim l
  1143. Dim n
  1146. 'Archives
  1147. Dim strArchives
  1148. Set objRS=objConn.Execute("SELECT * FROM [blog_Article] WHERE ([log_Level]>1) ORDER BY [log_PostTime] DESC")
  1149. If (Not objRS.bof) And (Not objRS.eof) Then
  1150. Dim dtmYM()
  1151. i=0
  1152. j=0
  1153. ReDim Preserve dtmYM(0)
  1154. Do While Not objRS.eof
  1155. j=UBound(dtmYM)
  1156. i=Year(objRS("log_PostTime")) & "-" & Month(objRS("log_PostTime"))
  1157. If i<>dtmYM(j) Then
  1158. ReDim Preserve dtmYM(j+1)
  1159. dtmYM(j+1)=i
  1160. End If
  1161. objRS.MoveNext
  1162. Loop
  1163. End If
  1164. objRS.Close
  1165. Set objRS=Nothing
  1167. If Not IsEmpty(dtmYM) Then
  1168. For i=1 to UBound(dtmYM)
  1170. l=Year(dtmYM(i))
  1171. n=Month(dtmYM(i))+1
  1172. IF n>12 Then l=l+1:n=1
  1174. Set objRS=objConn.Execute("SELECT COUNT([log_ID]) FROM [blog_Article] WHERE ([log_Level]>1) AND [log_PostTime] BETWEEN #"& Year(dtmYM(i)) &"-"& Month(dtmYM(i)) &"-1# AND #"& l &"-"& n &"-1#")
  1176. If (Not objRS.bof) And (Not objRS.eof) Then
  1178. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  1179. strArchives=strArchives & "<li><a href="""& ZC_BLOG_HOST & ZC_STATIC_DIRECTORY & "/" & Year(dtmYM(i)) & "_" & Month(dtmYM(i)) & "." & ZC_STATIC_TYPE & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & " (" & objRS(0) & ")" +"</a></li>"
  1180. Call BuildCategory(Empty,Empty,Empty,Year(dtmYM(i)) & "-" & Month(dtmYM(i)),Empty,ZC_DISPLAY_MODE_ALL,ZC_STATIC_DIRECTORY,Year(dtmYM(i)) & "_" & Month(dtmYM(i))& "." & ZC_STATIC_TYPE)
  1181. Else
  1182. strArchives=strArchives & "<li><a href="""& ZC_BLOG_HOST &"catalog.asp?date=" & Year(dtmYM(i)) & "-" & Month(dtmYM(i)) & """>" & Year(dtmYM(i)) & " " & ZVA_Month(Month(dtmYM(i))) & "<span class=""article-nums""> (" & objRS(0) & ")</span>" +"</a></li>"
  1183. End If
  1185. If ZC_ARCHIVE_COUNT>0 Then
  1186. If i=ZC_ARCHIVE_COUNT Then Exit For
  1187. End If
  1188. End If
  1190. objRS.Close
  1191. Set objRS=Nothing
  1192. Next
  1193. End If
  1196. MakeDirectoryReBuild=True
  1198. End Function
  1199. '*********************************************************
  1204. '*********************************************************
  1205. ' 目的：    All Files ReBuild
  1206. '*********************************************************
  1207. Function MakeFileReBuild()
  1209. On Error Resume Next
  1211. 'plugin node
  1212. For Each sAction_Plugin_MakeFileReBuild_Begin in Action_Plugin_MakeFileReBuild_Begin
  1213. If Not IsEmpty(sAction_Plugin_MakeFileReBuild_Begin) Then Call Execute(sAction_Plugin_MakeFileReBuild_Begin)
  1214. If bAction_Plugin_MakeFileReBuild_Begin=True Then Exit Function
  1215. Next
  1217. Dim intPage
  1218. Dim intAllTime
  1220. intPage=CInt(Request.QueryString("page"))
  1221. intAllTime=CLng(Request.QueryString("all"))
  1223. If intPage=0 Then
  1224. Call MakeBlogReBuild_Core()
  1225. intPage=1
  1226. Response.Redirect ZC_BLOG_HOST&"cmd.asp?act=FileReBuild&page="&intPage&"&all="&intAllTime
  1227. End If
  1229. Dim i,j
  1231. Dim objRS
  1232. Dim objArticle
  1234. Set objRS=Server.CreateObject("ADODB.Recordset")
  1235. objRS.CursorType = adOpenKeyset
  1236. objRS.LockType = adLockReadOnly
  1237. objRS.ActiveConnection=objConn
  1238. objRS.Source="SELECT [log_ID] FROM [blog_Article] WHERE [log_Level]>1"
  1239. objRS.Open()
  1241. If (Not objRS.bof) And (Not objRS.eof) Then
  1243. objRS.PageSize = ZC_REBUILD_FILE_COUNT
  1245. If intPage>objRS.PageCount Then
  1247. Call SetBlogHint(True,Empty,False)
  1249. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /></head><body>"
  1251. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG073 & "</div>"
  1252. Response.Write "<div id=""divMain2"">"
  1253. Call GetBlogHint()
  1254. Response.Write "<form  name=""edit"" id=""edit"">"
  1256. Response.Write "<p>" & ZC_MSG225 &"</p>"
  1257. Response.Write "<p>" & Replace(ZC_MSG169,"%n",intAllTime/1000)&"</p>"
  1259. Response.Write "</form></div></div>"
  1260. Response.Write "</body></html>"
  1262. MakeFileReBuild=True
  1264. 'plugin node
  1265. For Each sAction_Plugin_MakeFileReBuild_End in Action_Plugin_MakeFileReBuild_End
  1266. If Not IsEmpty(sAction_Plugin_MakeFileReBuild_End) Then Call Execute(sAction_Plugin_MakeFileReBuild_End)
  1267. If bAction_Plugin_MakeFileReBuild_End=True Then Exit Function
  1268. Next
  1270. Exit Function
  1272. End If
  1274. objRS.AbsolutePage = intPage
  1276. For i = 1 To ZC_REBUILD_FILE_COUNT
  1278. Call BuildArticle(objRS("log_ID"),False,False)
  1280. objRS.MoveNext
  1281. If objRS.eof Then Exit For
  1282. Next
  1284. intAllTime=CLng(intAllTime)+RunTime
  1286. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/><meta http-equiv=""Content-Language"" content=""zh-cn"" /><meta http-equiv=""refresh"" content="""&ZC_REBUILD_FILE_INTERVAL&";URL=cmd.asp?act=FileReBuild&page="&intPage+1&"&all="&intAllTime&"""/><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /><title>"&ZC_MSG073&"</title></head><body>"
  1288. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG073 & "</div>"
  1289. Response.Write "<div id=""divMain2"">"
  1290. Response.Write "<form  name=""edit"" id=""edit"">"
  1293. For j=1 To intPage
  1294. Response.Write "<p>" &Replace(ZC_MSG227,"%n",j)&"</p>"
  1295. Next
  1297. Response.Write "<p>" &Replace(ZC_MSG152,"%n",ZC_REBUILD_FILE_INTERVAL)&"</p>"
  1298. Response.Write "</form></div></div>"
  1299. Response.Write "</body></html>"
  1301. Else
  1303. Call SetBlogHint(True,Empty,False)
  1304. Response.Redirect "admin/admin.asp?act=AskFileReBuild"
  1306. End If
  1308. Err.Clear
  1310. End Function
  1311. '*********************************************************
  1316. '/////////////////////////////////////////////////////////////////////////////////////////
  1317. '*********************************************************
  1318. ' 目的：    List User Rights
  1319. '*********************************************************
  1320. Function ListUser_Rights()
  1322. Dim s
  1323. Dim i
  1324. Dim strAction
  1325. Dim aryAction
  1327. strAction="login|verify|logout|admin|cmt|tb|vrs|BlogReBuild|FileReBuild|ArticleMng|ArticleEdt|ArticlePst|ArticleDel|CategoryMng|CategoryPst|CategoryDel|CommentMng|CommentDel|CommentRev|TrackBackMng|TrackBackDel|TrackBackSnd|UserMng|UserEdt|UserCrt|UserDel|FileMng|FileUpload|FileDel|Search|TagMng|TagEdt|TagPst|TagDel|SettingMng|SettingSav|PlugInMng|rss|SiteFileMng|SiteFileEdt|SiteFilePst|SiteFileDel|Root"
  1329. aryAction=Split(strAction, "|")
  1331. s=ZC_MSG019
  1333. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8""/><meta http-equiv=""Content-Language"" content=""zh-cn"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /><title>"&ZC_MSG021&"</title></head><body>"
  1335. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG021 & "</div>"
  1336. Response.Write "<div id=""divMain2""><form  name=""edit"" id=""edit""><P>"
  1338. Response.Write ZC_MSG001 & ":" & BLogUser.Name & "<br/><br/>"
  1339. Response.Write ZC_MSG249 & ":" & ZVA_User_Level_Name(BLogUser.Level) & "<br/><br/>"
  1341. For i=LBound(aryAction) To UBound(aryAction)
  1343. If Not CheckRights(aryAction(i)) Then s=Replace(s,"%s",":<font color=Red>fail</font>"&"<br/><br/>",1,1) Else s=Replace(s,"%s",":<font color=green>ok</font>"&"<br/><br/>",1,1)
  1345. Next
  1347. Response.Write s
  1349. Response.Write "</p></form></div></div>"
  1350. Response.Write "</body></html>"
  1352. ListUser_Rights=True
  1354. End Function
  1355. '*********************************************************
  1361. '/////////////////////////////////////////////////////////////////////////////////////////
  1362. '*********************************************************
  1363. ' 目的：    Save Blog Setting
  1364. '*********************************************************
  1365. Function SaveSetting()
  1367. On Error Resume Next
  1369. Dim i,j
  1370. Dim s,t
  1371. Dim strContent
  1373. strContent=LoadFromFile(BlogPath & "/c_custom.asp","utf-8")
  1375. Dim strZC_BLOG_HOST
  1376. Dim strZC_BLOG_TITLE
  1377. Dim strZC_BLOG_SUBTITLE
  1378. Dim strZC_BLOG_NAME
  1379. Dim strZC_BLOG_SUB_NAME
  1380. Dim strZC_BLOG_CSS
  1381. Dim strZC_BLOG_THEME
  1382. Dim strZC_BLOG_COPYRIGHT
  1383. Dim strZC_BLOG_MASTER
  1386. strZC_BLOG_HOST=Request.Form("edtZC_BLOG_HOST")
  1387. If Right(strZC_BLOG_HOST,1)<>"/" Then strZC_BLOG_HOST=strZC_BLOG_HOST & "/"
  1388. If Left(strZC_BLOG_HOST,8)<>"https://" Then
  1389. If Left(strZC_BLOG_HOST,7)<>"http://" Then strZC_BLOG_HOST="http://" & strZC_BLOG_HOST
  1390. End If
  1392. strZC_BLOG_TITLE=Request.Form("edtZC_BLOG_TITLE")
  1394. strZC_BLOG_SUBTITLE=Request.Form("edtZC_BLOG_SUBTITLE")
  1396. strZC_BLOG_NAME=Request.Form("edtZC_BLOG_NAME")
  1398. strZC_BLOG_SUB_NAME=Request.Form("edtZC_BLOG_SUB_NAME")
  1400. strZC_BLOG_CSS=Request.Form("edtZC_BLOG_CSS")
  1402. strZC_BLOG_THEME=Request.Form("edtZC_BLOG_THEME")
  1404. strZC_BLOG_COPYRIGHT=Replace(Replace(Request.Form("edtZC_BLOG_COPYRIGHT"),vbCr,""),vbLf,"")
  1406. strZC_BLOG_MASTER=Request.Form("edtZC_BLOG_MASTER")
  1408. Call ScanPluginToThemeFile(strZC_BLOG_CSS,strZC_BLOG_THEME)
  1410. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_HOST",strZC_BLOG_HOST)
  1411. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_TITLE",strZC_BLOG_TITLE)
  1412. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_SUBTITLE",strZC_BLOG_SUBTITLE)
  1413. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_NAME",strZC_BLOG_NAME)
  1414. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_SUB_NAME",strZC_BLOG_SUB_NAME)
  1415. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_CSS",strZC_BLOG_CSS)
  1416. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_THEME",strZC_BLOG_THEME)
  1417. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_COPYRIGHT",strZC_BLOG_COPYRIGHT)
  1418. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_MASTER",strZC_BLOG_MASTER)
  1420. If UCase(strZC_BLOG_HOST)<>UCase("""" & CStr(ZC_BLOG_HOST) & """") Then Call SetBlogHint(Empty,Empty,True)
  1421. If UCase(strZC_BLOG_TITLE)<>UCase("""" & CStr(ZC_BLOG_TITLE) & """") Then Call SetBlogHint(Empty,Empty,True)
  1422. If UCase(strZC_BLOG_SUBTITLE)<>UCase("""" & CStr(ZC_BLOG_SUBTITLE) & """") Then Call SetBlogHint(Empty,Empty,Empty)
  1423. If UCase(strZC_BLOG_NAME)<>UCase("""" & CStr(ZC_BLOG_NAME) & """") Then Call SetBlogHint(Empty,Empty,True)
  1424. If UCase(strZC_BLOG_SUB_NAME)<>UCase("""" & CStr(ZC_BLOG_SUB_NAME) & """") Then Call SetBlogHint(Empty,Empty,True)
  1425. If UCase(strZC_BLOG_CSS)<>UCase("""" & CStr(ZC_BLOG_CSS) & """") Then Call SetBlogHint(Empty,True,Empty)
  1426. If UCase(strZC_BLOG_THEME)<>UCase("""" & CStr(ZC_BLOG_THEME) & """") Then Call SetBlogHint(Empty,True,True)
  1427. If UCase(strZC_BLOG_COPYRIGHT)<>UCase("""" & CStr(ZC_BLOG_COPYRIGHT) & """") Then Call SetBlogHint(Empty,Empty,True)
  1428. If UCase(strZC_BLOG_MASTER)<>UCase("""" & CStr(ZC_BLOG_MASTER) & """") Then Call SetBlogHint(Empty,True,Empty)
  1430. Call SaveToFile(BlogPath & "/c_custom.asp",strContent,"utf-8",False)
  1432. strContent=LoadFromFile(BlogPath & "/c_option.asp","utf-8")
  1434. Dim strZC_BLOG_CLSID
  1435. strZC_BLOG_CLSID=Request.Form("edtZC_BLOG_CLSID")
  1436. If CheckRegExp(strZC_BLOG_CLSID,"[guid]") Then
  1437. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_CLSID",strZC_BLOG_CLSID)
  1438. If UCase(strZC_BLOG_CLSID)<>UCase("""" & CStr(ZC_BLOG_CLSID) & """") Then Call SetBlogHintWithCLSID(True,True,True,Replace(strZC_BLOG_CLSID,"""",""))
  1439. End If
  1441. Dim strZC_TIME_ZONE
  1442. strZC_TIME_ZONE=Request.Form("edtZC_TIME_ZONE")
  1443. Call SaveValueForSetting(strContent,True,"String","ZC_TIME_ZONE",strZC_TIME_ZONE)
  1444. If UCase(strZC_TIME_ZONE)<>UCase("""" & CStr(ZC_TIME_ZONE) & """") Then Call SetBlogHint(Empty,Empty,True)
  1446. Dim strZC_HOST_TIME_ZONE
  1447. strZC_HOST_TIME_ZONE=Request.Form("edtZC_HOST_TIME_ZONE")
  1448. Call SaveValueForSetting(strContent,True,"String","ZC_HOST_TIME_ZONE",strZC_HOST_TIME_ZONE)
  1449. If UCase(strZC_HOST_TIME_ZONE)<>UCase("""" & CStr(ZC_HOST_TIME_ZONE) & """") Then Call SetBlogHint(Empty,Empty,True)
  1451. Dim strZC_BLOG_LANGUAGE
  1452. strZC_BLOG_LANGUAGE=Request.Form("edtZC_BLOG_LANGUAGE")
  1453. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_LANGUAGE",strZC_BLOG_LANGUAGE)
  1454. If UCase(strZC_BLOG_LANGUAGE)<>UCase("""" & CStr(ZC_BLOG_LANGUAGE) & """") Then Call SetBlogHint(Empty,Empty,True)
  1456. Dim strZC_UPDATE_INFO_URL
  1457. strZC_UPDATE_INFO_URL=Request.Form("edtZC_UPDATE_INFO_URL")
  1458. If (Not CheckRegExp(strZC_UPDATE_INFO_URL,"[homepage]")) And (strZC_UPDATE_INFO_URL<>"") Then strZC_UPDATE_INFO_URL="http://update.rainbowsoft.org/info/"
  1459. Call SaveValueForSetting(strContent,True,"String","ZC_UPDATE_INFO_URL",strZC_UPDATE_INFO_URL)
  1460. If UCase(strZC_UPDATE_INFO_URL)<>UCase("""" & CStr(ZC_UPDATE_INFO_URL) & """") Then Call SetBlogHint(Empty,Empty,Empty)
  1462. Dim strZC_STATIC_TYPE
  1463. strZC_STATIC_TYPE=Request.Form("edtZC_STATIC_TYPE")
  1464. Call SaveValueForSetting(strContent,True,"String","ZC_STATIC_TYPE",strZC_STATIC_TYPE)
  1465. If UCase(strZC_STATIC_TYPE)<>UCase("""" & CStr(ZC_STATIC_TYPE) & """") Then Call SetBlogHint(Empty,Empty,True)
  1467. Dim strZC_STATIC_DIRECTORY
  1468. strZC_STATIC_DIRECTORY=Request.Form("edtZC_STATIC_DIRECTORY")
  1469. Call SaveValueForSetting(strContent,True,"String","ZC_STATIC_DIRECTORY",strZC_STATIC_DIRECTORY)
  1470. If UCase(strZC_STATIC_DIRECTORY)<>UCase("""" & CStr(ZC_STATIC_DIRECTORY) & """") Then Call SetBlogHint(Empty,Empty,True)
  1472. Dim strZC_BLOG_VERSION
  1473. strZC_BLOG_VERSION=Request.Form("edtZC_BLOG_VERSION")
  1474. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_VERSION",strZC_BLOG_VERSION)
  1475. If UCase(strZC_BLOG_VERSION)<>UCase("""" & CStr(ZC_BLOG_VERSION) & """") Then Call SetBlogHint(Empty,Empty,True)
  1477. Dim strZC_BLOG_WEBEDIT
  1478. strZC_BLOG_WEBEDIT=Request.Form("edtZC_BLOG_WEBEDIT")
  1479. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_WEBEDIT",strZC_BLOG_WEBEDIT)
  1480. If UCase(strZC_BLOG_WEBEDIT)<>UCase("""" & CStr(ZC_BLOG_WEBEDIT) & """") Then Call SetBlogHint(Empty,Empty,Empty)
  1482. Dim strZC_REBUILD_FILE_COUNT
  1483. strZC_REBUILD_FILE_COUNT=Request.Form("edtZC_REBUILD_FILE_COUNT")
  1484. Call SaveValueForSetting(strContent,True,"Numeric","ZC_REBUILD_FILE_COUNT",strZC_REBUILD_FILE_COUNT)
  1485. If UCase(strZC_REBUILD_FILE_COUNT)<>UCase(CStr(ZC_REBUILD_FILE_COUNT)) Then Call SetBlogHint(Empty,Empty,Empty)
  1487. Dim strZC_REBUILD_FILE_INTERVAL
  1488. strZC_REBUILD_FILE_INTERVAL=Request.Form("edtZC_REBUILD_FILE_INTERVAL")
  1489. Call SaveValueForSetting(strContent,True,"Numeric","ZC_REBUILD_FILE_INTERVAL",strZC_REBUILD_FILE_INTERVAL)
  1490. If UCase(strZC_REBUILD_FILE_INTERVAL)<>UCase(CStr(ZC_REBUILD_FILE_INTERVAL)) Then Call SetBlogHint(Empty,Empty,Empty)
  1492. Dim strZC_UPLOAD_FILETYPE
  1493. strZC_UPLOAD_FILETYPE=Request.Form("edtZC_UPLOAD_FILETYPE")
  1494. Call SaveValueForSetting(strContent,True,"String","ZC_UPLOAD_FILETYPE",strZC_UPLOAD_FILETYPE)
  1495. If UCase(strZC_UPLOAD_FILETYPE)<>UCase("""" & CStr(ZC_UPLOAD_FILETYPE) & """") Then Call SetBlogHint(Empty,Empty,Empty)
  1497. Dim strZC_UPLOAD_FILESIZE
  1498. strZC_UPLOAD_FILESIZE=Request.Form("edtZC_UPLOAD_FILESIZE")
  1499. Call SaveValueForSetting(strContent,True,"Numeric","ZC_UPLOAD_FILESIZE",strZC_UPLOAD_FILESIZE)
  1500. If UCase(strZC_UPLOAD_FILESIZE)<>UCase(CStr(ZC_UPLOAD_FILESIZE)) Then Call SetBlogHint(Empty,Empty,Empty)
  1502. Dim strZC_COMMENT_VERIFY_ENABLE
  1503. strZC_COMMENT_VERIFY_ENABLE=Request.Form("edtZC_COMMENT_VERIFY_ENABLE")
  1504. Call SaveValueForSetting(strContent,True,"Boolean","ZC_COMMENT_VERIFY_ENABLE",strZC_COMMENT_VERIFY_ENABLE)
  1505. If UCase(strZC_COMMENT_VERIFY_ENABLE)<>UCase(CStr(ZC_COMMENT_VERIFY_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1509. Dim strZC_MSG_COUNT
  1510. strZC_MSG_COUNT=Request.Form("edtZC_MSG_COUNT")
  1511. Call SaveValueForSetting(strContent,True,"Numeric","ZC_MSG_COUNT",strZC_MSG_COUNT)
  1512. If UCase(strZC_MSG_COUNT)<>UCase(CStr(ZC_MSG_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1514. Dim strZC_ARCHIVE_COUNT
  1515. strZC_ARCHIVE_COUNT=Request.Form("edtZC_ARCHIVE_COUNT")
  1516. Call SaveValueForSetting(strContent,True,"Numeric","ZC_ARCHIVE_COUNT",strZC_ARCHIVE_COUNT)
  1517. If UCase(strZC_ARCHIVE_COUNT)<>UCase(CStr(ZC_ARCHIVE_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1519. Dim strZC_PREVIOUS_COUNT
  1520. strZC_PREVIOUS_COUNT=Request.Form("edtZC_PREVIOUS_COUNT")
  1521. Call SaveValueForSetting(strContent,True,"Numeric","ZC_PREVIOUS_COUNT",strZC_PREVIOUS_COUNT)
  1522. If UCase(strZC_PREVIOUS_COUNT)<>UCase(CStr(ZC_PREVIOUS_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1524. Dim strZC_DISPLAY_COUNT
  1525. strZC_DISPLAY_COUNT=Request.Form("edtZC_DISPLAY_COUNT")
  1526. Call SaveValueForSetting(strContent,True,"Numeric","ZC_DISPLAY_COUNT",strZC_DISPLAY_COUNT)
  1527. If UCase(strZC_DISPLAY_COUNT)<>UCase(CStr(ZC_DISPLAY_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1529. Dim strZC_MANAGE_COUNT
  1530. strZC_MANAGE_COUNT=Request.Form("edtZC_MANAGE_COUNT")
  1531. Call SaveValueForSetting(strContent,True,"Numeric","ZC_MANAGE_COUNT",strZC_MANAGE_COUNT)
  1532. If UCase(strZC_MANAGE_COUNT)<>UCase(CStr(ZC_MANAGE_COUNT)) Then Call SetBlogHint(Empty,Empty,Empty)
  1534. Dim strZC_RSS2_COUNT
  1535. strZC_RSS2_COUNT=Request.Form("edtZC_RSS2_COUNT")
  1536. Call SaveValueForSetting(strContent,True,"Numeric","ZC_RSS2_COUNT",strZC_RSS2_COUNT)
  1537. If UCase(strZC_RSS2_COUNT)<>UCase(CStr(ZC_RSS2_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1539. Dim strZC_SEARCH_COUNT
  1540. strZC_SEARCH_COUNT=Request.Form("edtZC_SEARCH_COUNT")
  1541. Call SaveValueForSetting(strContent,True,"Numeric","ZC_SEARCH_COUNT",strZC_SEARCH_COUNT)
  1542. If UCase(strZC_SEARCH_COUNT)<>UCase(CStr(ZC_SEARCH_COUNT)) Then Call SetBlogHint(Empty,Empty,Empty)
  1544. Dim strZC_PAGEBAR_COUNT
  1545. strZC_PAGEBAR_COUNT=Request.Form("edtZC_PAGEBAR_COUNT")
  1546. Call SaveValueForSetting(strContent,True,"Numeric","ZC_PAGEBAR_COUNT",strZC_PAGEBAR_COUNT)
  1547. If UCase(strZC_PAGEBAR_COUNT)<>UCase(CStr(ZC_PAGEBAR_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1549. Dim strZC_USE_NAVIGATE_ARTICLE
  1550. strZC_USE_NAVIGATE_ARTICLE=Request.Form("edtZC_USE_NAVIGATE_ARTICLE")
  1551. Call SaveValueForSetting(strContent,True,"Boolean","ZC_USE_NAVIGATE_ARTICLE",strZC_USE_NAVIGATE_ARTICLE)
  1552. If UCase(strZC_USE_NAVIGATE_ARTICLE)<>UCase(CStr(ZC_USE_NAVIGATE_ARTICLE)) Then Call SetBlogHint(Empty,Empty,True)
  1554. Dim strZC_MUTUALITY_COUNT
  1555. strZC_MUTUALITY_COUNT=Request.Form("edtZC_MUTUALITY_COUNT")
  1556. Call SaveValueForSetting(strContent,True,"Numeric","ZC_MUTUALITY_COUNT",strZC_MUTUALITY_COUNT)
  1557. If UCase(strZC_MUTUALITY_COUNT)<>UCase(CStr(ZC_MUTUALITY_COUNT)) Then Call SetBlogHint(Empty,Empty,True)
  1560. Dim strZC_UBB_LINK_ENABLE
  1561. strZC_UBB_LINK_ENABLE=Request.Form("edtZC_UBB_LINK_ENABLE")
  1562. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_LINK_ENABLE",strZC_UBB_LINK_ENABLE)
  1563. If UCase(strZC_UBB_LINK_ENABLE)<>UCase(CStr(ZC_UBB_LINK_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1565. Dim strZC_UBB_FONT_ENABLE
  1566. strZC_UBB_FONT_ENABLE=Request.Form("edtZC_UBB_FONT_ENABLE")
  1567. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_FONT_ENABLE",strZC_UBB_FONT_ENABLE)
  1568. If UCase(strZC_UBB_FONT_ENABLE)<>UCase(CStr(ZC_UBB_FONT_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1570. Dim strZC_UBB_CODE_ENABLE
  1571. strZC_UBB_CODE_ENABLE=Request.Form("edtZC_UBB_CODE_ENABLE")
  1572. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_CODE_ENABLE",strZC_UBB_CODE_ENABLE)
  1573. If UCase(strZC_UBB_CODE_ENABLE)<>UCase(CStr(ZC_UBB_CODE_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1575. Dim strZC_UBB_FACE_ENABLE
  1576. strZC_UBB_FACE_ENABLE=Request.Form("edtZC_UBB_FACE_ENABLE")
  1577. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_FACE_ENABLE",strZC_UBB_FACE_ENABLE)
  1578. If UCase(strZC_UBB_FACE_ENABLE)<>UCase(CStr(ZC_UBB_FACE_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1580. Dim strZC_UBB_IMAGE_ENABLE
  1581. strZC_UBB_IMAGE_ENABLE=Request.Form("edtZC_UBB_IMAGE_ENABLE")
  1582. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_IMAGE_ENABLE",strZC_UBB_IMAGE_ENABLE)
  1583. If UCase(strZC_UBB_IMAGE_ENABLE)<>UCase(CStr(ZC_UBB_IMAGE_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1585. Dim strZC_UBB_MEDIA_ENABLE
  1586. strZC_UBB_MEDIA_ENABLE=Request.Form("edtZC_UBB_MEDIA_ENABLE")
  1587. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_MEDIA_ENABLE",strZC_UBB_MEDIA_ENABLE)
  1588. If UCase(strZC_UBB_MEDIA_ENABLE)<>UCase(CStr(ZC_UBB_MEDIA_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1590. Dim strZC_UBB_FLASH_ENABLE
  1591. strZC_UBB_FLASH_ENABLE=Request.Form("edtZC_UBB_FLASH_ENABLE")
  1592. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_FLASH_ENABLE",strZC_UBB_FLASH_ENABLE)
  1593. If UCase(strZC_UBB_FLASH_ENABLE)<>UCase(CStr(ZC_UBB_FLASH_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1595. Dim strZC_UBB_TYPESET_ENABLE
  1596. strZC_UBB_TYPESET_ENABLE=Request.Form("edtZC_UBB_TYPESET_ENABLE")
  1597. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_TYPESET_ENABLE",strZC_UBB_TYPESET_ENABLE)
  1598. If UCase(strZC_UBB_TYPESET_ENABLE)<>UCase(CStr(ZC_UBB_TYPESET_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1600. Dim strZC_UBB_AUTOLINK_ENABLE
  1601. strZC_UBB_AUTOLINK_ENABLE=Request.Form("edtZC_UBB_AUTOLINK_ENABLE")
  1602. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UBB_AUTOLINK_ENABLE",strZC_UBB_AUTOLINK_ENABLE)
  1603. If UCase(strZC_UBB_AUTOLINK_ENABLE)<>UCase(CStr(ZC_UBB_AUTOLINK_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1605. 'Dim strZC_AUTO_NEWLINE
  1606. 'strZC_AUTO_NEWLINE=Request.Form("edtZC_AUTO_NEWLINE")
  1607. 'Call SaveValueForSetting(strContent,True,"Boolean","ZC_AUTO_NEWLINE",strZC_AUTO_NEWLINE)
  1608. 'If UCase(strZC_AUTO_NEWLINE)<>UCase(CStr(ZC_AUTO_NEWLINE)) Then Call SetBlogHint(Empty,Empty,True)
  1610. Dim strZC_COMMENT_NOFOLLOW_ENABLE
  1611. strZC_COMMENT_NOFOLLOW_ENABLE=Request.Form("edtZC_COMMENT_NOFOLLOW_ENABLE")
  1612. Call SaveValueForSetting(strContent,True,"Boolean","ZC_COMMENT_NOFOLLOW_ENABLE",strZC_COMMENT_NOFOLLOW_ENABLE)
  1613. If UCase(strZC_COMMENT_NOFOLLOW_ENABLE)<>UCase(CStr(ZC_COMMENT_NOFOLLOW_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1615. Dim strZC_JAPAN_TO_HTML
  1616. strZC_JAPAN_TO_HTML=Request.Form("edtZC_JAPAN_TO_HTML")
  1617. Call SaveValueForSetting(strContent,True,"Boolean","ZC_JAPAN_TO_HTML",strZC_JAPAN_TO_HTML)
  1618. If UCase(strZC_JAPAN_TO_HTML)<>UCase(CStr(ZC_JAPAN_TO_HTML)) Then Call SetBlogHint(Empty,Empty,True)
  1620. Dim strZC_EMOTICONS_FILENAME
  1621. strZC_EMOTICONS_FILENAME=Request.Form("edtZC_EMOTICONS_FILENAME")
  1622. Call SaveValueForSetting(strContent,True,"String","ZC_EMOTICONS_FILENAME",strZC_EMOTICONS_FILENAME) 
  1623. If UCase(strZC_EMOTICONS_FILENAME)<>UCase("""" & CStr(ZC_EMOTICONS_FILENAME) & """") Then Call SetBlogHint(Empty,Empty,True)
  1625. Dim strZC_EMOTICONS_FILESIZE
  1626. strZC_EMOTICONS_FILESIZE=Request.Form("edtZC_EMOTICONS_FILESIZE")
  1627. Call SaveValueForSetting(strContent,True,"Numeric","ZC_EMOTICONS_FILESIZE",strZC_EMOTICONS_FILESIZE)
  1628. If UCase(strZC_EMOTICONS_FILESIZE)<>UCase(CStr(ZC_EMOTICONS_FILESIZE)) Then Call SetBlogHint(Empty,Empty,True)
  1630. Dim strZC_MOONSOFT_PLUGIN_ENABLE
  1631. strZC_MOONSOFT_PLUGIN_ENABLE=Request.Form("edtZC_MOONSOFT_PLUGIN_ENABLE")
  1632. Call SaveValueForSetting(strContent,True,"Boolean","ZC_MOONSOFT_PLUGIN_ENABLE",strZC_MOONSOFT_PLUGIN_ENABLE)
  1633. If UCase(strZC_MOONSOFT_PLUGIN_ENABLE)<>UCase(CStr(ZC_MOONSOFT_PLUGIN_ENABLE)) Then Call SetBlogHint(Empty,True,Empty)
  1635. Dim strZC_MOONSOFT_PLUGIN_REGEX
  1636. strZC_MOONSOFT_PLUGIN_REGEX=Request.Form("edtZC_MOONSOFT_PLUGIN_REGEX")
  1637. Call SaveValueForSetting(strContent,True,"String","ZC_MOONSOFT_PLUGIN_REGEX",strZC_MOONSOFT_PLUGIN_REGEX) 
  1638. If UCase(strZC_MOONSOFT_PLUGIN_REGEX)<>UCase("""" & CStr(ZC_MOONSOFT_PLUGIN_REGEX) & """") Then Call SetBlogHint(Empty,True,Empty)
  1640. Dim strZC_MOONSOFT_PLUGIN_ANONYMOUS
  1641. strZC_MOONSOFT_PLUGIN_ANONYMOUS=Request.Form("edtZC_MOONSOFT_PLUGIN_ANONYMOUS")
  1642. Call SaveValueForSetting(strContent,True,"Boolean","ZC_MOONSOFT_PLUGIN_ANONYMOUS",strZC_MOONSOFT_PLUGIN_ANONYMOUS)
  1643. If UCase(strZC_MOONSOFT_PLUGIN_ANONYMOUS)<>UCase(CStr(ZC_MOONSOFT_PLUGIN_ANONYMOUS)) Then Call SetBlogHint(Empty,True,Empty)
  1645. Dim strZC_COMMENT_REVERSE_ORDER_EXPORT
  1646. strZC_COMMENT_REVERSE_ORDER_EXPORT=Request.Form("edtZC_COMMENT_REVERSE_ORDER_EXPORT")
  1647. Call SaveValueForSetting(strContent,True,"Boolean","ZC_COMMENT_REVERSE_ORDER_EXPORT",strZC_COMMENT_REVERSE_ORDER_EXPORT)
  1648. If UCase(strZC_COMMENT_REVERSE_ORDER_EXPORT)<>UCase(CStr(ZC_COMMENT_REVERSE_ORDER_EXPORT)) Then Call SetBlogHint(Empty,Empty,True)
  1650. Dim strZC_GUESTBOOK_CONTENT
  1651. strZC_GUESTBOOK_CONTENT=Replace(Replace(Request.Form("edtZC_GUESTBOOK_CONTENT"),vbCr,""),vbLf,"")
  1652. Call SaveValueForSetting(strContent,True,"String","ZC_GUESTBOOK_CONTENT",strZC_GUESTBOOK_CONTENT) 
  1653. If UCase(strZC_GUESTBOOK_CONTENT)<>UCase("""" & CStr(ZC_GUESTBOOK_CONTENT) & """") Then Call SetBlogHint(Empty,Empty,Empty)
  1655. Dim strZC_CUSTOM_DIRECTORY_ENABLE
  1656. strZC_CUSTOM_DIRECTORY_ENABLE=Request.Form("edtZC_CUSTOM_DIRECTORY_ENABLE")
  1657. Call SaveValueForSetting(strContent,True,"Boolean","ZC_CUSTOM_DIRECTORY_ENABLE",strZC_CUSTOM_DIRECTORY_ENABLE)
  1658. If UCase(strZC_CUSTOM_DIRECTORY_ENABLE)<>UCase(CStr(ZC_CUSTOM_DIRECTORY_ENABLE)) Then Call SetBlogHint(Empty,Empty,True)
  1660. Dim strZC_CUSTOM_DIRECTORY_ANONYMOUS
  1661. strZC_CUSTOM_DIRECTORY_ANONYMOUS=Request.Form("edtZC_CUSTOM_DIRECTORY_ANONYMOUS")
  1662. Call SaveValueForSetting(strContent,True,"Boolean","ZC_CUSTOM_DIRECTORY_ANONYMOUS",strZC_CUSTOM_DIRECTORY_ANONYMOUS)
  1663. If UCase(strZC_CUSTOM_DIRECTORY_ANONYMOUS)<>UCase(CStr(ZC_CUSTOM_DIRECTORY_ANONYMOUS)) Then Call SetBlogHint(Empty,Empty,True)
  1665. Dim strZC_CUSTOM_DIRECTORY_REGEX
  1666. strZC_CUSTOM_DIRECTORY_REGEX=Request.Form("edtZC_CUSTOM_DIRECTORY_REGEX")
  1667. If strZC_CUSTOM_DIRECTORY_ANONYMOUS="True" Then
  1668. If InStr(strZC_CUSTOM_DIRECTORY_REGEX,"{%id%}")=0 And InStr(strZC_CUSTOM_DIRECTORY_REGEX,"{%alias%}")=0 Then
  1669. strZC_CUSTOM_DIRECTORY_REGEX=strZC_CUSTOM_DIRECTORY_REGEX & "{%id%}"
  1670. End If
  1671. End If
  1672. Call SaveValueForSetting(strContent,True,"String","ZC_CUSTOM_DIRECTORY_REGEX",strZC_CUSTOM_DIRECTORY_REGEX) 
  1673. If UCase(strZC_CUSTOM_DIRECTORY_REGEX)<>UCase("""" & CStr(ZC_CUSTOM_DIRECTORY_REGEX) & """") Then Call SetBlogHint(Empty,Empty,True)
  1676. 'Dim strZC_IE_DISPLAY_WAP
  1677. 'strZC_IE_DISPLAY_WAP=Request.Form("edtZC_IE_DISPLAY_WAP")
  1678. 'Call SaveValueForSetting(strContent,True,"Boolean","ZC_IE_DISPLAY_WAP",strZC_IE_DISPLAY_WAP)
  1680. Dim strZC_DISPLAY_COUNT_WAP
  1681. strZC_DISPLAY_COUNT_WAP=Request.Form("edtZC_DISPLAY_COUNT_WAP")
  1682. Call SaveValueForSetting(strContent,True,"Numeric","ZC_DISPLAY_COUNT_WAP",strZC_DISPLAY_COUNT_WAP)
  1684. Dim strZC_COMMENT_COUNT_WAP
  1685. strZC_COMMENT_COUNT_WAP=Request.Form("edtZC_COMMENT_COUNT_WAP")
  1686. Call SaveValueForSetting(strContent,True,"Numeric","ZC_COMMENT_COUNT_WAP",strZC_COMMENT_COUNT_WAP)
  1688. Dim strZC_PAGEBAR_COUNT_WAP
  1689. strZC_PAGEBAR_COUNT_WAP=Request.Form("edtZC_PAGEBAR_COUNT_WAP")
  1690. Call SaveValueForSetting(strContent,True,"Numeric","ZC_PAGEBAR_COUNT_WAP",strZC_PAGEBAR_COUNT_WAP)
  1692. Dim strZC_SINGLE_SIZE_WAP
  1693. strZC_SINGLE_SIZE_WAP=Request.Form("edtZC_SINGLE_SIZE_WAP")
  1694. Call SaveValueForSetting(strContent,True,"Numeric","ZC_SINGLE_SIZE_WAP",strZC_SINGLE_SIZE_WAP)
  1696. Dim strZC_SINGLE_PAGEBAR_COUNT_WAP
  1697. strZC_SINGLE_PAGEBAR_COUNT_WAP=Request.Form("edtZC_SINGLE_PAGEBAR_COUNT_WAP")
  1698. Call SaveValueForSetting(strContent,True,"Numeric","ZC_SINGLE_PAGEBAR_COUNT_WAP",strZC_SINGLE_PAGEBAR_COUNT_WAP)
  1700. Dim strZC_COMMENT_PAGEBAR_COUNT_WAP
  1701. strZC_COMMENT_PAGEBAR_COUNT_WAP=Request.Form("edtZC_COMMENT_PAGEBAR_COUNT_WAP")
  1702. Call SaveValueForSetting(strContent,True,"Numeric","ZC_COMMENT_PAGEBAR_COUNT_WAP",strZC_COMMENT_PAGEBAR_COUNT_WAP) 
  1704. Dim strZC_FILENAME_WAP
  1705. strZC_FILENAME_WAP=Request.Form("edtZC_FILENAME_WAP")
  1706. Call SaveValueForSetting(strContent,True,"String","ZC_FILENAME_WAP",strZC_FILENAME_WAP)
  1708. Dim strZC_WAPCOMMENT_ENABLE
  1709. strZC_WAPCOMMENT_ENABLE=Request.Form("edtZC_WAPCOMMENT_ENABLE")
  1710. Call SaveValueForSetting(strContent,True,"Boolean","ZC_WAPCOMMENT_ENABLE",strZC_WAPCOMMENT_ENABLE)  
  1712. Dim strZC_UPLOAD_DIRBYMONTH
  1713. strZC_UPLOAD_DIRBYMONTH=Request.Form("edtZC_UPLOAD_DIRBYMONTH")
  1714. Call SaveValueForSetting(strContent,True,"Boolean","ZC_UPLOAD_DIRBYMONTH",strZC_UPLOAD_DIRBYMONTH)
  1715. If UCase(ZC_UPLOAD_DIRBYMONTH)<>UCase(CStr(ZC_UPLOAD_DIRBYMONTH)) Then Call SetBlogHint(Empty,Empty,True)
  1718. Dim strZC_IMAGE_WIDTH
  1719. strZC_IMAGE_WIDTH=Request.Form("edtZC_IMAGE_WIDTH")
  1720. Call SaveValueForSetting(strContent,True,"Numeric","ZC_IMAGE_WIDTH",strZC_IMAGE_WIDTH)
  1721. If UCase(strZC_IMAGE_WIDTH)<>UCase(CStr(ZC_IMAGE_WIDTH)) Then Call SetBlogHint(Empty,Empty,True)
  1723. Dim strZC_RSS_EXPORT_WHOLE
  1724. strZC_RSS_EXPORT_WHOLE=Request.Form("edtZC_RSS_EXPORT_WHOLE")
  1725. Call SaveValueForSetting(strContent,True,"Boolean","ZC_RSS_EXPORT_WHOLE",strZC_RSS_EXPORT_WHOLE)
  1726. If UCase(strZC_RSS_EXPORT_WHOLE)<>UCase(CStr(ZC_RSS_EXPORT_WHOLE)) Then Call SetBlogHint(Empty,True,Empty)
  1728. Dim strZC_COMMENT_TURNOFF
  1729. strZC_COMMENT_TURNOFF=Request.Form("edtZC_COMMENT_TURNOFF")
  1730. Call SaveValueForSetting(strContent,True,"Boolean","ZC_COMMENT_TURNOFF",strZC_COMMENT_TURNOFF)
  1732. Dim strZC_TRACKBACK_TURNOFF
  1733. strZC_TRACKBACK_TURNOFF=Request.Form("edtZC_TRACKBACK_TURNOFF")
  1734. Call SaveValueForSetting(strContent,True,"Boolean","ZC_TRACKBACK_TURNOFF",strZC_TRACKBACK_TURNOFF)
  1736. Dim strZC_GUEST_REVERT_COMMENT_ENABLE
  1737. strZC_GUEST_REVERT_COMMENT_ENABLE=Request.Form("edtZC_GUEST_REVERT_COMMENT_ENABLE")
  1738. Call SaveValueForSetting(strContent,True,"Boolean","ZC_GUEST_REVERT_COMMENT_ENABLE",strZC_GUEST_REVERT_COMMENT_ENABLE)
  1741. Dim strZC_VERIFYCODE_WIDTH
  1742. strZC_VERIFYCODE_WIDTH=Request.Form("edtZC_VERIFYCODE_WIDTH")
  1743. Call SaveValueForSetting(strContent,True,"Numeric","ZC_VERIFYCODE_WIDTH",strZC_VERIFYCODE_WIDTH) 
  1745. Dim strZC_VERIFYCODE_HEIGHT
  1746. strZC_VERIFYCODE_HEIGHT=Request.Form("edtZC_VERIFYCODE_HEIGHT")
  1747. Call SaveValueForSetting(strContent,True,"Numeric","ZC_VERIFYCODE_HEIGHT",strZC_VERIFYCODE_HEIGHT) 
  1749. Dim strZC_VERIFYCODE_STRING
  1750. strZC_VERIFYCODE_STRING=Request.Form("edtZC_VERIFYCODE_STRING")
  1751. Call SaveValueForSetting(strContent,True,"String","ZC_VERIFYCODE_STRING",strZC_VERIFYCODE_STRING) 
  1752. If UCase(strZC_VERIFYCODE_STRING)<>UCase(CStr(ZC_VERIFYCODE_STRING)) Then Application.Lock : Application(ZC_BLOG_CLSID & "VERIFY_NUMBER")=Empty : Application.UnLock
  1754. Dim strZC_RECENT_COMMENT_WORD_MAX
  1755. strZC_RECENT_COMMENT_WORD_MAX=Request.Form("edtZC_RECENT_COMMENT_WORD_MAX")
  1756. Call SaveValueForSetting(strContent,True,"Numeric","ZC_RECENT_COMMENT_WORD_MAX",strZC_RECENT_COMMENT_WORD_MAX) 
  1757. If UCase(strZC_RECENT_COMMENT_WORD_MAX)<>UCase(CStr(ZC_RECENT_COMMENT_WORD_MAX)) Then Call SetBlogHint(Empty,True,Empty)
  1759. Dim strZC_TAGS_DISPLAY_COUNT
  1760. strZC_TAGS_DISPLAY_COUNT=Request.Form("edtZC_TAGS_DISPLAY_COUNT")
  1761. Call SaveValueForSetting(strContent,True,"Numeric","ZC_TAGS_DISPLAY_COUNT",strZC_TAGS_DISPLAY_COUNT) 
  1762. If UCase(strZC_TAGS_DISPLAY_COUNT)<>UCase(CStr(ZC_TAGS_DISPLAY_COUNT)) Then Call SetBlogHint(Empty,True,Empty)
  1764. ' Dim str<#>
  1765. ' str<#>=Request.Form("edt<#>")
  1766. ' Call SaveValueForSetting(strContent,True,"Boolean","<#>",str<#>) 
  1768. Call SaveToFile(BlogPath & "/c_option.asp",strContent,"utf-8",False)
  1770. 'Call MakeBlogReBuild_Core()
  1772. SaveSetting=True
  1774. Err.Clear
  1776. End Function
  1777. '*********************************************************
  1782. '/////////////////////////////////////////////////////////////////////////////////////////
  1783. '*********************************************************
  1784. ' 目的：    Post Tag
  1785. '*********************************************************
  1786. Function PostTag()
  1788. Dim objTag
  1789. Set objTag=New TTag
  1790. objTag.ID=Request.Form("edtID")
  1791. objTag.Name=Request.Form("edtName")
  1792. objTag.Order=Request.Form("edtOrder")
  1793. objTag.Intro=Request.Form("edtIntro")
  1795. '接口
  1796. Call Filter_Plugin_PostTag_Core(objTag)
  1798. If objTag.Post Then
  1799. Call Filter_Plugin_PostTag_Succeed(objTag)
  1800. Call ScanTagCount("{"&objTag.ID&"}")
  1801. PostTag=True
  1802. End If
  1803. Set objTag=Nothing
  1805. End Function
  1806. '*********************************************************
  1811. '*********************************************************
  1812. ' 目的：    Del Tag
  1813. '*********************************************************
  1814. Function DelTag(intID)
  1816. Dim objTag
  1817. Set objTag=New TTag
  1818. objTag.ID=intID
  1819. If objTag.Del Then DelTag=True
  1820. Set objTag=Nothing
  1822. End Function
  1823. '*********************************************************
  1828. '/////////////////////////////////////////////////////////////////////////////////////////
  1829. '*********************************************************
  1830. ' 目的：    Post KeyWord
  1831. '*********************************************************
  1832. Function PostKeyWord()
  1834. End Function
  1835. '*********************************************************
  1840. '*********************************************************
  1841. ' 目的：    Del Tag
  1842. '*********************************************************
  1843. Function DelKeyWord(intID)
  1845. End Function
  1846. '*********************************************************
  1851. '*********************************************************
  1852. ' 目的：    
  1853. '*********************************************************
  1854. Function PostSiteFile(tpath)
  1856. Dim txaContent
  1857. txaContent=Request.Form("txaContent")
  1859. If IsEmpty(txaContent) Then txaContent=Null
  1861. If Not IsNull(tpath) Then
  1863. If Not IsNull(txaContent) Then
  1865. Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
  1867. PostSiteFile=True
  1869. End IF
  1871. End If
  1874. End Function
  1875. '*********************************************************
  1880. '*********************************************************
  1881. ' 目的：    
  1882. '*********************************************************
  1883. Function DelSiteFile(tpath)
  1885. Dim Fso
  1886. Set Fso = Createobject("Scripting.Filesystemobject")
  1887. If Fso.FileExists(BlogPath & tpath) Then
  1888. Fso.Deletefile(BlogPath & tpath)
  1889. Set Fso = Nothing
  1891. DelSiteFile=True
  1893. Exit Function
  1894. Else
  1895. Set Fso = Nothing
  1896. Exit Function
  1897. End If
  1899. End Function
  1900. '*********************************************************
  1905. '*********************************************************
  1906. ' 目的：    
  1907. '*********************************************************
  1908. Function GetRealUrlofTrackBackUrl(intID)
  1910. If IsEmpty(Request.Form("edtCheckOut")) Then
  1912. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /></head><body>"
  1914. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG145 & "</div>"
  1915. Response.Write "<div id=""divMain2""><form method=""post""  name=""edit"" id=""edit"" action="""& ZC_BLOG_HOST & "cmd.asp?act=gettburl&id=" & intID &""">"
  1916. Response.Write "<p></p>"
  1917. Response.Write "<p>"& ZC_MSG161 &"</p>"
  1918. Response.Write "<p><img style=""border:1px solid black""  src=""function/c_validcode.asp?name=gettburlvalid"" height="""&ZC_VERIFYCODE_HEIGHT&""" width="""&ZC_VERIFYCODE_WIDTH&""" alt="""" title=""""/>&nbsp;<input type=""text"" id=""edtCheckOut"" name=""edtCheckOut"" size=""30"" />&nbsp;<input class=""button"" type=""submit"" value=""" & ZC_MSG087 & """ id=""btnPost""></p>"
  1919. Response.Write "<p></p>"
  1920. Response.Write "</form></div></div>"
  1921. Response.Write "</body></html>"
  1923. ElseIf CheckVerifyNumber(Request.Form("edtCheckOut"))=True Then
  1926. Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd""><html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" /><link rel=""stylesheet"" rev=""stylesheet"" href=""CSS/admin.css"" type=""text/css"" media=""screen"" /></head><body>"
  1928. Response.Write "<div id=""divMain""><div class=""Header"">" & ZC_MSG145 & "</div>"
  1929. Response.Write "<div id=""divMain2""><form method=""post""  name=""edit"" id=""edit"" action="""& ZC_BLOG_HOST & "cmd.asp?act=gettburl&id=" & intID &""">"
  1930. Response.Write "<p></p>"
  1931. Response.Write "<p>" & ZC_BLOG_HOST & "cmd.asp?act=tb&amp;id=" & intID & "&amp;key=" & GetVerifyNumber() &"</p>"
  1932. Response.Write "<p></p>"
  1933. Response.Write "</form></div></div>"
  1934. Response.Write "</body></html>"
  1936. Session("gettburlvalid")=Empty
  1938. Else
  1940. Call ShowError(38)
  1942. End If
  1944. End Function
  1945. '*********************************************************
  1950. '*********************************************************
  1951. ' 目的：    
  1952. '*********************************************************
  1953. Function DelCommentBatch()
  1955. Dim i,j
  1956. Dim s,t
  1957. Dim aryArticle()
  1958. s=Request.Form("edtBatch")
  1959. t=Split(s,",")
  1961. ReDim Preserve aryArticle(UBound(t))
  1962. For j=0 To UBound(t)-1
  1963. aryArticle(j)=0
  1964. Next
  1966. Dim objComment
  1967. Dim objArticle
  1970. For i=0 To UBound(t)-1
  1971. Set objComment=New TComment
  1972. If objComment.LoadInfobyID(t(i)) Then
  1973. If objComment.log_ID>0 Then
  1974. Dim objTestArticle
  1975. Set objTestArticle=New TArticle
  1976. If objTestArticle.LoadInfobyID(objComment.log_ID) Then
  1978. For j=0 To UBound(t)-1
  1979. If aryArticle(j)=0 Then
  1980. aryArticle(j)=objComment.log_ID
  1981. End If
  1982. If aryArticle(j)=objComment.log_ID Then Exit For
  1983. Next
  1985. If Not((objComment.AuthorID=BlogUser.ID) Or (objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  1986. Else
  1987. Call ShowError(9)
  1988. End If
  1989. Set objTestArticle=Nothing
  1990. Else
  1991. If Not((objComment.log_ID=0) And (CheckRights("GuestBookMng")=True)) Then Exit Function
  1992. End If
  1994. objComment.Del
  1995. End If
  1996. Set objComment=Nothing
  1997. Next
  2000. For j=0 To UBound(t)-1
  2001. If aryArticle(j)>0 Then
  2002. Call BuildArticle(aryArticle(j),False,False)
  2003. End If
  2004. Next
  2006. BlogReBuild_Comments
  2007. BlogReBuild_GuestComments
  2008. DelCommentBatch=True
  2010. End Function
  2011. '*********************************************************
  2016. '*********************************************************
  2017. ' 目的：    
  2018. '*********************************************************
  2019. Function DelTrackBackBatch()
  2021. Dim i,j
  2022. Dim s,t
  2023. Dim aryArticle()
  2024. s=Request.Form("edtBatch")
  2025. t=Split(s,",")
  2027. ReDim Preserve aryArticle(UBound(t))
  2028. For j=0 To UBound(t)-1
  2029. aryArticle(j)=0
  2030. Next
  2032. Dim objTrackBack
  2033. Dim objArticle
  2035. Set objArticle=New TArticle
  2038. For i=0 To UBound(t)-1
  2039. Set objTrackBack=New TTrackBack
  2040. If objTrackBack.LoadInfobyID(t(i)) Then
  2041. Dim objTestArticle
  2042. Set objTestArticle=New TArticle
  2043. If objTestArticle.LoadInfobyID(objTrackBack.log_ID) Then
  2045. For j=0 To UBound(t)-1
  2046. If aryArticle(j)=0 Then
  2047. aryArticle(j)=objTrackBack.log_ID
  2048. End If
  2049. If aryArticle(j)=objTrackBack.log_ID Then Exit For
  2050. Next
  2052. If Not((objTestArticle.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True)) Then Exit Function
  2053. Else
  2054. Call ShowError(9)
  2055. End If
  2056. Set objTestArticle=Nothing
  2057. objTrackBack.Del
  2058. End If
  2059. Set objTrackBack=Nothing
  2060. Next
  2063. For j=0 To UBound(t)-1
  2064. If aryArticle(j)>0 Then
  2065. Call BuildArticle(aryArticle(j),False,False)
  2066. End If
  2067. Next
  2069. BlogReBuild_TrackBacks
  2070. DelTrackBackBatch=True
  2072. End Function
  2073. '*********************************************************
  2078. '*********************************************************
  2079. ' 目的：     文件删除
  2080. '*********************************************************
  2081. Function DelFileBatch()
  2083. Dim i,j
  2084. Dim s,t
  2086. s=Request.Form("edtBatch")
  2087. t=Split(s,",")
  2089. Dim objUpLoadFile
  2091. For i=0 To UBound(t)-1
  2092. t(i)=CLng(t(i))
  2093. If t(i)>0 Then
  2094. Set objUpLoadFile=New TUpLoadFile
  2095. If objUpLoadFile.LoadInfoByID(t(i)) Then
  2096. If (objUpLoadFile.AuthorID=BlogUser.ID) Or (CheckRights("Root")=True) Then
  2097. objUpLoadFile.Del
  2098. End If
  2099. Else
  2100. Exit Function
  2101. End If
  2102. Set objUpLoadFile=Nothing
  2103. End If
  2104. Next
  2106. DelFileBatch=True
  2108. End Function
  2109. '*********************************************************
  2114. '*********************************************************
  2115. ' 目的：    Save Themes Setting
  2116. '*********************************************************
  2117. Function SaveThemes()
  2119. Dim i,j
  2120. Dim s,t
  2121. Dim strContent
  2123. strContent=LoadFromFile(BlogPath & "/c_custom.asp","utf-8")
  2125. Dim strZC_BLOG_CSS
  2126. Dim strZC_BLOG_THEME
  2128. strZC_BLOG_CSS=Request.Form("edtZC_BLOG_CSS")
  2129. strZC_BLOG_THEME=Request.Form("edtZC_BLOG_THEME")
  2131. Call ScanPluginToThemeFile(strZC_BLOG_CSS,strZC_BLOG_THEME)
  2133. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_CSS",strZC_BLOG_CSS)
  2134. Call SaveValueForSetting(strContent,True,"String","ZC_BLOG_THEME",strZC_BLOG_THEME)
  2136. If UCase(strZC_BLOG_CSS)<>UCase("""" & CStr(ZC_BLOG_CSS) & """") Then Call SetBlogHint(Empty,True,Empty)
  2137. If UCase(strZC_BLOG_THEME)<>UCase("""" & CStr(ZC_BLOG_THEME) & """") Then Call SetBlogHint(Empty,True,True):Call UninstallPlugin(ZC_BLOG_THEME)
  2139. Call SaveToFile(BlogPath & "/c_custom.asp",strContent,"utf-8",False)
  2141. Call MakeBlogReBuild_Core()
  2143. SaveThemes=True
  2145. End Function
  2146. '*********************************************************
  2151. '*********************************************************
  2152. ' 目的：    Save Links
  2153. '*********************************************************
  2154. Function SaveLink()
  2156. Dim tpath
  2157. Dim txaContent
  2158. Dim strContent
  2161. tpath="./INCLUDE/link.asp"
  2162. txaContent=Request.Form("txaContent_Link")
  2164. If IsEmpty(txaContent) Then txaContent=Null
  2165. If Not IsNull(tpath) Then
  2166. If Not IsNull(txaContent) Then
  2167. Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
  2168. End IF
  2169. End If
  2171. tpath="./INCLUDE/favorite.asp"
  2172. txaContent=Request.Form("txaContent_Favorite")
  2174. If IsEmpty(txaContent) Then txaContent=Null
  2175. If Not IsNull(tpath) Then
  2176. If Not IsNull(txaContent) Then
  2177. Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
  2178. End IF
  2179. End If
  2181. tpath="./INCLUDE/misc.asp"
  2182. txaContent=Request.Form("txaContent_Misc")
  2184. If IsEmpty(txaContent) Then txaContent=Null
  2185. If Not IsNull(tpath) Then
  2186. If Not IsNull(txaContent) Then
  2187. Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
  2188. End IF
  2189. End If
  2191. tpath="./INCLUDE/navbar.asp"
  2192. txaContent=Request.Form("txaContent_Navbar")
  2194. If IsEmpty(txaContent) Then txaContent=Null
  2195. If Not IsNull(tpath) Then
  2196. If Not IsNull(txaContent) Then
  2198. strContent=LoadFromFile(BlogPath & tpath,"utf-8")
  2199. If txaContent<>strContent Then
  2200. Call SetBlogHint(Empty,True,True)
  2201. End If
  2203. Call SaveToFile(BlogPath & tpath,txaContent,"utf-8",False)
  2205. End IF
  2206. End If
  2208. Call SetBlogHint(Empty,True,Empty)
  2210. Call MakeBlogReBuild_Core()
  2212. SaveLink=True
  2214. End Function
  2215. '*********************************************************
  2220. '*********************************************************
  2221. ' 目的：    ActivePlugIn By Name
  2222. '*********************************************************
  2223. Function ActivePlugInByName(strPluginName)
  2225. Dim s,i,t,b
  2226. s= ZC_USING_PLUGIN_LIST 
  2228. If s="" Then
  2229. s=strPluginName
  2230. Else
  2231. t=Split(ZC_USING_PLUGIN_LIST,"|")
  2232. For i=LBound(t) To UBound(t)
  2233. If UCase(t(i))=UCase(strPluginName) Then
  2234. b=True
  2235. End If
  2236. Next
  2237. If b<>True Then
  2238. s=s & "|" & strPluginName
  2239. End If
  2240. End If
  2243. Dim strContent
  2244. Dim strZC_USING_PLUGIN_LIST
  2246. strContent=LoadFromFile(BlogPath & "/c_option.asp","utf-8")
  2248. strZC_USING_PLUGIN_LIST=s
  2250. Call SaveValueForSetting(strContent,True,"String","ZC_USING_PLUGIN_LIST",strZC_USING_PLUGIN_LIST)
  2252. Call SaveToFile(BlogPath & "/c_option.asp",strContent,"utf-8",False)
  2254. Call ScanPluginToIncludeFile(s)
  2256. ActivePlugInByName=True
  2258. End Function
  2259. '*********************************************************
  2264. '*********************************************************
  2265. ' 目的：    DisablePlugIn By Name
  2266. '*********************************************************
  2267. Function DisablePlugInByName(strPluginName)
  2269. Call UninstallPlugin(strPluginName)
  2271. Dim s,i,t
  2273. s=Split(ZC_USING_PLUGIN_LIST,"|")
  2275. For i=LBound(s) To UBound(s)
  2277. If UCase(s(i))<>UCase(strPluginName) Then
  2279. If t="" Then
  2280. t=s(i)
  2281. Else
  2282. t=t & "|" & s(i)
  2283. End If
  2285. End If
  2287. Next
  2290. Dim strContent
  2291. Dim strZC_USING_PLUGIN_LIST
  2293. strContent=LoadFromFile(BlogPath & "/c_option.asp","utf-8")
  2295. strZC_USING_PLUGIN_LIST=t
  2297. Call SaveValueForSetting(strContent,True,"String","ZC_USING_PLUGIN_LIST",strZC_USING_PLUGIN_LIST)
  2299. Call SaveToFile(BlogPath & "/c_option.asp",strContent,"utf-8",False)
  2301. Call ScanPluginToIncludeFile(t)
  2303. DisablePlugInByName=True
  2305. End Function
  2306. '*********************************************************
  2311. '*********************************************************
  2312. ' 目的：    
  2313. '*********************************************************
  2314. Function ScanPluginToIncludeFile(newZC_USING_PLUGIN_LIST)
  2316. On Error Resume Next
  2318. Dim aryPL,i,j,s,t
  2319. aryPL=Split(newZC_USING_PLUGIN_LIST,"|")
  2321. If newZC_USING_PLUGIN_LIST<>"" Then
  2322. i=UBound(aryPL)
  2323. Else
  2324. i=0
  2325. End If
  2328. Dim objXmlFile,strXmlFile
  2329. Dim fso, f, f1, fc
  2330. Set fso = CreateObject("Scripting.FileSystemObject")
  2331. Set f = fso.GetFolder(BlogPath & "/plugin/")
  2332. Set fc = f.SubFolders
  2333. For j=0 To i
  2334. If fso.FileExists(BlogPath & "/plugin/" & aryPL(j) & "/" & "plugin.xml") Then
  2336. strXmlFile =BlogPath & "/plugin/" & aryPL(j) & "/" & "plugin.xml"
  2338. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  2339. objXmlFile.async = False
  2340. objXmlFile.ValidateOnParse=False
  2341. objXmlFile.load(strXmlFile)
  2342. If objXmlFile.readyState=4 Then
  2343. If objXmlFile.parseError.errorCode <> 0 Then
  2344. Else
  2345. If CheckPluginStateByNewValue(objXmlFile.documentElement.selectSingleNode("id").text,newZC_USING_PLUGIN_LIST) Then
  2346. If Trim(objXmlFile.documentElement.selectSingleNode("include").text)<>"" Then
  2347. If (fso.FileExists(BlogPath & "/plugin/" & objXmlFile.documentElement.selectSingleNode("id").text & "/" & objXmlFile.documentElement.selectSingleNode("include").text)) Then
  2348. t="<!-- #include file="""& objXmlFile.documentElement.selectSingleNode("id").text &"/"& objXmlFile.documentElement.selectSingleNode("include").text &""" -->"
  2349. If InStr(s,t)=0 Then
  2350. s=s & t  & vbCrLf
  2351. End If
  2352. End If
  2353. End If
  2354. End If
  2355. End If
  2356. End If
  2357. Set objXmlFile=Nothing
  2358. End If
  2359. Next
  2361. Call SaveToFile(BlogPath & "/PLUGIN/p_include.asp",s,"utf-8",False)
  2363. Err.Clear
  2365. End Function
  2366. '*********************************************************
  2371. '*********************************************************
  2372. ' 目的：    
  2373. '*********************************************************
  2374. Function ScanPluginToThemeFile(newZC_BLOG_CSS,newZC_BLOG_THEME)
  2376. On Error Resume Next
  2378. Dim objXmlFile,strXmlFile,s
  2380. strXmlFile =BlogPath & "/themes/" & newZC_BLOG_THEME & "/" & "theme.xml"
  2382. Set objXmlFile=Server.CreateObject("Microsoft.XMLDOM")
  2383. objXmlFile.async = False
  2384. objXmlFile.ValidateOnParse=False
  2385. objXmlFile.load(strXmlFile)
  2386. If objXmlFile.readyState=4 Then
  2387. If objXmlFile.parseError.errorCode <> 0 Then
  2388. Else
  2389. If LCase(objXmlFile.documentElement.selectSingleNode("id").text)=LCase(newZC_BLOG_THEME) Then
  2390. Dim fso
  2391. Set fso = CreateObject("Scripting.FileSystemObject")
  2392. If (fso.FileExists(BlogPath & "/themes/" & objXmlFile.documentElement.selectSingleNode("id").text &"/plugin/" & objXmlFile.documentElement.selectSingleNode("plugin/include").text)) Then
  2393. If Trim(objXmlFile.documentElement.selectSingleNode("plugin/include").text)<>"" Then
  2394. s=s & "<!-- #include file=""../themes/"& objXmlFile.documentElement.selectSingleNode("id").text &"/plugin/"& objXmlFile.documentElement.selectSingleNode("plugin/include").text &""" -->" & vbCrLf
  2395. End If
  2396. End If
  2397. End If
  2398. End If
  2399. End If
  2400. Set objXmlFile=Nothing
  2402. Call SaveToFile(BlogPath & "/PLUGIN/p_theme.asp",s,"utf-8",False)
  2404. Err.Clear
  2406. End Function
  2407. '*********************************************************
  2412. '*********************************************************
  2413. ' 目的：    
  2414. '*********************************************************
  2415. Function ScanTagCount(strTags)
  2417. On Error Resume Next
  2419. Dim t,i,s
  2420. Dim objRS,j,k
  2422. If strTags<>"" Then
  2423. s=strTags
  2424. s=Replace(s,"}","")
  2425. t=Split(s,"{")
  2427. For i=LBound(t) To UBound(t)
  2428. If t(i)<>"" Then
  2429. k=Tags(t(i)).ID
  2431. Set objRS=objConn.Execute("SELECT COUNT([log_ID]) FROM [blog_Article] WHERE [log_Level]>1 AND [log_Tag] LIKE '%{" & k & "}%'")
  2432. j=objRS(0)
  2433. objConn.Execute("UPDATE [blog_Tag] SET [tag_Count]="&j&" WHERE [tag_ID] =" & k)
  2434. Set objRS=Nothing
  2436. End If
  2437. Next
  2439. s=Join(t,",")
  2440. s=Right(s,Len(s)-1)
  2442. strTags=s
  2443. End If
  2445. Err.Clear
  2447. End Function
  2448. '*********************************************************
  2450. %>