程序員：ASP操作XML的類

ASP操作XML的類的說明：
    可以完成ASP對XML節(jié)點的添加、刪除、修改、清空。
    進行上述操作，根據(jù)條件，操作類型包括：僅對第一個符合條件、及全部符合條件二種。
    如：
    ’將第一條件值替換成新值
    ’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 ""&VBcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&""&vbcrlf&"",xmlpath
    dom.Load(xmlpath)
    End If
    end Sub