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

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

中间件编程

开发平台：

HTML/CSS

c_system_lib.asp：源码内容
  1. <%
  2. '///////////////////////////////////////////////////////////////////////////////
  3. '//              Z-Blog
  4. '// 作    者:    朱煊(zx.asd)
  5. '// 版权所有:    RainbowSoft Studio
  6. '// 技术支持:    rainbowsoft@163.com
  7. '// 程序名称:    
  8. '// 程序版本:    
  9. '// 单元名称:    c_system_lib.asp
  10. '// 开始时间:    2004.07.25
  11. '// 最后修改:    2007-1-4
  12. '// 备    注:    库模块
  13. '///////////////////////////////////////////////////////////////////////////////
  18. '*********************************************************
  19. ' 目的：    定义TCategory类
  20. ' 输入：    无
  21. ' 返回：    无
  22. '*********************************************************
  23. Class TCategory
  25. Public ID
  26. Public Name
  27. Public Intro
  28. Public Order
  29. Public Count
  30. Public Alias
  32. Public Property Get Url
  33. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  34. Url = ZC_BLOG_HOST & Directory & FileName
  35. If ZC_MOONSOFT_PLUGIN_ENABLE And ZC_MOONSOFT_PLUGIN_ANONYMOUS Then
  36. Url = ZC_BLOG_HOST & Directory
  37. End If
  38. Else
  39. Url = ZC_BLOG_HOST & "catalog.asp?"& "cate=" & ID
  40. End If
  41. End Property
  43. Public Property Get RssUrl
  44. RssUrl = ZC_BLOG_HOST & "feed.asp?cate=" & ID
  45. End Property
  47. Public Property Get HtmlName
  48. HtmlName=TransferHTML(Name,"[html-format]")
  49. End Property
  51. Public Property Get HtmlUrl
  52. HtmlUrl=TransferHTML(Url,"[html-format]")
  53. End Property
  56. Private FDirectory
  57. Public Property Let Directory(strDirectory)
  58. FDirectory=strDirectory
  59. End Property
  60. Public Property Get Directory
  61. If IsEmpty(FDirectory)=True Then
  62. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  63. Directory=ParseCustomDirectory(ZC_MOONSOFT_PLUGIN_REGEX,ZC_STATIC_DIRECTORY,StaticName,"","","","","","")
  64. Else
  65. Directory=ZC_STATIC_DIRECTORY
  66. End If
  67. Else
  68. Directory = FDirectory
  69. End If
  70. Directory=Replace(Directory,"","/")
  71. If Right(ZC_BLOG_HOST & Directory,1)<>"/" Then
  72. Directory=Directory & "/"
  73. End If
  74. End Property
  77. Public Property Get StaticName
  78. If IsNull(Alias) Or IsEmpty(Alias) Or Alias="" Then
  79. StaticName = "cat_" & ID
  80. Else
  81. StaticName = Alias
  82. End If
  83. End Property
  86. Public Property Get FileName
  88. FileName = StaticName
  90. If ZC_MOONSOFT_PLUGIN_ENABLE And ZC_MOONSOFT_PLUGIN_ANONYMOUS Then
  91. FileName = "default"
  92. End If
  93. FileName = FileName & "." & ZC_STATIC_TYPE
  94. End Property
  97. Public Function Post()
  99. Call Filter_Plugin_TCategory_Post(ID,Name,Alias,Order,Count)
  101. Call CheckParameter(ID,"int",0)
  102. Call CheckParameter(Order,"int",0)
  104. 'ID可以为0
  105. Name=FilterSQL(Name)
  106. Alias=TransferHTML(Alias,"[filename]")
  107. Alias=FilterSQL(Alias)
  109. If Len(Name)=0 Then Post=False:Exit Function
  111. If ID=0 Then
  112. objConn.Execute("INSERT INTO [blog_Category]([cate_Name],[cate_Order],[cate_Intro]) VALUES ('"&Name&"',"&Order&",'"&Alias&"')")
  114. Dim objRS
  115. Set objRS=objConn.Execute("SELECT MAX([cate_ID]) FROM [blog_Category]")
  116. If (Not objRS.bof) And (Not objRS.eof) Then
  117. ID=objRS(0)
  118. End If
  119. Set objRS=Nothing
  121. Else
  122. objConn.Execute("UPDATE [blog_Category] set [cate_Name]='"&Name&"',[cate_Order]="&Order&",[cate_Intro]='"&Alias&"' WHERE [cate_ID] =" & ID)
  123. End If
  125. Post=True
  127. End Function
  130. Public Function LoadInfoByID(cate_ID)
  132. Call CheckParameter(cate_ID,"int",0)
  134. Dim objRS
  135. Set objRS=objConn.Execute("SELECT [cate_ID],[cate_Name],[cate_Intro],[cate_Order],[cate_Count] FROM [blog_Category] WHERE [cate_ID]=" & cate_ID)
  137. If (Not objRS.bof) And (Not objRS.eof) Then
  139. ID=objRS("cate_ID")
  140. Name=objRS("cate_Name")
  141. Alias=objRS("cate_Intro")
  142. Order=objRS("cate_Order")
  143. Count=objRS("cate_Count")
  145. LoadInfoByID=True
  147. End If
  149. objRS.Close
  150. Set objRS=Nothing
  152. Call Filter_Plugin_TCategory_LoadInfoByID(ID,Name,Alias,Order,Count)
  154. End Function
  157. Public Function LoadInfoByArray(aryCateInfo)
  159. If IsArray(aryCateInfo)=True Then
  160. ID=aryCateInfo(0)
  161. Name=aryCateInfo(1)
  162. Alias=aryCateInfo(2)
  163. Order=aryCateInfo(3)
  164. Count=aryCateInfo(4)
  165. End If
  167. LoadInfoByArray=True
  169. Call Filter_Plugin_TCategory_LoadInfoByArray(ID,Name,Alias,Order,Count)
  171. End Function
  174. Public Function Del()
  176. Call Filter_Plugin_TCategory_Del(ID,Name,Alias,Order,Count)
  178. Call CheckParameter(ID,"int",0)
  179. If (ID=0) Then Del=False:Exit Function
  180. Dim objRS
  181. Set objRS=objConn.Execute("SELECT [log_ID] FROM [blog_Article] WHERE [log_CateID]=" & ID)
  183. If (Not objRS.bof) And (Not objRS.eof) Then  ShowError(13)
  185. objConn.Execute("DELETE FROM [blog_Category] WHERE [cate_ID] =" & ID)
  187. Call DelFile()
  189. Del=True
  191. End Function
  194. Public Function DelFile()
  196. On Error Resume Next
  198. Dim fso, TxtFile
  200. Set fso = CreateObject("Scripting.FileSystemObject")
  201. If fso.FileExists(BlogPath & Directory & FileName) Then
  202. Set TxtFile = fso.GetFile(BlogPath & Directory & FileName)
  203. TxtFile.Delete
  204. End If
  205. Set fso=Nothing
  207. DelFile=True
  209. Err.Clear
  211. End Function
  214. Private Sub Class_Initialize()
  215. ID=0
  216. End Sub
  218. End Class
  219. '*********************************************************
  224. '*********************************************************
  225. ' 目的：    定义TArticle类
  226. ' 输入：    无
  227. ' 返回：    无
  228. '*********************************************************
  229. Class TArticle
  231. Public ID
  232. Public CateID
  233. Public AuthorID
  234. Public Level
  236. Public Title
  237. Public Intro
  238. Public Content
  239. Public PostTime
  241. Public Tag
  242. Public Alias
  244. Public CommNums
  245. Public ViewNums
  246. Public TrackBackNums
  248. Private IP
  250. Public Istop
  252. Public Template_Article_Trackback
  253. Public Template_Article_Comment
  254. Public Template_Article_Commentpost
  255. Public Template_Article_Tag
  256. Public Template_Article_Navbar_L
  257. Public Template_Article_Navbar_R
  258. Public Template_Article_Commentpost_Verify
  259. Public Template_Article_Mutuality
  262. Public Template_Article_Single
  263. Public Template_Article_Multi
  264. Public Template_Article_Istop
  265. Public Template_Article_Search
  267. Public html
  268. Public htmlWAP
  269. Public Template_Article_Multi_WAP
  270. Public Template_Article_Single_WAP
  272. Private Ftemplate_Wap
  273. Private Ftemplate
  275. Public Property Let template(strFileName)
  276. Ftemplate=GetTemplate("TEMPLATE_" & strFileName)
  277. End Property
  278. Public Property Get template
  279. template = Ftemplate
  280. End Property
  282. Public Property Let template_Wap(strFileName)
  283. Ftemplate=GetTemplate("TEMPLATE_" & strFileName)
  284. End Property
  285. Public Property Get template_Wap
  286. template_Wap = Ftemplate_Wap
  287. End Property
  289. Private FDirectory
  290. Public Property Let Directory(strDirectory)
  291. FDirectory=strDirectory
  292. End Property
  293. Public Property Get Directory
  294. If IsEmpty(FDirectory)=True Then
  295. If ZC_CUSTOM_DIRECTORY_ENABLE=True Then
  296. Directory=ParseCustomDirectory(ZC_CUSTOM_DIRECTORY_REGEX,ZC_STATIC_DIRECTORY,Categorys(CateID).StaticName,Users(AuthorID).StaticName,Year(PostTime),Month(PostTime),Day(PostTime),ID,StaticName)
  297. Else
  298. Directory=ZC_STATIC_DIRECTORY
  299. End If
  300. Else
  301. Directory = FDirectory
  302. End If
  303. Directory=Replace(Directory,"","/")
  304. If Right(ZC_BLOG_HOST & Directory,1)<>"/" Then
  305. Directory=Directory & "/"
  306. End If
  307. End Property
  310. Public Property Get Url
  311. If Level<=2 Then
  312. Url = ZC_BLOG_HOST & "view.asp?id=" & ID
  313. Else
  314. Url = ZC_BLOG_HOST & Directory & FileName
  315. If ZC_CUSTOM_DIRECTORY_ENABLE And ZC_CUSTOM_DIRECTORY_ANONYMOUS Then
  316. Url = ZC_BLOG_HOST & Directory
  317. End If
  318. End If
  319. End Property
  321. Public Property Get StaticName
  322. If IsNull(Alias) Or IsEmpty(Alias) Or Alias="" Then
  323. StaticName = ID
  324. Else
  325. StaticName = Alias
  326. End If
  327. End Property
  329. Public Property Get FileName
  331. FileName = StaticName
  333. If ZC_CUSTOM_DIRECTORY_ENABLE And ZC_CUSTOM_DIRECTORY_ANONYMOUS Then
  334. FileName = "default"
  335. End If
  336. FileName = FileName & "." & ZC_STATIC_TYPE
  337. End Property
  339. Private FTrackBackKey
  340. Public Property Get TrackBackKey
  341. If IsNull(FTrackBackKey) Or IsEmpty(FTrackBackKey) Or FTrackBackKey="" Then
  342. FTrackBackKey=Left(MD5(ZC_BLOG_HOST & ZC_BLOG_CLSID & CStr(ID) & CStr(TrackBackNums)),8)
  343. End If
  344. TrackBackKey=FTrackBackKey
  345. End Property
  347. Private FCommentKey
  348. Public Property Get CommentKey
  349. If IsNull(FCommentKey) Or IsEmpty(FCommentKey) Or FCommentKey="" Then
  350. FCommentKey=Left(MD5(ZC_BLOG_HOST & ZC_BLOG_CLSID & CStr(ID)),8)
  351. End If
  352. CommentKey=FCommentKey
  353. End Property
  355. Public Property Get TrackBack
  356. TrackBack = ZC_BLOG_HOST & "cmd.asp?act=tb&id="& ID &"&key=" & TrackBackKey
  357. End Property
  359. Public Property Get PreTrackBack
  360. PreTrackBack = ZC_BLOG_HOST & "cmd.asp?act=gettburl&id=" & ID
  361. End Property
  363. Public Property Get TrackBackUrl
  364. TrackBackUrl = TrackBack
  365. End Property
  367. Public Property Get CommentUrl
  368. CommentUrl = Url & "#comment"
  369. End Property
  371. Public Property Get WfwComment
  372. WfwComment = ZC_BLOG_HOST
  373. End Property
  375. Public Property Get WfwCommentRss
  376. WfwCommentRss = ZC_BLOG_HOST & "feed.asp?cmt=" & ID
  377. End Property
  379. Public Property Get WAPUrl
  380. WAPUrl = ZC_BLOG_HOST & "wap.asp?act=View&id=" & ID
  381. End Property
  383. Public Property Get HtmlWAPUrl
  384. HtmlWAPUrl=TransferHTML(WAPUrl,"[html-format]")
  385. End Property
  387. Public Property Get CommentPostUrl
  388. CommentPostUrl = ZC_BLOG_HOST & "cmd.asp?act=cmt&key=" & CommentKey
  389. End Property
  391. Public Property Get HtmlContent
  392. HtmlContent=TransferHTML(UBBCode(Content,"[face][link][email][autolink][font][code][image][typeset][media][flash][key]"),"[html-japan][vbCrlf][upload]")
  393. End Property
  395. Public Property Get HtmlTitle
  396. HtmlTitle=TransferHTML(Title,"[html-japan][html-format]")
  397. End Property
  399. Public Property Get HtmlIntro
  400. HtmlIntro=TransferHTML(UBBCode(Intro,"[face][link][email][autolink][font][code][image][typeset][media][flash][key]"),"[html-japan][vbCrlf][upload]")
  401. End Property
  403. Public Property Get HtmlUrl
  404. HtmlUrl=TransferHTML(Url,"[html-format]")
  405. End Property
  407. Public Property Get TagToName
  409. Dim t,i,s
  411. If Tag<>"" Then
  412. s=Tag
  413. s=Replace(s,"}","")
  414. t=Split(s,"{")
  416. For i=LBound(t) To UBound(t)
  417. If t(i)<>"" Then
  418. If IsEmpty(FirstTagIntro) Then FirstTagIntro=Tags(t(i)).Intro
  419. t(i)=Tags(t(i)).Name
  420. End If
  421. Next
  423. s=Join(t,",")
  424. s=Right(s,Len(s)-1)
  426. TagToName=s
  427. End If
  429. End Property
  431. Public FirstTagIntro
  433. Public Function LoadInfobyID(log_ID)
  435. Call CheckParameter(log_ID,"int",0)
  437. Dim objRS
  438. Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE [log_ID]=" & log_ID)
  440. If (Not objRS.bof) And (Not objRS.eof) Then
  442. ID=objRS("log_ID")
  443. Tag=objRS("log_Tag")
  444. CateID=objRS("log_CateID")
  445. Title=objRS("log_Title")
  446. Intro=objRS("log_Intro")
  447. Content=objRS("log_Content")
  448. Level=objRS("log_Level")
  449. AuthorID=objRS("log_AuthorID")
  450. PostTime=objRS("log_PostTime")
  451. CommNums=objRS("log_CommNums")
  452. ViewNums=objRS("log_ViewNums")
  453. TrackBackNums=objRS("log_TrackBackNums")
  454. Alias=objRS("log_Url")
  455. Istop=objRS("log_Istop")
  457. Content=TransferHTML(Content,"[upload][zc_blog_host]")
  458. Intro=TransferHTML(Intro,"[upload][zc_blog_host]")
  460. PostTime = Year(PostTime) & "-" & Month(PostTime) & "-" & Day(PostTime) & " " & Hour(PostTime) & ":" & Minute(PostTime) & ":" & Second(PostTime)
  462. Else
  463. Exit Function
  464. End If
  466. objRS.Close
  467. Set objRS=Nothing
  469. LoadInfobyID=True
  471. Call Filter_Plugin_TArticle_LoadInfobyID(ID,Tag,CateID,Title,Intro,Content,Level,AuthorID,PostTime,CommNums,ViewNums,TrackBackNums,Alias,Istop)
  473. End Function
  476. Public Function LoadInfoByArray(aryArticleInfo)
  478. '[log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url]
  479. 'Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),objRS("log_Intro"),objRS("log_Content"),objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"))
  481. If IsArray(aryArticleInfo)=True Then
  483. ID=aryArticleInfo(0)
  484. Tag=aryArticleInfo(1)
  485. CateID=aryArticleInfo(2)
  486. Title=aryArticleInfo(3)
  487. Intro=aryArticleInfo(4)
  488. Content=aryArticleInfo(5)
  489. Level=aryArticleInfo(6)
  490. AuthorID=aryArticleInfo(7)
  491. PostTime=aryArticleInfo(8)
  492. CommNums=aryArticleInfo(9)
  493. ViewNums=aryArticleInfo(10)
  494. TrackBackNums=aryArticleInfo(11)
  495. Alias=aryArticleInfo(12)
  496. Istop=aryArticleInfo(13)
  498. Content=TransferHTML(Content,"[upload][zc_blog_host]")
  499. Intro=TransferHTML(Intro,"[upload][zc_blog_host]")
  501. PostTime = Year(PostTime) & "-" & Month(PostTime) & "-" & Day(PostTime) & " " & Hour(PostTime) & ":" & Minute(PostTime) & ":" & Second(PostTime)
  503. End If
  505. LoadInfoByArray=True
  507. Call Filter_Plugin_TArticle_LoadInfoByArray(ID,Tag,CateID,Title,Intro,Content,Level,AuthorID,PostTime,CommNums,ViewNums,TrackBackNums,Alias,Istop)
  509. End Function
  512. Public Function Export(intType)
  514. 'plugin node
  515. bAction_Plugin_TArticle_Export_Begin=False
  516. For Each sAction_Plugin_TArticle_Export_Begin in Action_Plugin_TArticle_Export_Begin
  517. If Not IsEmpty(sAction_Plugin_TArticle_Export_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_Begin)
  518. If bAction_Plugin_TArticle_Export_Begin=True Then Exit Function
  519. Next
  521. 'Call Export_CMTandTB
  522. 'Call Export_Mutuality
  523. 'Call Export_NavBar
  524. 'Call Export_CommentPost
  525. 'Call Export_Tag
  527. Call Export_Tag
  528. Call Export_CMTandTB
  529. Call Export_CommentPost
  530. Call Export_Mutuality
  531. Call Export_NavBar
  533. Template_Article_Single=GetTemplate("TEMPLATE_B_ARTICLE-SINGLE")
  534. Template_Article_Multi=GetTemplate("TEMPLATE_B_ARTICLE-MULTI")
  535. Template_Article_Istop=GetTemplate("TEMPLATE_B_ARTICLE-ISTOP")
  536. Template_Article_Multi_WAP=GetTemplate("TEMPLATE_WAP_ARTICLE-MULTI")
  537. Template_Article_Single_WAP =GetTemplate("TEMPLATE_WAP_SINGLE")
  539. 'plugin node
  540. Call Filter_Plugin_TArticle_Export_Template(Ftemplate,Template_Article_Single,Template_Article_Multi,Template_Article_Istop,Template_Article_Multi_WAP,Template_Article_Single_WAP)
  541. 'plugin node
  542. Call Filter_Plugin_TArticle_Export_Template_Sub(Template_Article_Comment,Template_Article_Trackback,Template_Article_Tag,Template_Article_Commentpost,Template_Article_Navbar_L,Template_Article_Navbar_R,Template_Article_Mutuality)
  544. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_trackback#>",Template_Article_Trackback)
  545. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_comment#>",Template_Article_Comment)
  546. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_commentpost#>",Template_Article_Commentpost)
  547. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_tag#>",Template_Article_Tag)
  548. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_navbar_l#>",Template_Article_Navbar_L)
  549. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_navbar_r#>",Template_Article_Navbar_R)
  550. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_mutuality#>",Template_Article_Mutuality)
  552. Template_Article_Multi=Replace(Template_Article_Multi,"<#template:article_tag#>",Template_Article_Tag)
  553. Template_Article_Istop=Replace(Template_Article_Istop,"<#template:article_tag#>",Template_Article_Tag)
  555. Ftemplate=Replace(Ftemplate,"<#template:article_trackback#>",Template_Article_Trackback)
  556. Ftemplate=Replace(Ftemplate,"<#template:article_comment#>",Template_Article_Comment)
  557. Ftemplate=Replace(Ftemplate,"<#template:article_commentpost#>",Template_Article_Commentpost)
  558. Ftemplate=Replace(Ftemplate,"<#template:article_tag#>",Template_Article_Tag)
  559. Ftemplate=Replace(Ftemplate,"<#template:article_navbar_l#>",Template_Article_Navbar_L)
  560. Ftemplate=Replace(Ftemplate,"<#template:article_navbar_r#>",Template_Article_Navbar_R)
  561. Ftemplate=Replace(Ftemplate,"<#template:article_mutuality#>",Template_Article_Mutuality)
  563. Dim aryTemplateTagsName()
  564. Dim aryTemplateTagsValue()
  565. Dim i,j
  566. ReDim aryTemplateTagsName(49)
  567. ReDim aryTemplateTagsValue(49)
  569. aryTemplateTagsName(1)="article/id"
  570. aryTemplateTagsValue(1)=ID
  571. aryTemplateTagsName(2)="article/level"
  572. aryTemplateTagsValue(2)=Level
  573. aryTemplateTagsName(3)="article/title"
  574. If intType=ZC_DISPLAY_MODE_SEARCH Then
  575. aryTemplateTagsValue(3)=Search(Title,Request.QueryString("q"))
  576. Else
  577. aryTemplateTagsValue(3)=HtmlTitle
  578. End If
  579. aryTemplateTagsName(4)="article/intro"
  580. If intType=ZC_DISPLAY_MODE_SEARCH Then
  581. 'aryTemplateTagsValue(4)=Search(TransferHTML(Intro & Content,"[html-format]"),Request.QueryString("q"))
  582. aryTemplateTagsValue(4)=Search(TransferHTML(Intro & Content,"[nohtml]"),Request.QueryString("q"))  
  583. Else
  584. If Level=2 Then
  585. aryTemplateTagsValue(4)=ZC_MSG043
  586. Else
  587. aryTemplateTagsValue(4)=HtmlIntro
  588. End If
  589. End If
  590. aryTemplateTagsName(5)="article/content"
  591. aryTemplateTagsValue(5)=HtmlContent
  592. If intType=ZC_DISPLAY_MODE_SEARCH Then
  593. aryTemplateTagsValue(5)=aryTemplateTagsValue(4)
  594. End If
  595. aryTemplateTagsName(6)="article/posttime"
  596. aryTemplateTagsValue(6)=PostTime
  597. aryTemplateTagsName(7)="article/commnums"
  598. aryTemplateTagsValue(7)=Commnums
  599. aryTemplateTagsName(8)="article/viewnums"
  600. aryTemplateTagsValue(8)=Viewnums
  601. aryTemplateTagsName(9)="article/trackbacknums"
  602. aryTemplateTagsValue(9)=Trackbacknums
  603. aryTemplateTagsName(10)="article/trackback_url"
  604. aryTemplateTagsValue(10)=TrackBack
  605. aryTemplateTagsName(11)="article/url"
  606. aryTemplateTagsValue(11)=HtmlUrl
  608. aryTemplateTagsName(12)="article/category/id"
  609. aryTemplateTagsValue(12)=Categorys(CateID).ID
  610. aryTemplateTagsName(13)="article/category/name"
  611. aryTemplateTagsValue(13)=Categorys(CateID).HtmlName
  612. aryTemplateTagsName(15)="article/category/order"
  613. aryTemplateTagsValue(15)=Categorys(CateID).Order
  614. aryTemplateTagsName(16)="article/category/count"
  615. aryTemplateTagsValue(16)=Categorys(CateID).Count
  616. aryTemplateTagsName(17)="article/category/url"
  617. aryTemplateTagsValue(17)=Categorys(CateID).HtmlUrl
  619. aryTemplateTagsName(18)="article/author/id"
  620. aryTemplateTagsValue(18)=Users(AuthorID).ID
  621. aryTemplateTagsName(19)="article/author/name"
  622. aryTemplateTagsValue(19)=Users(AuthorID).Name
  623. aryTemplateTagsName(20)="article/author/level"
  624. aryTemplateTagsValue(20)=ZVA_User_Level_Name(Users(AuthorID).Level)
  625. aryTemplateTagsName(21)="article/author/email"
  626. aryTemplateTagsValue(21)=Users(AuthorID).Email
  627. aryTemplateTagsName(22)="article/author/homepage"
  628. aryTemplateTagsValue(22)=Users(AuthorID).HomePage
  629. aryTemplateTagsName(23)="article/author/count"
  630. aryTemplateTagsValue(23)=Users(AuthorID).Count
  631. aryTemplateTagsName(24)="article/author/url"
  632. aryTemplateTagsValue(24)=Users(AuthorID).HtmlUrl
  634. aryTemplateTagsName(25)="article/posttime/longdate"
  635. aryTemplateTagsValue(25)=FormatDateTime(PostTime,vbLongDate)
  636. aryTemplateTagsName(26)="article/posttime/shortdate"
  637. aryTemplateTagsValue(26)=FormatDateTime(PostTime,vbShortDate)
  638. aryTemplateTagsName(27)="article/posttime/longtime"
  639. aryTemplateTagsValue(27)=FormatDateTime(PostTime,vbLongTime)
  640. aryTemplateTagsName(28)="article/posttime/shorttime"
  641. aryTemplateTagsValue(28)=FormatDateTime(PostTime,vbShortTime)
  642. aryTemplateTagsName(29)="article/posttime/year"
  643. aryTemplateTagsValue(29)=Year(PostTime)
  644. aryTemplateTagsName(30)="article/posttime/month"
  645. aryTemplateTagsValue(30)=Month(PostTime)
  646. aryTemplateTagsName(31)="article/posttime/monthname"
  647. aryTemplateTagsValue(31)=ZVA_Month(Month(PostTime))
  648. aryTemplateTagsName(32)="article/posttime/day"
  649. aryTemplateTagsValue(32)=Day(PostTime)
  650. aryTemplateTagsName(33)="article/posttime/weekday"
  651. aryTemplateTagsValue(33)=Weekday(PostTime)
  652. aryTemplateTagsName(34)="article/posttime/weekdayname"
  653. aryTemplateTagsValue(34)=ZVA_Week(Weekday(PostTime))
  654. aryTemplateTagsName(35)="article/posttime/hour"
  655. aryTemplateTagsValue(35)=Hour(PostTime)
  656. aryTemplateTagsName(36)="article/posttime/minute"
  657. aryTemplateTagsValue(36)=Minute(PostTime)
  658. aryTemplateTagsName(37)="article/posttime/second"
  659. aryTemplateTagsValue(37)=Second(PostTime)
  661. aryTemplateTagsName(38)="article/commentrss"
  662. aryTemplateTagsValue(38)=WfwCommentRss
  663. aryTemplateTagsName(39)="article/commentposturl"
  664. aryTemplateTagsValue(39)=TransferHTML(CommentPostUrl,"[html-format]")
  665. aryTemplateTagsName(40)="article/pretrackback_url"
  666. aryTemplateTagsValue(40)=TransferHTML(PreTrackBack,"[html-format]")
  667. aryTemplateTagsName(41)="article/trackbackkey"
  668. aryTemplateTagsValue(41)=TrackBackKey
  669. aryTemplateTagsName(42)="article/commentkey"
  670. aryTemplateTagsValue(42)=CommentKey
  672. aryTemplateTagsName(43)="article/staticname"
  673. aryTemplateTagsValue(43)=StaticName
  674. aryTemplateTagsName(44)="article/category/staticname"
  675. aryTemplateTagsValue(44)=Categorys(CateID).StaticName
  676. aryTemplateTagsName(45)="article/author/staticname"
  677. aryTemplateTagsValue(45)=Users(AuthorID).StaticName
  678. aryTemplateTagsName(46)="article/tagtoname"
  679. aryTemplateTagsValue(46)=TagToName
  680. aryTemplateTagsName(47)="article/firsttagintro"
  681. aryTemplateTagsValue(47)=FirstTagIntro
  683. aryTemplateTagsName(48)="article/posttime/monthnameabbr"
  684. aryTemplateTagsValue(48)=ZVA_Month_Abbr(Month(PostTime))
  685. aryTemplateTagsName(49)="article/posttime/weekdaynameabbr"
  686. aryTemplateTagsValue(49)=ZVA_Week_Abbr(Weekday(PostTime))
  689. Call Filter_Plugin_TArticle_Export_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  691. j=UBound(aryTemplateTagsName)
  692. For i=1 to j
  693. Template_Article_Istop=Replace(Template_Article_Istop,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  694. Template_Article_Multi=Replace(Template_Article_Multi,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  695. Template_Article_Single=Replace(Template_Article_Single,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  696. Template_Article_Multi_WAP = Replace(Template_Article_Multi_WAP,"<#" & aryTemplateTagsName(i) & "#>", aryTemplateTagsValue(i))
  697. Template_Article_Single_WAP = Replace(Template_Article_Single_WAP,"<#" & aryTemplateTagsName(i) & "#>", aryTemplateTagsValue(i))
  698. Ftemplate = Replace(Ftemplate,"<#" & aryTemplateTagsName(i) & "#>", aryTemplateTagsValue(i))
  699. Next
  701. If intType=ZC_DISPLAY_MODE_SEARCH Then
  702. Template_Article_Search=Template_Article_Multi
  703. End If
  705. Export=True
  707. 'plugin node
  708. bAction_Plugin_TArticle_Export_End=False
  709. For Each sAction_Plugin_TArticle_Export_End in Action_Plugin_TArticle_Export_End
  710. If Not IsEmpty(sAction_Plugin_TArticle_Export_End) Then Call Execute(sAction_Plugin_TArticle_Export_End)
  711. If bAction_Plugin_TArticle_Export_End=True Then Exit Function
  712. Next
  714. End Function
  717. Public Function Export_Tag
  719. 'plugin node
  720. bAction_Plugin_TArticle_Export_Tag_Begin=False
  721. For Each sAction_Plugin_TArticle_Export_Tag_Begin in Action_Plugin_TArticle_Export_Tag_Begin
  722. If Not IsEmpty(sAction_Plugin_TArticle_Export_Tag_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_Tag_Begin)
  723. If bAction_Plugin_TArticle_Export_Tag_Begin=True Then Exit Function
  724. Next
  726. 'Tag
  727. Dim t,i,s,j
  729. If Tag<>"" Then
  731. Tag=Replace(Tag,"}","")
  732. t=Split(Tag,"{")
  734. For i=LBound(t) To UBound(t)
  735. If t(i)<>"" Then
  737. s=GetTemplate("TEMPLATE_B_ARTICLE_TAG")
  739. Template_Article_Tag=Template_Article_Tag & Tags(t(i)).MakeTemplate(s)
  741. End If
  742. Next
  744. End If
  746. Export_Tag=True
  748. End Function
  751. Function Export_CMTandTB()
  753. 'plugin node
  754. bAction_Plugin_TArticle_Export_CMTandTB_Begin=False
  755. For Each sAction_Plugin_TArticle_Export_CMTandTB_Begin in Action_Plugin_TArticle_Export_CMTandTB_Begin
  756. If Not IsEmpty(sAction_Plugin_TArticle_Export_CMTandTB_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_CMTandTB_Begin)
  757. If bAction_Plugin_TArticle_Export_CMTandTB_Begin=True Then Exit Function
  758. Next
  760. If CommNums + TrackBackNums > 0 Then
  762. Dim strC_Count,strC,strT_Count,strT
  764. Dim objComment
  765. Dim objTrackBack
  767. Dim i
  769. Dim objRS
  770. Set objRS=Server.CreateObject("ADODB.Recordset")
  771. objRS.CursorType = adOpenKeyset
  772. objRS.LockType = adLockReadOnly
  773. objRS.ActiveConnection=objConn
  774. objRS.Source="SELECT [comm_ID],[log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_PostTime],[comm_IP],[comm_Agent] FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=" & ID &" UNION ALL SELECT [tb_ID],[log_ID],'',[tb_Title],[tb_Excerpt],[tb_Blog],[tb_URL],[tb_PostTime],[tb_IP],[tb_Agent] from [blog_TrackBack] WHERE [blog_TrackBack].[log_ID]="& ID & " ORDER BY [comm_ID],[comm_PostTime]"
  776. objRS.Open()
  778. If (not objRS.bof) And (not objRS.eof) Then
  780. ReDim aryArticleExportMsgTB(objRS.RecordCount)
  782. For i=1 To objRS.RecordCount
  784. If IsNumeric(objRS("comm_AuthorID")) Then
  786. Set objComment=New TComment
  788. objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),"",""))
  790. strC_Count=strC_Count+1
  792. strC=GetTemplate("TEMPLATE_B_ARTICLE_COMMENT")
  794. objComment.Count=strC_Count
  795. strC=objComment.MakeTemplate(strC)
  797. If ZC_COMMENT_REVERSE_ORDER_EXPORT=True Then
  798. Template_Article_Comment=strC & Template_Article_Comment
  799. Else
  800. Template_Article_Comment=Template_Article_Comment & strC
  801. End If
  803. Set objComment=Nothing
  805. Else
  807. Set objTrackBack=New TTrackBack
  809. objTrackBack.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_HomePage"),objRS("comm_Author"),objRS("comm_Email"),objRS("comm_Content"),objRS("comm_PostTime"),"",""))
  811. strT_Count=strT_Count+1
  813. strT=GetTemplate("TEMPLATE_B_ARTICLE_TRACKBACK")
  815. objTrackBack.Count=strT_Count
  816. strT=objTrackBack.MakeTemplate(strT)
  818. If ZC_COMMENT_REVERSE_ORDER_EXPORT=True Then
  819. Template_Article_Trackback=strT & Template_Article_Trackback
  820. Else
  821. Template_Article_Trackback=Template_Article_Trackback & strT
  822. End If
  824. Set objTrackBack=Nothing
  826. End If
  828. objRS.MoveNext
  829. If objRS.eof Then Exit For
  830. Next
  832. End if
  834. objRS.Close()
  835. Set objRS=Nothing
  837. End If
  839. Template_Article_Comment=Template_Article_Comment & "<div style=""display:none;"" id=""divAjaxComment""></div>"
  841. Export_CMTandTB=True
  843. End Function
  846. Function Export_NavBar()
  848. 'plugin node
  849. bAction_Plugin_TArticle_Export_NavBar_Begin=False
  850. For Each sAction_Plugin_TArticle_Export_NavBar_Begin in Action_Plugin_TArticle_Export_NavBar_Begin
  851. If Not IsEmpty(sAction_Plugin_TArticle_Export_NavBar_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_NavBar_Begin)
  852. If bAction_Plugin_TArticle_Export_NavBar_Begin=True Then Exit Function
  853. Next
  856. If ZC_USE_NAVIGATE_ARTICLE=False Then 
  858. Template_Article_Navbar_L=""
  859. Template_Article_Navbar_R=""
  861. Export_NavBar=True
  862. Exit Function
  864. End If
  866. Dim s,t
  868. Dim strName
  869. Dim strUrl
  871. Dim objNavArticle
  873. Dim objRS
  875. Set objRS=objConn.Execute("SELECT TOP 1 [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_Level]>2) AND ([log_PostTime]<#" & PostTime & "#) ORDER BY [log_PostTime] DESC")
  876. If (Not objRS.bof) And (Not objRS.eof) Then
  878. Set objNavArticle=New TArticle
  879. If objNavArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  880. strName=objNavArticle.Title
  881. strUrl=objNavArticle.Url
  882. End If
  883. Set objNavArticle=Nothing
  885. s=GetTemplate("TEMPLATE_B_ARTICLE_NVABAR_L")
  887. s=Replace(s,"<#article/nav_l/url#>",strUrl)
  888. s=Replace(s,"<#article/nav_l/name#>",strName)
  890. Template_Article_Navbar_L=s
  892. End If
  893. Set objRS=Nothing
  895. Set objRS=objConn.Execute("SELECT TOP 1 [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_Level]>2) AND ([log_PostTime]>#" & PostTime & "#) ORDER BY [log_PostTime] ASC")
  896. If (Not objRS.bof) And (Not objRS.eof) Then
  898. Set objNavArticle=New TArticle
  899. If objNavArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  900. strName=objNavArticle.Title
  901. strUrl=objNavArticle.Url
  902. End If
  903. Set objNavArticle=Nothing
  905. t=GetTemplate("TEMPLATE_B_ARTICLE_NVABAR_R")
  907. t=Replace(t,"<#article/nav_r/url#>",strUrl)
  908. t=Replace(t,"<#article/nav_r/name#>",strName)
  910. Template_Article_Navbar_R=t
  912. End If
  913. Set objRS=Nothing
  915. Export_NavBar=True
  917. End Function
  920. Function Export_CommentPost()
  922. 'plugin node
  923. bAction_Plugin_TArticle_Export_CommentPost_Begin=False
  924. For Each sAction_Plugin_TArticle_Export_CommentPost_Begin in Action_Plugin_TArticle_Export_CommentPost_Begin
  925. If Not IsEmpty(sAction_Plugin_TArticle_Export_CommentPost_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_CommentPost_Begin)
  926. If bAction_Plugin_TArticle_Export_CommentPost_Begin=True Then Exit Function
  927. Next
  929. If Level<4 Then Exit Function
  931. Template_Article_Commentpost=GetTemplate("TEMPLATE_B_ARTICLE_COMMENTPOST")
  933. If ZC_COMMENT_VERIFY_ENABLE=True Then
  934. Template_Article_Commentpost_Verify=GetTemplate("TEMPLATE_B_ARTICLE_COMMENTPOST-VERIFY")
  935. End If
  937. Template_Article_Commentpost=Replace(Template_Article_Commentpost,"<#template:article_commentpost-verify#>",Template_Article_Commentpost_Verify)
  939. End Function
  942. '相关文章的生成
  943. Function Export_Mutuality()
  945. 'plugin node
  946. bAction_Plugin_TArticle_Export_Mutuality_Begin=False
  947. For Each sAction_Plugin_TArticle_Export_Mutuality_Begin in Action_Plugin_TArticle_Export_Mutuality_Begin
  948. If Not IsEmpty(sAction_Plugin_TArticle_Export_Mutuality_Begin) Then Call Execute(sAction_Plugin_TArticle_Export_Mutuality_Begin)
  949. If bAction_Plugin_TArticle_Export_Mutuality_Begin=True Then Exit Function
  950. Next
  952. If Tag<>"" Then
  954. Dim strCC_Count,strCC_ID,strCC_Name,strCC_Url,strCC_PostTime,strCC_Title
  955. Dim strCC
  956. Dim i
  957. Dim j
  958. Dim objRS
  959. Dim strSQL
  961. Set objRS=Server.CreateObject("ADODB.Recordset")
  963. strSQL="SELECT TOP "& ZC_MUTUALITY_COUNT &" [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_Level]>2) AND [log_ID]<"& ID
  964. strSQL = strSQL & " AND ("
  966. Dim aryTAGs
  967. Tag=Replace(Tag,"}","")
  968. aryTAGs=Split(Tag,"{")
  970. For j = LBound(aryTAGs) To UBound(aryTAGs)
  971. If aryTAGs(j)<>"" Then
  972. strSQL = strSQL & "([log_Tag] Like '%{"&FilterSQL(aryTAGs(j))&"}%')"
  973. If j=UBound(aryTAGs) Then Exit For
  974. If aryTAGs(j)<>"" Then strSQL = strSQL & " OR "
  975. End If
  976. Next
  978. strSQL = strSQL & ")"
  979. strSQL = strSQL + " ORDER BY [log_PostTime] DESC " 
  981. Set objRS=Server.CreateObject("ADODB.Recordset")
  982. objRS.CursorType = adOpenKeyset
  983. objRS.LockType = adLockReadOnly
  984. objRS.ActiveConnection=objConn
  985. objRS.Source=strSQL
  986. objRS.Open()
  987. If (Not objRS.bof) And (Not objRS.eof) Then
  989. Dim objArticle
  990. For i=1 To ZC_MUTUALITY_COUNT '相关文章数目，可自行设定
  992. Set objArticle=New TArticle
  994. If objArticle.LoadInfoByArray(Array(objRS("log_ID"),objRS("log_Tag"),objRS("log_CateID"),objRS("log_Title"),"","",objRS("log_Level"),objRS("log_AuthorID"),objRS("log_PostTime"),objRS("log_CommNums"),objRS("log_ViewNums"),objRS("log_TrackBackNums"),objRS("log_Url"),objRS("log_Istop"))) Then
  996. strCC_Count=strCC_Count+1
  997. strCC_ID=objArticle.ID
  998. strCC_Url=objArticle.Url
  999. strCC_PostTime=objArticle.PostTime
  1000. strCC_Title=objArticle.Title
  1002. strCC=GetTemplate("TEMPLATE_B_ARTICLE_Mutuality")
  1004. strCC=Replace(strCC,"<#article/mutuality/id#>",strCC_ID)
  1005. strCC=Replace(strCC,"<#article/mutuality/url#>",strCC_Url)
  1006. strCC=Replace(strCC,"<#article/mutuality/posttime#>",strCC_PostTime)
  1007. strCC=Replace(strCC,"<#article/mutuality/name#>",strCC_Title)
  1009. Template_Article_Mutuality=Template_Article_Mutuality & strCC
  1011. End If
  1013. objRS.MoveNext
  1014. If objRS.eof Then Exit For
  1015. Set objArticle=Nothing
  1016. Next
  1018. End if
  1020. objRS.Close()
  1021. Set objRS=Nothing
  1023. End If
  1025. Export_Mutuality=True
  1027. End Function
  1031. Public Function Post()
  1033. Call Filter_Plugin_TArticle_Post(ID,Tag,CateID,Title,Intro,Content,Level,AuthorID,PostTime,CommNums,ViewNums,TrackBackNums,Alias,Istop)
  1035. Call CheckParameter(ID,"int",0)
  1036. Call CheckParameter(CateID,"int",0)
  1037. Call CheckParameter(AuthorID,"int",0)
  1038. Call CheckParameter(Level,"int",0)
  1039. Call CheckParameter(PostTime,"dtm",Empty)
  1040. Call CheckParameter(Istop,"bool",False)
  1042. 'ID可以为0
  1043. If (CateID=0) Then Post=False:Exit Function
  1044. If (AuthorID=0) Then Post=False:Exit Function
  1045. If IsEmpty(PostTime) Then Post=False:Exit Function
  1047. Title=FilterSQL(Title)
  1048. Intro=FilterSQL(Intro)
  1049. Content=FilterSQL(Content)
  1050. Tag=FilterSQL(Tag)
  1051. IP=FilterSQL(IP)
  1053. Title=TransferHTML(Title,"[japan-html]")
  1054. Intro=TransferHTML(Intro,"[japan-html]")
  1055. Content=TransferHTML(Content,"[japan-html]")
  1057. Intro=TransferHTML(Intro,"[anti-upload]")
  1058. Content=TransferHTML(Content,"[anti-upload]")
  1060. '先进行"[anti-upload]"，再替换<#ZC_BLOG_HOST#>
  1061. Intro=TransferHTML(Intro,"[anti-zc_blog_host]")
  1062. Content=TransferHTML(Content,"[anti-zc_blog_host]")
  1065. Alias=TransferHTML(Alias,"[filename]")
  1066. Alias=FilterSQL(Alias)
  1068. '检查“别名”是否有重名
  1069. If Alias<>"" Then
  1070. Dim objRSsub
  1071. Set objRSsub=objConn.Execute("SELECT [log_ID] FROM [blog_Article] WHERE [log_ID]<>"& ID &" AND [log_Url]='"& Alias &"'" )
  1072. If (Not objRSsub.bof) And (Not objRSsub.eof) Then
  1073. Randomize
  1074. Alias=Alias & "_" & CStr(Int((9 * Rnd) + 1)) & CStr(Int((9 * Rnd) + 1)) & CStr(Int((9 * Rnd) + 1)) & CStr(Int((9 * Rnd) + 1))
  1075. End If
  1076. Set objRSsub=Nothing
  1077. End If
  1079. If Len(Title)=0 Then Post=False:Exit Function
  1080. If Len(Content)=0 Then Post=False:Exit Function
  1081. If Len(Intro)=0 Then Intro=Left(Content,ZC_TB_EXCERPT_MAX) & "..."
  1083. If ID=0 Then
  1084. objConn.Execute("INSERT INTO [blog_Article]([log_CateID],[log_AuthorID],[log_Level],[log_Title],[log_Intro],[log_Content],[log_PostTime],[log_IP],[log_Tag],[log_Url],[log_Istop]) VALUES ("&CateID&","&AuthorID&","&Level&",'"&Title&"','"&Intro&"','"&Content&"','"&PostTime&"','"&IP&"','"&Tag&"','"&Alias&"',"&Istop&")")
  1085. Dim objRS
  1086. Set objRS=objConn.Execute("SELECT MAX([log_ID]) FROM [blog_Article]")
  1087. If (Not objRS.bof) And (Not objRS.eof) Then
  1088. ID=objRS(0)
  1089. End If
  1090. Set objRS=Nothing
  1091. Else
  1092. objConn.Execute("UPDATE [blog_Article] SET [log_CateID]="&CateID&",[log_AuthorID]="&AuthorID&",[log_Level]="&Level&",[log_Title]='"&Title&"',[log_Intro]='"&Intro&"',[log_Content]='"&Content&"',[log_PostTime]='"&PostTime&"',[log_IP]='"&IP&"',[log_Tag]='"&Tag&"',[log_Url]='"&Alias&"',[log_Istop]="&Istop&" WHERE [log_ID] =" & ID)
  1093. End If
  1095. Post=True
  1097. End Function
  1100. Public Function DelFile()
  1102. On Error Resume Next
  1104. Dim fso, TxtFile
  1106. Set fso = CreateObject("Scripting.FileSystemObject")
  1107. If fso.FileExists(BlogPath & Directory & FileName) Then
  1108. Set TxtFile = fso.GetFile(BlogPath & Directory & FileName)
  1109. TxtFile.Delete
  1110. End If
  1111. Set fso=Nothing
  1113. Set fso = CreateObject("Scripting.FileSystemObject")
  1114. If fso.FileExists(BlogPath & "/cache/" & ID & ".html") Then
  1115. Set TxtFile = fso.GetFile(BlogPath & "/cache/" & ID & ".html")
  1116. TxtFile.Delete
  1117. End If
  1118. Set fso=Nothing
  1120. DelFile=True
  1122. Err.Clear
  1124. End Function
  1127. Public Function Del()
  1129. Call Filter_Plugin_TArticle_Del(ID,Tag,CateID,Title,Intro,Content,Level,AuthorID,PostTime,CommNums,ViewNums,TrackBackNums,Alias,Istop)
  1131. Call DelFile()
  1133. Call CheckParameter(ID,"int",0)
  1134. If (ID=0) Then Del=False:Exit Function
  1136. objConn.Execute("DELETE FROM [blog_Article] WHERE [log_ID] =" & ID)
  1137. objConn.Execute("DELETE FROM [blog_Comment] WHERE [log_ID] =" & ID)
  1138. objConn.Execute("DELETE FROM [blog_TrackBack] WHERE [log_ID] =" & ID)
  1140. Del=True
  1142. End Function
  1145. Public Function Statistic()
  1147. Dim objRS
  1148. Set objRS=objConn.Execute("SELECT COUNT([log_ID]) FROM [blog_Comment] WHERE [log_ID] =" & ID)
  1149. If (Not objRS.bof) And (Not objRS.eof) Then
  1150. CommNums=objRS(0)
  1151. End If
  1152. objConn.Execute("UPDATE [blog_Article] SET [log_CommNums]="& CommNums &" WHERE [log_ID] =" & ID)
  1153. Set objRS=Nothing
  1155. Set objRS=objConn.Execute("SELECT COUNT([log_ID]) FROM [blog_TrackBack] WHERE [log_ID] =" & ID)
  1156. If (Not objRS.bof) And (Not objRS.eof) Then
  1157. TrackBackNums=objRS(0)
  1158. End If
  1159. objConn.Execute("UPDATE [blog_Article] SET [log_TrackBackNums]="& TrackBackNums &" WHERE [log_ID] =" & ID)
  1160. Set objRS=Nothing
  1162. Statistic=True
  1164. End Function
  1167. Function Build()
  1169. Dim aryTemplateTagsName
  1170. Dim aryTemplateTagsValue
  1172. Dim i,j
  1174. htmlWAP = Template_Article_Single_WAP
  1176. If IsEmpty(html) Then html=template
  1178. Call Filter_Plugin_TArticle_Build_Template(html,htmlWAP)
  1179. Call Filter_Plugin_TArticle_Build_Template_Sub(Template_Article_Single)
  1181. html=Replace(html,"<#template:article-single#>",Template_Article_Single)
  1183. aryTemplateTagsName=TemplateTagsName
  1184. aryTemplateTagsValue=TemplateTagsValue
  1186. aryTemplateTagsName(0)="BlogTitle"
  1187. aryTemplateTagsValue(0)=HtmlTitle
  1189. Call Filter_Plugin_TArticle_Build_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  1192. j=UBound(aryTemplateTagsName)
  1194. For i=1 to j
  1195. If (InStr(aryTemplateTagsName(i),"CACHE_INCLUDE_")>0) And (Right(aryTemplateTagsName(i),5)<>"_HTML") And (Right(aryTemplateTagsName(i),3)<>"_JS") Then
  1197. Dim modname
  1198. modname=LCase(Replace(aryTemplateTagsName(i),"CACHE_INCLUDE_",""))
  1199. If aryTemplateTagsName(i)<>"CACHE_INCLUDE_NAVBAR" Then
  1200. If aryTemplateTagsName(i)="CACHE_INCLUDE_CALENDAR" Then
  1201. aryTemplateTagsValue(i)="<div id=""mod_"+modname+"""><script type=""text/javascript"">strBatchInculde+=""mod_"+modname+"="+modname+",""</script></div>"
  1202. Else
  1203. aryTemplateTagsValue(i)="<li id=""mod_"+modname+""" style=""display:none;""><script type=""text/javascript"">strBatchInculde+=""mod_"+modname+"="+modname+",""</script></li>"
  1204. End If
  1205. End If
  1206. End If
  1207. Next
  1209. j=UBound(aryTemplateTagsName)
  1211. For i=1 to j
  1212. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  1213. htmlWAP = Replace(htmlWAP, "<#" & aryTemplateTagsName(i) & "#>", aryTemplateTagsValue(i))
  1214. Next
  1215. html=Replace(html,"<#" & aryTemplateTagsName(0) & "#>",aryTemplateTagsValue(0))
  1216. htmlWAP = Replace(htmlWAP, "<#" & aryTemplateTagsName(0) & "#>", aryTemplateTagsValue(0))
  1218. Build=True
  1220. End Function
  1223. Function SetVar(TemplateTag,TemplateValue)
  1225. If IsEmpty(html) Then html=template
  1227. html=Replace(html,"<#" & TemplateTag & "#>",TemplateValue)
  1229. End Function
  1232. Function Save()
  1234. If Not(Level>2) Then Save=True:Exit Function
  1236. Dim objStream
  1238. html=TransferHTML(html,"[no-asp]")
  1239. If ZC_STATIC_TYPE="asp" Then
  1240. html="<"&"%@ CODEPAGE=65001 %"&">" & html
  1241. End If
  1243. If ZC_CUSTOM_DIRECTORY_ENABLE=True Then
  1244. Call CreatDirectoryByCustomDirectory(Directory)
  1245. End If
  1247. Call SaveToFile(BlogPath & Directory & FileName,html,"utf-8",False)
  1249. Save=True
  1251. End Function
  1254. Function SaveCache()
  1256. If Not(Level>1) Then SaveCache=True:Exit Function
  1258. Dim strList
  1260. If Istop Then
  1261. strList=Template_Article_Istop
  1262. Else
  1263. strList=Template_Article_Multi
  1264. End If
  1265. strList=TransferHTML(strList,"[no-asp]")
  1267. Call SaveToFile(BlogPath & "/cache/" & ID & ".html",strList,"utf-8",False)
  1269. SaveCache=True
  1271. End Function
  1274. Function LoadCache()
  1276. Dim objStream
  1278. Template_Article_Multi=LoadFromFile(BlogPath & "/CACHE/" & ID & ".html","utf-8")
  1280. LoadCache=True
  1282. End Function
  1285. Private Sub Class_Initialize()
  1287. PostTime=GetTime(Now())
  1288. ID=0
  1289. CateID=0
  1290. AuthorID=0
  1291. Level=4'默认为普通
  1292. Title=ZC_MSG099
  1293. IP=Request.Servervariables("REMOTE_ADDR")
  1295. Ftemplate_Wap=Empty
  1296. Ftemplate=Empty
  1298. End Sub
  1301. End Class
  1302. '*********************************************************
  1307. '*********************************************************
  1308. ' 目的：    定义TArticleList类
  1309. ' 输入：    无
  1310. ' 返回：    无
  1311. '*********************************************************
  1312. Class TArticleList
  1314. Public Title
  1316. Public FileName
  1318. Public AllList
  1319. Public AuthList
  1320. Public CateList
  1321. Public TagsList
  1323. Public aryArticle
  1324. Public aryArticleList()
  1327. Public Template_PageBar
  1328. Public Template_Article_Multi
  1329. Public Template_PageBar_Next
  1330. Public Template_PageBar_Previous
  1331. Public Template_Calendar
  1334. Public TemplateTags_ArticleList_Author_ID
  1335. Public TemplateTags_ArticleList_Tags_ID
  1336. Public TemplateTags_ArticleList_Category_ID
  1337. Public TemplateTags_ArticleList_Date_ShortDate
  1338. Public TemplateTags_ArticleList_Date_Year
  1339. Public TemplateTags_ArticleList_Date_Month
  1340. Public TemplateTags_ArticleList_Date_Day
  1341. Public TemplateTags_ArticleList_Page_Now
  1342. Public TemplateTags_ArticleList_Page_All
  1344. Public html
  1347. Private Ftemplate
  1348. Public Property Let template(strFileName)
  1349. Ftemplate=GetTemplate("TEMPLATE_" & strFileName)
  1350. End Property
  1351. Public Property Get template
  1352. template = Ftemplate
  1353. End Property
  1356. Private FDirectory
  1357. Public Property Let Directory(strDirectory)
  1358. FDirectory=strDirectory
  1359. End Property
  1360. Public Property Get Directory
  1361. If IsEmpty(FDirectory)=True Then
  1362. Directory=ZC_STATIC_DIRECTORY
  1363. Else
  1364. Directory = FDirectory
  1365. End If
  1366. Directory=Replace(Directory,"","/")
  1367. If Right(ZC_BLOG_HOST & Directory,1)<>"/" Then
  1368. Directory=Directory & "/"
  1369. End If
  1370. End Property
  1373. Public Function Export(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1375. 'plugin node
  1376. bAction_Plugin_TArticleList_Export_Begin=False
  1377. For Each sAction_Plugin_TArticleList_Export_Begin in Action_Plugin_TArticleList_Export_Begin
  1378. If Not IsEmpty(sAction_Plugin_TArticleList_Export_Begin) Then Call Execute(sAction_Plugin_TArticleList_Export_Begin)
  1379. If bAction_Plugin_TArticleList_Export_Begin=True Then Exit Function
  1380. Next
  1382. 'plugin node
  1383. Call Filter_Plugin_TArticleList_Export(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1385. Dim i,j,k,l
  1386. Dim objRS
  1387. Dim intPageCount
  1388. Dim objArticle
  1390. Call CheckParameter(intPage,"int",1)
  1391. Call CheckParameter(intCateId,"int",Empty)
  1392. Call CheckParameter(intAuthorId,"int",Empty)
  1393. Call CheckParameter(dtmYearMonth,"dtm",Empty)
  1395. Title=ZC_BLOG_SUBTITLE
  1397. Set objRS=Server.CreateObject("ADODB.Recordset")
  1398. objRS.CursorType = adOpenKeyset
  1399. objRS.LockType = adLockReadOnly
  1400. objRS.ActiveConnection=objConn
  1403. '//////////////////////////
  1404. 'ontop
  1405. objRS.Source="SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Istop]=True) AND ([log_Level]>1)"
  1406. objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
  1407. objRS.Open()
  1408. If (Not objRS.bof) And (Not objRS.eof) Then
  1409. objRS.PageSize = ZC_DISPLAY_COUNT
  1410. intPageCount=objRS.PageCount
  1411. objRS.AbsolutePage = 1
  1413. For i = 1 To objRS.PageSize
  1415. ReDim Preserve aryArticleList(i)
  1417. Set objArticle=New TArticle
  1418. If objArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  1419. If objArticle.Export(intType)= True Then
  1420. aryArticleList(i)=objArticle.Template_Article_Istop
  1421. End If
  1422. End If
  1423. Set objArticle=Nothing
  1425. objRS.MoveNext
  1426. If objRS.EOF Then Exit For
  1428. Next
  1430. End If
  1431. objRS.Close()
  1432. k=Join(aryArticleList)
  1433. Erase aryArticleList
  1434. '//////////////////////////
  1437. objRS.Source="SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Istop]=False) AND ([log_Level]>1)"
  1439. If Not IsEmpty(intCateId) Then
  1440. objRS.Source=objRS.Source & "AND([log_CateID]="&intCateId&")"
  1441. On Error Resume Next
  1442. Title=Server.HTMLEncode(Categorys(intCateId).Name)
  1443. TemplateTags_ArticleList_Category_ID=Categorys(intCateId).ID
  1444. Err.Clear
  1445. End if
  1446. If Not IsEmpty(intAuthorId) Then
  1447. objRS.Source=objRS.Source & "AND([log_AuthorID]="&intAuthorId&")"
  1448. On Error Resume Next
  1449. Title=Server.HTMLEncode(Users(intAuthorId).Name)
  1450. TemplateTags_ArticleList_Author_ID=Users(intAuthorId).ID
  1451. Err.Clear
  1452. End if
  1453. If IsDate(dtmYearMonth) Then
  1454. Dim y
  1455. Dim m
  1456. Dim d
  1457. Dim ny
  1458. Dim nm
  1460. If IsDate(dtmYearMonth) Then
  1461. 'dtmYearMonth=CDate(dtmYearMonth)
  1462. Else
  1463. Call showError(3)
  1464. End If
  1466. y=Year(dtmYearMonth)
  1467. m=Month(dtmYearMonth)
  1468. d=Day(dtmYearMonth)
  1470. TemplateTags_ArticleList_Date_ShortDate=dtmYearMonth
  1471. TemplateTags_ArticleList_Date_Year=y
  1472. TemplateTags_ArticleList_Date_Month=m
  1473. TemplateTags_ArticleList_Date_Day=d
  1475. ny=y
  1476. nm=m+1
  1477. If m=12 Then ny=ny+1:nm=1
  1480. If InstrRev(CStr(dtmYearMonth),"-")>=7 Then
  1481. objRS.Source=objRS.Source & "AND(Year([log_PostTime])="&y&") AND(Month([log_PostTime])="&m&") AND(Day([log_PostTime])="&d&")"
  1482. Else
  1483. objRS.Source=objRS.Source & "AND(Year([log_PostTime])="&y&") AND(Month([log_PostTime])="&m&")"
  1484. End If
  1486. Template_Calendar="<script language=""JavaScript"" src="""&ZC_BLOG_HOST&"function/c_html_js.asp?date="&dtmYearMonth&""" type=""text/javascript""></script>"
  1488. Title=Year(dtmYearMonth) & " " & ZVA_Month(Month(dtmYearMonth))
  1489. End If
  1490. If Not IsEmpty(strTagsName) Then
  1491. On Error Resume Next
  1492. Dim Tag
  1493. For Each Tag in Tags
  1494. If IsObject(Tag) Then
  1495. If UCase(Tag.Name)=UCase(strTagsName) Then
  1496. objRS.Source=objRS.Source & "AND([log_Tag] LIKE '%{" & Tag.ID & "}%')"
  1497. TemplateTags_ArticleList_Tags_ID=Tag.ID
  1498. 'Title=strTagsName
  1499. Title=Server.HTMLEncode(strTagsName)
  1500. End If
  1501. End If
  1502. Next
  1503. Err.Clear
  1504. End If
  1506. objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
  1507. objRS.Open()
  1509. If (Not objRS.bof) And (Not objRS.eof) Then
  1510. objRS.PageSize = ZC_DISPLAY_COUNT
  1511. intPageCount=objRS.PageCount
  1512. objRS.AbsolutePage = intPage
  1514. For i = 1 To objRS.PageSize
  1516. ReDim Preserve aryArticleList(i)
  1518. Set objArticle=New TArticle
  1519. If objArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  1520. If objArticle.Export(intType)= True Then
  1521. aryArticleList(i)=objArticle.Template_Article_Multi
  1522. End If
  1523. End If
  1524. Set objArticle=Nothing
  1526. objRS.MoveNext
  1527. If objRS.EOF Then Exit For
  1529. Next
  1531. End If
  1533. objRS.Close()
  1534. Set objRS=Nothing
  1536. Template_Article_Multi=k & Join(aryArticleList)
  1538. TemplateTags_ArticleList_Page_Now=intPage
  1539. TemplateTags_ArticleList_Page_All=intPageCount
  1541. Call ExportBar(intPage,intPageCount,intCateId,intAuthorId,dtmYearMonth,strTagsName)
  1543. Export=True
  1545. 'plugin node
  1546. bAction_Plugin_TArticleList_Export_End=False
  1547. For Each sAction_Plugin_TArticleList_Export_End in Action_Plugin_TArticleList_Export_End
  1548. If Not IsEmpty(sAction_Plugin_TArticleList_Export_End) Then Call Execute(sAction_Plugin_TArticleList_Export_End)
  1549. If bAction_Plugin_TArticleList_Export_End=True Then Exit Function
  1550. Next
  1552. End Function
  1555. Public Function ExportByCache(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1557. 'plugin node
  1558. bAction_Plugin_TArticleList_ExportByCache_Begin=False
  1559. For Each sAction_Plugin_TArticleList_ExportByCache_Begin in Action_Plugin_TArticleList_ExportByCache_Begin
  1560. If Not IsEmpty(sAction_Plugin_TArticleList_ExportByCache_Begin) Then Call Execute(sAction_Plugin_TArticleList_ExportByCache_Begin)
  1561. If bAction_Plugin_TArticleList_ExportByCache_Begin=True Then Exit Function
  1562. Next
  1564. 'plugin node
  1565. Call Filter_Plugin_TArticleList_ExportByCache(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1568. Dim strType
  1569. Dim i,j,s,t,k,l
  1570. Dim intAllPage
  1571. Dim intTagsID
  1572. Dim objArticle
  1574. Call CheckParameter(intPage,"int",1)
  1575. Call CheckParameter(intCateId,"int",Empty)
  1576. Call CheckParameter(intAuthorId,"int",Empty)
  1577. Call CheckParameter(dtmYearMonth,"dtm",Empty)
  1580. i=InStr(1,TagsList,vbTab & strTagsName & vbVerticalTab,vbBinaryCompare)
  1581. If i>0 Then
  1582. j=Left(TagsList,i-1)
  1583. i=InStrRev(j,vbTab)
  1584. intTagsID=Right(j,Len(j)-i)
  1585. Call CheckParameter(intTagsID,"int",Empty)
  1586. End If
  1589. '//////////////////////////
  1590. 'ontop
  1591. If True Then 
  1592. strType="Istop" & "Page1" & "["
  1593. s="Istop" & "Page"
  1595. i=InStrRev(AllList,s)
  1596. If i>0 Then
  1597. j=InStr(i,AllList,"[",vbBinaryCompare)
  1598. s=Mid(AllList,i+Len(s),j-i-Len(s))
  1599. intAllPage=CInt(s)
  1600. End If
  1602. i=InStr(1,AllList,strType,vbBinaryCompare)
  1603. If i>0 Then
  1604. i=Len(strType)+i
  1605. j=InStr(i,AllList,"]",vbBinaryCompare)
  1606. s=Mid(AllList,i,j-i)
  1607. aryArticle=Split(s,";")
  1608. End If
  1611. If IsArray(aryArticle) Then
  1613. Redim aryArticleList(UBound(aryArticle))
  1615. For i=LBound(aryArticle) To UBound(aryArticle)-1
  1616. Set objArticle = New TArticle
  1617. objArticle.ID=aryArticle(i)
  1618. If objArticle.LoadCache Then
  1619. aryArticleList(i)=objArticle.Template_Article_Multi
  1620. End if
  1621. Set objArticle = Nothing
  1622. Next
  1624. k=Join(aryArticleList)
  1625. Erase aryArticleList
  1626. ReDim aryArticle(0)
  1628. End If
  1630. End If
  1631. '////////////////////////////
  1634. strType="All" & "Page" & CStr(intPage) & "["
  1635. s="All" & "Page"
  1637. Title=ZC_BLOG_SUBTITLE
  1640. i=InStrRev(AllList,s)
  1641. If i>0 Then
  1642. j=InStr(i,AllList,"[",vbBinaryCompare)
  1643. s=Mid(AllList,i+Len(s),j-i-Len(s))
  1644. intAllPage=CInt(s)
  1645. End If
  1647. i=InStr(1,AllList,strType,vbBinaryCompare)
  1648. If i>0 Then
  1649. i=Len(strType)+i
  1650. j=InStr(i,AllList,"]",vbBinaryCompare)
  1651. s=Mid(AllList,i,j-i)
  1652. aryArticle=Split(s,";")
  1653. End If
  1656. If IsArray(aryArticle) Then
  1659. Redim aryArticleList(UBound(aryArticle))
  1661. For i=LBound(aryArticle) To UBound(aryArticle)-1
  1662. Set objArticle = New TArticle
  1663. objArticle.ID=aryArticle(i)
  1664. If objArticle.LoadCache Then
  1665. aryArticleList(i)=objArticle.Template_Article_Multi
  1666. End if
  1667. Set objArticle = Nothing
  1668. Next
  1670. Template_Article_Multi=k & Join(aryArticleList)
  1672. End If
  1674. TemplateTags_ArticleList_Page_Now=intPage
  1675. TemplateTags_ArticleList_Page_All=intAllPage
  1677. Call ExportBar(intPage,intAllPage,intCateId,intAuthorId,dtmYearMonth,strTagsName)
  1679. ExportByCache=True
  1681. 'plugin node
  1682. bAction_Plugin_TArticleList_ExportByCache_End=False
  1683. For Each sAction_Plugin_TArticleList_ExportByCache_End in Action_Plugin_TArticleList_ExportByCache_End
  1684. If Not IsEmpty(sAction_Plugin_TArticleList_ExportByCache_End) Then Call Execute(sAction_Plugin_TArticleList_ExportByCache_End)
  1685. If bAction_Plugin_TArticleList_ExportByCache_End=True Then Exit Function
  1686. Next
  1688. End Function
  1691. Public Function ExportByMixed(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1693. 'plugin node
  1694. bAction_Plugin_TArticleList_ExportByMixed_Begin=False
  1695. For Each sAction_Plugin_TArticleList_ExportByMixed_Begin in Action_Plugin_TArticleList_ExportByMixed_Begin
  1696. If Not IsEmpty(sAction_Plugin_TArticleList_ExportByMixed_Begin) Then Call Execute(sAction_Plugin_TArticleList_ExportByMixed_Begin)
  1697. If bAction_Plugin_TArticleList_ExportByMixed_Begin=True Then Exit Function
  1698. Next
  1700. 'plugin node
  1701. Call Filter_Plugin_TArticleList_ExportByMixed(intPage,intCateId,intAuthorId,dtmYearMonth,strTagsName,intType)
  1703. Dim strType
  1704. Dim i,j,k,l,s
  1705. Dim objRS
  1706. Dim intPageCount
  1707. Dim objArticle
  1708. Dim intAllPage
  1710. Call CheckParameter(intPage,"int",1)
  1711. Call CheckParameter(intCateId,"int",Empty)
  1712. Call CheckParameter(intAuthorId,"int",Empty)
  1713. Call CheckParameter(dtmYearMonth,"dtm",Empty)
  1715. Title=ZC_BLOG_SUBTITLE
  1717. Set objRS=Server.CreateObject("ADODB.Recordset")
  1718. objRS.CursorType = adOpenKeyset
  1719. objRS.LockType = adLockReadOnly
  1720. objRS.ActiveConnection=objConn
  1723. '//////////////////////////
  1724. 'ontop
  1725. If True Then 
  1726. strType="Istop" & "Page1" & "["
  1727. s="Istop" & "Page"
  1729. i=InStrRev(AllList,s)
  1730. If i>0 Then
  1731. j=InStr(i,AllList,"[",vbBinaryCompare)
  1732. s=Mid(AllList,i+Len(s),j-i-Len(s))
  1733. intAllPage=CInt(s)
  1734. End If
  1736. i=InStr(1,AllList,strType,vbBinaryCompare)
  1737. If i>0 Then
  1738. i=Len(strType)+i
  1739. j=InStr(i,AllList,"]",vbBinaryCompare)
  1740. s=Mid(AllList,i,j-i)
  1741. aryArticle=Split(s,";")
  1742. End If
  1745. If IsArray(aryArticle) Then
  1747. Redim aryArticleList(UBound(aryArticle))
  1749. For i=LBound(aryArticle) To UBound(aryArticle)-1
  1750. Set objArticle = New TArticle
  1751. objArticle.ID=aryArticle(i)
  1752. If objArticle.LoadCache Then
  1753. aryArticleList(i)=objArticle.Template_Article_Multi
  1754. End if
  1755. Set objArticle = Nothing
  1756. Next
  1758. k=Join(aryArticleList)
  1759. Erase aryArticleList
  1760. ReDim aryArticle(0)
  1762. End If
  1764. End If
  1765. '////////////////////////////
  1768. objRS.Source="SELECT [log_ID] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Istop]=False) AND ([log_Level]>1)"
  1770. If Not IsEmpty(intCateId) Then
  1771. objRS.Source=objRS.Source & "AND([log_CateID]="&intCateId&")"
  1772. On Error Resume Next
  1773. Title=Server.HTMLEncode(Categorys(intCateId).Name)
  1774. TemplateTags_ArticleList_Category_ID=Categorys(intCateId).ID
  1775. Err.Clear
  1776. End if
  1777. If Not IsEmpty(intAuthorId) Then
  1778. objRS.Source=objRS.Source & "AND([log_AuthorID]="&intAuthorId&")"
  1779. On Error Resume Next
  1780. Title=Server.HTMLEncode(Users(intAuthorId).Name)
  1781. TemplateTags_ArticleList_Author_ID=Users(intAuthorId).ID
  1782. Err.Clear
  1783. End If
  1785. If IsDate(dtmYearMonth) Then
  1786. Dim y
  1787. Dim m
  1788. Dim d
  1789. Dim ny
  1790. Dim nm
  1792. If IsDate(dtmYearMonth) Then
  1793. ' dtmYearMonth=CDate(dtmYearMonth)
  1794. Else
  1795. Call showError(3)
  1796. End If
  1798. y=Year(dtmYearMonth)
  1799. m=Month(dtmYearMonth)
  1800. d=Day(dtmYearMonth)
  1802. TemplateTags_ArticleList_Date_ShortDate=dtmYearMonth
  1803. TemplateTags_ArticleList_Date_Year=y
  1804. TemplateTags_ArticleList_Date_Month=m
  1805. TemplateTags_ArticleList_Date_Day=d
  1806. ny=y
  1807. nm=m+1
  1808. If m=12 Then ny=ny+1:nm=1
  1810. If InstrRev(CStr(dtmYearMonth),"-")>=7 Then
  1811. objRS.Source=objRS.Source & "AND(Year([log_PostTime])="&y&") AND(Month([log_PostTime])="&m&") AND(Day([log_PostTime])="&d&")"
  1812. Else
  1813. objRS.Source=objRS.Source & "AND(Year([log_PostTime])="&y&") AND(Month([log_PostTime])="&m&")"
  1814. End If
  1816. Template_Calendar="<script language=""JavaScript"" src="""&ZC_BLOG_HOST&"function/c_html_js.asp?date="&dtmYearMonth&""" type=""text/javascript""></script>"
  1818. Title=Year(dtmYearMonth) & " " & ZVA_Month(Month(dtmYearMonth))
  1819. End If
  1820.                 If Not IsEmpty(strTagsName) Then
  1821.                         On Error Resume Next
  1822.                         Dim Tag
  1823.                         For Each Tag in Tags
  1824.                                 If IsObject(Tag) Then
  1825.                                         Dim arrTagsName, Tag_i
  1826.                                         arrTagsName = split(strTagsName, ",")
  1827.                                         For Tag_i = 0 To UBound(arrTagsName)
  1828.                                         strTagsName = arrTagsName(Tag_i)
  1829.                                         If UCase(Tag.Name)=UCase(strTagsName) Then
  1830.                                                 objRS.Source=objRS.Source & "AND([log_Tag] LIKE '%{" & Tag.ID & "}%')"
  1831.                                                 TemplateTags_ArticleList_Tags_ID=Tag.ID
  1832.                                         End If
  1833.                                         Next'Tag_i
  1834.                                 End If
  1835.                         Next
  1836.                         Err.Clear
  1837.                         Title=Server.HTMLEncode(strTagsName)
  1839.                 End If
  1841. objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
  1842. objRS.Open()
  1844. If (Not objRS.bof) And (Not objRS.eof) Then
  1845. objRS.PageSize = ZC_DISPLAY_COUNT
  1846. intPageCount=objRS.PageCount
  1847. objRS.AbsolutePage = intPage
  1849. For i = 1 To objRS.PageSize
  1851. ReDim Preserve aryArticleList(i)
  1853. Set objArticle = New TArticle
  1854. objArticle.ID=objRS(0)
  1855. If objArticle.LoadCache Then
  1856. aryArticleList(i)=objArticle.Template_Article_Multi
  1857. End if
  1858. Set objArticle = Nothing
  1860. objRS.MoveNext
  1861. If objRS.EOF Then Exit For
  1863. Next
  1865. End If
  1867. objRS.Close()
  1868. Set objRS=Nothing
  1870. Template_Article_Multi=k & Join(aryArticleList)
  1872. TemplateTags_ArticleList_Page_Now=intPage
  1873. TemplateTags_ArticleList_Page_All=intPageCount
  1875. Call ExportBar(intPage,intPageCount,intCateId,intAuthorId,dtmYearMonth,strTagsName)
  1877. ExportByMixed=True
  1879. 'plugin node
  1880. bAction_Plugin_TArticleList_ExportByMixed_End=False
  1881. For Each sAction_Plugin_TArticleList_ExportByMixed_End in Action_Plugin_TArticleList_ExportByMixed_End
  1882. If Not IsEmpty(sAction_Plugin_TArticleList_ExportByMixed_End) Then Call Execute(sAction_Plugin_TArticleList_ExportByMixed_End)
  1883. If bAction_Plugin_TArticleList_ExportByMixed_End=True Then Exit Function
  1884. Next
  1886. End Function
  1890. Public Function Build()
  1892. Dim aryTemplateTagsName
  1893. Dim aryTemplateTagsValue
  1895. Dim aryTemplateSubName()
  1896. Dim aryTemplateSubValue()
  1898. Dim i,j
  1900. If IsEmpty(html) Then html=template
  1902. 'plugin node
  1903. Call Filter_Plugin_TArticleList_Build_Template(html)
  1905. ReDim aryTemplateSubName(14)
  1906. ReDim aryTemplateSubValue(14)
  1908. aryTemplateSubName(  1)="template:article-multi"
  1909. aryTemplateSubValue( 1)=Template_Article_Multi
  1910. aryTemplateSubName(  2)="template:pagebar"
  1911. aryTemplateSubValue( 2)=Template_PageBar
  1912. aryTemplateSubName(  3)="template:pagebar_next"
  1913. aryTemplateSubValue( 3)=Template_PageBar_Next
  1914. aryTemplateSubName(  4)="template:pagebar_previous"
  1915. aryTemplateSubValue( 4)=Template_PageBar_Previous
  1916. aryTemplateSubName(  5)="articlelist/author/id"
  1917. aryTemplateSubValue( 5)=TemplateTags_ArticleList_Author_ID
  1918. aryTemplateSubName(  6)="articlelist/tags/id"
  1919. aryTemplateSubValue( 6)=TemplateTags_ArticleList_Tags_ID
  1920. aryTemplateSubName(  7)="articlelist/category/id"
  1921. aryTemplateSubValue( 7)=TemplateTags_ArticleList_Category_ID
  1922. aryTemplateSubName(  8)="articlelist/date/year"
  1923. aryTemplateSubValue( 8)=TemplateTags_ArticleList_Date_Year
  1924. aryTemplateSubName(  9)="articlelist/date/month"
  1925. aryTemplateSubValue( 9)=TemplateTags_ArticleList_Date_Month
  1926. aryTemplateSubName( 10)="articlelist/date/day"
  1927. aryTemplateSubValue(10)=TemplateTags_ArticleList_Date_Day
  1928. aryTemplateSubName( 11)="articlelist/date/shortdate"
  1929. aryTemplateSubValue(11)=TemplateTags_ArticleList_Date_ShortDate
  1930. aryTemplateSubName( 12)="articlelist/page/now"
  1931. aryTemplateSubValue(12)=TemplateTags_ArticleList_Page_Now
  1932. aryTemplateSubName( 13)="articlelist/page/all"
  1933. aryTemplateSubValue(13)=TemplateTags_ArticleList_Page_All
  1934. aryTemplateSubName( 14)="articlelist/page/count"
  1935. aryTemplateSubValue(14)=ZC_DISPLAY_COUNT
  1937. 'plugin node
  1938. Call Filter_Plugin_TArticleList_Build_TemplateSub(aryTemplateSubName,aryTemplateSubValue)
  1940. j=UBound(aryTemplateSubName)
  1941. For i=0 to j
  1942. html=Replace(html,"<#" & aryTemplateSubName(i) & "#>",aryTemplateSubValue(i))
  1943. Next
  1945. aryTemplateTagsName=TemplateTagsName
  1946. aryTemplateTagsValue=TemplateTagsValue
  1948. aryTemplateTagsName(0)="BlogTitle"
  1949. aryTemplateTagsValue(0)=Title
  1951. Call Filter_Plugin_TArticleList_Build_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  1953. j=UBound(aryTemplateTagsName)
  1954. For i=1 to j
  1955. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  1956. Next
  1957. html=Replace(html,"<#" & aryTemplateTagsName(0) & "#>",aryTemplateTagsValue(0))
  1959. If IsEmpty(Template_Calendar) Or Len(Template_Calendar)=0 Then
  1960. For i=1 to j
  1961. If aryTemplateTagsName(i)="CACHE_INCLUDE_CALENDAR" Then
  1962. Template_Calendar=aryTemplateTagsValue(i)
  1963. End If
  1964. Next
  1965. End If
  1966. html=Replace(html,"<#CACHE_INCLUDE_CALENDAR_NOW#>",Template_Calendar)
  1968. Build=True
  1970. End Function
  1973. Function Save()
  1975. html=TransferHTML(html,"[no-asp]")
  1976. If ZC_STATIC_TYPE="asp" Then
  1977. html="<"&"%@ CODEPAGE=65001 %"&">" & html
  1978. End If
  1980. If ZC_MOONSOFT_PLUGIN_ENABLE=True Then
  1981. Call CreatDirectoryByCustomDirectory(Directory)
  1982. End If
  1984. Call SaveToFile(BlogPath & Directory & FileName,html,"utf-8",False)
  1986. Save=True
  1988. End Function
  1991. Function SetVar(TemplateTag,TemplateValue)
  1993. If IsEmpty(html) Then html=template
  1995. html=Replace(html,"<#" & TemplateTag & "#>",TemplateValue)
  1997. End Function
  2000. Public Function Search(strQuestion)
  2002. 'plugin node
  2003. bAction_Plugin_TArticleList_Search_Begin=False
  2004. For Each sAction_Plugin_TArticleList_Search_Begin in Action_Plugin_TArticleList_Search_Begin
  2005. If Not IsEmpty(sAction_Plugin_TArticleList_Search_Begin) Then Call Execute(sAction_Plugin_TArticleList_Search_Begin)
  2006. If bAction_Plugin_TArticleList_Search_Begin=True Then Exit Function
  2007. Next
  2009. Dim i
  2010. Dim j
  2011. Dim s
  2013. Dim objRS
  2014. Dim intPageCount
  2015. Dim objArticle
  2017. strQuestion=Trim(strQuestion)
  2019. If Len(strQuestion)=0 Then Search=True:Exit Function
  2020. 'If CheckRegExp(strQuestion,"[nojapan]") Then Exit Function
  2022. strQuestion=FilterSQL(strQuestion)
  2024. Set objRS=Server.CreateObject("ADODB.Recordset")
  2025. objRS.CursorType = adOpenKeyset
  2026. objRS.LockType = adLockReadOnly
  2027. objRS.ActiveConnection=objConn
  2032. objRS.Source="SELECT [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Intro],[log_Content],[log_Level],[log_AuthorID],[log_PostTime],[log_CommNums],[log_ViewNums],[log_TrackBackNums],[log_Url],[log_Istop] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2)"
  2034. objRS.Source=objRS.Source & "AND( (InStr(1,LCase([log_Title]),LCase('"&strQuestion&"'),0)<>0) OR (InStr(1,LCase([log_Intro]),LCase('"&strQuestion&"'),0)<>0) OR (InStr(1,LCase([log_Content]),LCase('"&strQuestion&"'),0)<>0) )"
  2036. objRS.Source=objRS.Source & "ORDER BY [log_PostTime] DESC,[log_ID] DESC"
  2038. objRS.Open()
  2040. 's=Replace(Replace(ZC_MSG086,"%s","<strong>" & TransferHTML(Replace(strQuestion,Chr(39)&Chr(39),Chr(39)),"[html-format]") & "</strong>",vbTextCompare,1),"%s","<strong>" & objRS.RecordCount & "</strong>")
  2041. s=Replace(Replace(ZC_MSG086,"%s","<strong>" & TransferHTML(Replace(strQuestion,Chr(39)&Chr(39),Chr(39),1,-1,0),"[html-format]") & "</strong>",vbTextCompare,1),"%s","<strong>" & objRS.RecordCount & "</strong>",1,-1,0)
  2043. If (Not objRS.bof) And (Not objRS.eof) Then
  2044. objRS.PageSize = ZC_SEARCH_COUNT
  2045. intPageCount=objRS.PageCount
  2046. objRS.AbsolutePage = 1
  2048. For i = 1 To objRS.PageSize
  2050. ReDim Preserve aryArticleList(i)
  2052. Set objArticle=New TArticle
  2053. If objArticle.LoadInfoByArray(Array(objRS(0),objRS(1),objRS(2),objRS(3),objRS(4),objRS(5),objRS(6),objRS(7),objRS(8),objRS(9),objRS(10),objRS(11),objRS(12),objRS(13))) Then
  2054. If objArticle.Export(ZC_DISPLAY_MODE_SEARCH)= True Then
  2055. aryArticleList(i)=objArticle.Template_Article_Search
  2056. End If
  2057. End If
  2058. Set objArticle=Nothing
  2060. objRS.MoveNext
  2061. If objRS.EOF Then Exit For
  2063. Next
  2065. End If
  2067. objRS.Close()
  2068. Set objRS=Nothing
  2070. Template_Article_Multi=Join(aryArticleList)
  2072. Title=TransferHTML(strQuestion,"[html-format]")
  2074. Search=True
  2076. 'plugin node
  2077. bAction_Plugin_TArticleList_Search_End=False
  2078. For Each sAction_Plugin_TArticleList_Search_End in Action_Plugin_TArticleList_Search_End
  2079. If Not IsEmpty(sAction_Plugin_TArticleList_Search_End) Then Call Execute(sAction_Plugin_TArticleList_Search_End)
  2080. If bAction_Plugin_TArticleList_Search_End=True Then Exit Function
  2081. Next
  2083. End Function
  2086. Public Function ExportBar(intNowPage,intAllPage,intCateId,intAuthorId,dtmYearMonth,strTagsName)
  2088. 'plugin node
  2089. bAction_Plugin_TArticleList_ExportBar_Begin=False
  2090. For Each sAction_Plugin_TArticleList_ExportBar_Begin in Action_Plugin_TArticleList_ExportBar_Begin
  2091. If Not IsEmpty(sAction_Plugin_TArticleList_ExportBar_Begin) Then Call Execute(sAction_Plugin_TArticleList_ExportBar_Begin)
  2092. If bAction_Plugin_TArticleList_ExportBar_Begin=True Then Exit Function
  2093. Next
  2095. Dim i
  2096. Dim s
  2097. Dim t
  2098. Dim strPageBar
  2100. If Not IsEmpty(intCateId) Then t=t & "cate=" & intCateId & "&amp;"
  2101. If Not IsEmpty(dtmYearMonth) Then
  2102. t=t & "date=" & Year(dtmYearMonth) & "-" & Month(dtmYearMonth)
  2103. If InstrRev(CStr(dtmYearMonth),"-")>=7 Then
  2104. t=t & "-" &  Day(dtmYearMonth)
  2105. End If
  2106. t=t & "&amp;"
  2107. End If
  2108. If Not IsEmpty(intAuthorId) Then t=t & "auth=" & intAuthorId & "&amp;"
  2109. If Not (strTagsName="") Then t=t & "tags=" & Server.URLEncode(strTagsName) & "&amp;"
  2110. If intAllPage>0 Then
  2111. Dim a,b
  2113. s=ZC_BLOG_HOST & "catalog.asp?"& t &"page=1"
  2115. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  2116. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  2117. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",ZC_MSG285)
  2118. Template_PageBar=Template_PageBar & strPageBar
  2120. If intAllPage>ZC_PAGEBAR_COUNT Then
  2121. a=intNowPage
  2122. b=intNowPage+ZC_PAGEBAR_COUNT
  2123. If a>ZC_PAGEBAR_COUNT Then a=a-1:b=b-1
  2124. If b>intAllPage Then b=intAllPage:a=intAllPage-ZC_PAGEBAR_COUNT
  2125. Else
  2126. a=1:b=intAllPage
  2127. End If
  2128. For i=a to b
  2130. s=ZC_BLOG_HOST & "catalog.asp?"& t &"page="& i
  2132. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  2133. If i=intNowPage then
  2134. Template_PageBar=Template_PageBar & "<span class=""now-page"">" & i & "</span>"
  2135. Else
  2136. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  2137. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",i)
  2138. Template_PageBar=Template_PageBar & strPageBar
  2139. End If
  2141. Next
  2143. s=ZC_BLOG_HOST & "catalog.asp?"& t &"page="& intAllPage
  2145. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  2146. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  2147. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",ZC_MSG286)
  2148. Template_PageBar=Template_PageBar & strPageBar
  2150. If intNowPage=1 Then
  2151. Template_PageBar_Previous=""
  2152. Else
  2153. Template_PageBar_Previous="<span class=""pagebar-previous""><a href="""& ZC_BLOG_HOST &"catalog.asp?"& t &"page="& intNowPage-1 &"""><span>"&ZC_MSG156&"</span></a></span>"
  2155. End If
  2157. If intNowPage=intAllPage Then
  2158. Template_PageBar_Next=""
  2159. Else
  2160. Template_PageBar_Next="<span class=""pagebar-next""><a href="""& ZC_BLOG_HOST &"catalog.asp?"& t &"page="& intNowPage+1 &"""><span>"&ZC_MSG155&"</span></a></span>"
  2161. End If
  2163. End If
  2165. ExportBar=True
  2167. 'plugin node
  2168. bAction_Plugin_TArticleList_ExportBar_End=False
  2169. For Each sAction_Plugin_TArticleList_ExportBar_End in Action_Plugin_TArticleList_ExportBar_End
  2170. If Not IsEmpty(sAction_Plugin_TArticleList_ExportBar_End) Then Call Execute(sAction_Plugin_TArticleList_ExportBar_End)
  2171. If bAction_Plugin_TArticleList_ExportBar_End=True Then Exit Function
  2172. Next
  2174. End Function
  2177. Public Function LoadCache()
  2179. Dim strContent
  2181. strContent=""
  2182. strContent=LoadFromFile(BlogPath & "/CACHE/cache_list_"&ZC_BLOG_CLSID&".html","utf-8")
  2183. AllList=strContent
  2185. LoadCache=True
  2187. End Function
  2190. Private Sub Class_Initialize()
  2192. Redim Article(ZC_DISPLAY_COUNT)
  2194. End Sub
  2196. End Class
  2197. '*********************************************************
  2202. '*********************************************************
  2203. ' 目的：    定义TUser类
  2204. ' 输入：    无
  2205. ' 返回：    无
  2206. '*********************************************************
  2207. Class TUser
  2209. Public ID
  2210. Public Level
  2211. Public Name
  2212. Public Password
  2213. Public Alias
  2215. Public Sex
  2216. Public Email
  2217. Public MSN
  2218. Public QQ
  2219. Public HomePage
  2220. Public Intro
  2222. Public Count
  2224. Public LastVisitTime
  2225. Public LastVisitIP
  2228. Public Property Get Url
  2229. Url = ZC_BLOG_HOST & "catalog.asp?"& "auth=" & ID
  2230. End Property
  2232. Public Property Get HtmlUrl
  2233. HtmlUrl=TransferHTML(Url,"[html-format]")
  2234. End Property
  2236. Public Property Get RssUrl
  2237. RssUrl = ZC_BLOG_HOST & "sydication.asp?user=" & ID
  2238. End Property
  2240. Private FLoginType
  2241. Public Property Let LoginType(strLoginType)
  2242. If (strLoginType="Form") Or (strLoginType="QueryString") Or (strLoginType="Self") Then
  2243. FLoginType=strLoginType
  2244. Else
  2245. FLoginType="Cookies"
  2246. End If
  2247. End Property
  2248. Public Property Get LoginType
  2249. If IsEmpty(FLoginType)=True Then
  2250. LoginType="Cookies"
  2251. Else
  2252. LoginType = FLoginType
  2253. End If
  2254. End Property
  2256. Public Property Get StaticName
  2257. If IsNull(Alias) Or IsEmpty(Alias) Or Alias="" Then
  2258. StaticName = "user_" & ID
  2259. Else
  2260. StaticName = Alias
  2261. End If
  2262. End Property
  2264. Public Function Verify()
  2265. Dim strUserName
  2266. Dim  strPassWord
  2268. If LoginType="Cookies" Then
  2269. strPassWord=Request.Cookies("password")
  2270. If (strPassWord="") Then Exit Function
  2271. strUserName=vbsunescape(Request.Cookies("username"))
  2272. If (strUserName="") Then Exit Function
  2273. ElseIf LoginType="Form" Then
  2274. strPassWord=Request.Form("password")
  2275. If (strPassWord="") Then Exit Function
  2276. strUserName=Request.Form("username")
  2277. If (strUserName="") Then Exit Function
  2278. ElseIf LoginType="QueryString" Then
  2279. strPassWord=Request.QueryString("password")
  2280. If (strPassWord="") Then Exit Function
  2281. strUserName=Request.QueryString("username")
  2282. If (strUserName="") Then Exit Function
  2283. ElseIf LoginType="Self" Then
  2284. strPassWord=Password
  2285. If (strPassWord="") Then Exit Function
  2286. strUserName=Name
  2287. If (strUserName="") Then Exit Function
  2288. Else
  2289. Exit Function
  2290. End If
  2292. strUserName=FilterSQL(strUserName)
  2293. strPassWord=FilterSQL(strPassWord)
  2295. '校检
  2296. If Len(strUserName) >ZC_USERNAME_MAX Then Call ShowError(7)
  2297. If Len(strPassWord)<>ZC_PASSWORD_MAX Then Call ShowError(7)
  2298. If Not CheckRegExp(strUserName,"[username]") Then Call ShowError(7)
  2299. If Not CheckRegExp(strPassWord,"[password]") Then Call ShowError(7)
  2301. Dim objRS
  2302. Set objRS=objConn.Execute("SELECT [mem_ID],[mem_Level],[mem_Password] FROM [blog_Member] WHERE [mem_Name]='"&strUserName & "'" )
  2304. If (Not objRS.Bof) And (Not objRS.Eof) Then
  2305. If StrComp(strPassWord,objRS("mem_Password"))=0 Then
  2307. ID=objRS("mem_ID")
  2308. LoadInfobyID(ID)
  2309. Verify=True
  2311. Else
  2312. 'If LoginType="Cookies" Then Response.Cookies("password")=""
  2313. End If
  2314. Else
  2315. 'If LoginType="Cookies" Then Response.Cookies("password")=""
  2316. End If
  2318. objRS.Close
  2319. Set objRS=Nothing
  2321. End Function
  2324. Function LoadInfobyID(user_ID)
  2326. Call CheckParameter(user_ID,"int",0)
  2328. Dim objRS
  2329. Set objRS=objConn.Execute("SELECT [mem_ID],[mem_Name],[mem_Level],[mem_Password],[mem_Email],[mem_HomePage],[mem_PostLogs],[mem_Intro] FROM [blog_Member] WHERE [mem_ID]=" & user_ID)
  2330. If (Not objRS.bof) And (Not objRS.eof) Then
  2332. ID=objRS("mem_ID")
  2333. Name=objRS("mem_Name")
  2334. Level=objRS("mem_Level")
  2335. Password=objRS("mem_Password")
  2336. Email=objRS("mem_Email")
  2337. HomePage=objRS("mem_HomePage")
  2338. Count=objRS("mem_PostLogs")
  2339. Alias=objRS("mem_Intro")
  2341. If IsNull(Email) Or IsEmpty(Email) Or Len(Email)=0 Then Email="a@b.com"
  2342. If IsNull(HomePage) Then HomePage=""
  2343. If IsNull(Alias) Then Alias=""
  2345. LoadInfobyID=True
  2346. End If
  2347. objRS.Close
  2348. Set objRS=Nothing
  2351. Call Filter_Plugin_TUser_LoadInfobyID(ID,Name,Level,Password,Email,HomePage,Count,Alias)
  2353. End Function
  2356. Public Function LoadInfoByArray(aryUserInfo)
  2358. If IsArray(aryUserInfo)=True Then
  2360. ID=aryUserInfo(0)
  2361. Name=aryUserInfo(1)
  2362. Level=aryUserInfo(2)
  2363. Password=aryUserInfo(3)
  2364. Email=aryUserInfo(4)
  2365. HomePage=aryUserInfo(5)
  2366. Count=aryUserInfo(6)
  2367. Alias=aryUserInfo(7)
  2369. End If
  2371. If IsNull(Email) Or IsEmpty(Email) Or Len(Email)=0 Then Email="a@b.com"
  2372. If IsNull(HomePage) Then HomePage=""
  2373. If IsNull(Alias) Then Alias=""
  2375. LoadInfoByArray=True
  2377. Call Filter_Plugin_TUser_LoadInfoByArray(ID,Name,Level,Password,Email,HomePage,Count,Alias)
  2379. End Function
  2382. Function Edit(currentUser)
  2384. Call Filter_Plugin_TUser_Edit(ID,Name,Level,Password,Email,HomePage,Count,Alias,currentUser)
  2386. Call CheckParameter(ID,"int",0)
  2387. Call CheckParameter(Level,"int",0)
  2389. If ((Level<1) Or (Level>5)) Then Call ShowError(16)
  2390. If (Name="") Then Call ShowError(7)
  2391. If Len(Name) >ZC_USERNAME_MAX Then Call ShowError(7)
  2392. If Not CheckRegExp(Name,"[username]") Then Call ShowError(7)
  2394. Email=FilterSQL(Email)
  2395. HomePage=FilterSQL(HomePage)
  2397. Email=TransferHTML(Email,"[html-format]")
  2398. HomePage=TransferHTML(HomePage,"[html-format]")
  2400. Alias=TransferHTML(Alias,"[filename]")
  2401. Alias=FilterSQL(Alias)
  2403. If Len(Email)=0 Then Call ShowError(29)
  2404. If Len(Email)>ZC_EMAIL_MAX Then Call ShowError(29)
  2405. If Len(HomePage)>ZC_HOMEPAGE_MAX Then Call ShowError(29)
  2407. If Not CheckRegExp(Email,"[email]") Then Call ShowError(29)
  2408. IF Len(HomePage)>0 Then
  2409. If Not CheckRegExp(HomePage,"[homepage]") Then Call ShowError(30)
  2410. End If
  2412. If ID=0 Then
  2414. If Level <= currentUser.Level Then ShowError(6)
  2415. If Len(PassWord)<>ZC_PASSWORD_MAX Then Call ShowError(7)
  2416. If Not CheckRegExp(PassWord,"[password]") Then Call ShowError(7)
  2418. objConn.Execute("INSERT INTO [blog_Member]([mem_Level],[mem_Name],[mem_PassWord],[mem_Email],[mem_HomePage],[mem_Intro]) VALUES ("&Level&",'"&Name&"','"&PassWord&"','"&Email&"','"&HomePage&"','"&Alias&"')")
  2419. Edit=True
  2421. Else
  2423. If (ID=currentUser.ID) And (Level <> currentUser.Level) Then ShowError(6)
  2424. If (ID<>currentUser.ID) And (Level <= currentUser.Level) Then ShowError(6)
  2426. Dim targetUser
  2427. Set targetUser=New TUser
  2428. If targetUser.LoadInfobyID(ID) Then
  2430. If Len(PassWord)=0 Then PassWord=targetUser.PassWord
  2431. If Len(PassWord)<>ZC_PASSWORD_MAX Then Call ShowError(6)
  2432. If Not CheckRegExp(PassWord,"[password]") Then Call ShowError(7)
  2434. Else
  2435. Exit Function
  2436. End If
  2438. objConn.Execute("UPDATE [blog_Member] SET [mem_Level]="&Level&",[mem_Name]='"&Name&"',[mem_PassWord]='"&PassWord&"',[mem_Email]='"&Email&"',[mem_HomePage]='"&HomePage&"',[mem_Intro]='"&Alias&"' WHERE [mem_ID]="&ID)
  2440. If Name <> targetUser.Name Then
  2441. objConn.Execute("UPDATE [blog_Comment] SET [comm_Author]='"&Name&"' WHERE [comm_AuthorID]="&ID)
  2442. End If
  2443. If Email <> targetUser.Email Then
  2444. objConn.Execute("UPDATE [blog_Comment] SET [comm_Email]='"&Email&"' WHERE [comm_AuthorID]="&ID)
  2445. End If
  2447. Edit=True
  2449. If (ID=currentUser.ID) Then
  2450. Response.Cookies("username")=Name
  2451. Response.Cookies("password")=PassWord
  2453. Response.Write "<script language=""JavaScript"" src=""script/common.js"" type=""text/javascript""></script>"
  2454. Response.Write "<script language=""JavaScript"" type=""text/javascript"">"
  2455. Response.Write "SetCookie(""username"","""&Name&""","""");"
  2456. Response.Write "SetCookie(""password"","""&PassWord&""","""");"
  2457. Response.Write "window.location=""" & ZC_BLOG_HOST & "cmd.asp?act=UserMng"";"
  2458. Response.Write "</script>"
  2460. Response.End
  2462. End If
  2464. End If
  2466. End Function
  2469. Function Register(currentUser)
  2471. Call Filter_Plugin_TUser_Register(ID,Name,Level,Password,Email,HomePage,Count,Alias,currentUser)
  2473. Call CheckParameter(ID,"int",0)
  2474. Call CheckParameter(Level,"int",0)
  2476. If (Level<>4) Then Call ShowError(16)
  2477. If (Name="") Then Call ShowError(7)
  2478. If Len(Name) >ZC_USERNAME_MAX Then Call ShowError(7)
  2479. If Not CheckRegExp(Name,"[username]") Then Call ShowError(7)
  2481. Email=FilterSQL(Email)
  2482. HomePage=FilterSQL(HomePage)
  2484. Email=TransferHTML(Email,"[html-format]")
  2485. HomePage=TransferHTML(HomePage,"[html-format]")
  2487. Alias=TransferHTML(Alias,"[filename]")
  2488. Alias=FilterSQL(Alias)
  2490. If Len(Email)=0 Then Call ShowError(29)
  2491. If Len(Email)>ZC_EMAIL_MAX Then Call ShowError(29)
  2492. If Len(HomePage)>ZC_HOMEPAGE_MAX Then Call ShowError(29)
  2494. If Not CheckRegExp(Email,"[email]") Then Call ShowError(30)
  2495. IF Len(HomePage)>0 Then
  2496. If Not CheckRegExp(HomePage,"[homepage]") Then Call ShowError(30)
  2497. End If
  2499. If ID=0 Then
  2501. If Level <= 1 Then ShowError(6)
  2502. If Len(PassWord)<>ZC_PASSWORD_MAX Then Call ShowError(7)
  2503. If Not CheckRegExp(PassWord,"[password]") Then Call ShowError(7)
  2505. objConn.Execute("INSERT INTO [blog_Member]([mem_Level],[mem_Name],[mem_PassWord],[mem_Email],[mem_HomePage],[mem_Intro]) VALUES ("&Level&",'"&Name&"','"&PassWord&"','"&Email&"','"&HomePage&"','"&Alias&"')")
  2507. Register=True
  2509. End If
  2511. End Function
  2514. Function Del(currentUser)
  2516. Call Filter_Plugin_TUser_Del(ID,Name,Level,Password,Email,HomePage,Count,Alias,currentUser)
  2518. Dim objRS
  2519. Dim objUpLoadFile
  2521. Call CheckParameter(ID,"int",0)
  2522. Call CheckParameter(Level,"int",0)
  2524. Dim targetUser
  2525. Set targetUser=New TUser
  2526. If targetUser.LoadInfobyID(ID) Then
  2527. If targetUser.Level<= currentUser.Level Then ShowError(6)
  2528. If currentUser.ID = targetUser.ID Then ShowError(17)
  2529. Else
  2530. Exit Function
  2531. End If
  2533. objConn.Execute("DELETE FROM [blog_Article] WHERE [log_AuthorID] =" & ID)
  2534. objConn.Execute("DELETE FROM [blog_Comment] WHERE [comm_AuthorID] =" & ID)
  2535. objConn.Execute("DELETE FROM [blog_Member] WHERE [mem_ID] =" & ID)
  2537. Set objRS=objConn.Execute("SELECT * FROM [blog_UpLoad] WHERE [ul_AuthorID] =" & ID)
  2538. If (Not objRS.bof) And (Not objRS.eof) Then
  2539. Do While Not objRS.eof
  2540. Set objUpLoadFile=New TUpLoadFile
  2541. If objUpLoadFile.LoadInfoByID(objRS("ul_ID")) Then objUpLoadFile.Del
  2542. Set objUpLoadFile=Nothing
  2543. objRS.MoveNext
  2544. Loop
  2545. End If
  2546. objRS.Close
  2547. Set objRS=Nothing
  2549. objConn.Execute("DELETE FROM [blog_UpLoad] WHERE [ul_AuthorID] =" & ID)
  2551. Del=True
  2553. End Function
  2556. Private Sub Class_Initialize()
  2558. Level=5
  2559. ID=0
  2560. Name=ZC_MSG018
  2562. Sex=0
  2563. Email=""
  2564. MSN=""
  2565. QQ=""
  2566. HomePage=""
  2567. Intro=""
  2569. End Sub
  2572. End Class
  2573. '*********************************************************
  2578. '*********************************************************
  2579. ' 目的：    定义TComment类
  2580. ' 输入：    无
  2581. ' 返回：    无
  2582. '*********************************************************
  2583. Class TComment
  2585. Public ID
  2586. Public log_ID
  2588. Public AuthorID
  2589. Public Author
  2590. Public Content
  2591. Public Email
  2592. Public HomePage
  2594. Public PostTime
  2595. Public IP
  2596. Public Agent
  2598. Public Count
  2600. Public Property Get HomePageForAntiSpam
  2601. HomePageForAntiSpam=URLEncodeForAntiSpam(HomePage)
  2602. End Property
  2604. Public Property Get SafeEmail
  2605. If (Email="") Or IsEmpty(Email) Or IsNull(Email) Then Email="null@null.com"
  2606. SafeEmail=Replace(Email,"@","[AT]")
  2607. End Property
  2609. Public Property Get EmailMD5
  2611. If AuthorID>0 Then
  2612. EmailMD5=MD5(Users(AuthorID).Email)
  2613. Else
  2614. If (Email="") Or IsEmpty(Email) Or IsNull(Email) Then
  2615. EmailMD5=""
  2616. Else
  2617. EmailMD5=MD5(Email)
  2618. End If
  2619. End If
  2622. End Property
  2624. Public Property Get FirstContact
  2625. If Len(HomePage)>0 Then
  2626. FirstContact=HomePageForAntiSpam
  2627. Else
  2628. If (Email="") Or IsEmpty(Email) Or IsNull(Email) Then
  2629. FirstContact=""
  2630. Else
  2631. FirstContact="mailto:" & SafeEmail
  2632. End If
  2633. End If
  2634. End Property
  2636. Public Property Get HtmlContent
  2637. 'HtmlContent=TransferHTML(UBBCode(Content,"[font][face]"),"[enter][nofollow]")
  2638. HtmlContent=TransferHTML(UBBCode(Content,"[link][link-antispam][font][face]"),"[enter][nofollow]")
  2639. End Property
  2642. Public Function Post()
  2644. Call Filter_Plugin_TComment_Post(ID,log_ID,AuthorID,Author,Content,Email,HomePage,PostTime,IP,Agent)
  2646. IP=Request.ServerVariables("REMOTE_ADDR")
  2647. Agent=Request.ServerVariables("HTTP_USER_AGENT")
  2649. If Len(HomePage)>0 Then
  2650. If InStr(HomePage,"http://")=0 Then HomePage="http://" & HomePage
  2651. End If
  2653. '检查参数
  2654. Call CheckParameter(log_ID,"int",0)
  2655. Call CheckParameter(AuthorID,"int",0)
  2656. Call CheckParameter(PostTime,"dtm",GetTime(Now()))
  2658. Author=FilterSQL(Author)
  2659. Content=FilterSQL(Content)
  2660. Email=FilterSQL(Email)
  2661. HomePage=FilterSQL(HomePage)
  2663. PostTime=FilterSQL(PostTime)
  2664. IP=FilterSQL(IP)
  2665. Agent=FilterSQL(Agent)
  2667. '作者不能为空
  2668. If Len(Author)=0 Then Call  ShowError(15)
  2669. 'If Len(Content)=0 Then Call  ShowError(46)
  2670. 'If Len(Content)>ZC_CONTENT_MAX Then Call  ShowError(46)
  2672. Author=TransferHTML(Author,"[html-format]")
  2673. Email=TransferHTML(Email,"[html-format]")
  2674. HomePage=TransferHTML(HomePage,"[html-format]")
  2675. Content=TransferHTML(Content,"[html-format]")
  2677. If Len(Author)>ZC_USERNAME_MAX Then Call  ShowError(15)
  2678. If Len(Email)>ZC_EMAIL_MAX Then Call  ShowError(29)
  2679. If Len(HomePage)>ZC_HOMEPAGE_MAX Then Call  ShowError(30)
  2681. If Not CheckRegExp(Author,"[username]") Then Call  ShowError(15)
  2683. IF Len(Email)>0 Then
  2684. If Not CheckRegExp(Email,"[email]") Then Call  ShowError(29)
  2685. End If
  2687. IF Len(HomePage)>0 Then
  2688. If Not CheckRegExp(HomePage,"[homepage]") Then Call  ShowError(30)
  2689. End If
  2691. Dim objRS
  2692. Dim strSpamIP
  2693. Dim strSpamContent
  2695. Set objRS=objConn.Execute("SELECT [comm_IP],[comm_Content] FROM [blog_Comment] WHERE [comm_ID]= ( SELECT MAX(comm_ID) FROM [blog_Comment] )")
  2697. If (Not objRS.bof) And (Not objRS.eof) Then
  2698. strSpamIP=objRS("comm_IP")
  2699. strSpamContent=objRS("comm_Content")
  2700. End If
  2702. objRS.Close
  2703. Set objRS=Nothing
  2705. If (ID=0) And (strSpamIP=IP) And (strSpamContent=Content) Then
  2706. Call ShowError(39)
  2707. End If
  2709. If ID=0 Then
  2710. objConn.Execute("INSERT INTO [blog_Comment]([log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_IP],[comm_PostTime],[comm_Agent]) VALUES ("&log_ID&","&AuthorID&",'"&Author&"','"&Content&"','"&Email&"','"&HomePage&"','"&IP&"','"&PostTime&"','"&Agent&"')")
  2711. Set objRS=objConn.Execute("SELECT MAX([comm_ID]) FROM [blog_Comment]")
  2712. If (Not objRS.bof) And (Not objRS.eof) Then
  2713. ID=objRS(0)
  2714. End If
  2715. Set objRS=Nothing
  2716. Else
  2717. objConn.Execute("UPDATE [blog_Comment] SET [log_ID]="&log_ID&", [comm_AuthorID]="&AuthorID&",[comm_Author]='"&Author&"',[comm_Content]='"&Content&"',[comm_Email]='"&Email&"',[comm_HomePage]='"&HomePage&"',[comm_IP]='"&IP&"',[comm_PostTime]='"&PostTime&"',[comm_Agent]='"&Agent&"' WHERE [comm_ID] =" & ID)
  2718. End If
  2720. Post=True
  2722. End Function
  2725. Public Function Del()
  2727. Call Filter_Plugin_TComment_Del(ID,log_ID,AuthorID,Author,Content,Email,HomePage,PostTime,IP,Agent)
  2729. Call CheckParameter(ID,"int",0)
  2730. If (ID=0) Then Del=False:Exit Function
  2731. objConn.Execute("DELETE FROM [blog_Comment] WHERE [comm_ID] =" & ID)
  2732. Del=True
  2733. End Function
  2736. Public Function LoadInfoByID(comm_ID)
  2738. Call CheckParameter(comm_ID,"int",0)
  2740. Dim objRS
  2741. Set objRS=objConn.Execute("SELECT [comm_ID],[log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_PostTime],[comm_IP],[comm_Agent] FROM [blog_Comment] WHERE [comm_ID]=" & comm_ID)
  2743. If (Not objRS.bof) And (Not objRS.eof) Then
  2745. ID=objRS("comm_ID")
  2746. log_ID=objRS("log_ID")
  2747. AuthorID=objRS("comm_AuthorID")
  2748. Author=objRS("comm_Author")
  2749. Content=objRS("comm_Content")
  2750. Email=objRS("comm_Email")
  2751. HomePage=objRS("comm_HomePage")
  2752. PostTime=objRS("comm_PostTime")
  2753. IP=objRS("comm_IP")
  2754. Agent=objRS("comm_Agent")
  2756. LoadInfoByID=True
  2758. End If
  2760. objRS.Close
  2761. Set objRS=Nothing
  2763. If IsNull(HomePage) Then HomePage=""
  2765. Call Filter_Plugin_TComment_LoadInfoByID(ID,log_ID,AuthorID,Author,Content,Email,HomePage,PostTime,IP,Agent)
  2767. End Function
  2770. Public Function LoadInfoByArray(aryCommInfo)
  2772. If IsArray(aryCommInfo)=True Then
  2773. ID=aryCommInfo(0)
  2774. log_ID=aryCommInfo(1)
  2775. AuthorID=aryCommInfo(2)
  2776. Author=aryCommInfo(3)
  2777. Content=aryCommInfo(4)
  2778. Email=aryCommInfo(5)
  2779. HomePage=aryCommInfo(6)
  2780. PostTime=aryCommInfo(7)
  2781. IP=aryCommInfo(8)
  2782. Agent=aryCommInfo(9)
  2783. End If
  2785. If IsNull(HomePage) Then HomePage=""
  2787. LoadInfoByArray=True
  2789. Call Filter_Plugin_TComment_LoadInfoByArray(ID,log_ID,AuthorID,Author,Content,Email,HomePage,PostTime,IP,Agent)
  2791. End Function
  2794. Public Function MakeTemplate(strC)
  2796. Dim html,i,j
  2797. html=strC
  2799. 'plugin node
  2800. Call Filter_Plugin_TComment_MakeTemplate_Template(html)
  2802. Dim aryTemplateTagsName()
  2803. Dim aryTemplateTagsValue()
  2805. ReDim aryTemplateTagsName(11)
  2806. ReDim aryTemplateTagsValue(11)
  2808. aryTemplateTagsName(  1)="article/comment/id"
  2809. aryTemplateTagsValue( 1)=ID
  2810. aryTemplateTagsName(  2)="article/comment/name"
  2811. aryTemplateTagsValue( 2)=Author
  2812. aryTemplateTagsName(  3)="article/comment/url"
  2813. aryTemplateTagsValue( 3)=HomePage
  2814. aryTemplateTagsName(  4)="article/comment/urlencoder"
  2815. aryTemplateTagsValue( 4)=HomePageForAntiSpam
  2816. aryTemplateTagsName(  5)="article/comment/email"
  2817. aryTemplateTagsValue( 5)=SafeEmail
  2818. aryTemplateTagsName(  6)="article/comment/posttime"
  2819. aryTemplateTagsValue( 6)=PostTime
  2820. aryTemplateTagsName(  7)="article/comment/content"
  2821. aryTemplateTagsValue( 7)=HtmlContent
  2822. aryTemplateTagsName(  8)="article/comment/count"
  2823. aryTemplateTagsValue( 8)=Count
  2824. aryTemplateTagsName(  9)="article/comment/authorid"
  2825. aryTemplateTagsValue( 9)=AuthorID
  2826. aryTemplateTagsName( 10)="article/comment/firstcontact"
  2827. aryTemplateTagsValue(10)=FirstContact
  2828. aryTemplateTagsName( 11)="article/comment/emailmd5"
  2829. aryTemplateTagsValue(11)=EmailMD5
  2831. 'plugin node
  2832. Call Filter_Plugin_TComment_MakeTemplate_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  2834. j=UBound(aryTemplateTagsName)
  2835. For i=1 to j
  2836. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  2837. Next
  2839. MakeTemplate=html
  2841. End Function
  2843. End Class
  2844. '*********************************************************
  2849. '*********************************************************
  2850. ' 目的：    定义TTrackBack类
  2851. ' 输入：    无
  2852. ' 返回：    无
  2853. '*********************************************************
  2854. Class TTrackBack
  2856. Public ID
  2857. Public log_ID
  2859. Public URL
  2860. Public Title
  2861. Public Blog
  2862. Public Excerpt
  2864. Public PostTime
  2865. Public IP
  2866. Public Agent
  2868. Public Count
  2870. Public Property Get UrlForAntiSpam
  2871. UrlForAntiSpam=URLEncodeForAntiSpam(Url)
  2872. End Property
  2874. Public Property Get HtmlExcerpt
  2875. HtmlExcerpt=TransferHTML(Excerpt,"[enter]")
  2876. End Property
  2879. Public TbXML
  2881. Private Function ReturnTbXML(strMsg)
  2883. Dim strXML
  2885. strXML="<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?><response><error>%e</error><message>%m</message></response>"
  2887. If strMsg="undiscovered" Then'未发现相应ID
  2888. strXML=Replace(strXML,"%e","1")
  2889. strXML=Replace(strXML,"%m",strMsg)
  2890. ElseIf strMsg="repetition" Then'重复PING
  2891. strXML=Replace(strXML,"%e","1")
  2892. strXML=Replace(strXML,"%m",strMsg)
  2893. Elseif strMsg="invalid parameter" Then'非法参数
  2894. strXML=Replace(strXML,"%e","1")
  2895. strXML=Replace(strXML,"%m",strMsg)
  2896. Elseif strMsg="none data" Then'无数据
  2897. strXML=Replace(strXML,"%e","1")
  2898. strXML=Replace(strXML,"%m",strMsg)
  2899. Else'PING 成功
  2900. strXML=Replace(strXML,"%e","0")
  2901. strXML=Replace(strXML,"%m",strMsg)
  2902. End If
  2904. TbXML=strXML
  2906. 'Response.ContentType = "text/html"
  2908. End Function
  2911. Public Function Post()
  2913. Call Filter_Plugin_TTrackBack_Post(ID,log_ID,URL,Title,Blog,Excerpt,PostTime,IP,Agent)
  2915. Dim objRS
  2917. 'Call ReturnTbXML("undiscovered"):Exit Function
  2918. Call CheckParameter(log_ID,"int",0)
  2920. If IsDate(PostTime)=False Then PostTime=GetTime(Now())
  2921. IP=Request.ServerVariables("REMOTE_ADDR")
  2922. Agent=Request.ServerVariables("HTTP_USER_AGENT")
  2924. IP=FilterSQL(IP)
  2925. Agent=FilterSQL(Agent)
  2927. URL=FilterSQL(URL)
  2928. Title=FilterSQL(Title)
  2929. Blog=FilterSQL(Blog)
  2930. Excerpt=FilterSQL(Excerpt)
  2932. Blog=TransferHTML(Blog,"[html-format]")
  2933. Title=TransferHTML(Title,"[html-format]")
  2934. Excerpt=TransferHTML(Excerpt,"[html-format][nohtml]")
  2935. URL=TransferHTML(URL,"[html-format]")
  2937. 'log_ID不能为0
  2938. If (log_ID=0) Then Call ReturnTbXML("invalid parameter"):Post=False:Exit Function
  2939. If Len(URL)=0 Then Call ReturnTbXML("none data"):Post=False:Exit Function
  2940. If Len(URL)>ZC_HOMEPAGE_MAX Then Call ReturnTbXML("url is long"):Post=False:Exit Function
  2942. If Len(Blog)>ZC_EMAIL_MAX Then Call ReturnTbXML("name is long"):Post=False:Exit Function
  2943. If Len(Blog)=0 Then Blog="Unknow"
  2944. If Len(Excerpt)=0 Then Excerpt=""
  2945. If Len(Excerpt)>ZC_TB_EXCERPT_MAX Then Excerpt=Left(Excerpt,ZC_TB_EXCERPT_MAX)&"..."
  2946. If Len(Title)>ZC_HOMEPAGE_MAX Then Call ReturnTbXML("title is long"):Post=False:Exit Function
  2947. If Len(Title)=0 Then Title=URL
  2950. '检查ID是否存在
  2951. 'Set objRS=objConn.Execute("SELECT * FROM [blog_Article] WHERE [log_ID]=" & log_ID)
  2952. 'If (Not objRS.bof) And (Not objRS.eof) Then
  2953. 'Else
  2954. ' objRS.close
  2955. ' Call returnTbXML("undiscovered")
  2956. ' Exit Function
  2957. 'End If
  2958. 'objRS.Close
  2959. 'Set objRS=Nothing
  2961. '检查是否已TB过
  2962. Set objRS=objConn.Execute("SELECT * FROM [blog_TrackBack] WHERE [log_ID]=" & log_ID & " and [tb_url]='" & URL & "'")
  2963. If (Not objRS.bof) And (Not objRS.eof) Then
  2964. objRS.close
  2965. Call returnTbXML("repetition")
  2966. Exit Function
  2967. End If
  2968. objRS.Close
  2969. Set objRS=Nothing
  2971. '接收TB
  2973. If ID=0 Then
  2974. objConn.Execute("INSERT INTO [blog_TrackBack]([log_ID],[tb_URL],[tb_Title],[tb_Blog],[tb_Excerpt],[tb_PostTime],[tb_IP],[tb_Agent]) VALUES ("&log_ID&",'"&URL&"','"&Title&"','"&Blog&"','"&Excerpt&"','"&PostTime&"','"&IP&"','"&Agent&"')")
  2975. Else
  2976. objConn.Execute("UPDATE [blog_TrackBack] SET [log_ID]="&log_ID&", [tb_URL]='"&URL&"',[tb_Excerpt]='"&Excerpt&"',[tb_Title]='"&Title&"',[tb_Blog]='"&Blog&"',[tb_IP]='"&IP&"',[tb_PostTime]='"&PostTime&"',[tb_Agent]='"&Agent&"' WHERE [tb_ID] =" & ID)
  2977. End If
  2978. Call returnTbXML("succeed")
  2980. Post=True
  2982. End Function
  2984. Public Function Del()
  2986. Call Filter_Plugin_TTrackBack_Del(ID,log_ID,URL,Title,Blog,Excerpt,PostTime,IP,Agent)
  2988. Call CheckParameter(ID,"int",0)
  2989. If (ID=0) Then Del=False:Exit Function
  2990. objConn.Execute("DELETE FROM [blog_TrackBack] WHERE [tb_ID] =" & ID)
  2991. Del=True
  2992. End Function
  2995. Function Send(strAddress)
  2997. Dim strSendTB
  2998. strSendTB = "title=" & Server.URLEncode(Title) & "&url=" & Server.URLEncode(URL) & "&excerpt=" & Server.URLEncode(Excerpt) & "&blog_name=" & Server.URLEncode(Blog)
  3000. Dim objPing
  3001. Set objPing = Server.CreateObject("MSXML2.ServerXMLHTTP")
  3002. objPing.SetTimeOuts 10000, 10000, 10000, 10000 
  3004. objPing.open "POST",strAddress,False
  3006. objPing.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  3007. objPing.send strSendTB
  3008. 'Response.ContentType = "text/xml"
  3009. 'Response.Clear
  3010. 'Response.Write objPing.responseXML.xml
  3011. Set objPing = Nothing
  3012. Send=True
  3014. End Function
  3017. Public Function LoadInfoByID(tb_ID)
  3019. Call CheckParameter(tb_ID,"int",0)
  3021. Dim objRS
  3022. Set objRS=objConn.Execute("SELECT [tb_ID],[log_ID],[tb_URL],[tb_Title],[tb_Blog],[tb_Excerpt],[tb_PostTime],[tb_IP],[tb_Agent] FROM [blog_TrackBack] WHERE [tb_ID]=" & tb_ID)
  3024. If (Not objRS.bof) And (Not objRS.eof) Then
  3026. ID=objRS("tb_ID")
  3027. log_ID=objRS("log_ID")
  3028. URL=objRS("tb_URL")
  3029. Title=objRS("tb_Title")
  3030. Blog=objRS("tb_Blog")
  3031. Excerpt=objRS("tb_Excerpt")
  3032. PostTime=objRS("tb_PostTime")
  3033. IP=objRS("tb_IP")
  3034. Agent=objRS("tb_Agent")
  3036. LoadInfoByID=True
  3038. End If
  3040. objRS.Close
  3041. Set objRS=Nothing
  3043. If IsNull(Excerpt) Then Excerpt=""
  3045. Call Filter_Plugin_TTrackBack_LoadInfoByID(ID,log_ID,URL,Title,Blog,Excerpt,PostTime,IP,Agent)
  3047. End Function
  3050. Public Function LoadInfoByArray(aryTbInfo)
  3052. If IsArray(aryTbInfo)=True Then
  3054. ID=aryTbInfo(0)
  3055. log_ID=aryTbInfo(1)
  3056. URL=aryTbInfo(2)
  3057. Title=aryTbInfo(3)
  3058. Blog=aryTbInfo(4)
  3059. Excerpt=aryTbInfo(5)
  3060. PostTime=aryTbInfo(6)
  3061. IP=aryTbInfo(7)
  3062. Agent=aryTbInfo(8)
  3064. End If
  3066. If IsNull(Excerpt) Then Excerpt=""
  3068. LoadInfoByArray=True
  3070. Call Filter_Plugin_TTrackBack_LoadInfoByArray(ID,log_ID,URL,Title,Blog,Excerpt,PostTime,IP,Agent)
  3072. End Function
  3075. Public Function MakeTemplate(strT)
  3077. Dim html,i,j
  3078. html=strT
  3080. 'plugin node
  3081. Call Filter_Plugin_TTrackBack_MakeTemplate_Template(html)
  3083. Dim aryTemplateTagsName()
  3084. Dim aryTemplateTagsValue()
  3086. ReDim aryTemplateTagsName(7)
  3087. ReDim aryTemplateTagsValue(7)
  3089. aryTemplateTagsName(  1)="article/trackback/id"
  3090. aryTemplateTagsValue( 1)=ID
  3091. aryTemplateTagsName(  2)="article/trackback/name"
  3092. aryTemplateTagsValue( 2)=Blog
  3093. aryTemplateTagsName(  3)="article/trackback/url"
  3094. aryTemplateTagsValue( 3)=UrlForAntiSpam
  3095. aryTemplateTagsName(  4)="article/trackback/title"
  3096. aryTemplateTagsValue( 4)=Title
  3097. aryTemplateTagsName(  5)="article/trackback/posttime"
  3098. aryTemplateTagsValue( 5)=PostTime
  3099. aryTemplateTagsName(  6)="article/trackback/content"
  3100. aryTemplateTagsValue( 6)=HtmlExcerpt
  3101. aryTemplateTagsName(  7)="article/trackback/count"
  3102. aryTemplateTagsValue( 7)=Count
  3104. 'plugin node
  3105. Call Filter_Plugin_TTrackBack_MakeTemplate_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  3107. j=UBound(aryTemplateTagsName)
  3108. For i=1 to j
  3109. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  3110. Next
  3112. MakeTemplate=html
  3114. End Function
  3117. End Class
  3118. '*********************************************************
  3123. '*********************************************************
  3124. ' 目的：    定义TUpLoadFile类
  3125. ' 输入：    无
  3126. ' 返回：    无
  3127. '*********************************************************
  3128. Class TUpLoadFile
  3130. Public ID
  3131. Public AuthorID
  3133. Public FileSize
  3134. Public FileName
  3135. Public PostTime
  3136. Public Stream
  3137. Public DirByTime
  3139. Private FUploadType
  3140. Public Property Let UploadType(strUploadType)
  3141. If (strUploadType="Stream") Then
  3142. FUploadType=strUploadType
  3143. Else
  3144. FUploadType="Form"
  3145. End If
  3146. End Property
  3147. Public Property Get UploadType
  3148. If IsEmpty(FUploadType)=True Then
  3149. UploadType="Form"
  3150. Else
  3151. UploadType = FUploadType
  3152. End If
  3153. End Property
  3155. Public Function LoadInfoByID(ul_ID)
  3157. Call CheckParameter(ul_ID,"int",0)
  3159. Dim objRS
  3160. Set objRS=objConn.Execute("SELECT [ul_ID],[ul_AuthorID],[ul_FileSize],[ul_FileName],[ul_PostTime],[ul_Quote] FROM [blog_UpLoad] WHERE [ul_ID]=" & ul_ID)
  3162. If (Not objRS.bof) And (Not objRS.eof) Then
  3164. ID=objRS("ul_ID")
  3165. AuthorID=objRS("ul_AuthorID")
  3166. FileSize=objRS("ul_FileSize")
  3167. FileName=objRS("ul_FileName")
  3168. PostTime=objRS("ul_PostTime")
  3169. DirByTime=objRS("ul_Quote")
  3171. If IsNull(DirByTime) Or DirByTime="" Then DirByTime=False
  3173. LoadInfobyID=True
  3175. End If
  3177. objRS.Close
  3178. Set objRS=Nothing
  3180. Call Filter_Plugin_TUpLoadFile_LoadInfoByID(ID,AuthorID,FileSize,FileName,PostTime,DirByTime)
  3182. End Function
  3185. Public Function LoadInfoByArray(aryULInfo)
  3187. If IsArray(aryULInfo)=True Then
  3189. ID=aryULInfo(0)
  3190. AuthorID=aryULInfo(1)
  3191. FileSize=aryULInfo(2)
  3192. FileName=aryULInfo(3)
  3193. PostTime=aryULInfo(4)
  3194. DirByTime=aryULInfo(5)
  3196. If IsNull(DirByTime) Or DirByTime="" Then DirByTime=False
  3198. End If
  3200. LoadInfoByArray=True
  3202. Call Filter_Plugin_TUpLoadFile_LoadInfoByArray(ID,AuthorID,FileSize,FileName,PostTime,DirByTime)
  3204. End Function
  3207. Private Function UpLoad_Form()
  3209. Dim i,j
  3210. Dim x,y,z
  3211. Dim intFormSize
  3212. Dim binFormData
  3213. Dim strFileName
  3215. Dim s,t
  3217. intFormSize = Request.TotalBytes
  3218. binFormData = Request.BinaryRead(intFormSize)
  3220. i=0
  3221. i=InstrB(binFormData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))
  3222. If i>0 Then i=i+3
  3223. t=InstrB(binFormData,ChrB(13)&ChrB(10))
  3224. s=Midb(binFormData,1,t)
  3225. t=InstrB(binFormData,ChrB(13)&ChrB(10)&s)
  3226. j=t
  3228. If Len(Request.QueryString("filename"))>0 Then
  3229. strFileName=Request.QueryString("filename")
  3230. Else
  3231. x=InstrB(binFormData,ChrB(&H66)&ChrB(&H69)&ChrB(&H6C)&ChrB(&H65)&ChrB(&H6E)&ChrB(&H61)&ChrB(&H6D)&ChrB(&H65)&ChrB(&H3D)&ChrB(&H22))
  3232. y=InstrB(x+11,binFormData,ChrB(&H22))
  3233. For z=1 to y-x-10
  3234. strFileName=strFileName & Chr(AscB(MidB(binFormData,x+z+9,1)))
  3235. Next
  3236. End If
  3238. Dim objStreamUp
  3239. Set objStreamUp = Server.CreateObject("ADODB.Stream")
  3241. With objStreamUp
  3242. .Type = adTypeBinary
  3243. .Mode = adModeReadWrite
  3244. .Open
  3245. .Position = 0
  3246. .Write binFormData
  3247. .Position = i
  3248. Stream=.Read(j-i-1)
  3249. .Close
  3250. End With
  3252. FileName=strFileName
  3253. FileSize=LenB(Stream)
  3255. End Function
  3258. Private Function UpLoad_Stream()
  3260. FileSize=LenB(Stream)
  3262. End Function
  3265. Public Function UpLoad(bolAutoName)
  3267. Call Filter_Plugin_TUpLoadFile_UpLoad(ID,AuthorID,FileSize,FileName,PostTime,DirByTime)
  3269. DirByTime=ZC_UPLOAD_DIRBYMONTH
  3271. If UploadType="Form" Then
  3272. Call UpLoad_Form()
  3273. ElseIf UploadType="Stream" Then
  3274. Call UpLoad_Stream()
  3275. End If
  3277. If InStrRev(FileName,"")>0 Then
  3278. FileName=Mid(FileName,InStrRev(FileName,"")+1)
  3279. End If
  3281. If InStrRev(FileName,"/")>0 Then
  3282. FileName=Mid(FileName,InStrRev(FileName,"/")+1)
  3283. End If
  3285. FileName=TransferHTML(FileName,"[filename]")
  3287. '超出类型限制
  3288. If Not CheckRegExp(LCase(FileName),".("& ZC_UPLOAD_FILETYPE &")$") Then Call ShowError(26)
  3290. '超出大小限制
  3291. If FileSize>ZC_UPLOAD_FILESIZE Then Call ShowError(27)
  3293. FileName=FilterSQL(FileName)
  3294. If bolAutoName=True Then
  3295. Randomize
  3296. FileName=Year(GetTime(Now())) & Right("0"&Month(GetTime(Now())),2) & Right("0"&Day(GetTime(Now())),2) & Right("0"&Hour(GetTime(Now())),2) & Right("0"&Minute(GetTime(Now())),2) & Right("0"&Second(GetTime(Now())),2) & Int(9 * Rnd) & Int(9 * Rnd) & Int(9 * Rnd) & Int(9 * Rnd) & Right(FileName,Len(FileName)-InStrRev(FileName,".")+1)
  3297. End If
  3299. Dim objRS
  3300. Set objRS=objConn.Execute("SELECT * FROM [blog_UpLoad] WHERE [ul_FileName] = '" & FileName & "'")
  3302. If (Not objRS.bof) And (Not objRS.eof) Then
  3303. '不能重名
  3304.  Call ShowError(28)
  3305. Else
  3307. PostTime=GetTime(Now())
  3309. objConn.Execute("INSERT INTO [blog_UpLoad]([ul_AuthorID],[ul_FileSize],[ul_FileName],[ul_PostTime],[ul_Quote]) VALUES ("& AuthorID &","& FileSize &",'"& FileName &"','"& PostTime &"',"&DirByTime&")")
  3311. Dim strUPLOADDIR
  3312. If ZC_UPLOAD_DIRBYMONTH Then
  3313. CreatDirectoryByCustomDirectory(ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now())))
  3314. strUPLOADDIR = ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now()))
  3315. Else
  3316. strUPLOADDIR = ZC_UPLOAD_DIRECTORY
  3317. End If
  3319. Dim objStreamFile
  3320. Set objStreamFile = Server.CreateObject("ADODB.Stream")
  3322. objStreamFile.Type = adTypeBinary
  3323. objStreamFile.Mode = adModeReadWrite
  3324. objStreamFile.Open
  3325. objStreamFile.Write Stream
  3326. objStreamFile.SaveToFile BlogPath & "/"& strUPLOADDIR &"/" & FileName,adSaveCreateOverWrite
  3327. objStreamFile.Close
  3329. End If
  3331. UpLoad=True
  3333. End Function
  3336. Public Function Del()
  3338. Call Filter_Plugin_TUpLoadFile_Del(ID,AuthorID,FileSize,FileName,PostTime,DirByTime)
  3340. Call CheckParameter(ID,"int",0)
  3342. Dim objRS,strFilePath
  3344. Set objRS=objConn.Execute("SELECT * FROM [blog_UpLoad] WHERE [ul_ID] = " & ID)
  3346. If (Not objRS.bof) And (Not objRS.eof) Then
  3349. Dim fso
  3350. Set fso = CreateObject("Scripting.FileSystemObject")
  3352. strFilePath = BlogPath & "/"& ZC_UPLOAD_DIRECTORY &"/" & objRS("ul_FileName")
  3354. If fso.FileExists( strFilePath ) Then
  3355. fso.DeleteFile( strFilePath )
  3356. End If
  3358. strFilePath = BlogPath & "/"& ZC_UPLOAD_DIRECTORY & "/" & Year(objRS("ul_PostTime")) & "/" & Month(objRS("ul_PostTime")) &"/" & objRS("ul_FileName")
  3359. If fso.FileExists( strFilePath ) Then
  3360. fso.DeleteFile( strFilePath )
  3361. End If
  3363. objConn.Execute("DELETE FROM [blog_UpLoad] WHERE [ul_ID] =" & ID)
  3365. Else
  3367. Exit Function
  3369. End If
  3371. objRS.Close
  3372. Set objRS=Nothing
  3374. Del=True
  3376. End Function
  3378. Public Property Get FullUrlPathName
  3380. Dim strUPLOADDIR
  3381. If ZC_UPLOAD_DIRBYMONTH Then
  3382. strUPLOADDIR = ZC_UPLOAD_DIRECTORY&"/"&Year(GetTime(Now()))&"/"&Month(GetTime(Now()))
  3383. Else
  3384. strUPLOADDIR = ZC_UPLOAD_DIRECTORY
  3385. End If
  3387. FullUrlPathName=ZC_BLOG_HOST & strUPLOADDIR & "/" & FileName
  3388. End Property
  3391. End Class
  3392. '*********************************************************
  3397. '*********************************************************
  3398. ' 目的：    定义TTag类
  3399. ' 输入：    无
  3400. ' 返回：    无
  3401. '*********************************************************
  3402. Class TTag
  3404. Public ID
  3405. Public Name
  3406. Public Intro
  3407. Public Order
  3408. Public Count
  3411. Public Property Get EncodeName
  3412. EncodeName = Server.URLEncode(Name)
  3413. End Property
  3415. Public Property Get Url
  3416. Url = ZC_BLOG_HOST & "catalog.asp?"& "tags=" & Server.URLEncode(Name)
  3417. End Property
  3419. Public Property Get HtmlUrl
  3420. HtmlUrl=TransferHTML(Url,"[html-format]")
  3421. End Property
  3423. Public Property Get HtmlIntro
  3424. HtmlIntro=TransferHTML(Intro,"[html-format]")
  3425. End Property
  3427. Public Property Get HtmlName
  3428. HtmlName=TransferHTML(Name,"[html-format]")
  3429. End Property
  3431. Public Property Get RssUrl
  3432. RssUrl = ZC_BLOG_HOST & "sydication.asp?tags=" & ID
  3433. End Property
  3435. Public Function Post()
  3437. Call Filter_Plugin_TTag_Post(ID,Name,Intro,Order,Count)
  3439. Call CheckParameter(ID,"int",0)
  3440. Call CheckParameter(Order,"int",0)
  3442. Name=FilterSQL(Name)
  3443. Name=TransferHTML(Name,"[normalname]")
  3444. If Len(Name)=0 Then Post=False:Exit Function
  3446. Intro=FilterSQL(Intro)
  3447. 'Intro=TransferHTML(Intro,"[html-format]")
  3450. If ID=0 Then
  3451. objConn.Execute("INSERT INTO [blog_Tag]([tag_Name],[tag_Order],[tag_Intro]) VALUES ('"&Name&"',"&Order&",'"&Intro&"')")
  3452. Else
  3453. objConn.Execute("UPDATE [blog_Tag] SET [tag_Name]='"&Name&"',[tag_Order]="&Order&",[tag_Intro]='"&Intro&"' WHERE [tag_ID] =" & ID)
  3454. End If
  3456. Post=True
  3458. End Function
  3461. Public Function LoadInfoByID(tag_ID)
  3463. Call CheckParameter(tag_ID,"int",0)
  3465. Dim objRS
  3466. Set objRS=objConn.Execute("SELECT [tag_ID],[tag_Name],[tag_Intro],[tag_Order],[tag_Count] FROM [blog_Tag] WHERE [tag_ID]=" & tag_ID)
  3468. If (Not objRS.bof) And (Not objRS.eof) Then
  3470. ID=objRS("tag_ID")
  3471. Name=objRS("tag_Name")
  3472. Intro=objRS("tag_Intro")
  3473. Order=objRS("tag_Order")
  3474. Count=objRS("tag_Count")
  3476. LoadInfoByID=True
  3478. End If
  3480. objRS.Close
  3481. Set objRS=Nothing
  3483. If IsNull(Intro) Then Intro=""
  3485. Call Filter_Plugin_TTag_LoadInfoByID(ID,Name,Intro,Order,Count)
  3487. End Function
  3489. Public Function LoadInfoByArray(aryTagInfo)
  3491. If IsArray(aryTagInfo)=True Then
  3492. ID=aryTagInfo(0)
  3493. Name=aryTagInfo(1)
  3494. Intro=aryTagInfo(2)
  3495. Order=aryTagInfo(3)
  3496. Count=aryTagInfo(4)
  3497. End If
  3499. If IsNull(Intro) Then Intro=""
  3501. LoadInfoByArray=True
  3504. Call Filter_Plugin_TTag_LoadInfoByArray(ID,Name,Intro,Order,Count)
  3506. End Function
  3509. Public Function Del()
  3511. Call Filter_Plugin_TTag_Del(ID,Name,Intro,Order,Count)
  3513. Call CheckParameter(ID,"int",0)
  3514. If (ID=0) Then Del=False:Exit Function
  3516. Dim s
  3517. Dim i
  3518. Dim objRS
  3520. Set objRS=Server.CreateObject("ADODB.Recordset")
  3521. objRS.CursorType = adOpenKeyset
  3522. objRS.LockType = adLockReadOnly
  3523. objRS.ActiveConnection=objConn
  3524. objRS.Source=""
  3526. objRS.Open("SELECT [log_ID],[log_tag] FROM [blog_Article] WHERE [log_Tag] LIKE '%{" & ID & "}%'")
  3528. If (Not objRS.bof) And (Not objRS.eof) Then
  3529. Do While Not objRS.eof
  3530. i=objRS("log_ID")
  3531. s=objRS("log_tag")
  3532. s=Replace(s,"{"& ID &"}","")
  3533. objConn.Execute("UPDATE [blog_Article] SET [log_tag]='"& s &"' WHERE [log_ID] =" & i)
  3534. objRS.MoveNext
  3535. Loop
  3536. End If
  3537. objRS.Close
  3539. objConn.Execute("DELETE FROM [blog_Tag] WHERE [tag_ID] =" & ID)
  3540. Del=True
  3541. End Function
  3544. Public Function MakeTemplate(s)
  3546. Dim html,i,j
  3547. html=s
  3549. 'plugin node
  3550. Call Filter_Plugin_TTag_MakeTemplate_Template(html)
  3552. Dim aryTemplateTagsName()
  3553. Dim aryTemplateTagsValue()
  3555. ReDim aryTemplateTagsName(7)
  3556. ReDim aryTemplateTagsValue(7)
  3558. aryTemplateTagsName(  1)="article/tag/id"
  3559. aryTemplateTagsValue( 1)=ID
  3560. aryTemplateTagsName(  2)="article/tag/name"
  3561. aryTemplateTagsValue( 2)=HtmlName
  3562. aryTemplateTagsName(  3)="article/tag/intro"
  3563. aryTemplateTagsValue( 3)=HtmlIntro
  3564. aryTemplateTagsName(  4)="article/tag/count"
  3565. aryTemplateTagsValue( 4)=Count
  3566. aryTemplateTagsName(  5)="article/tag/url"
  3567. aryTemplateTagsValue( 5)=HtmlUrl
  3568. aryTemplateTagsName(  6)="article/tag/encodename"
  3569. aryTemplateTagsValue( 6)=EncodeName
  3571. 'plugin node
  3572. Call Filter_Plugin_TTag_MakeTemplate_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  3574. j=UBound(aryTemplateTagsName)
  3575. For i=1 to j
  3576. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  3577. Next
  3579. MakeTemplate=html
  3581. End Function
  3584. End Class
  3585. '*********************************************************
  3590. '*********************************************************
  3591. ' 目的：    定义TKeyWord类
  3592. ' 输入：    无
  3593. ' 返回：    无
  3594. '*********************************************************
  3595. Class TKeyWord
  3597. Public ID
  3598. Public Name
  3599. Public Intro
  3600. Public Url
  3602. Public Function Post()
  3604. Call CheckParameter(ID,"int",0)
  3606. Name=FilterSQL(Name)
  3607. Name=TransferHTML(Name,"[normalname]")
  3609. If Len(Name)=0 Then Post=False:Exit Function
  3611. Intro=FilterSQL(Intro)
  3612. Intro=TransferHTML(Intro,"[html-format]")
  3614. Url=FilterSQL(Url)
  3615. If Len(Url)=0 Then Post=False:Exit Function
  3616. If Not CheckRegExp(Url,"[homepage]") Then Call  ShowError(30)
  3618. If ID=0 Then
  3619. objConn.Execute("INSERT INTO [blog_Keyword]([key_Name],[key_URL],[key_Intro]) VALUES ('"&Name&"','"&Url&"','"&Intro&"')")
  3620. Else
  3621. objConn.Execute("UPDATE [blog_Keyword] SET [key_Name]='"&Name&"',[key_URL]='"&Url&"',[key_Intro]='"&Intro&"' WHERE [key_ID] =" & ID)
  3622. End If
  3624. Post=True
  3626. End Function
  3629. Public Function LoadInfoByID(key_ID)
  3631. Call CheckParameter(key_ID,"int",0)
  3633. Dim objRS
  3634. Set objRS=objConn.Execute("SELECT [key_ID],[key_Name],[key_Intro],[key_Url] FROM [blog_Keyword] WHERE [key_ID]=" & key_ID)
  3636. If (Not objRS.bof) And (Not objRS.eof) Then
  3638. ID=objRS("key_ID")
  3639. Name=objRS("key_Name")
  3640. Intro=objRS("key_Intro")
  3641. Url=objRS("key_Url")
  3643. LoadInfoByID=True
  3645. End If
  3647. objRS.Close
  3648. Set objRS=Nothing
  3650. If IsNull(Intro) Then Intro=""
  3652. End Function
  3655. Public Function LoadInfoByArray(aryKeyWordInfo)
  3657. If IsArray(aryKeywordInfo)=True Then
  3659. ID=aryKeyWordInfo(0)
  3660. Name=aryKeyWordInfo(1)
  3661. Intro=aryKeyWordInfo(2)
  3662. Url=aryKeyWordInfo(3)
  3664. End If
  3666. If IsNull(Intro) Then Intro=""
  3668. LoadInfoByArray=True
  3670. End Function
  3673. Public Function Del()
  3675. Call CheckParameter(ID,"int",0)
  3676. If (ID=0) Then Del=False:Exit Function
  3678. objConn.Execute("DELETE FROM [blog_Keyword] WHERE [key_ID] =" & ID)
  3679. Del=True
  3681. End Function
  3684. End Class
  3685. '*********************************************************
  3690. '*********************************************************
  3691. ' 目的：    定义TRss2Export类 New版
  3692. ' 输入：    无
  3693. ' 返回：    无
  3694. '*********************************************************
  3695. Class TNewRss2Export
  3697. Public TimeZone
  3699. Public Property Get xml
  3700. xml = objXMLdoc.xml
  3701. End Property
  3703. public FstrWebLink
  3704. public FstrAuthor
  3706. Public Property Get WebLink
  3707. WebLink = FstrWebLink
  3708. End Property
  3710. Public Property Let WebLink(strWebLink)
  3711. FstrWebLink = strWebLink
  3712. End Property
  3714. Public Property Get Author
  3715. Author = FstrAuthor
  3716. End Property
  3718. Public Property Let Author(strAuthor)
  3719. FstrAuthor = strAuthor
  3720. End Property
  3722. Private objXMLdoc
  3724. Private objXMLrss
  3726. Private objXMLchannel
  3729. Public Function AddChannelAttribute(title,value)
  3731. Dim objXMLitem
  3732. Set objXMLitem = objXMLdoc.createElement(title)
  3734. If title="pubDate" Then value=ParseDateForRFC822(value)
  3736. objXMLitem.text=value
  3737. objXMLchannel.AppendChild(objXMLitem)
  3739. AddChannelAttribute=True
  3741. End Function
  3744. Public Function AddItem(title,author,link,pubDate,guid,description,category,comments,wfw_comment,wfw_commentRss,trackback_ping)
  3746. Dim objXMLitem
  3747. Set objXMLitem = objXMLdoc.createElement("item")
  3748. Dim objXMLcdata
  3750. If(Len(title)>0) Then
  3751. objXMLitem.AppendChild(objXMLdoc.createElement("title"))
  3752. objXMLitem.selectSingleNode("title").text=title
  3753. End If
  3754. If(Len(author)>0) Then
  3755. objXMLitem.AppendChild(objXMLdoc.createElement("author"))
  3756. objXMLitem.selectSingleNode("author").text=author
  3757. End If
  3758. If(Len(link)>0) Then
  3759. objXMLitem.AppendChild(objXMLdoc.createElement("link"))
  3760. objXMLitem.selectSingleNode("link").text=link
  3761. End If
  3762. If(Len(pubDate)>0) Then
  3763. objXMLitem.AppendChild(objXMLdoc.createElement("pubDate"))
  3764. objXMLitem.selectSingleNode("pubDate").text=ParseDateForRFC822(pubDate)
  3765. End If
  3766. If(Len(guid)>0) Then
  3767. objXMLitem.AppendChild(objXMLdoc.createElement("guid"))
  3768. objXMLitem.selectSingleNode("guid").text=guid
  3769. End If
  3770. If(Len(description)>0) Then
  3772. objXMLitem.AppendChild(objXMLdoc.createElement("description"))
  3773. Set objXMLcdata = objXMLdoc.createNode("cdatasection", "","")
  3774. objXMLcdata.NodeValue=description
  3775. objXMLitem.selectSingleNode("description").AppendChild(objXMLcdata)
  3777. Set objXMLcdata = Nothing
  3779. End If
  3780. If(Len(category)>0) Then
  3781. objXMLitem.AppendChild(objXMLdoc.createElement("category"))
  3782. objXMLitem.selectSingleNode("category").text=category
  3783. End If
  3785. If(Len(comments)>0) Then
  3786. objXMLitem.AppendChild(objXMLdoc.createElement("comments"))
  3787. objXMLitem.selectSingleNode("comments").text=comments
  3788. End If
  3789. If(Len(wfw_comment)>0) Then
  3790. objXMLitem.AppendChild(objXMLdoc.createElement("wfw:comment"))
  3791. objXMLitem.selectSingleNode("wfw:comment").text=wfw_comment
  3792. End If
  3793. If(Len(wfw_commentRss)>0) Then
  3794. objXMLitem.AppendChild(objXMLdoc.createElement("wfw:commentRss"))
  3795. objXMLitem.selectSingleNode("wfw:commentRss").text=wfw_commentRss
  3796. End If
  3797. If(Len(trackback_ping)>0) Then
  3798. objXMLitem.AppendChild(objXMLdoc.createElement("trackback:ping"))
  3799. objXMLitem.selectSingleNode("trackback:ping").text=trackback_ping
  3800. End If
  3802. objXMLchannel.AppendChild(objXMLitem)
  3804. AddItem=True
  3806. End Function
  3808. Public Function Execute()
  3810. 'Response.ContentType = "text/html"
  3811. Response.ContentType = "text/xml"
  3812. Response.Clear
  3813. Response.Write xml
  3815. Execute=True
  3817. End Function
  3819. Public Function SaveToFile(strFileName)
  3821. objXMLdoc.save(strFileName)
  3823. SaveToFile=True
  3825. End Function
  3828. Function ParseDateForRFC822(dtmDate)
  3830. Dim dtmDay, dtmWeekDay, dtmMonth, dtmYear
  3831. Dim dtmHours, dtmMinutes, dtmSeconds
  3833. Select Case WeekDay(dtmDate)
  3834. Case 1:dtmWeekDay="Sun"
  3835. Case 2:dtmWeekDay="Mon"
  3836. Case 3:dtmWeekDay="Tue"
  3837. Case 4:dtmWeekDay="Wed"
  3838. Case 5:dtmWeekDay="Thu"
  3839. Case 6:dtmWeekDay="Fri"
  3840. Case 7:dtmWeekDay="Sat"
  3841. End Select
  3843. Select Case Month(dtmDate)
  3844. Case 1:dtmMonth="Jan"
  3845. Case 2:dtmMonth="Feb"
  3846. Case 3:dtmMonth="Mar"
  3847. Case 4:dtmMonth="Apr"
  3848. Case 5:dtmMonth="May"
  3849. Case 6:dtmMonth="Jun"
  3850. Case 7:dtmMonth="Jul"
  3851. Case 8:dtmMonth="Aug"
  3852. Case 9:dtmMonth="Sep"
  3853. Case 10:dtmMonth="Oct"
  3854. Case 11:dtmMonth="Nov"
  3855. Case 12:dtmMonth="Dec"
  3856. End Select
  3858. dtmYear = Year(dtmDate)
  3859. dtmDay = Right("00" & Day(dtmDate),2)
  3861. dtmHours = Right("00" & Hour(dtmDate),2)
  3862. dtmMinutes = Right("00" & Minute(dtmDate),2)
  3863. dtmSeconds = Right("00" & Second(dtmDate),2)
  3865. ParseDateForRFC822 = dtmWeekDay & ", " & dtmDay &" " & dtmMonth & " " & dtmYear & " " & dtmHours & ":" & dtmMinutes & ":" & dtmSeconds & " " & TimeZone
  3867. End Function 
  3869. ' 类初始化
  3870. Private Sub Class_Initialize()
  3872. On Error Resume Next
  3874. '对objXMLdoc进行初始化，如不能建对象则报错
  3875. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  3877. If Err.Number<>0 Then
  3879. End If
  3881. Dim objPI
  3883. 'Set objPI = objXMLdoc.createProcessingInstruction("xml-stylesheet","type=""text/css"" href=""css/rss.css""")
  3884. 'objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  3885. 'Set objPI = Nothing
  3887. Set objPI = objXMLdoc.createProcessingInstruction("xml-stylesheet","type=""text/xsl"" href=""css/rss.xslt""")
  3888. objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  3889. Set objPI = Nothing
  3891. Set objPI = objXMLdoc.createProcessingInstruction("xml","version=""1.0"" encoding=""UTF-8"" standalone=""yes""")
  3892. objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  3893. Set objPI = Nothing
  3895. Set objXMLrss = objXMLdoc.createElement("rss")
  3897. Set objXMLchannel = objXMLdoc.createElement("channel")
  3900. objXMLrss.AppendChild(objXMLchannel)
  3901. objXMLdoc.AppendChild(objXMLrss)
  3903. objXMLrss.setAttribute "version","2.0"
  3904. objXMLrss.setAttribute "xmlns:dc","http://purl.org/dc/elements/1.1/"
  3905. objXMLrss.setAttribute "xmlns:trackback","http://madskills.com/public/xml/rss/module/trackback/"
  3906. objXMLrss.setAttribute "xmlns:wfw","http://wellformedweb.org/CommentAPI/"
  3907. objXMLrss.setAttribute "xmlns:slash","http://purl.org/rss/1.0/modules/slash/"
  3910. End Sub
  3912. ' 类释放
  3913. Private Sub Class_Terminate()
  3915. Set objXMLrss = Nothing
  3916. Set objXMLdoc  = Nothing
  3918. End Sub
  3920. End Class
  3921. '*********************************************************
  3926. '*********************************************************
  3927. ' 目的：    定义TGuestBook类
  3928. ' 输入：    无
  3929. ' 返回：    无
  3930. '*********************************************************
  3931. Class TGuestBook
  3933. Public Title
  3935. Public Template_Article_Single
  3936. Public Template_Article_Comment
  3937. Public Template_Article_Commentpost
  3938. Public Template_PageBar
  3939. Public Template_Article_Commentpost_Verify
  3940. Public Template_Article_Single_WAP
  3944. Public Template_Article_Multi
  3945. Public Template_PageBar_Next
  3946. Public Template_PageBar_Previous
  3947. Public Template_Calendar
  3950. Public TemplateTags_ArticleList_Author_ID
  3951. Public TemplateTags_ArticleList_Tags_ID
  3952. Public TemplateTags_ArticleList_Category_ID
  3953. Public TemplateTags_ArticleList_Date_ShortDate
  3954. Public TemplateTags_ArticleList_Date_Year
  3955. Public TemplateTags_ArticleList_Date_Month
  3956. Public TemplateTags_ArticleList_Date_Day
  3957. Public TemplateTags_ArticleList_Page_Now
  3958. Public TemplateTags_ArticleList_Page_All
  3961. Public html
  3962. Public htmlWAP
  3964. Private Ftemplate
  3965. Public Property Let template(strFileName)
  3966. Ftemplate=GetTemplate("TEMPLATE_" & strFileName)
  3967. End Property
  3968. Public Property Get template
  3969. template = Ftemplate
  3970. End Property
  3973. Public Function Export(intPage)
  3975. 'plugin node
  3976. bAction_Plugin_TGuestBook_Export_Begin=False
  3977. For Each sAction_Plugin_TGuestBook_Export_Begin in Action_Plugin_TGuestBook_Export_Begin
  3978. If Not IsEmpty(sAction_Plugin_TGuestBook_Export_Begin) Then Call Execute(sAction_Plugin_TGuestBook_Export_Begin)
  3979. If bAction_Plugin_TGuestBook_Export_Begin=True Then Exit Function
  3980. Next
  3983. Dim i,j,strC_Count,objComment,strC
  3984. Dim intPageCount
  3986. If IsNumeric(intPage)=False Then intPage=1
  3987. Call CheckParameter(intPage,"int",1)
  3989. Template_Article_Single=GetTemplate("TEMPLATE_B_ARTICLE-GUESTBOOK")
  3990. If (Template_Article_Single="") Then
  3991. Template_Article_Single=GetTemplate("TEMPLATE_B_ARTICLE-SINGLE")
  3992. End If
  3994. Template_Article_Commentpost=GetTemplate("TEMPLATE_B_ARTICLE_COMMENTPOST")
  3996. If ZC_COMMENT_VERIFY_ENABLE=True Then
  3997. Template_Article_Commentpost_Verify=GetTemplate("TEMPLATE_B_ARTICLE_COMMENTPOST-VERIFY")
  3998. End If
  4000. Dim objRS
  4001. Set objRS=Server.CreateObject("ADODB.Recordset")
  4002. objRS.CursorType = adOpenKeyset
  4003. objRS.LockType = adLockReadOnly
  4004. objRS.ActiveConnection=objConn
  4005. objRS.Source=""
  4006. objRS.Open("SELECT COUNT([comm_ID])AS allComment FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=0")
  4007. If (Not objRS.bof) And (Not objRS.eof) Then
  4008. strC_Count=objRS("allComment")
  4009. End If
  4010. objRS.Close
  4011. Set objRS=Nothing
  4013. Set objRS=Server.CreateObject("ADODB.Recordset")
  4014. objRS.CursorType = adOpenKeyset
  4015. objRS.LockType = adLockReadOnly
  4016. objRS.ActiveConnection=objConn
  4017. objRS.Source="SELECT [comm_ID],[log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_PostTime],[comm_IP],[comm_Agent] FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=0 ORDER BY [comm_PostTime] DESC"
  4019. objRS.Open()
  4021. objRS.PageSize=ZC_MSG_COUNT
  4022. If objRS.PageCount>0 Then objRS.AbsolutePage = intPage
  4023. intPageCount=objRS.PageCount
  4025. If (not objRS.bof) And (not objRS.eof) Then
  4027. For i=1 To objRS.PageSize
  4029. Set objComment=New TComment
  4031. objComment.LoadInfoByArray(Array(objRS("comm_ID"),objRS("log_ID"),objRS("comm_AuthorID"),objRS("comm_Author"),objRS("comm_Content"),objRS("comm_Email"),objRS("comm_HomePage"),objRS("comm_PostTime"),"",""))
  4033. strC=GetTemplate("TEMPLATE_B_ARTICLE_COMMENT")
  4035. objComment.Count=strC_Count-i-(ZC_MSG_COUNT * (intPage-1))+1
  4036. strC=objComment.MakeTemplate(strC)
  4038. If ZC_COMMENT_REVERSE_ORDER_EXPORT=True Then
  4039. Template_Article_Comment=Template_Article_Comment & strC
  4040. Else
  4041. Template_Article_Comment=strC & Template_Article_Comment
  4042. End If
  4044. Set objComment=Nothing
  4046. objRS.MoveNext
  4047. If objRS.eof Then Exit For
  4049. Next
  4051. End If
  4053. TemplateTags_ArticleList_Page_Now=intPage
  4054. TemplateTags_ArticleList_Page_All=intPageCount
  4057. j=objRS.PageCount
  4058. If j>0 Then
  4059. Dim a,b,s,t,intNowPage,strPageBar
  4060. s=ZC_BLOG_HOST & "guestbook.asp"
  4061. t=""
  4062. intNowPage=intPage
  4064. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  4065. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  4066. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",ZC_MSG285)
  4067. Template_PageBar=Template_PageBar & strPageBar
  4069. If j>ZC_PAGEBAR_COUNT Then
  4070. a=intNowPage
  4071. b=intNowPage+ZC_PAGEBAR_COUNT
  4072. If a>ZC_PAGEBAR_COUNT Then a=a-1:b=b-1
  4073. If b>j Then b=j:a=j-ZC_PAGEBAR_COUNT
  4074. Else
  4075. a=1:b=j
  4076. End If
  4077. For i=a to b
  4079. s=ZC_BLOG_HOST & "guestbook.asp?"& t &"page="& i
  4080. If i=1 Then
  4081. s=ZC_BLOG_HOST & "guestbook.asp"
  4082. End If
  4083. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  4084. If i=intNowPage then
  4085. Template_PageBar=Template_PageBar & "<span class=""now-page"">" & i & "</span>"
  4086. Else
  4087. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  4088. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",i)
  4089. Template_PageBar=Template_PageBar & strPageBar
  4090. End If
  4092. Next
  4094. s=ZC_BLOG_HOST & "guestbook.asp?"& t &"page="& j
  4095. If j=1 Then
  4096. s=ZC_BLOG_HOST & "guestbook.asp"
  4097. End If
  4099. strPageBar=GetTemplate("TEMPLATE_B_PAGEBAR")
  4100. strPageBar=Replace(strPageBar,"<#pagebar/page/url#>",s)
  4101. strPageBar=Replace(strPageBar,"<#pagebar/page/number#>",ZC_MSG286)
  4102. Template_PageBar=Template_PageBar & strPageBar
  4105. If intNowPage=1 Then
  4106. Template_PageBar_Previous=""
  4107. Else
  4108. Template_PageBar_Previous="<span class=""pagebar-previous""><a href="""& ZC_BLOG_HOST &"guestbook.asp?"& t &"page="& intNowPage-1 &"""><span>"&ZC_MSG156&"</span></a></span>"
  4110. End If
  4112. If intNowPage=intPageCount Then
  4113. Template_PageBar_Next=""
  4114. Else
  4115. Template_PageBar_Next="<span class=""pagebar-next""><a href="""& ZC_BLOG_HOST &"guestbook.asp?"& t &"page="& intNowPage+1 &"""><span>"&ZC_MSG155&"</span></a></span>"
  4116. End If
  4119. End If
  4121. objRS.Close
  4122. Set objRS=Nothing
  4124. Template_Article_Comment=Template_Article_Comment & "<div style=""display:none;"" id=""divAjaxComment""></div>"
  4125. Template_Article_Commentpost=Replace(Template_Article_Commentpost,"<#template:article_commentpost-verify#>",Template_Article_Commentpost_Verify)
  4127. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_trackback#>","")
  4128. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_comment#>",Template_Article_Comment)
  4129. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_commentpost#>",Template_Article_Commentpost)
  4130. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_tag#>","")
  4131. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_navbar_l#>","")
  4132. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_navbar_r#>","")
  4133. Template_Article_Single=Replace(Template_Article_Single,"<#template:article_mutuality#>","")
  4134. Template_Article_Single=Replace(Template_Article_Single,"<#template:pagebar#>",Template_PageBar)
  4136. Ftemplate=Replace(Ftemplate,"<#template:article_trackback#>","")
  4137. Ftemplate=Replace(Ftemplate,"<#template:article_comment#>",Template_Article_Comment)
  4138. Ftemplate=Replace(Ftemplate,"<#template:article_commentpost#>",Template_Article_Commentpost)
  4139. Ftemplate=Replace(Ftemplate,"<#template:article_tag#>","")
  4140. Ftemplate=Replace(Ftemplate,"<#template:article_navbar_l#>","")
  4141. Ftemplate=Replace(Ftemplate,"<#template:article_navbar_r#>","")
  4142. Ftemplate=Replace(Ftemplate,"<#template:article_mutuality#>","")
  4143. Ftemplate=Replace(Ftemplate,"<#template:pagebar#>",Template_PageBar)
  4145. Ftemplate=Replace(Ftemplate,"<#template:article-multi#>","")
  4146. Ftemplate=Replace(Ftemplate,"<#template:pagebar_next#>",Template_PageBar_Next)
  4147. Ftemplate=Replace(Ftemplate,"<#template:pagebar_previous#>",Template_PageBar_Previous)
  4148. Ftemplate=Replace(Ftemplate,"<#articlelist/author/id#>","")
  4149. Ftemplate=Replace(Ftemplate,"<#articlelist/tags/id#>","")
  4150. Ftemplate=Replace(Ftemplate,"<#articlelist/category/id#>","")
  4151. Ftemplate=Replace(Ftemplate,"<#articlelist/date/year#>","")
  4152. Ftemplate=Replace(Ftemplate,"<#articlelist/date/month#>","")
  4153. Ftemplate=Replace(Ftemplate,"<#articlelist/date/day#>","")
  4154. Ftemplate=Replace(Ftemplate,"<#articlelist/date/shortdate#>","")
  4155. Ftemplate=Replace(Ftemplate,"<#articlelist/page/now#>",TemplateTags_ArticleList_Page_Now)
  4156. Ftemplate=Replace(Ftemplate,"<#articlelist/page/all#>",TemplateTags_ArticleList_Page_All)
  4157. Ftemplate=Replace(Ftemplate,"<#articlelist/page/count#>",ZC_DISPLAY_COUNT)
  4160. Dim aryTemplateTagsName(49)
  4161. Dim aryTemplateTagsValue(49)
  4163. j=49
  4165. Dim PostTime
  4166. PostTime=GetTime(Now())
  4168. aryTemplateTagsName(1)="article/id"
  4169. aryTemplateTagsValue(1)=0
  4170. aryTemplateTagsName(2)="article/level"
  4171. aryTemplateTagsValue(2)=4
  4172. aryTemplateTagsName(3)="article/title"
  4173. aryTemplateTagsValue(3)=ZC_MSG275
  4174. aryTemplateTagsName(4)="article/intro"
  4175. aryTemplateTagsValue(4)=ZC_GUESTBOOK_CONTENT
  4176. aryTemplateTagsName(5)="article/content"
  4177. aryTemplateTagsValue(5)=ZC_GUESTBOOK_CONTENT '& "<br/>" & "<br/><div class=""guestbook_pagebar"">" & ZC_MSG042 & ":" & Template_PageBar & "</div>"
  4178. aryTemplateTagsName(6)="article/posttime"
  4179. aryTemplateTagsValue(6)=PostTime
  4180. aryTemplateTagsName(7)="article/commnums"
  4181. aryTemplateTagsValue(7)=strC_Count
  4182. aryTemplateTagsName(8)="article/viewnums"
  4183. aryTemplateTagsValue(8)=0
  4184. aryTemplateTagsName(9)="article/trackbacknums"
  4185. aryTemplateTagsValue(9)=0
  4186. aryTemplateTagsName(10)="article/trackback_url"
  4187. aryTemplateTagsValue(10)=""
  4188. aryTemplateTagsName(11)="article/url"
  4189. aryTemplateTagsValue(11)=ZC_BLOG_HOST & "guestbook.asp"
  4190. aryTemplateTagsName(12)="article/category/id"
  4191. aryTemplateTagsValue(12)=0
  4192. aryTemplateTagsName(13)="article/category/name"
  4193. aryTemplateTagsValue(13)=ZC_BLOG_NAME
  4194. aryTemplateTagsName(15)="article/category/order"
  4195. aryTemplateTagsValue(15)=0
  4196. aryTemplateTagsName(16)="article/category/count"
  4197. aryTemplateTagsValue(16)=0
  4198. aryTemplateTagsName(17)="article/category/url"
  4199. aryTemplateTagsValue(17)=""
  4200. aryTemplateTagsName(18)="article/author/id"
  4201. aryTemplateTagsValue(18)=0
  4202. aryTemplateTagsName(19)="article/author/name"
  4203. aryTemplateTagsValue(19)=ZC_BLOG_MASTER
  4204. aryTemplateTagsName(20)="article/author/level"
  4205. aryTemplateTagsValue(20)=4
  4206. aryTemplateTagsName(21)="article/author/email"
  4207. aryTemplateTagsValue(21)=""
  4208. aryTemplateTagsName(22)="article/author/homepage"
  4209. aryTemplateTagsValue(22)=""
  4210. aryTemplateTagsName(23)="article/author/count"
  4211. aryTemplateTagsValue(23)=0
  4212. aryTemplateTagsName(24)="article/author/url"
  4213. aryTemplateTagsValue(24)=""
  4214. aryTemplateTagsName(25)="article/posttime/longdate"
  4215. aryTemplateTagsValue(25)=FormatDateTime(PostTime,vbLongDate)
  4216. aryTemplateTagsName(26)="article/posttime/shortdate"
  4217. aryTemplateTagsValue(26)=FormatDateTime(PostTime,vbShortDate)
  4218. aryTemplateTagsName(27)="article/posttime/longtime"
  4219. aryTemplateTagsValue(27)=FormatDateTime(PostTime,vbLongTime)
  4220. aryTemplateTagsName(28)="article/posttime/shorttime"
  4221. aryTemplateTagsValue(28)=FormatDateTime(PostTime,vbShortTime)
  4222. aryTemplateTagsName(29)="article/posttime/year"
  4223. aryTemplateTagsValue(29)=Year(PostTime)
  4224. aryTemplateTagsName(30)="article/posttime/month"
  4225. aryTemplateTagsValue(30)=Month(PostTime)
  4226. aryTemplateTagsName(31)="article/posttime/monthname"
  4227. aryTemplateTagsValue(31)=ZVA_Month(Month(PostTime))
  4228. aryTemplateTagsName(32)="article/posttime/day"
  4229. aryTemplateTagsValue(32)=Day(PostTime)
  4230. aryTemplateTagsName(33)="article/posttime/weekday"
  4231. aryTemplateTagsValue(33)=Weekday(PostTime)
  4232. aryTemplateTagsName(34)="article/posttime/weekdayname"
  4233. aryTemplateTagsValue(34)=ZVA_Week(Weekday(PostTime))
  4234. aryTemplateTagsName(35)="article/posttime/hour"
  4235. aryTemplateTagsValue(35)=Hour(PostTime)
  4236. aryTemplateTagsName(36)="article/posttime/minute"
  4237. aryTemplateTagsValue(36)=Minute(PostTime)
  4238. aryTemplateTagsName(37)="article/posttime/second"
  4239. aryTemplateTagsValue(37)=Second(PostTime)
  4240. aryTemplateTagsName(38)="article/commentrss"
  4241. aryTemplateTagsValue(38)=""
  4242. aryTemplateTagsName(39)="article/commentposturl"
  4243. aryTemplateTagsValue(39)=ZC_BLOG_HOST & "cmd.asp?act=cmt&amp;key=" & Left(MD5(ZC_BLOG_HOST & ZC_BLOG_CLSID & CStr(0) & CStr(Day(GetTime(Now())))),8)
  4244. aryTemplateTagsName(40)="article/pretrackback_url"
  4245. aryTemplateTagsValue(40)=""
  4246. aryTemplateTagsName(41)="article/trackbackkey"
  4247. aryTemplateTagsValue(41)="00000"
  4248. aryTemplateTagsName(42)="article/commentkey"
  4249. aryTemplateTagsValue(42)="00000"
  4251. aryTemplateTagsName(43)="article/staticname"
  4252. aryTemplateTagsValue(43)=""
  4253. aryTemplateTagsName(44)="article/category/staticname"
  4254. aryTemplateTagsValue(44)=""
  4255. aryTemplateTagsName(45)="article/author/staticname"
  4256. aryTemplateTagsValue(45)=""
  4257. aryTemplateTagsName(46)="article/tagtoname"
  4258. aryTemplateTagsValue(46)=""
  4259. aryTemplateTagsName(47)="article/firsttagintro"
  4260. aryTemplateTagsValue(47)=""
  4262. aryTemplateTagsName(48)="article/posttime/monthnameabbr"
  4263. aryTemplateTagsValue(48)=ZVA_Month_Abbr(Month(PostTime))
  4264. aryTemplateTagsName(49)="article/posttime/weekdaynameabbr"
  4265. aryTemplateTagsValue(49)=ZVA_Week_Abbr(Weekday(PostTime))
  4267. Call Filter_Plugin_TGuestBook_Export_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  4269. For i=1 to j
  4270. Template_Article_Single=Replace(Template_Article_Single,"<#"&aryTemplateTagsName(i)&"#>",aryTemplateTagsValue(i))
  4271. Ftemplate=Replace(Ftemplate,"<#"&aryTemplateTagsName(i)&"#>",aryTemplateTagsValue(i))
  4272. Next
  4274. html=Replace(template,"<#template:article-single#>",Template_Article_Single)
  4275. html=Replace(html,"<#template:article-guestbook#>",Template_Article_Single)
  4277. Title=TransferHTML(ZC_MSG275,"[html-format]")
  4279. Export=True
  4281. 'plugin node
  4282. bAction_Plugin_TGuestBook_Export_End=False
  4283. For Each sAction_Plugin_TGuestBook_Export_End in Action_Plugin_TGuestBook_Export_End
  4284. If Not IsEmpty(sAction_Plugin_TGuestBook_Export_End) Then Call Execute(sAction_Plugin_TGuestBook_Export_End)
  4285. If bAction_Plugin_TGuestBook_Export_End=True Then Exit Function
  4286. Next
  4288. End Function
  4291. Public Function Build()
  4293. Dim aryTemplateTagsName
  4294. Dim aryTemplateTagsValue
  4296. Dim i,j
  4298. htmlWAP = Template_Article_Single_WAP
  4300. If IsEmpty(html) Then html=template
  4302. Call Filter_Plugin_TGuestBook_Build_Template(html,htmlWAP)
  4303. Call Filter_Plugin_TGuestBook_Build_Template_Sub(Template_Article_Single)
  4305. html=Replace(html,"<#template:article-single#>",Template_Article_Single)
  4307. aryTemplateTagsName=TemplateTagsName
  4308. aryTemplateTagsValue=TemplateTagsValue
  4310. aryTemplateTagsName(0)="BlogTitle"
  4311. aryTemplateTagsValue(0)=Title
  4313. Call Filter_Plugin_TGuestBook_Build_TemplateTags(aryTemplateTagsName,aryTemplateTagsValue)
  4315. j=UBound(aryTemplateTagsName)
  4317. For i=1 to j
  4318. html=Replace(html,"<#" & aryTemplateTagsName(i) & "#>",aryTemplateTagsValue(i))
  4319. htmlWAP = Replace(htmlWAP, "<#" & aryTemplateTagsName(i) & "#>", aryTemplateTagsValue(i))
  4320. Next
  4321. html=Replace(html,"<#" & aryTemplateTagsName(0) & "#>",aryTemplateTagsValue(0))
  4322. htmlWAP = Replace(htmlWAP, "<#" & aryTemplateTagsName(0) & "#>", aryTemplateTagsValue(0))
  4324. Build=True
  4326. End Function
  4328. End Class
  4329. '*********************************************************
  4330. %>