ฉันเขียนคลาสที่ได้รับการปรับปรุงสำหรับ Asp เพื่อใช้งาน Xml มีตัวอย่างด้านล่าง บันทึกเป็น App.xml และวางไว้ในไดเร็กทอรีเดียวกันกับไฟล์ asp!
คัดลอกรหัสรหัสดังต่อไปนี้:
<?xml version=การเข้ารหัส 1.0=utf-8?>
<ราก>
<เกี่ยวกับ>
<เวอร์ชัน>1.0 เบต้า</เวอร์ชัน>
<LatestVersion>1.0 เบต้า</LatestVersion>
<ผู้เขียน>ผู้เขียน</ผู้เขียน>
<PubDate>2010/02/20</PubDate>
</เกี่ยวกับ>
<กำหนดค่า>
<ติดตั้ง>เท็จ</ติดตั้ง>
<BakPath>_ข้อมูล</BakPath>
</กำหนดค่า>
</ราก>
ต่อไปนี้เป็นคลาส Asp และวิธีการใช้งาน โปรดบันทึกเป็น test.asp และทดสอบ
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ClassAppConfig
DimXmlDom
Class_Initialize ส่วนตัว ()
ตั้งค่า XmlDom = Server.createobject(microsoft.xmldom)
XmlDom.load(Server.mappath(App.xml))
จบหมวดย่อย
Class_Terminate ส่วนตัวย่อย ()
ตั้งค่า XmlDom = ไม่มีเลย
จบหมวดย่อย
ฟังก์ชัน GetD(คีย์)
GetD =XmlDom.getElementsByTagName(คีย์)(0).ข้อความ
ฟังก์ชันสิ้นสุด
ฟังก์ชัน SetD(คีย์,วาล)
XmlDom.getElementsByTagName(คีย์)(0).text = val
XmlDom.save(Server.mappath(App.xml))
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น AddD (โหนด, คีย์, val)
ตั้งค่า newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
newnode.text = วาล
ตั้งค่า newnode=Nothing
XmlDom.save(Server.mappath(App.xml))
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น DelD(คีย์)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
XmlDom.getElementsByTagName(คีย์)(0).parentNode.removechild(XmlDom.getElementsByTagName(คีย์)(0))
XmlDom.save(Server.mappath(App.xml))
ฟังก์ชันสิ้นสุด
จบคลาส
ตั้งค่า Config = AppConfig ใหม่
wn Config.GetD (เวอร์ชัน)
wn Config.GetD (เวอร์ชันล่าสุด)
wn Config.GetD (ผู้เขียน)
wn Config.GetD (PubDate)
wn Config.GetD (ติดตั้งแล้ว)
wn Config.GetD (BakPath)
' ลบคำอธิบายประกอบที่เกี่ยวข้องเพื่อดูผลกระทบของโหนด [เพิ่ม/แก้ไข/ลบ]
'เรียก Config.AddD (Config, test, test) ' เพิ่ม node
'เรียก Config.SetD(test,test2)' แก้ไขโหนด
'เรียก Config.DelD (ทดสอบ) ' ลบโหนด
ย่อย(str)
Response.Write(str)&<br />&vbcrlf
จบหมวดย่อย
-
อาจไม่เป็นสากลมากนัก แต่ก็เพียงพอสำหรับใช้ในบางสถานการณ์ โดยพื้นฐานแล้วสามารถเพิ่ม/ลบ/แก้ไขโหนดได้