ASP處理XSLT轉(zhuǎn)換XML的實(shí)現(xiàn)
使用ASP處理XSLT轉(zhuǎn)換XML比較簡(jiǎn)單，思路如下：創(chuàng)建一個(gè)XSLTemplate的對(duì)象，再創(chuàng)建一個(gè)XMLDOM對(duì)象，然后在家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 Public Sub Transform() Dim proc Set proc = XSLTemplate.createProcessor() proc.input=linput proc.transform() Output=proc.output Set proc=Nothing End Sub End Class |
使用范例：
以下是引用片段：
Set XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
XMLDOM.async = false
XMLDOM.load(Server.MapPath("bi2.xml"))
Set o=new Cls_IO_Transform
o.XSLTemplatefile="bi2.xsl"
o.Input=XMLDOM
o.Transform()
response.write o.Output()
這里處理的直接是XmlDom對(duì)象了，如果需要，靈活可以修改。