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

 

lotus domino EXCEL导出功能开发

利用JAVA代理实现
  • wendykui
  • wendykui
  • 2017年02月17日 14:00
  • 557

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

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

Domino采用ODBC与关系数据库集成

Domino与SQL关系数据库集成的方式有很多,比如JDBC、ODBC、ADO,调用第三方接口webservice、servlet等等,均可实现,如果有第三方系统做集成常常不建议直接操作对方数据库,多...
  • Gavid0124
  • Gavid0124
  • 2014年07月02日 17:46
  • 984

RSS阅读器Web的更好用

RSS阅读器很早就出现了,有的内嵌于浏览器和邮件收发工具,还有独立的桌面应用程序,如周博通、看天下、新浪点点通等,然而并没有得到普遍应用。直到Web2.0时代来临,订阅好友的博客可以第一时间看到日志更...
  • Angiexia
  • Angiexia
  • 2014年02月24日 17:46
  • 659

C# 访问Domino对象,拆离富文本域中的附件

using System; using System.Collections.Generic; using System.Text; using Domino; using System.Co...
  • kangkanglou
  • kangkanglou
  • 2014年08月23日 10:05
  • 1644

Domino R8+版本编写及调用webservice

【背景】 随着web系统业务的深入开发,与第三方系统集成的需求越来越多,系统之间集成的方法也比较多,如通过jdbc、odbc直接与关系数据库进行增、删、改操作,本文主要介绍通过webservice与...
  • Gavid0124
  • Gavid0124
  • 2014年07月07日 15:40
  • 2459

IBM应该请我去做Domino产品设计架构师

说实话,Lotus Domino R6开始,我就对Domino的技术进步开始有些意见了。   如果你很早接触Lotus Domino/Notes,那么真正在国内大面积应用的版本起始于R4.5/4...
  • surfboy
  • surfboy
  • 2013年08月06日 10:30
  • 1099

使用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
  • 1082

Domino常用服务器命令(包括邮件替换)

Show Inetusers:展示当前服务器在线人数 tell amgr run"highcomoa/application/udf_fwgl.nsf" 'agent_sh' :通过命令直接在服务...
  • Gavid0124
  • Gavid0124
  • 2014年11月27日 11:23
  • 972

Java通过DIIOP访问domino的对象实例

1. 背景 看到网上别人写的Java通过DIIOP访问domino对象的实例,自己也试着写了一下,其实挺简单。 2. 开发工具 a) IBM/Lo...
  • Gavid0124
  • Gavid0124
  • 2015年02月06日 14:15
  • 1386
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在domino中应用RSS
举报原因:
原因补充:

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