<%
'------------------------------------------------ - --------------
'Pengenalan program: Lengkapi bahasa asp untuk menambah, menghapus, memodifikasi, dan melihat teks simpul 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
fungsi XMLMorntekDocument 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="//"&namaelemen
temp=XMLMorntekDocument.selectSingleNode(nama elemen).teks
selectXmlNodeText= 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
'elementeks Teks elemen yang disisipkan
'Parameter ekspor: Tidak ada
'------------------------------------------------
fungsi InsertXmlNodeText (nama elemen, nama elemen, teks elemen)
befelement redup, elemen
setel 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("//"&nama elemen).text =""
fungsi akhir
%>