【asp操作xml修改xml文件内容】ASP操作xml--修改xml文件中的节点

【www.bbyears.com--网页配色】

 
  
  
  
  words" CONTENT="">
  
 

 
  
 <%
 id=request("id")
 if IsNumeric(id)=false or isNull(id) then
response.write ("参数不正确，请返回！")
response.end
end if 
addok=request("addok")
If addok="" Or IsNull(addok) then
   strSourceFile = Server.MapPath("./") & "test.xml"
  "获取XML文件的路径这里根据你的虚拟目录不同而不同
  Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 "以自由线程创建一个XML对像
 objXML.load(strSourceFile)"把XML文件读入内存
 Set objRootsite = objXML.documentElement.selectSingleNode("root")
 id=objRootsite.childNodes.item(id).childNodes.item(0).text
 site=objRootsite.childNodes.item(id).childNodes.item(1).text
 url=objRootsite.childNodes.item(id).childNodes.item(2).text
%>
  ">
  网站名：" size="30">

  网  址：" size="40">

   
  
<%
End If
If addok="edit" Then
  site=request("site")
  url=request("url")
  strSourceFile = Server.MapPath("./") & "test.xml"
  "获取XML文件的路径这里根据你的虚拟目录不同而不同
  Set objXML = Server.CreateObject("Microsoft.XMLDOM")
  "创建XML对像
  objXML.load(strSourceFile)
  "把XML文件读入内存中
  Set objRootlist = objXML.documentElement.selectSingleNode("root")
  set rootOldNode=objRootlist.childNodes.item(id) 
  brstr=chr(13)&chr(10)&chr(9)
  XMLnode=brstr&""&vbnewline & _
     ""&id&""&vbnewline & _
""&site&""&vbnewline & _
""&url&""&vbnewline & _
""&Replace(Replace(Now(),"上午 ",""),"下午 ","")&""&vbnewline & _
""&vbnewline&vbnewline
  "根据得到的数据建立XML片段
set objXML2=Server.CreateObject("Microsoft.XMLDOM")
"建立一个新XML对像
objXML2.loadXML(XMLnode)
"把XML版片段读入内存中
set rootNewNode=objXML2.documentElement
"获得objXML2的根节点
objRootlist.ReplaceChild rootNewNode,rootOldNode
"修改test.xml
objXML.save(strSourceFile)
"存储test.xml文件（因为不存储test.xml只在内存中更新了）
set objXML=nothing
set objXML2=nothing
Response.Redirect("index.asp")
response.end

End if
%>
 

本文来源：http://www.bbyears.com/wangyezhizuo/11749.html