首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
用ASP生成XML数据文档(RSS订阅..
asp添加xml节点问题
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
Asp.net+Xml实现无数据库论坛(..
js添加、修改、删除xml节点例子
ASP.NET查找XML节点的几个方法
使用ASP添加xml节点功能
使用asp修改xml中的节点
ASP历遍XML节点与字节点之简单..
ASP向xml文件中的添加节点
ASP遍历XML节点
asp修改xml节点属性
小白ajax定时更新xml数据练习
Ajax核心:XMLHTTP组件相关技术..
远程获取内容,并将内容存在本..
xmlhttp组件获取远程文件并筛选..
XMLHTTP对象及其方法
把HTML表单提交的数据转化成XML..
利用XMLHTTP无刷新添加数据之Po..
Js+Xml:不刷新页面获取对应网址..
xml(元标记语言)学习基础一
Java语言编程中更新XML文档的常..
简析JAVA中的XML编程
XML及其技术指南
XML教程(2)--XML元素与XML属性..
XML教程(1)--严格的语法
从XML到Java代码的数据绑定之一
神奇的XML--突破CGI权限的约束
基于XML的数据库总体分析

技术教程 -> XML教程 ->  
使用asp修改xml中的节点
来源:转载   人气:3187   录入时间:2008/12/29


    
   <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
   <HTML>
   <HEAD>
    <TITLE> 修改xml内容 </TITLE>
    <META NAME="Generator" CONTENT="EditPlus">
    <META NAME="Author" CONTENT="">
    <META NAME="Keywords" CONTENT="">
    <META NAME="Description" CONTENT="">
   </HEAD>
   
   <BODY>
    <!--#include file="top.asp"-->
   <%
   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
   %>
    <form name="form1" method="post" action="?addok=edit&id=<%=id%>">
    网站名:<input type="text" name="site" value="<%=site%>" size="30">
   
    网 址:<input type="text" name="url" value="<%=url%>" size="40">
   
    <input type="submit" value="修改"> <input type="reset" value="重置">
    </form>
   <%
   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&"<list>"&vbnewline & _
    "<id>"&id&"</id>"&vbnewline & _
   "<name>"&site&"</name>"&vbnewline & _
   "<url>"&url&"</url>"&vbnewline & _
   "<time>"&Replace(Replace(Now(),"上午 ",""),"下午 ","")&"</time>"&vbnewline & _
   "</list>"&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
   %>
   </BODY>
   </HTML>
   
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2019 868资源网- 版权所有    粤ICP备05007330号