Escribí una clase refinada para que Asp opere Xml. Hay ejemplos a continuación. Guárdelo como App.xml y colóquelo en el mismo directorio que el archivo asp.
Copie el código de código de la siguiente manera:
<?versión xml=codificación 1.0=utf-8?>
<Raíz>
<Acerca de>
<Versión>1.0 Beta</Versión>
<LatestVersion>1.0 Beta</LatestVersion>
<Autor>Autor</Autor>
<PubDate>2010/02/20</PubDate>
</Acerca de>
<Configuración>
<Instalado>Falso</Instalado>
<BakPath>_Data</BakPath>
</Configuración>
</raíz>
La siguiente es la clase Asp y cómo usarla. Guárdela como test.asp y pruébela.
Copie el código de código de la siguiente manera:
<%
Configuración de aplicación de clase
DimXmlDom
Subclase privada_Initialize()
Establecer XmlDom = Servidor.createobject(microsoft.xmldom)
XmlDom.load(Servidor.mappath(App.xml))
Subtítulo final
Subclase privada_Terminar()
Establecer XmlDom = Nada
Subtítulo final
Función GetD(tecla)
GetD =XmlDom.getElementsByTagName(clave)(0).texto
Función final
Función SetD(clave,val)
XmlDom.getElementsByTagName(clave)(0).texto = val
XmlDom.save(Servidor.mappath(App.xml))
Función final
Función AddD(nodo,clave,val)
Establecer newnode=XmlDom.getElementsByTagName(nodo)(0).appendchild(XmlDom.createelement(clave))
nuevonodo.texto = val
Establecer nuevonodo=Nada
XmlDom.save(Servidor.mappath(App.xml))
Función final
Función DelD(tecla)
En caso de error Continuar siguiente
XmlDom.getElementsByTagName(clave)(0).parentNode.removechild(XmlDom.getElementsByTagName(clave)(0))
XmlDom.save(Servidor.mappath(App.xml))
Función final
Fin de clase
Establecer configuración = nueva AppConfig
wn Config.GetD(Versión)
wn Config.GetD (última versión)
wn Config.GetD(Autor)
wn Config.GetD (fecha de publicación)
wn Config.GetD (instalado)
wn Config.GetD(BakPath)
' Elimina la anotación correspondiente para ver el efecto del nodo [Agregar/Editar/Eliminar]
'Llamar a Config.AddD(Config,test,test) 'Agregar nodo
'Call Config.SetD(test,test2) ' Editar nodo
'Call Config.DelD(test) ' Eliminar nodo
Sub wn(cadena)
Respuesta.Write(str)&<br />&vbcrlf
Subtítulo final
%>
No es muy universal, pero es suficiente para usar en algunas situaciones. Básicamente puede agregar/eliminar/modificar nodos.