Eu escrevi uma classe refinada para o Asp operar o Xml. Abaixo, salve-o como App.xml e coloque-o no mesmo diretório do arquivo asp!
Copie o código do código da seguinte forma:
<?xml versão=1.0 codificação=utf-8?>
<Raiz>
<Sobre>
<Versão>1.0 Beta</Versão>
<LatestVersion>1.0 Beta</LatestVersion>
<Autor>Autor</Autor>
<PubDate>20/02/2010</PubDate>
</Sobre>
<Configuração>
<Instalado>Falso</Instalado>
<BakPath>_Dados</BakPath>
</Config>
</Raiz>
A seguir está a classe Asp e como usá-la. Salve-a como test.asp e teste-a.
Copie o código do código da seguinte forma:
<%
ClassAppConfig
DimXmlDom
Subclasse Privada_Initialize()
Definir XmlDom = Server.createobject(microsoft.xmldom)
XmlDom.load(Server.mappath(App.xml))
Finalizar sub
Subclasse Privada_Terminate()
Definir XmlDom = Nada
Finalizar sub
Função GetD(chave)
GetD =XmlDom.getElementsByTagName(chave)(0).texto
Função final
Função SetD(chave,val)
XmlDom.getElementsByTagName(chave)(0).text = val
XmlDom.save(Server.mappath(App.xml))
Função final
Função AddD(nó,chave,val)
Definir newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
novonode.text=val
Definir newnode=Nada
XmlDom.save(Server.mappath(App.xml))
Função final
Função DelD(chave)
Em caso de erro, retomar o próximo
XmlDom.getElementsByTagName(chave)(0).parentNode.removechild(XmlDom.getElementsByTagName(chave)(0))
XmlDom.save(Server.mappath(App.xml))
Função final
Fim da aula
Definir configuração = novo AppConfig
wn Config.GetD (versão)
wn Config.GetD (versão mais recente)
wn Config.GetD(Autor)
wn Config.GetD(PubDate)
wn Config.GetD (instalado)
wn Config.GetD(BakPath)
' Remova a anotação correspondente para ver o efeito do nó [Adicionar/Editar/Excluir]
'Chamar Config.AddD(Config,test,test) 'Adicionar nó
'Chamar Config.SetD(test,test2)' Editar nó
'Chamar Config.DelD(teste)' Excluir nó
Sub wn(str)
Response.Write(str)&<br />&vbcrlf
Finalizar sub
%>
Não é muito universal, mas é suficiente para uso em algumas situações. Basicamente, pode adicionar/excluir/modificar nós.