利用asp+xml實現程式碼管理，實際上就是利用asp操作xml以下是menu.asp程式碼
程式碼
<%
'---------------------------------------
'作者:野草
'日期:2006年4月24日
'QQ:94440079
'---------------------------------------
'讀取XML檔函數
Function YCMS_menu()
dim menu_temp,m
Set goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
Set goroot=goxml.documentElement.selectSingleNode(menu)
m=0
For each child in goroot.childNodes
set childmenu=goroot.childnodes.item(m)
Dim 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
'判斷是否為彈出窗口
If menu_open=0 Then
'判斷是否為第一個,若是第一個則去掉┊
If m=0 Then
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Else
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
End If
Else
If m=0 Then
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Else
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
End If
End If
set childmenu=nothing
m=m+1
next
set goroot=nothing
set goxml=nothing
YCMS_menu=menu_temp
End Function
'輸出XML選單
response.write(YCMS_menu())
%>
以下是menu.xml程式碼：
程式碼
<?xml version=1.0 encoding=gb2312?>
<xml>
<menu>
<url name=網站首頁open=0>index.asp</url>
<url name=新聞動態open=0>News.asp</url>
<url name=文章中心open=0>Art.asp</url>
<url name=圖片展示open=0>Pic.asp</url>
<url name=影音娛樂open=0>Dj.asp</url>
<url name=資源下載open=0>Down.asp</url>
<url name=留言討論open=0>Book.asp</url>
<url name=友情連線open=0>Link.asp</url>
</menu>
</xml>
admin_menu.asp 後台管理XML檔案部分
以下是admin_menu.asp
程式碼
<%
'利用ADO.Stream元件儲存文件
Function Save(file_body,file_name)
Set OS=Server.CreateObject(ADODB.Stream)
OS.Type=2
OS.Open
OS.Charset=GB2312
OS.Position=OS.Size
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(file_name),2
OS.Close
Set OS=Nothing
End Function
if Request.QueryString(action)=ok then
call Save(Request.Form(content),menu.xml)
end if
%>
<html>
<head>
<title></title>
</head>
<body>
<form action=?action=ok method=post>
<textarea style='width:500px;height:200px;' name='content'>
<%=server.execute(menu.xml)%>
</textarea>
<input type='submit' value='修改' />
</form>
</body>
</html>