test7-3.asp

来自「关于XML和网页配合使用的好书」· ASP 代码 · 共 20 行

<% @ Language=VBScript %>
<% 
  '创建DOMDocument对象实例doc
  set doc=Server.createObject("MSXML.DOMDocument")
  '将XML文档载入doc对象
  doc.load(Server.MapPath("/aspxml/sample.xml"))
  '获得root节点
  dim node
  set node=doc.selectSingleNode("//root")
  '创建子节点
  dim newnode
  set newnode=doc.createNode(1,"book","")
  '将新建的子节点添加了node中，即作为root节点的子节点
  node.appendChild(newnode)
  '保存修改后的XML文档
  doc.save(Server.MapPath("/aspxml/sample.xml"))
  '输出提示信息
  Response.write("成功创建子节点")
 %>