<%@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")) %>