在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
 具体使用在下一节

 

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

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

使用Lotus Domino实用程序(Updall, Compact, Fixup) 进行正常和异常维护

目录    I.实用程序: Updall, Compact, Fixup   A. Updall   B. Compact   C. Fixup  II.用于每周维护的实用程序  III...
  • qin_zhimou
  • qin_zhimou
  • 2014年11月26日 16:58
  • 1076

Domino 单点登录(SSO)用户名映射功能

Technote (troubleshooting) 问题 当使用 Domino 单点登录(Lotus Domino 6 服务器环境也被称为多个服务器基于会话的验证)时,在复杂配置中你可能...
  • Gavid0124
  • Gavid0124
  • 2015年02月28日 16:29
  • 1110

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

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

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

    好久没有更新了,最近事情太多,头绪太多,一片晕。------------------------------------------------------------------------...
  • CrazyNotes
  • CrazyNotes
  • 2011年06月29日 10:57
  • 918

开发基于 IBM Lotus Domino 的 Web 2.0 应用的最佳实践

开发基于 IBM Lotus Domino 的 Web 2.0 应用的最佳实践 背景简介和挑战 http://www.ibm.com/developerworks/cn/lotus...
  • kendyhj9999
  • kendyhj9999
  • 2015年07月16日 21:49
  • 608

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

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

Windows 8应用商店程序中如何读取rss

  • 2014年08月31日 12:23
  • 2.23MB
  • 下载

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

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

ios 简单的rss 解析应用demo

1.主文件: RootViewController.h #import @interface RootViewController : UITableViewController { ...
  • u010161385
  • u010161385
  • 2013年04月22日 11:18
  • 740
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在domino中应用RSS
举报原因:
原因补充:

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