使用ASP+XML製作菜單管理程式

來源:互聯網
上載者:User
menu.asp  這個是前台執行部分
以下是menu.asp代碼:
<%
’---------------------------------------
’作者:野 草
’日期: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&"<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資料檔案

以下是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>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。