ASP+XML制作菜单管理
作者:野草 来源:无忧脚本 时间:2008-05-19 12:38:00
ASP+XML制作菜单管理!
menu.asp 这个是前台执行部分
<%
'---------------------------------------
'作者:野 草
'日期:2006年4月24日
'Q Q:94440079
'51群:21643964(51JS.COM的群)
'---------------------------------------
'读取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数据文件
<?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文件部分
<%
'利用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>
注:由于时间问题,没来得及测试!我^_^#
标签:菜单,xml,asp
0
投稿
猜你喜欢
CSS 的模块化思想
2009-02-03 12:52:00
SQL Server 2000中生成XML的小技巧
2009-02-13 17:12:00
纯CSS实现导航下拉菜单
2007-11-25 15:11:00
数字人组件反写[asp组件开发实例2]
2009-06-09 13:15:00
sql存储过程获取汉字拼音头字母函数
2011-11-03 16:58:05
CPQuery 解决拼接SQL的新方法
2012-11-30 20:01:46
用FrontPage200八步快速建站
2008-09-17 10:52:00
在ASP中按指定参数格式化显示时间的函数。
2010-05-27 12:29:00
ASP利用Google实现在线翻译功能
2010-03-07 17:28:00
使用MySql和php出现中文乱码的解决方法
2009-01-14 12:02:00
8大措施帮你构筑Access安全防线
2010-03-11 14:38:00
SQL Server 2005 SP3正式版下载
2008-12-16 12:42:00
基于display:table的CSS布局
2008-10-30 10:38:00
form 元素内的字段 name 不要跟 form 属性名称一致
2008-10-22 13:25:00
层叠加的五条叠加法则
2009-05-01 12:07:00
隐藏修改文件时间和文件属性的ASP脚本
2011-03-17 11:15:00
X/HTML5 v.s. XHTML2(I)
2008-06-17 18:00:00
为什么要登录?
2010-11-30 21:41:00
页面制作的重要性
2007-10-30 13:14:00
请站在用户的角度上说话
2009-05-12 12:03:00