1Public en As String = Environment.NewLine
2
3 Public Function WriteRSSPrologue()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()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
