在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提升DPDK应用的性能

本文描述了RSS以及在DPDK中如何配置RSS达到性能提升和统一分发。

探索 Python、机器学习和 NLTK 库 开发一个应用程序,使用 Python、NLTK 和机器学习对 RSS 提要进行分类

挑战:使用机器学习对 RSS 提要进行分类 最近,我接到一项任务,要求为客户创建一个 RSS 提要分类子系统。目标是读取几十个甚至几百个 RSS 提要,将它们的许多文章自动分类到几十个预定义的主题领...

ios 简单的rss 解析应用demo

1.主文件: RootViewController.h #import @interface RootViewController : UITableViewController { ...

开发一个应用程序,使用 Python、NLTK 和机器学习对 RSS 提要进行分类

开发一个应用程序,使用 Python、NLTK 和机器学习对 RSS 提要进行分类 作者:Chris Joakim, 高级软件工程师, Primedia Inc 简介: 机器学习取决于 I...

Domino – JnpServer集成【三】——应用

在上一篇文章中,笔者向大家介绍了JnpServer是如何与Domino服务器集成工作的,但那是服务器端。也就是说,服务器端架设好了,还需要客户端访问才能算是一个完整的系统。那么本章就把这个问题解释清楚...

Domino应用之:考勤管理(BETA1)

好久没有更新了,最近事情太多,头绪太多,一片晕。----------------------------------------------------------------------------...

在 IBM Lotus Domino Designer 中使用 Java 构建应用程序

简介介 对于 IBM Lotus Notes 应用程序开发人员来说,LotusScript 和 LotusScript 类在设计 Notes 应用程序时很有用。LotusScript API 支持以...

domino xpages 订购应用

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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