关于实现rss的代理

使用rss,感觉很好, ,
 写了domino下的rss实现,仅在代理中
 参照rss2.0
 下一步准备整理为rssLss类
 Sub Initialize
  Dim strRssHead As String
 
  Dim strRssChannel As String
  Dim strRssItem 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/"  >|
 
  strRssChannel=|<channel rdf:about=" http://oaserver/video.nsf">
     <title>测试rss</title>
       <description>rsseeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee</description>
     <link>http://oaserver/video.nsf</link>
     <image rdf:resource=" http://192.198.64.36/video.nsf/dqgl_ajla.gif"  />
     <items>
       <rdf:Seq>
         <rdf:li rdf:resource=''http://192.198.64.36/video.nsf/bytool/7759AE03A9A96A7848256E37002048FE?opendocument''/>
    <rdf:li rdf:resource=''http://192.198.64.36/video.nsf/bytimebyzhiding/8308EB4F1559077148256E37001E1313?opendocument''/>
         <rdf:li rdf:resource=''http://192.198.64.36/video.nsf/bytime/57BD9D19D5C3EFAA48256E370022AAD9?opendocument''/>
       </rdf:Seq>
     </items>
 
   </channel>|
 
  strRssiamge=|<image rdf:about=" http://192.198.64.36/video.nsf/dqgl_ajla.gif" >
     <title>XML.comasssssssssssssssssssssssssss</title>
     <link>http://192.198.64.36/video.nsf</link>
     <url>http://192.198.64.36/video.nsf/dqgl_ajla.gif</url>
   </image>|
  strRssItem=strRssiamge+| <item rdf:about=''http://192.198.64.36/video.nsf/bytool/7759AE03A9A96A7848256E37002048FE?opendocument''>
  <title>Bluetooth surfing at ETech</title>
     <link>http://192.198.64.36/video.nsf/bytool/7759AE03A9A96A7848256E37002048FE?opendocument</link>
     <description>rss</description>
     <dc:date>2004-02-09T04:45:49.00Z</dc:date>
     <dc:creator>Edd Dumbill</dc:creator>
     <foaf:maker>
        <foaf:Person>
           <foaf:mbox rdf:resource=" mailto:edd@usefulinc.com" />
        </foaf:Person>
     </foaf:maker>
   </item>|
  strRssItem1=| <item rdf:about=''http://192.198.64.36/video.nsf/bytimebyzhiding/8308EB4F1559077148256E37001E1313?opendocument''>
  <title>阿三点发送发h</title>
     <link>http://192.198.64.36/video.nsf/bytimebyzhiding/8308EB4F1559077148256E37001E1313?opendocument</link>
     <description>rsseeeeeeeeeeeeeeeeeee<a href="asdfsd">asdfasf</a>eeeeeeeeeeeee</description>
     <dc:date>2004-02-09T04:45:49.00Z</dc:date>
     <dc:creator>Edd Dumbill</dc:creator>
     <foaf:maker>
        <foaf:Person>
           <foaf:mbox rdf:resource=" mailto:edd@usefulinc.com" />
        </foaf:Person>
     </foaf:maker>
   </item>
 <item rdf:about=''http://192.198.64.36/video.nsf/bytime/57BD9D19D5C3EFAA48256E370022AAD9?opendocument''>
     <title>阿三点发送发h</title>
     <link>http://192.198.64.36/video.nsf/bytime/57BD9D19D5C3EFAA48256E370022AAD9?opendocument</link>
     <description>wwwwwwwwwwwwwwwwwwwwwwwwwwee</description>
     <dc:date>2004-02-09T04:45:49.00Z</dc:date>
     <dc:creator>Edd Dumbill</dc:creator>
     <foaf:maker>
        <foaf:Person>
           <foaf:mbox rdf:resource=" mailto:edd@usefulinc.com" />
        </foaf:Person>
     </foaf:maker>
   </item>|
 
  Print strRssChannel
  Print strRssItem
  Print strRssItem1
  Print |</rdf:RDF>|
 
 
 
 
 
 End Sub