|
XML操作类(1)
<% Class XMLDOMDocument Private fNode,fANode Private fErrInfo,fFileName,fOpen Dim XMLDom '返回节点的缩进字串 Private Property Get TabStr(byVal Node) TabStr="" If Node Is Nothing Then Exit Property If not Node.parentNode Is nothing Then TabStr=" "&TabStr(Node.parentNode) End Property '返回一个子节点对象,ElementOBJ为父节点,ChildNodeObj要查找的节点,IsAttributeNode指出是否为属性对象 Public Property Get ChildNode(byVal ElementOBJ,byVal ChildNodeObj,byVal IsAttributeNode) Dim Element Set ChildNode=Nothing If IsNull(ChildNodeObj) Then If IsAttributeNode=false Then Set ChildNode=fNode Else Set ChildNode=fANode
|