1 Public 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 <title>" "I want to fly </title>" + en)
8 ' Writer. writeraw ("\ t <link>" "http://www.cnblogs.com/t_98dsky/" "</link>" + en)
9 ' Writer. writeraw ("\ t <description> yet another forum web application RSS feed </description>" + en)
10 ' Writer. writeraw ("\ t <copyright> copyright 98 dsky </Copyright>" + en)
11
12 ' Writer. writeraw ("\ t <item>" + en)
13 ' Writer. writeraw ("\ t <title>" "I want to fly, I want to fly" "</title>" + en)
14 ' Writer. writeraw ("\ t <link>" http://www.cnblogs.com/t_98dsky "" </link> "+ en)
15 ' Writer. writeraw ("\ t <description> <! [CDATA ["+ sitemdescription +"]> </description> "+ en)
16 ' Writer. writeraw ("\ t <pubdate>" + datetime. Now. tostring ("R") + "</pubdate>" + en)
17 ' Writer. writeraw ("\ 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> "" I want to fly </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 98 dsky </Copyright> " + En)
29
30 Writer. writeraw ( " <Item> " + En)
31 Writer. writeraw ( " <Title> "" I want to fly, I want to fly "" </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
