Set newNode = XmlDoc.CreateElement(\newNode.Text = address rootNode.AppendChild(newNode) XmlDoc.DocumentElement.AppendChild(RootNode) XmlDoc.Save(xmlpath) End If response.Write(\执行成功\（8）服务器端作出响应并返回数据后，添加信息页面要接收服务器响应，并显示操作是否成功的信息。由handleStateChange()函数实现，效果如图6-17所示，代码如下所示：

function handleStateChange(){ if( XmlHttp.readyState == 4 ) { if(XmlHttp.status == 200 ) { //显示结果 var result=XmlHttp.responseText; alert(result); } } }

图6-17 添加信息效果

（9）单击“显示XML文档”按钮，触发Sendshow()函数，该函数实现向服务器端发送显示XML文档内容的请求。代码如下所示： function Sendshow() { createXMLHttpRequest(); XmlHttp.onreadystatechange =Handleshow; XmlHttp.open('GET', 'Server.asp?action=show', true ); XmlHttp.send(null); } （10）上述函数发送到服务器端，并做出响应，返回数据。服务器端Server.asp文件的操作程序如下所示： case \ Set ObjXML=CreateObject(\ObjXML.ASYNC=False ObjXML.Load(xmlpath) Set ObjLst=ObjXML.GetElementsByTagName(\intNo=ObjLst.Length returnstr = \style='background-color:#3A76CF; color:#FFFFFF; font-size:14px; font-weight:bold;'>学号年级班级姓名性别年龄籍贯\ for i=0 to intNo-1 next returnstr = returnstr& \returnstr =returnstr&\style='background-color:#DADFF5;'>\set ChildObj=ObjLst(i) returnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr&\align='center'>\& ChildObj.getElementsByTagNareturnstr = returnstr& \me(\& \me(\& \me(\& \me(\& \me(\& \me(\& \me(\& \ response.Write returnstr （11）服务器端做出响应后，返回XML文档的表格形式，这些数据通过Handleshow()函数处理，将数据显示在页面中。显示效果如图6-18所示，代码如下所示： function Handleshow(){ var obj=document.getElementById(\ var xmlDoc=XmlHttp.responseText; obj.innerHTML=xmlDoc; }

图6-18 显示XML文档