Die Verwendung von asp + xml zur Implementierung der Codeverwaltung bedeutet tatsächlich die Verwendung von asp zum Betreiben von XML. Das Folgende ist der menu.asp-Code
Programmcode
<%
'-------------------------
'Autor: Unkraut
'Datum: 24. April 2006
'QQ:94440079
'-------------------------
'XML-Dateifunktion lesen
Funktion YCMS_menu()
dim menu_temp,m
Setze goxml=Server.CreateObject(Microsoft.XMLDOM)
goxml.load(Server.MapPath(menu.xml))
Setze goroot=goxml.documentElement.selectSingleNode(menu)
m=0
Für jedes Kind in goroot.childNodes
set childmenu=goroot.childnodes.item(m)
Dimmen Sie „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
'Stellen Sie fest, ob es sich um ein Popup-Fenster handelt
Wenn menu_open=0 Dann
„Stellen Sie fest, ob es das erste ist. Wenn es das erste ist, entfernen Sie es┊.“
Wenn m=0, dann
menu_temp=menu_temp&<a href='&menu_url&'>&menu_name&</a>
Anders
menu_temp=menu_temp&┊<a href='&menu_url&'>&menu_name&</a>
Ende wenn
Anders
Wenn m=0, dann
menu_temp=menu_temp&<a href='&menu_url&' target='o'>&menu_name&</a>
Anders
menu_temp=menu_temp&┊<a href='&menu_url&' target='o'>&menu_name&</a>
Ende wenn
Ende wenn
setze childmenu=nichts
m=m+1
nächste
setze goroot=nichts
setze goxml=nichts
YCMS_menu=menu_temp
Funktion beenden
'XML-Menü ausgeben
Antwort.write(YCMS_menu())
%>
Das Folgende ist der menu.xml-Code:
Programmcode
<?xml version=1.0kodierung=gb2312?>
<xml>
<Menü>
<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=Bildanzeige open=0>Pic.asp</url>
<url name=AVEntertainmentopen=0>Dj.asp</url>
<url name=resource download open=0>Down.asp</url>
<url name=Hinterlasse eine Nachricht zur Diskussion open=0>Book.asp</url>
<url name=Freundlicher Link open=0>Link.asp</url>
</menu>
</xml>
admin_menu.asp Hintergrundverwaltungs-XML-Dateiteil
Das Folgende ist admin_menu.asp
Programmcode
<%
'Verwenden Sie die ADO.Stream-Komponente, um Dateien zu speichern
Funktion Save(file_body,file_name)
Legen Sie OS=Server.CreateObject(ADODB.Stream) fest.
OS.Type=2
Betriebssystem.Öffnen
OS.Charset=GB2312
OS.Position=OS.Size
OS.WriteText=file_body
OS.SaveToFile Server.MapPath(file_name),2
OS.Schließen
Stellen Sie OS=Nothing ein
Funktion beenden
wenn Request.QueryString(action)=ok dann
Aufruf Save(Request.Form(content),menu.xml)
Ende wenn
%>
<html>
<Kopf>
<title></title>
</head>
<Körper>
<form action=?action=ok method=post>
<textarea style='width:500px;height:200px;' name='content'>
<%=server.execute(menu.xml)%>
</textarea>
<input type='submit' value='modify' />
</form>
</body>
</html>