Usar asp + xml para lograr la administración de código en realidad significa usar asp para operar xml. El siguiente es el código menu.asp.
código de programa
<%
'------------------------------------------------
'Autor: malezas
'Fecha: 24 de abril de 2006
'QQ:94440079
'------------------------------------------------
'Función leer archivo XML
Función YCMS_menú()
menú tenue_temp, m
Establecer goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Servidor.MapPath(menú.xml))
Establecer goroot=goxml.documentElement.selectSingleNode(menú)
m=0
Para cada niño en goroot.childNodes
establecer menú infantil = goroot.childnodes.item (m)
Atenuar menu_open,menu_title,menu_url
menu_open=childmenu.getAttributeNode(abierto).nodeValue
menu_name=childmenu.getAttributeNode(nombre).nodeValue
menu_url=goroot.childNodes.item(m).texto
'Determinar si es una ventana emergente
Si menu_open=0 Entonces
'Determina si es el primero, si es el primero, elimínalo┊
Si m=0 Entonces
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Demás
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
Terminar si
Demás
Si m=0 Entonces
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Demás
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
Terminar si
Terminar si
establecer menú infantil = nada
m=m+1
próximo
establecer goroot = nada
establecer goxml = nada
YCMS_menu=menú_temp
Función final
'Menú XML de salida
respuesta.write(YCMS_menu())
%>
El siguiente es el código menu.xml:
código de programa
<?versión xml=codificación 1.0=gb2312?>
<xml>
<menú>
<url name=Página de inicio del sitio webopen=0>index.asp</url>
<url nombre=Noticias abiertas=0>Noticias.asp</url>
<url name=Centro de artículosopen=0>Art.asp</url>
<url name=Visualización de imagen abierta=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url nombre=descarga de recurso abierto=0>Down.asp</url>
<url name=Dejar un mensaje para discusión open=0>Libro.asp</url>
<url nombre=Enlace amigable abierto=0>Enlace.asp</url>
</menú>
</xml>
admin_menu.asp parte del archivo XML de gestión de fondo
El siguiente es admin_menu.asp
código de programa
<%
'Utilice el componente ADO.Stream para guardar archivos
Función Guardar (cuerpo_archivo, nombre_archivo)
Establecer sistema operativo = Servidor.CrearObjeto (ADODB.Stream)
Tipo de sistema operativo = 2
SO.Abierto
SO.Charset=GB2312
Posición.OS=Tamaño.OS
OS.WriteText = cuerpo_archivo
OS.SaveToFile Server.MapPath(nombre_archivo),2
SO.Cerrar
Establecer sistema operativo = nada
Función final
si Request.QueryString(action)=ok entonces
llamar a Guardar (Solicitud.Forma (contenido), menú.xml)
terminar si
%>
<html>
<cabeza>
<título></título>
</cabeza>
<cuerpo>
<formulario acción=?acción=ok método=publicar>
<textarea style='ancho:500px;alto:200px;' nombre='contenido'>
<%=servidor.execute(menú.xml)%>
</textarea>
<tipo de entrada='enviar' valor='modificar' />
</formulario>
</cuerpo>
</html>