wusong147

<%  
'添加数据,并新建文件  
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  
%>