Использование asp+xml для управления кодом на самом деле означает использование asp для работы с xml. Ниже приведен код Menu.asp.
программный код
<%
'---------------------------------------
'Автор: сорняки
'Дата: 24 апреля 2006 г.
'QQ: 94440079
'---------------------------------------
'Функция чтения XML-файла
Функция YCMS_menu()
тусклый меню_temp, м
Установите goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
Установите goroot=goxml.documentElement.selectSingleNode(меню)
м=0
Для каждого дочернего элемента в goroot.childNodes
set childmenu=goroot.childnodes.item(m)
Затемнить меню_open,menu_title,menu_url
Menu_open=childmenu.getAttributeNode(open).nodeValue
имя_меню=childmenu.getAttributeNode(имя).nodeValue
menu_url=goroot.childNodes.item(m).text
'Определить, является ли это всплывающим окном
Если меню_open=0 Тогда
'Определите, первый ли он, если первый, удалите его┊
Если m=0 Тогда
Menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Еще
Menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
Конец, если
Еще
Если m=0 Тогда
Menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Еще
Menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
Конец, если
Конец, если
установить дочернее меню = ничего
м=м+1
следующий
установить goroot=ничего
установить goxml=ничего
YCMS_menu=menu_temp
Конечная функция
'Меню вывода XML
response.write(YCMS_menu())
%>
Ниже приведен код файла Menu.xml:
программный код
<?xml версия=1.0 кодировка=gb2312?>
<xml>
<меню>
<url name=Домашняя страница веб-сайтаopen=0>index.asp</url>
<url name=News open=0>News.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=Отображение изображения open=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=resource download open=0>Down.asp</url>
<url name=Оставить сообщение для обсуждения open=0>Book.asp</url>
<url name=Дружественная ссылка open=0>Link.asp</url>
</меню>
</xml>
Часть XML-файла фонового управления admin_menu.asp
Ниже приведен файл admin_menu.asp.
программный код
<%
'Используйте компонент ADO.Stream для сохранения файлов
Функция Сохранить(тело_файла,имя_файла)
Установите OS=Server.CreateObject(ADODB.Stream)
ОС.Тип=2
ОС.Открыть
OS.Charset=GB2312
OS.Position=OS.Size
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(имя_файла),2
ОС.Закрыть
Установить ОС=Ничего
Конечная функция
если Request.QueryString(action)=ok, тогда
вызовите Save(Request.Form(content),menu.xml)
конец, если
%>
<html>
<голова>
<title></title>
</голова>
<тело>
<form action=?action=ok метод=post>
<textarea style='width:500px;height:200px;' name='content'>
<%=server.execute(menu.xml)%>
</textarea>
<input type='submit' value='modify' />
</форма>
</тело>
</html>