لقد كتبت فئة محسنة لـ Asp لتشغيل Xml. توجد أمثلة أدناه، احفظها كـ App.xml وضعها في نفس الدليل مثل ملف asp!
انسخ رمز الكود كما يلي:
<?xml version=1.0 encoding=utf-8?>
<الجذر>
<حول>
<الإصدار>1.0 بيتا</الإصدار>
<LatestVersion>1.0 بيتا</LatestVersion>
<المؤلف>المؤلف</المؤلف>
<PubDate>2010/02/20</PubDate>
</حول>
<التكوين>
<مثبتة>خطأ</مثبت>
<BakPath>_Data</BakPath>
</التكوين>
</الجذر>
فيما يلي فئة Asp وكيفية استخدامها، يرجى حفظها كـ test.asp واختبارها.
انسخ رمز الكود كما يلي:
<%
ClassAppConfig
DimXmlDom
فئة فرعية خاصة_Initialize()
تعيين XmlDom = Server.createobject(microsoft.xmldom)
XmlDom.load(Server.mappath(App.xml))
نهاية الفرعية
فئة فرعية خاصة_Terminate()
تعيين XmlDom = لا شيء
نهاية الفرعية
وظيفة GetD (المفتاح)
GetD =XmlDom.getElementsByTagName(key)(0).text
وظيفة النهاية
وظيفة SetD (مفتاح، فال)
XmlDom.getElementsByTagName(key)(0).text = val
XmlDom.save(Server.mappath(App.xml))
وظيفة النهاية
وظيفة AddD (العقدة، المفتاح، فال)
تعيين newnode=XmlDom.getElementsByTagName(node)(0).appendchild(XmlDom.createelement(key))
newnode.text = val
تعيين العقدة الجديدة = لا شيء
XmlDom.save(Server.mappath(App.xml))
وظيفة النهاية
وظيفة DelD (مفتاح)
على خطأ استئناف التالي
XmlDom.getElementsByTagName(key)(0).parentNode.removechild(XmlDom.getElementsByTagName(key)(0))
XmlDom.save(Server.mappath(App.xml))
وظيفة النهاية
نهاية الفصل
تعيين التكوين = 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)" إضافة عقدة
"استدعاء Config.SetD(test,test2)" تحرير العقدة
'استدعاء Config.DelD(اختبار)' حذف العقدة
فرعي (شارع)
Response.Write(str)&<br />&vbcrlf
نهاية الفرعية
%>
إنها ليست عالمية جدًا، ولكنها كافية للاستخدام في بعض المواقف، حيث يمكنها بشكل أساسي إضافة/حذف/تعديل العقد.