一聚教程网:一个值得你收藏的教程网站

热门教程

asp生成xml的方法

时间:2022-07-02 23:20:14 编辑:袖梨 来源:一聚教程网

 代码如下 复制代码



 
   向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
'这里获得将要插入子节点的ID号,其ID号为的最后一个子节点(lastchild)的第一个子节点(firstchild)
'的ID号加1(这里我们按照关系型数据库的ID号来递增)
else
'如是没有字子节点则是第一次留言ID号设为1
id=1
end If
brstr=chr(13)&chr(10)&chr(9)
XMLnode=brstr&""&vbnewline & _
     ""&id&""&vbnewline & _
""&site&""&vbnewline & _
""&url&""&vbnewline & _
""&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中的内容是


 
   
    0
    新浪
    http://www.sina.com.cn
    
  

 

热门栏目