Verfeinerte Klasse für ASP-Operations-XML, einschließlich Beispielcode

Ich habe eine verfeinerte Klasse für Asp geschrieben, um XML zu betreiben. Nachfolgend finden Sie Beispiele. Speichern Sie sie als App.xml und legen Sie sie im selben Verzeichnis wie die ASP-Datei ab.

Kopieren Sie den Codecode wie folgt:

<?xml version=1.0kodierung=utf-8?>

<Wurzel>

<Über>

<Version>1.0 Beta</Version>

<LatestVersion>1.0 Beta</LatestVersion>

<Autor>Autor</Autor>

<PubDate>20.02.2010</PubDate>

</Über>

<Konfiguration>

<Installed>False</Installed>

<BakPath>_Data</BakPath>

</Config>

</Root>

Im Folgenden finden Sie die Asp-Klasse und deren Verwendung. Bitte speichern Sie sie als test.asp und testen Sie sie.

Kopieren Sie den Codecode wie folgt:

<%

ClassAppConfig

DimXmlDom

Private Sub Class_Initialize()

Setze XmlDom = Server.createobject(microsoft.xmldom)

XmlDom.load(Server.mappath(App.xml))

Sub beenden

Private Sub Class_Terminate()

Setze XmlDom = Nothing

Sub beenden

Funktion GetD(key)

GetD =XmlDom.getElementsByTagName(key)(0).text

Funktion beenden

Funktion SetD(key,val)

XmlDom.getElementsByTagName(key)(0).text = val

XmlDom.save(Server.mappath(App.xml))

Funktion beenden

Funktion AddD(node,key,val)

Setze newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))

newnode.text = val

Setze newnode=Nothing

XmlDom.save(Server.mappath(App.xml))

Funktion beenden

Funktion DelD(Taste)

Bei Fehler Weiter fortsetzen

XmlDom.getElementsByTagName(key)(0).parentNode.removechild(XmlDom.getElementsByTagName(key)(0))

XmlDom.save(Server.mappath(App.xml))

Funktion beenden

Unterricht beenden

Setze Config = neue AppConfig

wn Config.GetD(Version)

wn Config.GetD(LatestVersion)

wn Config.GetD(Autor)

wn Config.GetD(PubDate)

wn Config.GetD(Installiert)

wn Config.GetD(BakPath)

' Entfernen Sie die entsprechende Anmerkung, um die Auswirkung des Knotens [Hinzufügen/Bearbeiten/Löschen] zu sehen

'Call Config.AddD(Config,test,test) 'Knoten hinzufügen

'Call Config.SetD(test,test2)' Knoten bearbeiten

'Call Config.DelD(test)' Knoten löschen

Sub wn(str)

Response.Write(str)&<br />&vbcrlf

Sub beenden

%>

Es ist nicht sehr universell, reicht aber für den Einsatz in manchen Situationen aus. Es kann grundsätzlich Knoten hinzufügen/löschen/ändern.