在domino中应用RSS

原创 2004年07月05日 16:19:00

参照rss2.0写了发布rss的两个类
 Class Rss
  Private strRdfLiResource As String
  Private strH As String
  Private strAbout As String
  Private strlink As String
  Private strTitle As String
  Private strdescription As String
 
  Sub New()
  
  End Sub
  Property Set about As Variant
   strAbout=about
  End Property
 
  Property Set title As Variant
   strTitle=title
  End Property
  Property Set description As Variant
   strDescription=description
  End Property
  Property Set link As Variant
   strLink=link
  End Property
 
  Private Function getChannel() As String
   Dim strRss As String
   strRss=|<channel rdf:about="|+strAbout+|">|
   strRss=strRss+|<channel rdf:about="|+strAbout+|">|
   strRss=strRss+|<title>|+strtitle+|</title> |
   strRss=strRss+| <description>|+strdescription+|</description> |
   strRss=strRss+| <link>|+strlink+|</link> |
   ''strRss=strRss+|<image rdf:resource="http://192.198.64.36/video.nsf/dqgl_ajla.gif"  /> |
   strRss=strRss+|<items>|
   strRss=strRss+|<rdf:Seq>|
   strRss=strRss+strRdfLiResource
   strRss=strRss+|</rdf:Seq>|
   strRss=strRss+|</items>|
   strRss=strRss+|</channel>|
  End Function
  Public Function toXML()
   Dim strItemXml As String
   Print "Content-type: text/xml"
   Print  |<?xml version="1.0" encoding="GB2312"?>|
   Print  | <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"  |
  
   Print  |xmlns:dc="http://purl.org/dc/elements/1.1/"  |
  
   Print  |xmlns:foaf="http://xmlns.com/foaf/0.1/"  |
  
   Print  |xmlns="http://purl.org/rss/1.0/"  >|
   strItemXml= getChannel()
   Print strItemXml
   Print |</rdf:RDF>|
  End Function
  Public Sub addItem(rssItem As Variant)
   strH=strh+rssItem.getXml()
   strRdfLiResource=rssItem.about
  End Sub
 
 
  Function Valiater() As Boolean
   Dim isflag As Boolean
   isflag=True
   If strRdfLiResource="" Then
    isflag=False
   End If
   If strabout ="" Then
    isflag=False
   End If
   Valiater=isflag
  End Function
 End Class

 

 Class Rssitem
  Private strXml As String
  Private strAbout As String
  Private strTitle As String
  Private strLink As String
  Private strDescription As String
  Private strDate As String
  Private strCreator As String
  Private strResouce As String
  Private strCreateDate As String
  Private strAuthorMail As String
 
 
 
  Sub New()
   strDate=Now
  
  End Sub
  Property Set about As String
   strAbout=about
  End Property
  Property Get about As String
   about=strAbout
  End Property
  Property Set title As String
   strtitle=title
  End Property
  Property Set link As String
   strlink=link
  End Property
 
  Property Set description As String
   strdescription =description
  End Property
 
  Property Set date As String
   strdate=Date
  End Property
 
  Property Set creator As String
   strcreator=creator
  End Property
 
  Property Set resouce As String
   strresouce=resouce
  End Property
 
  Property Set createDate As String
   strcreateDate= createDate
  End Property
 
 
  Property Set authorMail As String
   strauthorMail=authorMail
  End Property
 
 
  Function getXML() As String
   Call createXml()
   getXML=strXml
  End Function
  Private Sub createXml()
   Dim strH As String
   strH=|<item rdf:about="|+strAbout+|">|
  
   strH=strH+|<title>|+strTitle+|</title> |
   strH=strH+|<link>|+strLink+|</link> |
   strH=strH+|<description>|+strDescription+|</description> |
   strH=strH+|<dc:date>|+strDate+|</dc:date> |
   strH=strH+| <dc:creator>|+strCreator+|</dc:creator> |
   strH=strH+|<foaf:maker>|
   strH=strH+| <foaf:Person>|
   strH=strH+|<foaf:mbox rdf:resource="|+strAuthorMail+|" /> |
   strH=strH+|</foaf:Person>|
   strH=strH+|</foaf:maker>|
   strH=strH+|</item>|
   strXml=strH
  
  
  End Sub
  Function Valiater() As Boolean
   Dim isflag As Boolean
   isflag=True
   If strAbout="" Then
    isflag=False
   End If
   If strLink="" Then
    isflag=False
   End If
   If strTitle="" Then
    isflag=False
   End If
   Valiater=isflag
  End Function
 
 
 
 
 End Class
 具体使用在下一节

 

浅谈RSS与样式的结合应用

    当前国外很多大的网站都提供了在线RSS订阅服务, 每当你点击订阅页面上桔红色的XML标时, 浏览器内就会出现XML文件的代码视图。当然, 这对计算机专业人员来讲没有任何问题, 但对于普通浏览者...
  • coyichen
  • coyichen
  • 2004-08-26 09:23:00
  • 1566

Domino的WebService服务

  • 2010年04月20日 15:38
  • 1.12MB
  • 下载

对RSS技术的认识

感觉rss技术象一个属于个人的网络收藏夹!!
  • cyz1980
  • cyz1980
  • 2005-08-25 20:08:00
  • 893

如何利用RSS搜索器和WIKI学习英语口语

 学习英语口语的两个利器:RSS搜索器与WIKI最近我发现这两个东西可以对学习某个地方的本地语言有很大的帮助,略述如下,如果你觉得有理,不妨一试:1,如何利用RSS搜索器学习一个英语口语单词?方法:用...
  • llp1217
  • llp1217
  • 2005-04-13 11:51:00
  • 1879

AJAX在DOMINO中应用

  • 2007年10月13日 11:08
  • 3.73MB
  • 下载

纯静态RSS阅读器HTML+JS

DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">h...
  • loworth
  • loworth
  • 2008-03-05 15:29:00
  • 830

Lotus.Domino.Web编程

  • 2014年11月05日 14:21
  • 12.69MB
  • 下载

C#访问Domino资料库

     Server环境:  Domino8.5 + IIS5.0     Client       :  Notes6.5 +  VS.net 2005//Add reference(COM)  ...
  • evan02
  • evan02
  • 2010-10-11 13:57:00
  • 1197

Domino web应用突然访问慢的问题排查方法

【背景】 近日,接到一个项目组反馈OA连续几天突然页面显示很慢,特别是高峰期(早高峰、午休后),慢的用户登录OA页面后,上了次洗手间回来,页面还没装载出来,这种蜗牛般的速度,换咱们是用户也难以接受啊...
  • Gavid0124
  • Gavid0124
  • 2014-07-09 15:52:40
  • 1644

95. 基于Notes/Domino的文档工作流系统(七)

本文继续剖析基于Notes/Domino的文档工作流系统的设计和代码,以方便用户能应用和创建自己的工作流。...
  • starrow
  • starrow
  • 2015-03-06 17:39:49
  • 5644
收藏助手
不良信息举报
您举报文章:在domino中应用RSS
举报原因:
原因补充:

(最多只允许输入30个字)