test7-4.asp

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

<% @ Language=VBScript %>
<% 
  '创建DOMDocument对象实例doc
  set doc=Server.createObject("MSXML.DOMDocument")
  '将XML文档载入doc对象
  doc.load(Server.MapPath("/aspxml/sample.xml"))
  '获得book节点
  dim node
  set node=doc.selectSingleNode("//book")
  '设置节点内容
  node.text="XML之ASP应用"
  '保存修改后的XML文档
  doc.save(Server.MapPath("/aspxml/sample.xml"))
  '输出提示信息
  Response.write(node.text)
 %>