冤枉!
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim xslTrans As New Xsl.XslCompiledTransform
Try
xslTrans.Load(Server.MapPath("user.xsl"))
xslTrans.Transform(Server.MapPath("user.xml"), Server.MapPath("user.html"))
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try