J'ai écrit une classe raffinée pour qu'Asp fonctionne avec XML. Enregistrez-la sous App.xml et placez-la dans le même répertoire que le fichier asp !
Copiez le code comme suit :
<?xml version=1.0 encodage=utf-8?>
<Racine>
<À propos>
<Version>1.0 Bêta</Version>
<LatestVersion>1.0 Bêta</LatestVersion>
<Auteur>Auteur</Auteur>
<PubDate>20/02/2010</PubDate>
</À propos>
<Configuration>
<Installé>Faux</Installé>
<BakPath>_Données</BakPath>
</Config>
</Racine>
Voici la classe Asp et comment l'utiliser. Veuillez l'enregistrer sous test.asp et la tester.
Copiez le code comme suit :
<%
ClassAppConfig
DimXmlDom
Sous-classe privée_Initialize()
Définir XmlDom = Server.createobject (microsoft.xmldom)
XmlDom.load(Serveur.mappath(App.xml))
Fin du sous-marin
Sous-classe privée_Terminate()
Définir XmlDom = Rien
Fin du sous-marin
Fonction GetD(clé)
GetD =XmlDom.getElementsByTagName(key)(0).text
Fonction de fin
Fonction SetD(clé,val)
XmlDom.getElementsByTagName(key)(0).text = val
XmlDom.save(Serveur.mappath(App.xml))
Fonction de fin
Fonction AddD (nœud, clé, val)
Définir newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
newnode.text = val
Définir newnode=Rien
XmlDom.save(Serveur.mappath(App.xml))
Fonction de fin
Fonction DelD(clé)
En cas d'erreur, reprendre ensuite
XmlDom.getElementsByTagName(key)(0).parentNode.removechild(XmlDom.getElementsByTagName(key)(0))
XmlDom.save(Serveur.mappath(App.xml))
Fonction de fin
Fin du cours
Définir Config = nouveau AppConfig
wn Config.GetD(Version)
wn Config.GetD (Dernière version)
wn Config.GetD (Auteur)
wn Config.GetD(PubDate)
wn Config.GetD (installé)
wn Config.GetD(BakPath)
' Supprimez l'annotation correspondante pour voir l'effet du nœud [Ajouter/Modifier/Supprimer]
'Appeler Config.AddD(Config,test,test) 'Ajouter un nœud
'Appeler Config.SetD(test,test2) 'Modifier le nœud
'Appeler Config.DelD(test) ' Supprimer le nœud
Sous-wn(str)
Réponse.Write(str)&<br />&vbcrlf
Fin du sous-marin
%>
Ce n’est pas très universel, mais c’est suffisant pour être utilisé dans certaines situations. Il peut essentiellement ajouter/supprimer/modifier des nœuds.