การใช้ asp+xml เพื่อให้บรรลุการจัดการโค้ดหมายถึงการใช้ asp เพื่อดำเนินการ xml ต่อไปนี้เป็นโค้ด menu.asp
รหัสโปรแกรม
-
-
'ผู้เขียน: วัชพืช
วันที่: 24 เมษายน 2549
'QQ:94440079
-
'อ่านฟังก์ชันไฟล์ XML
ฟังก์ชัน YCMS_menu()
เมนูสลัว_temp,ม
ตั้งค่า goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load (เซิร์ฟเวอร์ MapPath (เมนู.xml))
ตั้งค่า goroot=goxml.documentElement.selectSingleNode(เมนู)
ม.=0
สำหรับเด็กแต่ละคนใน goroot.childNodes
ตั้งค่าเมนูลูก = goroot.childnodes.item (ม.)
ติ่ม menu_open,menu_title,menu_url
menu_open=childmenu.getAttributeNode(open).nodeValue
menu_name=childmenu.getAttributeNode(name).nodeValue
menu_url=goroot.childNodes.item(ม).ข้อความ
'ตรวจสอบว่าเป็นหน้าต่างป๊อปอัปหรือไม่
ถ้า menu_open=0 แล้ว
'ตรวจสอบว่าเป็นอันแรกหรือไม่ ถ้าเป็นอันแรกให้ลบออก┊
ถ้า m=0 แล้ว
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
อื่น
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
สิ้นสุดถ้า
อื่น
ถ้า m=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=nothing
ตั้ง goxml=ไม่มีอะไร
YCMS_menu=menu_temp
ฟังก์ชันสิ้นสุด
'เมนูเอาต์พุต XML
ตอบกลับเขียน(YCMS_menu())
-
ต่อไปนี้เป็นรหัส menu.xml:
รหัสโปรแกรม
<?xml version=การเข้ารหัส 1.0=gb2312?>
<xml>
<เมนู>
<url name=หน้าแรกของเว็บไซต์open=0>index.asp</url>
<url name=News open=0>News.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=การแสดงรูปภาพ open=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=resource ดาวน์โหลด open=0>Down.asp</url>
<url name=ฝากข้อความเพื่อการสนทนา open=0>Book.asp</url>
<url name=ลิงก์ที่เป็นมิตร open=0>Link.asp</url>
</เมนู>
</xml>
admin_menu.asp ส่วนไฟล์ XML การจัดการพื้นหลัง
ต่อไปนี้คือ admin_menu.asp
รหัสโปรแกรม
-
'ใช้ส่วนประกอบ ADO.Stream เพื่อบันทึกไฟล์
ฟังก์ชั่นบันทึก (file_body,file_name)
ตั้งค่า OS=Server.CreateObject(ADODB.Stream)
OS.ประเภท=2
OS.เปิด
OS.Charset=GB2312
OS.Position=ขนาด OS
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(file_name),2
OS.ปิด
ตั้งค่า OS=ไม่มีอะไร
ฟังก์ชันสิ้นสุด
ถ้า Request.QueryString(action)=ok แล้ว
โทรบันทึก(Request.Form(content),menu.xml)
สิ้นสุดถ้า
-
<html>
<หัว>
<title></title>
</หัว>
<ร่างกาย>
<การกระทำของฟอร์ม=?การกระทำ=ok วิธีการ=โพสต์>
<textarea style='width:500px;height:200px;' name='content'>
<%=server.execute(menu.xml)%>
</ข้อความ>
<ประเภทอินพุต='ส่ง' ค่า='แก้ไข' />
</แบบฟอร์ม>
</ร่างกาย>
</html>