إن استخدام asp+xml لتحقيق إدارة التعليمات البرمجية يعني في الواقع استخدام asp لتشغيل xml. وفيما يلي رمز القائمة.asp
رمز البرنامج
<%
'---------------------------------------
'المؤلف: الأعشاب
التاريخ: 24 أبريل 2006
'س ف:94440079
'---------------------------------------
'قراءة وظيفة ملف XML
الدالة YCMS_menu()
القائمة الخافتة_درجة الحرارة، م
تعيين goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
تعيين goroot=goxml.documentElement.selectSingleNode(menu)
م = 0
لكل طفل في goroot.childNodes
تعيين قائمة الأطفال = goroot.childnodes.item(m)
خافت Menu_open،menu_title،menu_url
Menu_open=childmenu.getAttributeNode(open).nodeValue
Menu_name=childmenu.getAttributeNode(name).nodeValue
Menu_url=goroot.childNodes.item(m).text
"تحديد ما إذا كانت نافذة منبثقة."
إذا Menu_open=0 ثم
""""""""""""""""""""""""""""""""""""""""""""" من الأول""""""؟
إذا م = 0 ثم
Menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
آخر
Menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
نهاية إذا
آخر
إذا م = 0 ثم
Menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
آخر
Menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
نهاية إذا
نهاية إذا
تعيين قائمة الأطفال = لا شيء
م=م+1
التالي
تعيين goroot=لا شيء
تعيين goxml=لا شيء
YCMS_menu=menu_temp
وظيفة النهاية
"قائمة إخراج XML."
الاستجابة.الكتابة(YCMS_menu())
%>
وفيما يلي رمز القائمة.xml:
رمز البرنامج
<?xml version=1.0 encoding=gb2312?>
<إكسمل>
<القائمة>
<url name=Website homepageopen=0>index.asp</url>
<url name=News open=0>News.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=عرض الصورة مفتوح=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=resource download open=0>Down.asp</url>
<url name=اترك رسالة للمناقشة open=0>Book.asp</url>
<url name=Friendly link open=0>Link.asp</url>
</القائمة>
</xml>
admin_menu.asp جزء ملف XML لإدارة الخلفية
التالي هو admin_menu.asp
رمز البرنامج
<%
'استخدم مكون ADO.Stream لحفظ الملفات
وظيفة الحفظ (file_body، file_name)
تعيين نظام التشغيل = Server.CreateObject (ADODB.Stream)
نوع نظام التشغيل=2
نظام التشغيل.فتح
OS.Charset=GB2312
OS.Position=OS.Size
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(file_name),2
نظام التشغيل. إغلاق
ضبط نظام التشغيل = لا شيء
وظيفة النهاية
إذا Request.QueryString(action)=حسنًا إذن
استدعاء حفظ (Request.Form(content)،menu.xml)
نهاية إذا
%>
<أتش تي أم أل>
<الرأس>
<العنوان></العنوان>
</الرأس>
<الجسم>
<إجراء النموذج=?action=ok الطريقة=post>
<textarea style='width:500px;height:200px;' name='content'>
<%=server.execute(menu.xml)%>
</textarea>
<نوع الإدخال='إرسال' القيمة='تعديل' />
</النموذج>
</الجسم>
</html>