It is relatively simple to use ASP to process XSLT and convert XML. The idea is as follows: create an XSLTemplate object, then create an XMLDOM object, then create the Xml file and XSLT file at home, and finally use the transform method and include it in the class. The specific code is as follows:
The following is Quote snippet:
Class Cls_Xml_Transform
PrivatelInput,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 SubTransform()
Dim proc
Set proc = XSLTemplate.createProcessor()
proc.input=linput
proc.transform()
Output=proc.output
Set proc=Nothing
End Sub
End Class
Usage example:
The following is a quotation fragment:
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()
deals directly with the XmlDom object, which can be modified flexibly if necessary.