<% filePath = "siva.xml" Set objXML = Server.CreateObject("Microsoft.XMLDOM") 'Set objXML = server.CreateObject("Msxml2.DOMDocument") objXML.async = False loadResult = objXML.Load(server.MapPath(filePath)) If Not loadResult Then Response.Write ("加载XML文件出错!") Response.End End If id = Request.QueryString("ID") Set objNodes = objXML.selectSingleNode("xml/guestbook/item[id ='" & id & "']") if Not IsNull(objNodes) then ischeck=objNodes.childNodes(9).text dd = htmlencode2(Request.QueryString("dd")) if dd <> "" then objNodes.childNodes(9).text = dd objXML.save(server.MapPath(filePath)) Set objXML=nothing Response.Write "" response.end end if end if %> <% set objXML = nothing %>