在domino中应用RSS
来源:互联网 发布:post json请求 编辑:程序博客网 时间:2024/06/06 08:37
参照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中应用RSS
- 在Lotus Domino 中应用webservice
- 在Lotus Domino中应用webservice
- 在Lotus Domino中应用webservice
- 在Lotus Domino中应用webservice
- Domino中Servlet的应用
- 在Domino中配置servlet
- Lotus Domino在ASP应用中的优势
- XML在Domino环境中的应用研究
- RSS技术在行业中的应用
- RSS技术在行业中的应用
- 在Lotus Domino (BS) 中操作 AutoCAD
- 在Domino中修改AD密码
- 在 Domino 系统中如何路由邮件
- RSS应用
- 在asp.net站点中使用rss
- 在JAVA项目中实现RSS功能
- 在Domino平台上应用Java 反射机制
- VML应用
- c api 应用1
- lotusscript操作word文件
- 巴顿将军粗野的战前动员
- lotus中操作excel--引入excel数据至notes中
- 在domino中应用RSS
- 关于实现rss的代理
- 欧洲杯
- 历史游戏选择的背景问题?
- ZT: Oracle 最常用功能函数经典汇总
- 数据库的连接串
- JNI完全手册(一)
- JNI完全手册(二)
- 深入QuickReport(一)