实例演练ASP+XML编程比较全的了第1/2页(9)

　objNewPerson.appendChild objNode 

　Set objNode = objXmlDoc.createElement("QQ") 
　objNode.Text = m_strQQ 
　objNewPerson.appendChild objNode 

　Set objNode = objXmlDoc.createElement("Company") 
　objNode.Text = m_strCompany 
　objNewPerson.appendChild objNode 

　On Error Resume Next 
　' 进行替换 
　Set objNode = objXmlDoc.documentElement.replaceChild(objNewPerson, objOldPerson) 
　If objNode Is Nothing Then 
　EditToXml = False 
　AddErr "修改联系人失败" 
　Set objOldPerosn = Nothing 
　Set objNewPerson = Nothing 
　Set objPersonList = Nothing 
　Exit Function 
Else 
　objXmlDoc.save Server.MapPath(C_XMLFILE) 
End If 

Set objOldPerson = Nothing 
Set objNewPerson = Nothing 
Set objPersonList = Nothing 

If Err.Number = 0 Then 
　EditToXml = True 
Else 
　EditToXml = False 
　AddErr Err.Description 
End If 
End Function 

End Class