程序员：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