Menggunakan asp+xml untuk mencapai manajemen kode sebenarnya berarti menggunakan asp untuk mengoperasikan xml. Berikut ini adalah kode menu.asp
kode program
<%
'----------------------------------------
'Penulis: gulma
'Tanggal: 24 April 2006
'QQ:94440079
'----------------------------------------
'Baca fungsi file XML
Fungsi YCMS_menu()
redupkan menu_temp,m
Setel goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
Setel goroot=goxml.documentElement.selectSingleNode(menu)
m=0
Untuk setiap anak di goroot.childNodes
setel menu anak=goroot.childnodes.item(m)
Redupkan menu_open,menu_title,menu_url
menu_open=childmenu.getAttributeNode(open).nodeValue
menu_name=childmenu.getAttributeNode(nama).nodeValue
menu_url=goroot.childNodes.item(m).teks
'Tentukan apakah itu jendela pop-up
Jika menu_open=0 Lalu
'Tentukan apakah itu yang pertama, jika yang pertama, hapuslah┊
Jika m=0 Maka
menu_temp=menu_temp&<a href='&menu_url&'>&nama_menu&</a>
Kalau tidak
menu_temp=menu_temp&┊<a href='&menu_url&'>&nama_menu&</a>
Akhiri Jika
Kalau tidak
Jika m=0 Maka
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&nama_menu&</a>
Kalau tidak
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&nama_menu&</a>
Akhiri Jika
Akhiri Jika
atur menu anak=tidak ada
m=m+1
Berikutnya
setel goroot=tidak ada
atur goxml=tidak ada
YCMS_menu=menu_temp
Fungsi Akhir
'Menu XML keluaran
respon.tulis(YCMS_menu())
%>
Berikut kode menu.xmlnya :
kode program
<?xml versi=1.0 pengkodean=gb2312?>
<xml>
<menu>
<url name=Beranda situs webopen=0>index.asp</url>
<url name=Berita open=0>Berita.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=Tampilan gambar terbuka=0>Gambar.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=unduhan sumber daya open=0>Bawah.asp</url>
<url name=Tinggalkan pesan untuk diskusi open=0>Book.asp</url>
<url name=Tautan ramah open=0>Link.asp</url>
</menu>
</xml>
admin_menu.asp bagian file XML manajemen latar belakang
Berikut ini adalah admin_menu.asp
kode program
<%
'Gunakan komponen ADO.Stream untuk menyimpan file
Fungsi Simpan(badan_file,nama_file)
Setel OS=Server.CreateObject(ADODB.Stream)
OS.Jenis=2
OS.Buka
OS.Charset=GB2312
OS.Posisi=OS.Ukuran
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(nama_file),2
OS.Tutup
Atur OS=Tidak Ada
Fungsi Akhir
jika Request.QueryString(action)=ok maka
panggil Simpan(Permintaan.Formulir(konten),menu.xml)
berakhir jika
%>
<html>
<kepala>
<judul></judul>
</kepala>
<tubuh>
<formulir tindakan=?aksi=ok metode=postingan>
<textarea style='lebar:500px;tinggi:200px;' nama='konten'>
<%=server.eksekusi(menu.xml)%>
</area teks>
<input type='kirim' nilai='modifikasi' />
</bentuk>
</tubuh>
</html>