default.aspx.vb

来自「對c#初學者參考..為課題asp.net 2.0教材代碼」· VB 代码 · 共 26 行

Imports System.IO
Imports System.Xml
Imports System.Xml.XPath
Imports System.Xml.Xsl

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
           Handles Me.Load
        Response.ContentType = "text/xml"

        Dim xsltFile As String = Path.Combine(Request.PhysicalApplicationPath, _
            "books.xslt")
        Dim xmlFile As String = Path.Combine(Request.PhysicalApplicationPath, "books.xml")

        Dim xslt As New XslCompiledTransform() 'Pass in true to enable XSLT Debugging
        xslt.Load(xsltFile)

        Dim doc As New XPathDocument(xmlFile)
        xslt.Transform(doc, New XmlTextWriter(Response.Output))

    End Sub

End Class