Using RSS, it feels good,
Written the RSS implementation under Domino, only in the agent
Refer to RSS2.0
Next, prepare for the RSSLSS class
Sub initialize
DIM STRRSHEAD AS STRING
DIM STRSSCHANNEL AS STRING
Dim StrrsSitem as string
Print "Content-Type: TEXT / XML"
Print | XML Version = "1.0" encoding = "GB2312"?> |
Print | 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/ "> | STRSSCHANNEL = |
http://oaserver/video.nsf link>
rdf: SEQ>
items>
channel> |
StrrsSIAMGE = |
http://192.198.64.36/Video.nsf link>
iMage> |
strRssItem = strRssiamge |
http://192.198.64.36/video.nsf/bytool/7759ae03a9a96a7848256e37002048fendocument link>
foaf: Person>
foaf: maker>
item> |
StrrsSitem1 = |
http://192.198.64.36/video.nsf/bytimebyzhiding/8308eb4f1559077148256e37001e13133?opendocument link>
foaf: Person>
foaf: maker>
item>
http://192.198.64.36/video.nsf/Bytime/57bd9d19d5c3efaa48256e370022Aad9?opendocument link>
foaf: Person>
foaf: maker>
item> |
Print STRSSCHANNEL
Print STRSSITEM
Print STRRSSITEM1
Print | rdf: rdf> |
End Sub