Merge di XML è XSL (ASP)
25 novembre 2003
Esempio di come realizzare una trasformazione XSL su un file XML tramite ASP.
La funzione non fa altro che leggere il file XML, il file XSL e restituire la striga risultante.
La funzione non fa altro che leggere il file XML, il file XSL e restituire la striga risultante.
VBScript
<%
Function mergeXmlXsl(strPathFileXml, strPathFileXsl)
Dim objXMLDoc, objXSLDoc 'As New MSXML2.DOMDocument40
dim strXml, strXsl, fso, f
set fso = CreateObject("Scripting.FileSystemObject")
'legge il file XML
set f = fso.OpenTextFile(strPathFileXml, 1, false)
strXml = f.ReadAll
f.close
set f = nothing
'legge il file XSL
set f = fso.OpenTextFile(strPathFileXsl, 1, false)
strXsl = f.ReadAll
f.close
set f = nothing
set fso = nothing
'crea l'oggetto per contenere l'XML
Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
objXMLDoc.async = False
objXMLDoc.loadXML strXml
'crea l'oggetto per contenere l'XSL
set objXSLDoc = server.CreateObject("Msxml2.DOMDocument.4.0")
objXSLDoc.async = False
objXSLDoc.loadXML strXsl
'fa il merge xml + xsl e restituisce il risultato
mergeXmlXsl = objXMLdoc.transformNode(objXSLDoc)
'fa pulizia
set objXSLDoc = nothing
set objXMLdoc = nothing
End Function
%>