关于asp多层体系架构的思考（3）

这节讲common中，xmlparse.class.asp，即xml解析类的实现
1）实现xml节点的查找，添加，删除，修改

<%
Class xmlparser
    
    Private m_async
    Private m_xmlpath
    Private xmldoc
    Private fso

    Sub class_initialize
        Set xmldoc=server.createobject("microsoft.xmldom")
        Set fso=CreateObject("Scripting.FileSystemObject")
    End Sub 

    Sub class_teminate
        Set xmldoc=Nothing 
        Set fso=Nothing 
    End Sub 

    Public Property Get xmlpath
        xmlpath=m_xmlpath
    End Property 

    Public Property Let xmlpath(ByVal value)
        If Not fso.FileExists(server.mappath(value)) Then
            response.write "文件不存在！"
            response.End 
        Else
            m_xmlpath=server.mappath(value)            
        End If         
    End Property 

    Public Property Get async
        async=m_async
    End Property 

    Public Property Let async(ByVal value)
        If value=False Then 
            m_async=False
        else
            m_async=True 
        End If 
    End Property 
    
    Public Sub load()
        xmldoc.async=m_async
        xmldoc.load m_xmlpath
    End Sub 

    Public Function selectXmlNodeText(elementname) 
        elementname="//"&elementname 
        temp=xmldoc.selectSingleNode(elementname).text 
        selectXmlNodeText= server.htmlencode(temp) 
    End Function

    Public Function insertXmlNodeText(befelementname,elementname,elementtext) 
        dim befelement,element 
        set befelement=xmldoc.selectSingleNode("//"&befelementname) 
        set element= xmldoc.createelement(elementname) 
        befelement.insertBefore element,befelement.firstchild 
        element.text=elementtext 
    end function 

    Public Function updateXmlNodeText(elementname,newelementtext) 
        dim element 
        set element=xmldoc.selectSingleNode("//"&elementname) 
        element.text=newelementtext 
    end function 

    Public Function deleteXmlNodeText(elementname) 
        xmldoc.selectSingleNode("//"&elementname).text ="" 
    end function 

    Public Function createElement(ByVal e)
        Dim root 
        Set root=xmldoc.createElement(e)
        xmldoc.appendchild(root)
    End Function 

    Public Function createNode(ByVal key,ByVal value)
        Dim child
        Set child=xmldoc.createNode("element",key,"")
        child.text=value
        xmldoc.documentElement.appendchild(child)
        Set createNode=child
    End Function 
    
    Public Function createChildNode(ByVal parentkey,ByVal key,ByVal value)
        Dim parentNode,childNode
        Set parentNode=xmldoc.selectSingleNode("//"&parentkey)
        Set childNode=xmldoc.createNode("element",key,"")
        childNode.text=value
        parentNode.appendchild(childNode)
        Set createChildNode=childNode
    End Function 

    Public Function appendAttribute(ByVal node,ByVal key,ByVal value)
        Dim thisnode,childNode
        Set thisnode=xmldoc.selectSingleNode("//"&node)
        Set childNode=xmldoc.createNode("attribute",key,"")
        childNode.text=value
        thisnode.SetAttributeNode(childNode)
    End Function 

    Public Function updateAttribute(ByVal node,ByVal key,ByVal value)
        Dim thisnode
        Set thisnode=xmldoc.selectSingleNode("//"&node)
        thisnode.GetAttributeNode(key).NodeValue=value
    End Function 

    Public Function createAttributeNode(ByVal nodeName,ByVal nodeValue,ByVal key,ByVal value)
        Dim thisnode
        Set thisnode=createNode(nodeName,nodeValue)
        Set attr=xmldoc.createNode("attribute",key,"")
        attr.text=value
        thisnode.SetAttributeNode(attr)
        Set createattributeNode=thisnode
    End Function 
    
    Public Function getNodesCollection(ByVal key)
        Dim nodes
        Set nodes=xmldoc.documentElement.SelectSingleNode("//"&key).ChildNodes
        Set getNodesCollection=nodes
    End Function 

    Public Function getAttributeCollection(ByVal key)
        Dim attrs
        Set attrs=xmldoc.documentElement.SelectSingleNode("//"&key).attributes
        Set getAttributeCollection=attrs
    End Function 

    Public Function save(ByVal savepath)
        If savepath&""="" Then 
            xmldoc.save(m_xmlpath)
        Else
            xmldoc.save(server.mappath(savepath))
        End If 
    End Function 
End Class


'====================================================================================================
    '取出一个节点的字节点集合
    'set objnodes=objdom.documentElement.SelectSingleNode("//people/man").ChildNodes
    '遍历这个集合
    '方法1 
    'for each element in objnodes
    '    response.write element.nodename 字节点名
    '    response.write element.text 字节点值
    'next
    '方法2
    'domlength=objnodes.length
    'for i = 0 to domlength-1
    '    response.write objnodes.childnodes(i).nodename 字节点名
    '    response.write objnodes.childnodes(i).text 字节点值
    'next
    '
    ''取出一个节点的属性集合
    'set objnodes=objdom.documentElement.SelectSingleNode("//people/man").GetAttributeNode("name").attributes
    '遍历这个集合
    'for each element in objnodes
    '    response.write element.nodename 属性名
    '    response.write element.nodevalue 属性值
    'next
%>

在web层的调用，如下：

Dim xp
Set xp=new xmlparser
with xp
    .aync=False
    .xmlpath="/web/template/news/index.html"
End with
response.write xp.xmlpath

恳请批评和指正