• [织梦吧]唯一域名:www.mybbrehberi.com,织梦DedeCMS学习平台.
当前位置: > 网页制作 > XML/XSLT >

优德88官网

来源: www.mybbrehberi.com 编辑:织梦吧 时间:2012-04-15点击:

menu.asp  这个是前台执行部分

 以下是引用片段:
quote: 
<% 

’读取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="utf-8"?> 
<xml> 
<menu> 
<url name="网站优德88" 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="utf-8" 
        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>

 

猜您也喜欢...

猜你也喜欢看这些...