以下是menu.asp代码
程序代码
<
---------------------------------------
作者：野草
日期：2006年4月24日
q：94440079
---------------------------------------
读取xml文件函数
ycms_menu（）函数
昏暗的menu_temp，M
集goxml = server.createobject（微软。XMLDOM ）
Goxml.load（server.mappath（菜单。XML））
集goroot = goxml.documentelement.selectsinglenode（菜单）
M = 0
每个孩子在goroot.childnodes
集childmenu = goroot.childnodes.item（M）
昏暗的menu_open，menu_title，menu_url
menu_open = childmenu.getattributenode（开放）。NodeValue
menu_name = childmenu.getattributenode（名）。NodeValue
menu_url = goroot.childnodes.item文本（M）。
不管是弹出窗口
如果menu_open = 0
如果第一个被去掉，判断它是否是第一个。
如果m＝0
menu_temp = menu_temp menu_name
其他的
menu_temp = menu_tempmenu_name
最后如果
其他的
如果m＝0
menu_temp = menu_temp menu_name
其他的
menu_temp = menu_tempmenu_name
最后如果
最后如果
集childmenu =没有
m＝m + 1
下一个
集goroot =没有
集goxml =没有
ycms_menu = menu_temp
端功能
输出XML菜单
response.write（ycms_menu（））
%>
以下是menu.xml的代码：
程序代码



index.asp
news.asp
art.asp
pic.asp
dj.asp
down.asp
book.asp
link.asp


admin_menu.asp后台管理XML文件的一部分
以下是admin_menu.asp
程序代码
<
使用ADO流组件保存文件
功能保存（file_body，file_name）
设置操作系统= server.createobject（ADODB。流）
操作系统类型= 2
开放操作系统。
操作系统，字符集=GB2312
位置= os.size OS。
操作系统file_body WRITETEXT =。
OS.SaveToFile Server.MapPath（file_name），2
操作系统关闭
设置操作系统
端功能
如果Request.QueryString（行动）=好然后
调用save（Request.Form（内容）、菜单。XML）
最后如果
%>