Merge di XML è XSL (ASP)

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.

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
%>
Tags:
ASP12 XML / XSL / XSLT29
Potrebbe interessarti anche: