أكمل لغة 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>
استجابة.كتابة خطأ
نهاية إذا
وظيفة النهاية
'------------------------------------------------
'اسم الوظيفة: CloseXml()
'معلمات الإدخال: لا شيء
'معلمات التصدير: لا شيء
'------------------------------------------------
الدالة CloseXml(XMLMorntekDocument)
إذا كان IsObject(XMLMorntekDocument) ثم
تعيين XMLMorntekDocument=لا شيء
نهاية إذا
وظيفة النهاية
'------------------------------------------------
'اسم الوظيفة: SelectXmlNodeText(elementname)
'معلمة الإدخال: اسم العنصر اسم العنصر
'معلمات التصدير: لا شيء
'------------------------------------------------
الدالة SelectXmlNodeText(اسم العنصر)
elementname=//&elementname
temp=XMLMorntekDocument.selectSingleNode(elementname).text
حددXmlNodeText= server.htmlencode(temp)
وظيفة النهاية
'------------------------------------------------
'اسم الوظيفة: 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 (اسم العنصر، نص العنصر الجديد)
عنصر خافت
تعيين العنصر=XMLMorntekDocument.selectSingleNode(//&elementname)
element.text=newelementtext
وظيفة النهاية
'------------------------------------------------
'اسم الوظيفة: حذفXmlNodeText(اسم العنصر)
'معلمة الإدخال: اسم العنصر اسم العنصر
'معلمات التصدير: لا شيء
'------------------------------------------------
وظيفة حذفXmlNodeText(اسم العنصر)
XMLMorntekDocument.selectSingleNode(//&elementname).text =
وظيفة النهاية
%>