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

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

中间件编程

开发平台：

HTML/CSS

atom_lib.asp：源码内容
  1. <Script Language="VBScript" RunAt="Server">
  2. '///////////////////////////////////////////////////////////////////////////////
  3. '//              RainbowSoft ATOM Export
  4. '// 作    者:    朱煊(zx.asd)
  5. '// 版权所有:    RainbowSoft Studio
  6. '// 技术支持:    rainbowsoft@163.com
  7. '// 程序名称:    
  8. '// 程序版本:    
  9. '// 单元名称:    atom_lib.asp
  10. '// 开始时间:    2005.07.27
  11. '// 最后修改:    
  12. '// 备    注:    ATOM输出
  13. '///////////////////////////////////////////////////////////////////////////////
  18. '*********************************************************
  19. ' 目的：    定义TAtom10Export类
  20. ' 输入：    无
  21. ' 返回：    无
  22. '*********************************************************
  23. Class TAtom10Export
  25. Public TimeZone
  27. Public Property Get xml
  28. xml = objXMLdoc.xml
  29. End Property
  31. Private objXMLdoc
  32. Private objXMLfeed
  34. Public Function GetFeed(objAtomFeed)
  36. Set objXMLfeed=objAtomFeed
  37. objXMLdoc.AppendChild(objXMLfeed)
  38. objXMLfeed.setAttribute "xmlns","http://www.w3.org/2005/Atom"
  40. Dim i
  41. Dim objItemNodes
  42. Set objItemNodes=objXMLfeed.getElementsByTagName("updated")
  44. For i=0 To (objItemNodes.Length-1)
  45. objItemNodes(i).Text=ParseDateForRFC3339(objItemNodes(i).Text)
  46. Next
  48. Set objItemNodes=Nothing
  50. End Function
  53. Public Function GetEntry(objEntryFeed)
  55. Dim i
  56. Dim objItemNodes
  57. Set objItemNodes=objEntryFeed.getElementsByTagName("updated")
  59. For i=0 To (objItemNodes.Length-1)
  60. objItemNodes(i).Text=ParseDateForRFC3339(objItemNodes(i).Text)
  61. Next
  63. Set objItemNodes=Nothing
  65. Set objItemNodes=objEntryFeed.getElementsByTagName("published")
  67. For i=0 To (objItemNodes.Length-1)
  68. objItemNodes(i).Text=ParseDateForRFC3339(objItemNodes(i).Text)
  69. Next
  71. Set objItemNodes=Nothing
  73. objXMLfeed.appendChild(objEntryFeed)
  75. End Function
  78. Public Function Execute()
  80. 'Response.ContentType = "text/html"
  81. Response.ContentType = "text/xml"
  82. Response.Clear
  83. Response.Write xml
  85. Execute=True
  87. End Function
  90. Public Function SaveToFile(strFileName)
  92. objXMLdoc.save(strFileName)
  94. SaveToFile=True
  96. End Function
  99. Function ParseDateForRFC3339(dtmDate)
  101. Dim dtmDay, dtmWeekDay, dtmMonth, dtmYear
  102. Dim dtmHours, dtmMinutes, dtmSeconds
  104. Dim strTimeZone
  106. dtmYear = Year(dtmDate)
  107. dtmMonth = Right("00" & Month(dtmDate),2)
  108. dtmDay = Right("00" & Day(dtmDate),2)
  110. dtmHours = Right("00" & Hour(dtmDate),2)
  111. dtmMinutes = Right("00" & Minute(dtmDate),2)
  112. dtmSeconds = Right("00" & Second(dtmDate),2)
  114. strTimeZone=Left(TimeZone,3) & ":" & Right(TimeZone,2)
  116. ParseDateForRFC3339 = dtmYear & "-" & dtmMonth & "-" & dtmDay & "T" & dtmHours & ":" & dtmMinutes & ":" & dtmSeconds & strTimeZone
  118. End Function 
  120. ' 类初始化
  121. Private Sub Class_Initialize()
  123. On Error Resume Next
  125. '对objXMLdoc进行初始化，如不能建对象则报错
  126. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  128. If Err.Number<>0 Then
  130. End If
  132. Dim objPI
  134. Set objPI = objXMLdoc.createProcessingInstruction("xml-stylesheet","type=""text/css"" href=""css/atom.css""")
  135. objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  136. Set objPI = Nothing
  138. Set objPI = objXMLdoc.createProcessingInstruction("xml","version=""1.0"" encoding=""UTF-8"" standalone=""yes""")
  139. objXMLdoc.insertBefore objPI, objXMLdoc.childNodes(0)
  140. Set objPI = Nothing
  142. Set objXMLfeed = objXMLdoc.createElement("feed")
  144. End Sub
  146. ' 类释放
  147. Private Sub Class_Terminate()
  149. Set objXMLfeed = Nothing
  150. Set objXMLdoc  = Nothing
  152. End Sub
  154. End Class
  155. '*********************************************************
  160. '*********************************************************
  161. ' 目的：    BLOG信息类
  162. ' 输入：    无
  163. ' 返回：    无
  164. '*********************************************************
  165. Class TAtomFeed
  167. Public Property Get Node
  168. Set Node=objFeedNode
  169. End Property
  171. 'Public atomAuthor
  172. 'Public atomCategory
  173. 'Public atomContributor
  174. 'Public atomGenerator
  175. 'Public atomIcon
  176. 'Public atomId
  177. 'Public atomLink
  178. 'Public atomLogo
  179. 'Public atomRights
  180. 'Public atomSubtitle
  181. 'Public atomTitle
  182. 'Public atomUpdated
  184. Private objXMLdoc
  185. Private objFeedNode
  188. Private Function CommomAppendNode(strElement,strText,strType)
  190. Dim objSingleNode
  191. Dim objNodeText
  192. Dim objNodeCdata
  193. Set objSingleNode = objXMLdoc.createNode("element",strElement,"")
  195. If strType="" Then
  197. Set objNodeText=objXMLdoc.createNode("text", "", "")
  198. objNodeText.NodeValue=strText
  199. objSingleNode.AppendChild(objNodeText)
  201. ElseIf strType="text" Then
  203. objSingleNode.setAttribute "type",strType
  204. Set objNodeText=objXMLdoc.createNode("text", "", "")
  205. objNodeText.NodeValue=strText
  206. objSingleNode.AppendChild(objNodeText)
  208. ElseIf strType="html" Then
  210. objSingleNode.setAttribute "type",strType
  211. Set objNodeCdata=objXMLdoc.createNode("cdatasection", "", "")
  212. objNodeCdata.NodeValue=strText
  213. objSingleNode.AppendChild(objNodeCdata)
  215. ElseIf strType="xhtml" Then
  217. objSingleNode.setAttribute "type",strType
  218. Set objNodeText=objXMLdoc.createNode("text", "", "")
  219. objNodeText.NodeValue=strText
  220. objSingleNode.AppendChild(objNodeText)
  222. End If
  224. Set CommomAppendNode=objSingleNode
  226. Set objSingleNode = Nothing
  228. End Function
  230. Public Property Let atomCategory(strCategory)
  232. objFeedNode.AppendChild(CommomAppendNode("category",strCategory,""))
  234. End Property
  237. Public Property Let atomIcon(strIcon)
  239. objFeedNode.AppendChild(CommomAppendNode("icon",strIcon,""))
  241. End Property
  244. Public Property Let atomId(strId)
  246. objFeedNode.AppendChild(CommomAppendNode("id",strId,""))
  248. End Property
  251. Public Property Let atomLogo(strLogo)
  253. objFeedNode.AppendChild(CommomAppendNode("logo",strLogo,""))
  255. End Property
  258. Public Property Let atomRights(strRights)
  260. objFeedNode.AppendChild(CommomAppendNode("rights",strRights,"text"))
  262. End Property
  265. Public Property Let atomSubtitle(strSubtitle)
  267. objFeedNode.AppendChild(CommomAppendNode("subtitle",strSubtitle,"html"))
  269. End Property
  272. Public Property Let atomTitle(strTitle)
  274. objFeedNode.AppendChild(CommomAppendNode("title",strTitle,"html"))
  276. End Property
  279. Public Property Let atomUpdated(strUpdated)
  281. objFeedNode.AppendChild(CommomAppendNode("updated",strUpdated,""))
  283. End Property
  286. Public Function atomPerson(strPerson,strName,strEmail,strUrl)
  288. Dim objSingleNode
  289. Dim objNodeText
  291. Dim objAuthorNameNode
  292. Dim objAuthorUrlNode
  293. Dim objAuthorEmailNode
  295. Set objSingleNode = objXMLdoc.createNode("element",strPerson,"")
  297. If strName<>"" Then
  298. Set objAuthorNameNode = objXMLdoc.createNode("element","name","")
  299. Set objNodeText=objXMLdoc.createNode("text", "", "")
  300. objNodeText.NodeValue=strName
  301. objAuthorNameNode.AppendChild(objNodeText)
  302. objSingleNode.AppendChild(objAuthorNameNode)
  303. Set objNodeText = Nothing
  304. End If
  306. If strUrl<>"" Then
  307. Set objAuthorUrlNode = objXMLdoc.createNode("element","uri","")
  308. Set objNodeText=objXMLdoc.createNode("text", "", "")
  309. objNodeText.NodeValue=strUrl
  310. objAuthorUrlNode.AppendChild(objNodeText)
  311. objSingleNode.AppendChild(objAuthorUrlNode)
  312. Set objNodeText = Nothing
  313. End If
  315. If strEmail<>"" Then
  316. Set objAuthorEmailNode = objXMLdoc.createNode("element","email","")
  317. Set objNodeText=objXMLdoc.createNode("text", "", "")
  318. objNodeText.NodeValue=strEmail
  319. objAuthorEmailNode.AppendChild(objNodeText)
  320. objSingleNode.AppendChild(objAuthorEmailNode)
  321. Set objNodeText = Nothing
  322. End If
  324. objFeedNode.AppendChild(objSingleNode)
  326. Set objSingleNode = Nothing
  328. End Function
  331. Public Function atomLink(strRel,strType,strHref)
  333. Dim objSingleNode
  334. Dim objNodeText
  336. Set objSingleNode = objXMLdoc.createNode("element","link","")
  338. objSingleNode.setAttribute "rel",strRel
  339. objSingleNode.setAttribute "type",strType
  340. objSingleNode.setAttribute "href",strHref
  342. objFeedNode.AppendChild(objSingleNode)
  343. Set objSingleNode = Nothing
  345. End Function
  348. Public Function atomGenerator(strGenerator,strUri,strVersion)
  350. Dim objSingleNode
  351. Dim objNodeText
  353. Set objSingleNode = objXMLdoc.createNode("element","generator","")
  354. Set objNodeText=objXMLdoc.createNode("text", "", "")
  356. objNodeText.NodeValue=strGenerator
  357. objSingleNode.setAttribute "uri",strUri
  358. objSingleNode.setAttribute "version",strVersion
  360. objSingleNode.AppendChild(objNodeText)
  361. objFeedNode.AppendChild(objSingleNode)
  363. Set objSingleNode = Nothing
  364. Set objNodeText = Nothing
  366. End Function
  369. Private Sub Class_Initialize()
  371. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  372. Set objFeedNode = objXMLdoc.createElement("feed")
  374. End Sub
  377. Private Sub Class_Terminate()
  379. Set objXMLdoc = Nothing
  380. Set objFeedNode = Nothing
  382. End Sub
  385. End Class
  386. '*********************************************************
  391. '*********************************************************
  392. ' 目的：    日志类
  393. ' 输入：    无
  394. ' 返回：    无
  395. '*********************************************************
  396. Class TAtomEntry
  398. Public Property Get Node
  399. Set Node=objEntryNode
  400. End Property
  402. 'Public atomAuthor
  403. 'Public atomCategory
  404. 'Public atomContributor
  405. 'Public atomLink
  406. 'Public atomTitle
  407. 'Public atomUpdated
  408. 'Public atomPublished
  409. 'Public atomContent
  410. 'Public atomSummary
  411. 'Public atomId
  412. 'Public atomRights
  414. Private objXMLdoc
  415. Private objEntryNode
  417. Private Function CommomAppendNode(strElement,strText,strType)
  419. Dim objSingleNode
  420. Dim objNodeText
  421. Dim objNodeCdata
  422. Set objSingleNode = objXMLdoc.createNode("element",strElement,"")
  424. If strType="" Then
  426. Set objNodeText=objXMLdoc.createNode("text", "", "")
  427. objNodeText.NodeValue=strText
  428. objSingleNode.AppendChild(objNodeText)
  430. ElseIf strType="text" Then
  432. objSingleNode.setAttribute "type",strType
  433. Set objNodeText=objXMLdoc.createNode("text", "", "")
  434. objNodeText.NodeValue=strText
  435. objSingleNode.AppendChild(objNodeText)
  437. ElseIf strType="html" Then
  439. objSingleNode.setAttribute "type",strType
  440. Set objNodeCdata=objXMLdoc.createNode("cdatasection", "", "")
  441. objNodeCdata.NodeValue=strText
  442. objSingleNode.AppendChild(objNodeCdata)
  444. ElseIf strType="xhtml" Then
  446. objSingleNode.setAttribute "type",strType
  447. Set objNodeText=objXMLdoc.createNode("text", "", "")
  448. objNodeText.NodeValue=strText
  449. objSingleNode.AppendChild(objNodeText)
  451. End If
  453. Set CommomAppendNode=objSingleNode
  455. Set objSingleNode = Nothing
  457. End Function
  460. Public Function atomContent(strContent,strType)
  462. objEntryNode.AppendChild(CommomAppendNode("content",strContent,strType))
  464. End Function
  467. Public Property Let atomSummary(strSummary)
  469. objEntryNode.AppendChild(CommomAppendNode("summary",strSummary,"html"))
  471. End Property
  474. Public Property Let atomRights(strRights)
  476. objEntryNode.AppendChild(CommomAppendNode("rights",strRights,""))
  478. End Property
  481. Public Property Let atomId(strID)
  483. objEntryNode.AppendChild(CommomAppendNode("id",strID,""))
  485. End Property
  488. Public Property Let atomUpdated(dtmUpdated)
  490. objEntryNode.AppendChild(CommomAppendNode("updated",dtmUpdated,""))
  492. End Property
  495. Public Property Let atomPublished(dtmPublished)
  497. objEntryNode.AppendChild(CommomAppendNode("published",dtmPublished,""))
  499. End Property
  502. Public Property Let atomTitle(strTitle)
  504. objEntryNode.AppendChild(CommomAppendNode("title",strTitle,"html"))
  506. End Property
  509. Public Function atomCategory(strTerm,strScheme,strLabel)
  511. Dim objSingleNode
  513. Set objSingleNode = objXMLdoc.createNode("element","category","")
  515. objSingleNode.setAttribute "term",strTerm
  516. objSingleNode.setAttribute "scheme",strScheme
  517. objSingleNode.setAttribute "label",strLabel
  519. objEntryNode.AppendChild(objSingleNode)
  520. Set objSingleNode = Nothing
  522. End Function
  525. Public Function atomPerson(strPerson,strName,strEmail,strUrl)
  527. Dim objSingleNode
  528. Dim objNodeText
  530. Dim objAuthorNameNode
  531. Dim objAuthorUrlNode
  532. Dim objAuthorEmailNode
  534. Set objSingleNode = objXMLdoc.createNode("element",strPerson,"")
  536. If strName<>"" Then
  537. Set objAuthorNameNode = objXMLdoc.createNode("element","name","")
  538. Set objNodeText=objXMLdoc.createNode("text", "", "")
  539. objNodeText.NodeValue=strName
  540. objAuthorNameNode.AppendChild(objNodeText)
  541. objSingleNode.AppendChild(objAuthorNameNode)
  542. Set objNodeText = Nothing
  543. End If
  545. If strUrl<>"" Then
  546. Set objAuthorUrlNode = objXMLdoc.createNode("element","uri","")
  547. Set objNodeText=objXMLdoc.createNode("text", "", "")
  548. objNodeText.NodeValue=strUrl
  549. objAuthorUrlNode.AppendChild(objNodeText)
  550. objSingleNode.AppendChild(objAuthorUrlNode)
  551. Set objNodeText = Nothing
  552. End If
  554. If strEmail<>"" Then
  555. Set objAuthorEmailNode = objXMLdoc.createNode("element","email","")
  556. Set objNodeText=objXMLdoc.createNode("text", "", "")
  557. objNodeText.NodeValue=strEmail
  558. objAuthorEmailNode.AppendChild(objNodeText)
  559. objSingleNode.AppendChild(objAuthorEmailNode)
  560. Set objNodeText = Nothing
  561. End If
  563. objEntryNode.AppendChild(objSingleNode)
  565. Set objSingleNode = Nothing
  567. End Function
  569. Public Function atomLink(strRel,strType,strHref)
  571. Dim objSingleNode
  572. Dim objNodeText
  574. Set objSingleNode = objXMLdoc.createNode("element","link","")
  576. objSingleNode.setAttribute "rel",strRel
  577. objSingleNode.setAttribute "type",strType
  578. objSingleNode.setAttribute "href",strHref
  580. objEntryNode.AppendChild(objSingleNode)
  581. Set objSingleNode = Nothing
  583. End Function
  586. Public Property Let atomTag(strTag)
  588. objEntryNode.AppendChild(CommomAppendNode("tag",strTag,""))
  590. End Property
  593. Public Function GetComment(objCommentFeed)
  595. objEntryNode.appendChild(objCommentFeed)
  597. End Function
  600. Private Sub Class_Initialize()
  602. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  603. Set objEntryNode = objXMLdoc.createElement("entry")
  605. End Sub
  608. Private Sub Class_Terminate()
  610. Set objXMLdoc = Nothing
  611. Set objEntryNode = Nothing
  613. End Sub
  616. End Class
  617. '*********************************************************
  622. '*********************************************************
  623. ' 目的：    评论类
  624. ' 输入：    无
  625. ' 返回：    无
  626. '*********************************************************
  627. Class TAtomComment
  629. Public Property Get Node
  630. Set Node=objCommentNode
  631. End Property
  633. 'Public atomAuthor
  634. 'Public atomPublished
  635. 'Public atomContent
  637. Private objXMLdoc
  638. Private objCommentNode
  640. Private Function CommomAppendNode(strElement,strText,strType)
  642. Dim objSingleNode
  643. Dim objNodeText
  644. Dim objNodeCdata
  645. Set objSingleNode = objXMLdoc.createNode("element",strElement,"")
  647. If strType="" Then
  649. Set objNodeText=objXMLdoc.createNode("text", "", "")
  650. objNodeText.NodeValue=strText
  651. objSingleNode.AppendChild(objNodeText)
  653. ElseIf strType="text" Then
  655. objSingleNode.setAttribute "type",strType
  656. Set objNodeText=objXMLdoc.createNode("text", "", "")
  657. objNodeText.NodeValue=strText
  658. objSingleNode.AppendChild(objNodeText)
  660. ElseIf strType="html" Then
  662. objSingleNode.setAttribute "type",strType
  663. Set objNodeCdata=objXMLdoc.createNode("cdatasection", "", "")
  664. objNodeCdata.NodeValue=strText
  665. objSingleNode.AppendChild(objNodeCdata)
  667. ElseIf strType="xhtml" Then
  669. objSingleNode.setAttribute "type",strType
  670. Set objNodeText=objXMLdoc.createNode("text", "", "")
  671. objNodeText.NodeValue=strText
  672. objSingleNode.AppendChild(objNodeText)
  674. End If
  676. Set CommomAppendNode=objSingleNode
  678. Set objSingleNode = Nothing
  680. End Function
  683. Public Property Let atomTitle(strTitle)
  685. objCommentNode.AppendChild(CommomAppendNode("title",strTitle,"html"))
  687. End Property
  690. Public Function atomContent(strContent,strType)
  692. objCommentNode.AppendChild(CommomAppendNode("content",strContent,strType))
  694. End Function
  697. Public Property Let atomPublished(dtmPublished)
  699. objCommentNode.AppendChild(CommomAppendNode("published",dtmPublished,""))
  701. End Property
  704. Public Function atomPerson(strPerson,strName,strEmail,strUrl)
  706. Dim objSingleNode
  707. Dim objNodeText
  709. Dim objAuthorNameNode
  710. Dim objAuthorUrlNode
  711. Dim objAuthorEmailNode
  713. Set objSingleNode = objXMLdoc.createNode("element",strPerson,"")
  715. If strName<>"" Then
  716. Set objAuthorNameNode = objXMLdoc.createNode("element","name","")
  717. Set objNodeText=objXMLdoc.createNode("text", "", "")
  718. objNodeText.NodeValue=strName
  719. objAuthorNameNode.AppendChild(objNodeText)
  720. objSingleNode.AppendChild(objAuthorNameNode)
  721. Set objNodeText = Nothing
  722. End If
  724. If strUrl<>"" Then
  725. Set objAuthorUrlNode = objXMLdoc.createNode("element","uri","")
  726. Set objNodeText=objXMLdoc.createNode("text", "", "")
  727. objNodeText.NodeValue=strUrl
  728. objAuthorUrlNode.AppendChild(objNodeText)
  729. objSingleNode.AppendChild(objAuthorUrlNode)
  730. Set objNodeText = Nothing
  731. End If
  733. If strEmail<>"" Then
  734. Set objAuthorEmailNode = objXMLdoc.createNode("element","email","")
  735. Set objNodeText=objXMLdoc.createNode("text", "", "")
  736. objNodeText.NodeValue=strEmail
  737. objAuthorEmailNode.AppendChild(objNodeText)
  738. objSingleNode.AppendChild(objAuthorEmailNode)
  739. Set objNodeText = Nothing
  740. End If
  742. objCommentNode.AppendChild(objSingleNode)
  744. Set objSingleNode = Nothing
  746. End Function
  749. Private Sub Class_Initialize()
  751. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  752. Set objCommentNode = objXMLdoc.createElement("comment")
  754. End Sub
  757. Private Sub Class_Terminate()
  759. Set objXMLdoc = Nothing
  760. Set objCommentNode = Nothing
  762. End Sub
  765. End Class
  766. '*********************************************************
  771. '*********************************************************
  772. ' 目的：    评论类
  773. ' 输入：    无
  774. ' 返回：    无
  775. '*********************************************************
  776. Class TAtomTrackBack
  778. Public Property Get Node
  779. Set Node=objTrackBackNode
  780. End Property
  782. 'Public atomAuthor
  783. 'Public atomPublished
  784. 'Public atomContent
  786. Private objXMLdoc
  787. Private objTrackBackNode
  789. Private Function CommomAppendNode(strElement,strText,strType)
  791. Dim objSingleNode
  792. Dim objNodeText
  793. Dim objNodeCdata
  794. Set objSingleNode = objXMLdoc.createNode("element",strElement,"")
  796. If strType="" Then
  798. Set objNodeText=objXMLdoc.createNode("text", "", "")
  799. objNodeText.NodeValue=strText
  800. objSingleNode.AppendChild(objNodeText)
  802. ElseIf strType="text" Then
  804. objSingleNode.setAttribute "type",strType
  805. Set objNodeText=objXMLdoc.createNode("text", "", "")
  806. objNodeText.NodeValue=strText
  807. objSingleNode.AppendChild(objNodeText)
  809. ElseIf strType="html" Then
  811. objSingleNode.setAttribute "type",strType
  812. Set objNodeCdata=objXMLdoc.createNode("cdatasection", "", "")
  813. objNodeCdata.NodeValue=strText
  814. objSingleNode.AppendChild(objNodeCdata)
  816. ElseIf strType="xhtml" Then
  818. objSingleNode.setAttribute "type",strType
  819. Set objNodeText=objXMLdoc.createNode("text", "", "")
  820. objNodeText.NodeValue=strText
  821. objSingleNode.AppendChild(objNodeText)
  823. End If
  825. Set CommomAppendNode=objSingleNode
  827. Set objSingleNode = Nothing
  829. End Function
  832. Public Property Let atomTitle(strTitle)
  834. objTrackBackNode.AppendChild(CommomAppendNode("title",strTitle,"html"))
  836. End Property
  839. Public Function atomContent(strContent,strType)
  841. objTrackBackNode.AppendChild(CommomAppendNode("content",strContent,strType))
  843. End Function
  846. Public Property Let atomPublished(dtmPublished)
  848. objTrackBackNode.AppendChild(CommomAppendNode("published",dtmPublished,""))
  850. End Property
  853. Public Function atomLink(strRel,strType,strHref)
  855. Dim objSingleNode
  856. Dim objNodeText
  858. Set objSingleNode = objXMLdoc.createNode("element","link","")
  860. objSingleNode.setAttribute "rel",strRel
  861. objSingleNode.setAttribute "type",strType
  862. objSingleNode.setAttribute "href",strHref
  864. objTrackBackNode.AppendChild(objSingleNode)
  865. Set objSingleNode = Nothing
  867. End Function
  870. Private Sub Class_Initialize()
  872. Set objXMLdoc =Server.CreateObject("Microsoft.XMLDOM")
  873. Set objTrackBackNode = objXMLdoc.createElement("trackback")
  875. End Sub
  878. Private Sub Class_Terminate()
  880. Set objXMLdoc = Nothing
  881. Set objTrackBackNode = Nothing
  883. End Sub
  886. End Class
  887. '*********************************************************
  889. </Script>