ASP+XML制作菜单管理!

<%
'---------------------------------------
'作者:野 草
'日期:2006年4月24日
'Q  Q:94440079
'51群:21643964(51JS.COM的群)
'网站:http://www.yecaoweb.com OR http://www.yecaoweb.net
'---------------------------------------
'读取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&""&menu_name&""
Else
menu_temp=menu_temp&"┊"&menu_name&""
End If
Else
If m=0 Then
menu_temp=menu_temp&""&menu_name&""
Else
menu_temp=menu_temp&"┊"&menu_name&""
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())
%>

index.asp
News.asp
Art.asp
Pic.asp
Dj.asp
Down.asp
Book.asp
Link.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
%>

<br /> <%=server.execute("menu.xml")%><br />