default.aspx

来自「Code for VB.NET教程源码 很好的源码」· ASPX 代码 · 共 55 行

<%@ Page Trace="false" Language="VB" %>

<%@ Import Namespace="System.Text" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Xml" %>

<H2>Creating XML</H2>
<script runat=server>

	
	Protected Sub RenderSimpleXML()
	
		Dim ms As MemoryStream 
		ms = New MemoryStream()
		
		Dim tw As XmlTextWriter
		
		tw = New XmlTextWriter( new StreamWriter(ms) )
		tw.Formatting = Formatting.Indented
		tw.Indentation = 4
		tw.WriteStartDocument()
		tw.WriteComment("A Simple XML File")
		tw.WriteStartElement("Books")
			tw.WriteStartElement("Book")
				'tw.WriteAttribute("title", "Professional ASP.NET")
			tw.WriteEndElement()
		tw.WriteEndElement()
		tw.WriteEndDocument()
		
		
		' Important to call to ensure text writer writes out to stream
		
		tw.Flush()
		
		' Reset stream position ready for reading
				
		ms.Seek( 0, SeekOrigin.Begin )

		Dim tr As New StreamReader( ms )

		' Write out the XML inside of a PRE element to preserve XML formatting
		
		Response.Write("<pre>")	
		Response.Write( HttpUtility.HtmlEncode( tr.ReadToEnd() ) )
		Response.Write("</pre>")

	End Sub

</script>

<%
	RenderSimpleXML()
%>