<script language="vbscript">
dim xmldoc
sub add()
set xmldoc=createobject("Microsoft.XMLDOM")
xmldoc.load("new.xml")  
set objnewnode=xmldoc.createelement("newnode")<!--创建元素节点b-->
xmldoc.documentelement.appendchild(objnewnode)
set objnewtext=xmldoc.createtextnode("textnode")<!--创建文本节点fff-->
xmldoc.documentelement.lastchild.appendchild(objnewtext)
end sub
</script>

..................
<XML ID="theXMLisland" src="new.xml">     
</XML>
.................

错误提示：
无法将值保存到数据源域中。
数据源域为只读。