一直都不清楚RSS,照着一个C#的例子,随便写了一个,也不知道对不对!

 1Public en As String = Environment.NewLine
 2
 3    Public Function WriteRSSPrologue(ByVal writer As XmlTextWriter) As XmlTextWriter
 4        'writer.WriteRaw("<?xml version=\""1.0\"" encoding=\""utf-8\"" ?>" + en)
 5        'writer.WriteRaw("<rss version=\""2.0\"">" + en)
 6        'writer.WriteRaw("\t<channel>" + en)
 7        'writer.WriteRaw("\t\t<title>""我想飞</title>" + en)
 8        'writer.WriteRaw("\t\t<link>""http://www.cnblogs.com/t_98dsky/ ""</link>" + en)
 9        'writer.WriteRaw("\t\t<description>Yet Another Forum Web Application RSS Feed</description>" + en)
10        'writer.WriteRaw("\t\t<copyright>Copyright 98Dsky</copyright>" + en)
11
12        'writer.WriteRaw("\t\t<item>" + en)
13        'writer.WriteRaw("\t\t\t<title>""我想飞我想飞""</title>" + en)
14        'writer.WriteRaw("\t\t\t<link>""http://www.cnblogs.com/t_98dsky""</link>" + en)
15        'writer.WriteRaw("\t\t\t<description><![CDATA["" + sItemDescription + ""]]></description>" + en)
16        'writer.WriteRaw("\t\t\t<pubDate>" + DateTime.Now.ToString("r") + "</pubDate>" + en)
17        'writer.WriteRaw("\t\t</item>" + en)
18        'writer.WriteRaw("\t</channel>" + en)
19        'writer.WriteRaw("</rss>")
20
21
22        writer.WriteRaw("<?xml version=""1.0"" encoding=""utf-8"" ?>" + en)
23        writer.WriteRaw("<rss version=""2.0"">" + en)
24        writer.WriteRaw("<channel>" + en)
25        writer.WriteRaw("  <title>""我想飞</title>" + en)
26        writer.WriteRaw("    <link>""http://www.cnblogs.com/t_98dsky/ ""</link>" + en)
27        writer.WriteRaw("      <description>Yet Another Forum Web Application RSS Feed</description>" + en)
28        writer.WriteRaw("   <copyright>Copyright 98Dsky</copyright>" + en)
29
30        writer.WriteRaw("<item>" + en)
31        writer.WriteRaw("<title>""我想飞我想飞""</title>" + en)
32        writer.WriteRaw("       <link>""http://www.cnblogs.com/t_98dsky""</link>" + en)
33        writer.WriteRaw("       <description><![CDATA["" + sItemDescription + ""]]></description>" + en)
34        writer.WriteRaw("     <pubDate>" + DateTime.Now.ToString("r") + "</pubDate>" + en)
35        writer.WriteRaw("</item>" + en)
36        writer.WriteRaw("</channel>" + en)
37        writer.WriteRaw("</rss>")
38
39
40    End Function
41
42    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
43        'Dim rf As RssFeed = New RssFeed
44
45        Dim writer As XmlTextWriter = New XmlTextWriter(Response.OutputStream, System.Text.Encoding.UTF8)
46        WriteRSSPrologue(writer)
47        writer.Formatting = Formatting.Indented
48        writer.Flush()
49        writer.Close()
50        Response.ContentEncoding = System.Text.Encoding.UTF8
51        Response.ContentType = "text/xml"
52        Response.Cache.SetCacheability(HttpCacheability.Public)
53        Response.End()
54
55    End Sub