ASP处理XSLT转换XML的实现

ASP处理XSLT转换XML的实现 

 
 
    使用ASP处理XSLT转换XML比较简单，思路如下：创建一个XSLTemplate的对象，再创建一个XMLDOM对象，然后在家Xml文件和XSLT文件，最后使用方法transform即可，包含到类里面，具体代码如下： 
以下是引用片段：
Class Cls_Xml_Transform 
    Private lInput,XSLTemplate 
    Private p_Output 
    Public Property Get Output() 
        Output = p_Output 
    End Property 
    Private Property Let Output(ByVal strInfo) 
        p_Output = strInfo 
    End Property 
    Public Property Let Input(ByVal vNewValue) 
        If IsObject(vNewValue) Then Set lInput=vNewValue 
    End Property 
    Public Property Let XSLTemplatefile(ByVal vNewValue) 
        Dim StyleSheet 
        Dim vNewValue_ 
        vNewValue_ = vNewValue 
        If Not InStr(vNewValue,":\") > 0 Then 
            vNewValue  = Server.MapPath(vNewValue) 
        End If 
        Set XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate") 
        Set StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM") 
        StyleSheet.load vNewValue 
        XSLTemplate.StyleSheet=StyleSheet 
    End Property