Kelas yang disempurnakan untuk operasi ASP Xml, termasuk kode sampel

Saya menulis kelas yang disempurnakan untuk Asp untuk mengoperasikan Xml. Ada contoh di bawah ini. Simpan sebagai App.xml dan letakkan di direktori yang sama dengan file asp!

Copy kode kodenya sebagai berikut:

<?xml versi=1.0 pengkodean=utf-8?>

<Akar>

<Tentang>

<Versi>1.0 Beta</Versi>

<Versi Terbaru>1.0 Beta</Versi Terbaru>

<Penulis>Penulis</Penulis>

<Tanggal Publik>20/02/2010</Tanggal Publik>

</Tentang>

<Konfigurasi>

<Terpasang>Salah</Terpasang>

<BakPath>_Data</BakPath>

</Konfigurasi>

</Akar>

Berikut ini adalah kelas Asp dan cara menggunakannya, silakan simpan sebagai test.asp dan ujilah.

Copy kode kodenya sebagai berikut:

<%

Konfigurasi Aplikasi Kelas

DimXmlDom

Sub Kelas Pribadi_Inisialisasi()

Setel XmlDom = Server.buat objek(microsoft.xmldom)

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

Akhiri Sub

Sub Kelas_Terminate() Pribadi

Setel XmlDom = Tidak Ada

Akhiri Sub

Fungsi GetD(kunci)

GetD =XmlDom.getElementsByTagName(kunci)(0).teks

Fungsi Akhir

Fungsi SetD(kunci,val)

XmlDom.getElementsByTagName(kunci)(0).teks = val

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

Fungsi Akhir

Fungsi AddD(simpul,kunci,val)

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

node baru.teks = val

Setel simpul baru=Tidak Ada

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

Fungsi Akhir

Fungsi DelD(kunci)

Pada Kesalahan Lanjutkan Berikutnya

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

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

Fungsi Akhir

Kelas Akhir

Setel Config = AppConfig baru

wn Config.GetD(Versi)

wn Config.GetD(Versi Terbaru)

wn Config.GetD(Penulis)

wn Config.GetD(PubDate)

wn Config.GetD(Terpasang)

wn Config.GetD(BakPath)

' Hapus anotasi yang sesuai untuk melihat efek node [Tambah/Edit/Hapus].

'Panggil Config.AddD(Config,test,test) 'Tambahkan node

'Panggil Config.SetD(test,test2) ' Edit simpul

'Panggil Config.DelD(test) ' Hapus simpul

Sub wn(str)

Respon.Tulis(str)&<br />&vbcrlf

Akhiri Sub

%>

Ini tidak terlalu universal, tetapi cukup untuk digunakan dalam beberapa situasi. Pada dasarnya dapat menambah/menghapus/memodifikasi node.