程序員: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&"
dom.Load(xmlpath)
End If
end Sub
0條評論