Es ist relativ einfach, ASP zum Verarbeiten von XSLT und zum Konvertieren von XML zu verwenden. Die Idee ist wie folgt: Erstellen Sie ein XSLTemplate-Objekt, erstellen Sie dann ein XMLDOM-Objekt, erstellen Sie dann die XML-Datei und die XSLT-Datei zu Hause und verwenden Sie schließlich die Transformationsmethode und das Include Der spezifische Code lautet wie folgt:
Das Folgende ist ein Zitatausschnitt:
Klasse Cls_Xml_Transform
PrivatelInput,XSLTemplate
Privater p_Output
Öffentliches Eigentum Get Output()
Ausgabe = p_Output
End-Eigenschaft
Private Property Let Output(ByVal strInfo)
p_Output = strInfo
End-Eigenschaft
Öffentliche Eigenschaft Let Input(ByVal vNewValue)
Wenn IsObject(vNewValue), dann setze lInput=vNewValue
End-Eigenschaft
Öffentliche Eigenschaft Let XSLTemplatefile(ByVal vNewValue)
Dim StyleSheet
vNewValue_ dimmen
vNewValue_ = vNewValue
Wenn nicht InStr(vNewValue,":") > 0 Dann
vNewValue = Server.MapPath(vNewValue)
Ende wenn
Setze XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate")
Setze StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
StyleSheet.load vNewValue
XSLTemplate.StyleSheet=StyleSheet
End-Eigenschaft
Öffentliche SubTransform()
Dim proc
Setze proc = XSLTemplate.createProcessor()
proc.input=linput
proc.transform()
Ausgabe=proc.output
Setze proc=Nichts
Sub beenden
Unterricht beenden
Anwendungsbeispiel:
Das Folgende ist ein Zitatfragment:
Setze XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
XMLDOM.async = false
XMLDOM.load(Server.MapPath("bi2.xml"))
Setzen Sie o=new Cls_IO_Transform
o.XSLTemplatefile="bi2.xsl"
o.Input=XMLDOM
o.Transform()
Response.write o.Output()
befasst sich direkt mit dem XmlDom-Objekt, das bei Bedarf flexibel geändert werden kann.