<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% n=request.Form("name") url=request.Form("url")
'加载xml文档 set mydom=server.CreateObject("Microsoft.XMLDOM") mydom.async=false mydom.load(server.MapPath("picurl.xml"))
'增加节点,先创建元素,再创建属性,再属性增加到元素当中 set newPic=mydom.createElement("Pic")'先创建一个元素
set NewUrl=mydom.createAttribute("url")'创建属性 NewUrl.text=url'创建属性的值 set NewName=mydom.createAttribute("name") NewName.nodeValue=n newPic.setAttributeNode(NewUrl)'属性加到元素当中 newPic.setAttributeNode(NewName) mydom.documentElement.appendChild(newPic)'把元素加到根元素当中 '最后保存一下 mydom.save(server.Mappath("picurl.xml")) %>