程序員：ASP操作XML的類

ASP操作XML的類的說明：
　　可以完成ASP對XML節點的添加、刪除、脩改、清空。
　　進行上述操作，根據條件，操作類型包括：僅對第一個符郃條件、及全部符郃條件二種。
　　如：
　　’將第一條件值替換成新值
　　’call xml.r_node("/blog/sorts/sort[id=’2’]/name","分lei2")
　　’將全部條件值替換成新值
　　’call xml.r_nodes("/blog/sorts/sort[id=’2’]/name","分lei2")
　　<%
　　dim xml,xmlfile
　　xmlfile="/Person/3/7/fls975/blog.xml"
　　set xml=new QT_XML_Class
　　Class QT_XML_Class
　　’Projict : ASP操作XML
　　’Author : Missde
　　’Link : www.missde.cn
　　’Date : 15:25 2007-5-29
　　private dom,xmlpath,doc
　　Public iserr_
　　’初始化類
　　Private Sub Class_Initialize()
　　Set dom = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
　　xmlpath = Server.MapPath(xmlfile)
　　If not dom.Load(xmlpath) Then
　　SaveToFile"<?xml version=""1.0"" encoding=""utf-8""?>"&VBcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&"",xmlpath
　　dom.Load(xmlpath)
　　End If
　　end Sub