<%
'添加数据,并新建文件
set xmldoc=server.CreateObject("msxml2.domdocument")
xmldoc.async=false
xmldoc.loadXML "<ROOT/>"
set node=xmldoc.createElement("Topic")
node.text="MS DOM测试"
xmldoc.documentElement.appendChild node '添加节点
xmldoc.save ("c: est.xml")
set xmldoc=nothing
%>
<%
'读取文件,并更新文件
set xmldoc=server.CreateObject("msxml2.domdocument")
xmldoc.async=false
xmldoc.load ("c: est.xml")
xmldoc.documentElement.firstChild.text="更新测试"
Response.Write xmldoc.xml
xmldoc.save ("c: est.xml")
set xmldoc=nothing
%>