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的相册或者图片轮换。