一个XMLDOM操作类ASP版
============================================================
作者：把它还给自己
时间：2005-3-15
============================================================
类xmlclass
私人objxml
私人xmlDoc
私人xmlpath
/ / ============================================================
'
子class_initialize
集objxml = server.createobject（MSXML2. DOMDocument ）
objxml.preservewhitespace =真
objxml.async = false
端子
子class_terminate
集objxml =没有
端子
/ / ============================================================
'
公共函数CreateNew（SNAME）
集tmpnode = objxml.createelement（SNAME）
objxml.appendchild（tmpnode）
设置新的= tmpnode
端功能
'
公共函数OpenXML（路径）
OPENXML = false
佛焰苞= server.mappath（路径）
response.write（路径）
xmlpath =路径
如果objxml.load（路径）然后
集objxml.documentelement xmlDoc =
OPENXML =真
最后如果
端功能
'
Public Sub LoadXml (sStr)
ObjXml.loadXML（SSTR）
集objxml.documentelement xmlDoc =
端子
市民Sub InceptXml（xobj）
集objxml = xobj
集xobj.documentelement xmlDoc =
端子
/ / ============================================================
'
公共函数AddNode（斯诺德，模态）
斯诺德字符串节点名称
节点对象增加节点的节点更高的参考
=============================================================
昏暗的tmpnode
集tmpnode = objxml.createelement（斯诺德）
rnode.appendchild tmpnode
集ADDNODE = tmpnode
端功能
'
公共功能addattribute（SNAME，价值，onode）
名字符串属性名称
字符串属性值的价值
onode对象添加属性的对象
=============================================================
onode.setattribute SNAME，价值
端功能
'
AddText（fstr公共功能，cdbool，onode）
昏暗的tmptext
如果cdbool然后
tmptext = objxml.createcdatasection（fstr设置）
其他的
tmptext = objxml.createtextnode（fstr设置）
最后如果
onode.appendchild tmptext
端功能
========================================================================================================
'
公共功能getatt（名字，onode）
一个字符串属性名称
onode对象节点参考
=============================================================
昏暗的tmpvalue
tmpvalue = onode.getattribute（一）
getatt = tmpvalue
端功能
'
公共功能getnodename（onode）
onode对象节点参考
getnodename = onode.nodename
端功能
'
公共函数的GetNodeText（onode）
onode对象节点参考
getnodetext = onode.childnodes（NodeValue 0）。
端功能
'
公共函数的GetNodeType（onode）
onode对象节点参考
getnodetype = onode.nodevalue
端功能
'
公共函数FindNodes（斯诺德）
昏暗的tmpnodes
集tmpnodes = objxml.getelementsbytagname（斯诺德）
集findnodes = tmpnodes
端功能
'
公共函数FindNode（斯诺德）
昏暗的tmpnode
集tmpnode = objxml.selectsinglenode（斯诺德）
集findnode = tmpnode
端功能
'
公共函数DelNode（斯诺德）
昏暗的tmpnodes，Nodesss
集tmpnodes = objxml.selectsinglenode（斯诺德）
集nodesss = tmpnodes.parentnode
nodesss.removechild（tmpnodes）
端功能
'
公共函数ReplaceNode（斯诺德，节点，cdbool）
的作用
昏暗的tmpnodes，tmptext
集tmpnodes = objxml.selectsinglenode（斯诺德）
可增添文本节点，cdbool，TmpNodes
如果cdbool然后
集tmptext = objxml.createcdatasection（节点）
其他的
集tmptext = objxml.createtextnode（节点）
最后如果
tmpnodes.replacechild tmptext，TmpNodes.firstChild
端功能
私有函数ProcessingInstruction
创建一个XML语句
昏暗的objpi
集objpi = objxml.createprocessinginstruction（XML）、版本=CHR（34）1 CHR（34）encoding=CHR（34）GB2312CHR（34））
将XML生命附加到XML文档。
objxml.insertbefore objpi，objxml.childnodes（0）
端功能
/ / =============================================================================
'
公共函数SaveXML（）
ProcessingInstruction（）
ObjXml.save（xmlpath）
端功能
'
公共函数SaveAsXML（路径）
ProcessingInstruction（）
ObjXml.save（路径）
端功能
/ / ==================================================================================
相关统计
'
属性获取根
设置根= xmlDoc
最后的财产
'
属性获取长度
长度= xmldoc.childnodes.length
最后的财产
/ / ==================================================================================
相关测试
属性获取测试点
测试点= xmldoc.childnodes文本（0）。
最后的财产
类的结束