Utiliser asp+xml pour réaliser la gestion du code signifie en fait utiliser asp pour faire fonctionner XML. Voici le code menu.asp.
code de programme
<%
'---------------------------------------
'Auteur : mauvaises herbes
'Date : 24 avril 2006
'QQ:94440079
'---------------------------------------
'Fonction de lecture de fichier XML
Fonction YCMS_menu()
dim menu_temp,m
Définir goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Serveur.MapPath(menu.xml))
Définir goroot=goxml.documentElement.selectSingleNode(menu)
m=0
Pour chaque enfant dans 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
'Déterminer s'il s'agit d'une fenêtre pop-up
Si menu_open=0 Alors
'Déterminez si c'est le premier, si c'est le premier, supprimez-le┊
Si m=0 Alors
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Autre
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
Fin si
Autre
Si m=0 Alors
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Autre
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
Fin si
Fin si
définir le menu enfant = rien
m=m+1
suivant
définir goroot = rien
définir goxml = rien
YCMS_menu=menu_temp
Fonction de fin
'Menu XML de sortie
réponse.write(YCMS_menu())
%>
Voici le code menu.xml :
code de programme
<?xml version=1.0 encodage=gb2312?>
<xml>
<menu>
<url name=Website homepageopen=0>index.asp</url>
<url name=News open=0>News.asp</url>
<url name=Article Centeropen=0>Art.asp</url>
<url name=Picture display open=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=resource download open=0>Down.asp</url>
<url name=Laisser un message pour la discussion open=0>Book.asp</url>
<url name=Lien convivial open=0>Link.asp</url>
</menu>
</xml>
admin_menu.asp partie du fichier XML de gestion en arrière-plan
Ce qui suit est admin_menu.asp
code de programme
<%
'Utilisez le composant ADO.Stream pour enregistrer les fichiers
Fonction Enregistrer(file_body,file_name)
Définir OS=Server.CreateObject(ADODB.Stream)
OS.Type=2
OS.Ouvrir
OS.Charset=GB2312
OS.Position=OS.Taille
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(nom_fichier),2
OS.Fermer
Définir le système d'exploitation = rien
Fonction de fin
si Request.QueryString(action)=ok alors
appelez Save (Request.Form (content), menu.xml)
finir si
%>
<html>
<tête>
<titre></titre>
</tête>
<corps>
<form action=?action=ok méthode=post>
<textarea style='largeur:500px;hauteur:200px;' nom='content'>
<%=server.execute(menu.xml)%>
</textarea>
<input type='submit' value='modify' />
</form>
</corps>
</html>