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