<%
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
reply=objNodes.childNodes(7).text
msgre = Request.form("msgre")
if msgre <> "" then
objNodes.childNodes(7).text = msgre
objNodes.childNodes(8).text = now()
objXML.save(server.MapPath(filePath))
Set objXML=nothing
Response.Write ""
response.end
end if
end if
%>