กรอกภาษา asp เพื่อเพิ่ม ลบ แก้ไข และดูข้อความโหนดที่ระบุในเอกสาร XML เพื่อนๆ ที่ต้องการสามารถอ้างอิงถึงได้ คัดลอกรหัสรหัสดังต่อไปนี้:
-
'------------------------------------------------ - ---------------
'การแนะนำโปรแกรม: กรอกภาษา 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=//&ชื่อองค์ประกอบ
temp=XMLMorntekDocument.selectSingleNode(elementname).text
selectXmlNodeText= server.htmlencode(อุณหภูมิ)
ฟังก์ชั่นสิ้นสุด
-
'ชื่อฟังก์ชัน: 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(//&ชื่อองค์ประกอบ)
องค์ประกอบ.ข้อความ=องค์ประกอบข้อความใหม่
ฟังก์ชั่นสิ้นสุด
-
'ชื่อฟังก์ชัน: DeleteXmlNodeText (ชื่อองค์ประกอบ)
'พารามิเตอร์รายการ: elementname ชื่อขององค์ประกอบ
'พารามิเตอร์การส่งออก: ไม่มี
-
ฟังก์ชั่น DeleteXmlNodeText (ชื่อองค์ประกอบ)
XMLMorntekDocument.selectSingleNode(//&elementname).text =
ฟังก์ชั่นสิ้นสุด
-