مثال كامل لملفات XML التي تقوم بتشغيل ASP

<%
'------------------------------------------------ - --------------
'مقدمة البرنامج: أكمل لغة 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>"
استجابة.كتابة خطأ
نهاية إذا
وظيفة النهاية

'---------------------------------------------- -- -
'اسم الوظيفة: CloseXml()
'معلمات الإدخال: لا شيء
'معلمات التصدير: لا شيء
'------------------------------------------------
الدالة CloseXml(XMLMorntekDocument)
إذا كان IsObject(XMLMorntekDocument) ثم
تعيين XMLMorntekDocument=لا شيء
نهاية إذا
وظيفة النهاية

'------------------------------------------------
'اسم الوظيفة: SelectXmlNodeText(elementname)
'معلمة الإدخال: اسم العنصر اسم العنصر
'معلمات التصدير: لا شيء
'------------------------------------------------
الدالة SelectXmlNodeText(اسم العنصر)
اسم العنصر = "//"& اسم العنصر
temp=XMLMorntekDocument.selectSingleNode(elementname).text
SelectXmlNodeText=

وظيفة نهاية

'--------------------------------------- ----------
'اسم الوظيفة: InsertXmlNodeText(befelementname,elementname,elementtext)
'معلمة الإدخال: اسم العنصر اسم العنصر المدرج
يقوم befelementname بإدراج عنصر قبل اسم هذا العنصر
'elementtext نص العنصر المدرج
'معلمات التصدير: لا شيء
'------------------------------------------------
وظيفة InsertXmlNodeText(befelementname,elementname,elementtext)
عنصر خافت
تعيين befelement=XMLMorntekDocument.selectSingleNode("//"&befelementname)
تعيين العنصر = XMLMorntekDocument.createelement(elementname)
befelement.insertBefore العنصر،befelement.firstchild
element.text=elementtext
وظيفة النهاية

'---------------------------------------------- -- -
'اسم الوظيفة: UpdateXmlNodeText(elementname,newelementtext)
'معلمة الإدخال: اسم العنصر اسم العنصر
' النص الجديد لعنصر النص الجديد
'معلمات التصدير: لا شيء
'------------------------------------------------
الدالة UpdateXmlNodeText(elementname,newelementtext)
عنصر خافت
تعيين العنصر=XMLMorntekDocument.selectSingleNode("//"&elementname)
element.text=newelementtext
وظيفة النهاية

'---------------------------------------------- -- -
'اسم الوظيفة: حذفXmlNodeText(اسم العنصر)
'معلمة الإدخال: اسم العنصر اسم العنصر
'معلمات التصدير: لا شيء
'------------------------------------------------
وظيفة حذفXmlNodeText(اسم العنصر)
XMLMorntekDocument.selectSingleNode("//"&elementname).text =""
وظيفة النهاية
%>