Usar asp + xml para obter gerenciamento de código, na verdade, significa usar asp para operar xml. A seguir está o código menu.asp.
código do programa
<%
'------------------------------------------
'Autor: ervas daninhas
'Data: 24 de abril de 2006
'QQ:94440079
'------------------------------------------
'Função de leitura de arquivo XML
Função YCMS_menu()
escurecer menu_temp,m
Definir goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
Definir goroot = goxml.documentElement.selectSingleNode (menu)
m=0
Para cada filho em goroot.childNodes
definir childmenu=goroot.childnodes.item(m)
Escurecer menu_open,menu_title,menu_url
menu_open=childmenu.getAttributeNode(open).nodeValue
menu_name=childmenu.getAttributeNode(nome).nodeValue
menu_url=goroot.childNodes.item(m).texto
'Determina se é uma janela pop-up
Se menu_open = 0 Então
'Determine se é o primeiro, se for o primeiro, remova-o┊
Se m=0 então
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Outro
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
Terminar se
Outro
Se m=0 então
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Outro
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
Terminar se
Terminar se
definir menu filho = nada
m=m+1
próximo
definir goroot = nada
definir goxml = nada
YCMS_menu=menu_temp
Função final
'Menu XML de saída
resposta.write(YCMS_menu())
%>
A seguir está o código menu.xml:
código do programa
<?xml versão=1.0 codificação=gb2312?>
<xml>
<menu>
<url name=Homepage do siteopen=0>index.asp</url>
<url name=Notícias abertas=0>News.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=Exibição de imagem aberta=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=download do recurso open=0>Down.asp</url>
<url name=Deixe uma mensagem para discussão open=0>Book.asp</url>
<url name=Link amigável open=0>Link.asp</url>
</menu>
</xml>
parte do arquivo XML de gerenciamento de plano de fundo admin_menu.asp
O seguinte é admin_menu.asp
código do programa
<%
'Use o componente ADO.Stream para salvar arquivos
Função Salvar (corpo_arquivo, nome_arquivo)
Definir OS=Server.CreateObject(ADODB.Stream)
SO.Type=2
SO.Aberto
OS.Charset=GB2312
OS.Position=OS.Tamanho
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(nome_do_arquivo),2
SO.Fechar
Definir SO=Nada
Função final
se Request.QueryString(action)=ok então
ligue para Salvar (Request.Form (conteúdo), menu.xml)
terminar se
%>
<html>
<cabeça>
<título></título>
</head>
<corpo>
<form action=?action=ok método=post>
<textarea style='largura:500px;altura:200px;' nome='conteúdo'>
<%=servidor.execute(menu.xml)%>
</textarea>
<input type='submit' value='modificar' />
</form>
</body>
</html>