-
'------------------------------------------------ - ---------------
'การแนะนำโปรแกรม: กรอกภาษา asp เพื่อเพิ่ม ลบ แก้ไข และดูข้อความโหนดที่ระบุในเอกสาร XML
'พารามิเตอร์รายการ: ไม่มี
'พารามิเตอร์การส่งออก: ไม่มี
-
'ชื่อฟังก์ชัน: ConnectXml()
'พารามิเตอร์รายการ: ชื่อไฟล์ ชื่อไฟล์ xml ที่จะเชื่อมต่อหรือเปิด
'พารามิเตอร์การส่งออก: ไม่มี
'ค่าที่ส่งคืน: ConnectXml=0, XMLMorntekDocument เป็นวัตถุที่โหลดเอกสาร XML ได้สำเร็จ
'ConnectXml<>0 จากนั้นพิมพ์ข้อความแสดงข้อผิดพลาด strError
-
ชั่น XMLMorntekDocument หรี่
ConnectXml (ชื่อไฟล์)
สลัว strSourceFile
strSourceFile = Server.MapPath (ชื่อไฟล์)
ตั้งค่า XMLMorntekDocument = Server.CreateObject("Microsoft.XMLDOM")
XMLMorntekDocument.async = เท็จ
XMLMorntekDocument.load(strSourceFile)
ConnectXml=XMLMorntekDocument.parseerror.errorcode
ถ้า XMLMorntekDocument.parseerror.errorcode<>0 แล้ว
strError="<h2>ข้อผิดพลาด"&XMLMorntekDocument.parseerror.errorcode&"</h2>"
strError=strError&XMLMorntekDocument.parseerror.reason&"<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>"
การตอบสนองเขียน strError
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
'--------------------------------------------------- --- -
'ชื่อฟังก์ชัน: CloseXml()
'พารามิเตอร์รายการ: ไม่มี
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น CloseXml (XMLMorntekDocument)
ถ้า IsObject(XMLMorntekDocument) แล้ว
ตั้งค่า XMLMorntekDocument=nothing
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
-
'ชื่อฟังก์ชัน: SelectXmlNodeText (ชื่อองค์ประกอบ)
'พารามิเตอร์รายการ: elementname ชื่อขององค์ประกอบ
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น SelectXmlNodeText (ชื่อองค์ประกอบ)
elementname="//"&elementname
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText=
ฟังก์ชันสิ้นสุด
server.htmlencode(temp)'------------------------------------------------------ ----------
'ชื่อฟังก์ชัน: InsertXmlNodeText (befelementname, elementname, elementtext)
'พารามิเตอร์รายการ: elementname ชื่อขององค์ประกอบที่แทรก
' befelementname แทรกองค์ประกอบก่อนชื่อขององค์ประกอบนี้
'elementtext ข้อความขององค์ประกอบที่แทรก
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น InsertXmlNodeText (befelementname, elementname, elementtext)
องค์ประกอบสลัวองค์ประกอบ
ตั้ง befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
ชุดองค์ประกอบ = XMLMorntekDocument.createelement (ชื่อองค์ประกอบ)
befelement.insertBefore องค์ประกอบ befelement.firstchild
องค์ประกอบ.ข้อความ=องค์ประกอบข้อความ
ฟังก์ชั่นสิ้นสุด
'--------------------------------------------------- --- -
'ชื่อฟังก์ชัน: UpdateXmlNodeText (ชื่อองค์ประกอบ ข้อความใหม่)
'พารามิเตอร์รายการ: elementname ชื่อขององค์ประกอบ
' ข้อความใหม่ขององค์ประกอบข้อความ newelement
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น UpdateXmlNodeText (ชื่อองค์ประกอบข้อความใหม่)
องค์ประกอบสลัว
ชุดองค์ประกอบ=XMLMorntekDocument.selectSingleNode("//"&elementname)
องค์ประกอบ.ข้อความ=องค์ประกอบข้อความใหม่
ฟังก์ชั่นสิ้นสุด
'--------------------------------------------------- --- -
'ชื่อฟังก์ชัน: DeleteXmlNodeText (ชื่อองค์ประกอบ)
'พารามิเตอร์รายการ: elementname ชื่อขององค์ประกอบ
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น DeleteXmlNodeText (ชื่อองค์ประกอบ)
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""
ฟังก์ชั่นสิ้นสุด
-