最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp生成xml的方法
时间:2022-07-02 23:20:14 编辑:袖梨 来源:一聚教程网
代码如下 | 复制代码 |
<% 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 '这里获得将要插入子节点的ID号,其ID号为 '的ID号加1(这里我们按照关系型数据库的ID号来递增) else '如是没有字子节点则是第一次留言ID号设为1 id=1 end If brstr=chr(13)&chr(10)&chr(9) XMLnode=brstr&"
" " " ""&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中的内容是 |
相关文章
- 光遇5.17红石碎片在哪里 05-17
- 王者荣耀520奇遇之旅活动如何参与 05-17
- 光遇5.17免费魔法有什么 05-17
- 崩坏星穹铁道同谐主角遗器词条搭配推荐 05-17
- 崩坏星穹铁道七个井盖位置一览 05-17
- 光遇5.17季节蜡烛在哪里 05-17