Set  oRoot  =  oDoc.createElement("Root")  
Set  oDoc.documentElement  =  oRoot  
oRoot.setAttribute  "部门编号",  "897"  
'  加入子结点  
Set  oNode  =  oDoc.createElement("Document")  
oNode.Text  =  "Demo"  
oRoot.appendChild  oNode  
 
Set  oNode  =  oDoc.createElement("CreateDate")  
oRoot.appendChild  oNode  
oNode.Text  =  "Demo"  
 
 
比如要在子结点下再增加一级结点如何加  
---------------------------------------------------------------  
 
Set  oNodeChild  =  oDoc.createElement("Document")  
oNodeChild.Text  =  "Demo"  
oNode.appendChild  oNodeChild  
 
---------------------------------------------------------------  
 
createElement("")  
appendChild  就可以的呀