使用MemoryStream和XmlTextWriter进行书写XML,需要注意两点:XmlTextWriter.Flush操作和重设MemoryStream.Position = 0。
C#
<%@ Page Language="C#"%>
<%@ import Namespace="System.Xml" %>
<%@ import Namespace="System.IO" %>
VB.NET
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Response.Clear
Response.ContentType = "text/xml"
Dim msXml As MemoryStream = New MemoryStream
Dim xmlWriter As XmlTextWriter = New XmlTextWriter(msXml, Encoding.UTF8)
xmlWriter.WriteStartElement("rss")
xmlWriter.WriteAttributeString("version", "2.0")
xmlWriter.WriteStartElement("channel")
xmlWriter.WriteElementString("title", "【孟宪会之精彩世界】")
xmlWriter.WriteElementString("link", "http://dotnet.aspx.cc/Rss.aspx")
xmlWriter.WriteElementString("description", "NET开发技术。")
xmlWriter.WriteElementString("language", "zh-CN")
xmlWriter.WriteElementString("copyright", "Copyright 1999-2007【孟宪会之精彩世界】")
xmlWriter.WriteElementString("managingEditor", "amxh[AT]21cn.com")
xmlWriter.WriteStartElement("image")
xmlWriter.WriteElementString("title", "【孟宪会之精彩世界】")
xmlWriter.WriteElementString("width", "144")
xmlWriter.WriteElementString("height", "35")
xmlWriter.WriteElementString("link", "http://dotnet.aspx.cc/")
xmlWriter.WriteElementString("url", "http://dotnet.aspx.cc/Images/LogoRss.gif")
xmlWriter.WriteEndElement
xmlWriter.WriteStartElement("item")
xmlWriter.WriteElementString("title", "ASP.NET 2.0中直接将Access数据库导入到Excel文件中")
xmlWriter.WriteElementString("description", "ASP.NET 2.0中直接将Access数据库导入到Excel文件中")
xmlWriter.WriteElementString("link", "http://dotnet.aspx.cc/article/a933b187-06c3-4263-9eec-414a54d9c815/read.aspx")
xmlWriter.WriteElementString("pubDate", "Sat, 02 Dec 2006 09:39:58 GMT")
xmlWriter.WriteEndElement
xmlWriter.WriteEndElement
xmlWriter.WriteEndElement
xmlWriter.Flush
msXml.Position = 0
Dim xmlReader As XmlReader = XmlReader.Create(msXml)
While xmlReader.Read
If xmlReader.Name = "rss" Then
Response.Write(xmlReader.ReadOuterXml)
End If
End While
Response.End
msXml.Close
xmlWriter.Close
xmlReader.Close
End Sub



