asp生成xml的方法
作者：袖梨
2022-07-02
| 代码如下 | 复制代码 |
|
向xml中添加新节点 addok=request("addok") If addok="" Or IsNull(addok) Then %> 网站名： 网 址： End If If addok="add" 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") '选取节点 if objRootlist.hasChildNodes then '判断是否有子节点（因为如果是每一次是没有子节点的， 如果不加判断在第一次运得时就会报错 id = objRootlist.lastchild.firstchild.text+1 '这里获得将要插入子节点的ＩＤ号，其ＩＤ号为的最后一个子节点(lastchild)的第一个子节点(firstchild) '的ＩＤ号加1（这里我们按照关系型数据库的ＩＤ号来递增） else '如是没有字子节点则是第一次留言ＩＤ号设为１ id=1 end If 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.appendChild(rootNewNode) '把XML片段插入到test.xml中 objXML.save(strSourceFile) '存储test.xml文件（因为不存储test.xml只在内存中更新了） set objXML=nothing set objXML2=nothing Response.Redirect("index.asp") response.end End If %> test.xml中的内容是 <?xml version="1.0" encoding="gb2312"?> 0 新浪 http://www.si*na*.*com.cn 2007-11-1 10:10:10 |
|
