xsl.aspx

asp.net技术内幕的书配源码

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Xml" %>
<%@ Import Namespace="System.Xml.Xsl" %>

<Script Runat="Server">

Sub Page_Load
  Dim conNorthwind As SqlConnection
  Dim dadProducts As SqlDataAdapter
  Dim dstProducts As DataSet
  Dim objDataDocument As XmlDataDocument
  Dim objXsl As XslTransform

  conNorthwind = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Northwind" )
  dadProducts = New SqlDataAdapter( "Select * From Products", conNorthwind )
  dstProducts = New DataSet()
  dadProducts.Fill( dstProducts, "Products" )

  objDataDocument = New XmlDataDocument( dstProducts )

  objXsl = New XslTransform
  objXsl.Load( MapPath( "TransformProducts.xsl" ) )
  objXsl.Transform( objDataDocument, Nothing, Response.OutputStream )
End Sub

</Script>