Lengkapi bahasa asp untuk menambah, menghapus, memodifikasi, dan melihat teks node yang ditentukan dalam dokumen XML. Teman yang membutuhkan dapat merujuknya. Copy kode kodenya sebagai berikut:
<%
'------------------------------------------------ - --------------
'Pengenalan program: Lengkapi bahasa asp untuk menambah, menghapus, memodifikasi, dan melihat teks dari node yang ditentukan dalam dokumen XML
'Parameter entri: Tidak ada
'Parameter ekspor: Tidak ada
'------------------------------------------------
'Nama fungsi: ConnectXml()
'Parameter entri: nama file nama file xml yang akan dihubungkan atau dibuka
'Parameter ekspor: Tidak ada
'Nilai kembalian: ConnectXml=0, XMLMorntekDocument adalah objek yang berhasil memuat dokumen XML.
'ConnectXml<>0, lalu cetak pesan kesalahan strError
'------------------------------------------------
redupkan XMLMorntekDocument
fungsi ConnectXml (nama file)
redupkan strSourceFile
strSourceFile = Server.MapPath(nama file)
Setel XMLMorntekDocument = Server.CreateObject(Microsoft.XMLDOM)
XMLMorntekDocument.async = salah
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.kode kesalahan
jika XMLMorntekDocument.parseerror.errorcode<>0 lalu
strError=<h2>kesalahan&XMLMorntekDocument.parseerror.kode kesalahan&</h2>
strError=strError&XMLMorntekDocument.parseerror.alasan&<br>
strError=strError&XMLMorntekDocument.parseerror.url&<br>
strError=strError&XMLMorntekDocument.parseerror.line&<br>
strError=strError&XMLMorntekDocument.parseerror.filepos&<br>
strError=strError&XMLMorntekDocument.parseerror.srcText&<br>
respon.tulis strError
berakhir jika
fungsi akhir
'------------------------------------------------
'Nama fungsi: CloseXml()
'Parameter entri: Tidak ada
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi CloseXml(XMLMorntekDocument)
jika IsObject(XMLMorntekDocument) lalu
atur XMLMorntekDocument=tidak ada
berakhir jika
fungsi akhir
'------------------------------------------------
'Nama fungsi: SelectXmlNodeText (nama elemen)
'Parameter entri: nama elemen Nama elemen
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi SelectXmlNodeText (nama elemen)
nama elemen=//&nama elemen
temp=XMLMorntekDocument.selectSingleNode(nama elemen).teks
pilihXmlNodeText= server.htmlencode(temp)
fungsi akhir
'------------------------------------------------
'Nama fungsi: InsertXmlNodeText (nama befelement, nama elemen, teks elemen)
'Parameter entri: nama elemen Nama elemen yang disisipkan
' befelementname menyisipkan elemen sebelum nama elemen ini
'elementteks Teks elemen yang disisipkan
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi InsertXmlNodeText (nama elemen, nama elemen, teks elemen)
befelement redup, elemen
set befelement=XMLMorntekDocument.selectSingleNode(//&befelementname)
setel elemen= XMLMorntekDocument.createelement(nama elemen)
befelement.insertBefore elemen,befelement.firstchild
elemen.teks=teks elemen
fungsi akhir
'------------------------------------------------
'Nama fungsi: UpdateXmlNodeText (nama elemen, teks elemen baru)
'Parameter entri: nama elemen Nama elemen
' Teks baru dari elemen teks elemen baru
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi UpdateXmlNodeText (nama elemen, teks elemen baru)
elemen redup
setel elemen=XMLMorntekDocument.selectSingleNode(//&nama elemen)
elemen.teks=teks elemen baru
fungsi akhir
'------------------------------------------------
'Nama fungsi: DeleteXmlNodeText (nama elemen)
'Parameter entri: nama elemen Nama elemen
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi DeleteXmlNodeText (nama elemen)
XMLMorntekDocument.selectSingleNode(//&namaelemen).teks =
fungsi akhir
%>