1
Public en As String = Environment.NewLine
2![](/Images/OutliningIndicators/None.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
21![](/Images/OutliningIndicators/InBlock.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
39![](/Images/OutliningIndicators/InBlock.gif)
40
End Function
41![](/Images/OutliningIndicators/None.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
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![](/Images/OutliningIndicators/InBlock.gif)
55
End Sub
![](/Images/OutliningIndicators/None.gif)
2
![](/Images/OutliningIndicators/None.gif)
3
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
4
![](/Images/OutliningIndicators/InBlock.gif)
5
![](/Images/OutliningIndicators/InBlock.gif)
6
![](/Images/OutliningIndicators/InBlock.gif)
7
![](/Images/OutliningIndicators/InBlock.gif)
8
![](/Images/OutliningIndicators/InBlock.gif)
9
![](/Images/OutliningIndicators/InBlock.gif)
10
![](/Images/OutliningIndicators/InBlock.gif)
11
![](/Images/OutliningIndicators/InBlock.gif)
12
![](/Images/OutliningIndicators/InBlock.gif)
13
![](/Images/OutliningIndicators/InBlock.gif)
14
![](/Images/OutliningIndicators/InBlock.gif)
15
![](/Images/OutliningIndicators/InBlock.gif)
16
![](/Images/OutliningIndicators/InBlock.gif)
17
![](/Images/OutliningIndicators/InBlock.gif)
18
![](/Images/OutliningIndicators/InBlock.gif)
19
![](/Images/OutliningIndicators/InBlock.gif)
20
![](/Images/OutliningIndicators/InBlock.gif)
21
![](/Images/OutliningIndicators/InBlock.gif)
22
![](/Images/OutliningIndicators/InBlock.gif)
23
![](/Images/OutliningIndicators/InBlock.gif)
24
![](/Images/OutliningIndicators/InBlock.gif)
25
![](/Images/OutliningIndicators/InBlock.gif)
26
![](/Images/OutliningIndicators/InBlock.gif)
27
![](/Images/OutliningIndicators/InBlock.gif)
28
![](/Images/OutliningIndicators/InBlock.gif)
29
![](/Images/OutliningIndicators/InBlock.gif)
30
![](/Images/OutliningIndicators/InBlock.gif)
31
![](/Images/OutliningIndicators/InBlock.gif)
32
![](/Images/OutliningIndicators/InBlock.gif)
33
![](/Images/OutliningIndicators/InBlock.gif)
34
![](/Images/OutliningIndicators/InBlock.gif)
35
![](/Images/OutliningIndicators/InBlock.gif)
36
![](/Images/OutliningIndicators/InBlock.gif)
37
![](/Images/OutliningIndicators/InBlock.gif)
38
![](/Images/OutliningIndicators/InBlock.gif)
39
![](/Images/OutliningIndicators/InBlock.gif)
40
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)
41
![](/Images/OutliningIndicators/None.gif)
42
![](/Images/OutliningIndicators/ExpandedBlockStart.gif)
43
![](/Images/OutliningIndicators/InBlock.gif)
44
![](/Images/OutliningIndicators/InBlock.gif)
45
![](/Images/OutliningIndicators/InBlock.gif)
46
![](/Images/OutliningIndicators/InBlock.gif)
47
![](/Images/OutliningIndicators/InBlock.gif)
48
![](/Images/OutliningIndicators/InBlock.gif)
49
![](/Images/OutliningIndicators/InBlock.gif)
50
![](/Images/OutliningIndicators/InBlock.gif)
51
![](/Images/OutliningIndicators/InBlock.gif)
52
![](/Images/OutliningIndicators/InBlock.gif)
53
![](/Images/OutliningIndicators/InBlock.gif)
54
![](/Images/OutliningIndicators/InBlock.gif)
55
![](/Images/OutliningIndicators/ExpandedBlockEnd.gif)