É relativamente simples usar ASP para processar XSLT e converter XML. A ideia é a seguinte: criar um objeto XSLTemplate, depois criar um objeto XMLDOM, criar o arquivo Xml e o arquivo XSLT em casa e, finalmente, usar o método de transformação e incluir. na classe. O código específico é o seguinte:
O seguinte é o trecho de citação:
Classe Cls_Xml_Transform
PrivatelInput,XSLTemplate
P_Output privado
Propriedade pública obter saída()
Saída = p_Saída
Fim da propriedade
Propriedade privada deixa saída (ByVal strInfo)
p_Output = strInfo
Fim da propriedade
Propriedade pública Let Input(ByVal vNewValue)
Se IsObject(vNewValue) então defina lInput=vNewValue
Fim da propriedade
Propriedade pública Let XSLTemplatefile(ByVal vNewValue)
Folha de estilo dim
Dim vNovoValor_
vNovoValor_ = vNovoValor
Se não InStr(vNewValue,":") > 0 Então
vNewValue = Server.MapPath(vNewValue)
Terminar se
Definir XSLTemplate=Server.CreateObject("Msxml2.XSLTemplate")
Definir StyleSheet=Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
StyleSheet.load vNewValue
XSLTemplate.StyleSheet=Folha de estilos
Fim da propriedade
Subtransformação pública()
Processo escuro
Definir proc = XSLTemplate.createProcessor()
proc.input=linput
proc.transform()
Saída=proc.output
Definir proc=Nada
Finalizar sub
Fim da aula
Exemplo de uso:
A seguir está um fragmento de citação:
Definir XMLDOM = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
XMLDOM.async = falso
XMLDOM.load(Server.MapPath("bi2.xml"))
Definir o = novo Cls_IO_Transform
o.XSLTemplatefile="bi2.xsl"
o.Input=XMLDOM
o.Transformar()
response.write o.Output()
lida diretamente com o objeto XmlDom, que pode ser modificado de forma flexível, se necessário.