asp操作xml,包含简单的修改、添加、删除节点的演示,很多资料都是从网上收集,如有错误或更好的建议,还希望能提出来。
asp代码:
<%
Dim strSourceFile, objXML, objRootsite, AllNodesNum
strSourceFile = Server.MapPath("SitePic.xml")
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Load (strSourceFile)
'修改节点
'Set objRootNote = objXML.selectSingleNode("photos[@path='images/']//photo[@id='1']") '此处说明要修改id=1的photo节点
'objRootNote.text = "这是个演示" '修改photo节点的文本
'objRootNote.setAttribute "url", "http://www.google.com/" '修改photo节点的url元素内容
'添加节点
'Set addNote = objXML.selectSingleNode("photos[@path='images/']")
'brstr = chr(13)&chr(10)&chr(9) '换行,用于缩进,以便于观看
'newNote = "<photo id=""6"" url=""http://www.google.com/"" link=""#"" bigpic=""3434.jpg"">这是个演示</photo>"&brstr '这里就是要添加节点的xml字符串
'Set objXML2 = Server.CreateObject("Microsoft.XMLDOM") '创建新的xml流
'objXML2.LoadXML (newNote) '加载字符串到新的xml流
'Set rootNewNote = objXML2.documentElement
'addnote.appendChild (rootNewNote)
'删除节点
'Set objNote = objXML.selectSingleNode("photos[@path='images/']//photo[@id='1']") '此处说明要删除指定id=1的photo节点
'Set objRootNote = objXML.selectSingleNode("photos[@path='images/']")
'objRootNote.removeChild (objNote)
objXML.Save (strSourceFile) '保存xml文档
Set objRootsite = Nothing
Set objXML = Nothing
%>
下面是SitePic.xml示例,以便于很好的去理解。
<?xml version="1.0" encoding="utf-8"?> <photos path="images/"> <photo id="1" url="http://www.xiaojia.info/" link="#" bigpic="01.jpg">test</photo> <photo id="2" url="http://www.xiaojia.info/" link="#" bigpic="02.jpg">这只是个演示</photo> <photo id="3" url="http://www.xiaojia.info/" link="#" bigpic="03.jpg">这只是个演示</photo> <photo id="4" url="http://www.xiaojia.info/" link="#" bigpic="04.jpg">这只是个演示</photo> <photo id="5" url="http://www.xiaojia.info/" link="#" bigpic="05.jpg">这只是个演示</photo> </photos>
就这样了,用这个asp操作xml,就能很好的运用哪些flash+xml的相册或者图片轮换。


