给网站添加一个注册表 之 “类的实现”

<%
'------------------------------------------------------------------------------------
'类名：RegistryObject 网页信息注册表类
'作者：张少棠 (Tonton)
'邮箱：tonton@yeah.net
'时间：2004年8月1日
'说明：模仿WINDOWS中注册表的方式，结合XML与ASP技术，给网站添加一个专用的“注册表”类。
'网址：http://blog.csdn.net/tonton/archive/2004/08/01/58198.aspx
'版权：读者可以把本程序使用于任何用途，如要刊登、转载，请保留以上版权信息！
'------------------------------------------------------------------------------------

Const NODE_ELEMENT = 1
Const NODE_TEXT = 3

Class RegistryObject
 
    Private mDom
 
    Public Path          '注册表路径
    Public Encoding      '注册表编码
    Public DefaultValue  '在读取键值时，如果子键不存在而返回的默认值
 
    Private Sub Class_Initialize()
        DefaultValue = Empty
        Encoding = "gb2312"
        Set mDom = Nothing
    End Sub
   
    Private Sub Class_Terminate()
        Set mDom = Nothing
    End Sub
   
    Public Function NewDom()
        Set NewDom = Server.CreateObject("Microsoft.XMLDOM")
    End Function
   
    Private Property Get Dom()
        Dim Nde
        If mDom Is Nothing Then
            Set mDom = NewDom()
            mDom.async = False
            mDom.Load Path
           
            If mDom.parseError.errorCode = &H800C0006 Then      '文件未找到
                Initial
            ElseIf mDom.parseError <> 0 Then
                Exit Property
            End If
        End If
       
        Set Dom = mDom
    End Property
   
    Public Function Initial()
        Dim Nde
        Set mDom = NewDom()
        With mDom
            Set Nde = .createProcessingInstruction("xml", "version='1.0' encoding='" & Encoding & "'")
            .appendChild (Nde)
            Set Nde = .createElement("Registry")
            .appendChild (Nde)
        End With
        mDom.Save Path
    End Function
   
    Public Function CreateChannel(Channel)
        With Dom
            Set CreateChannel = .selectSingleNode("//" & Channel)
            If CreateChannel Is Nothing Then
                Set CreateChannel = .createNode(NODE_ELEMENT, Channel, "")
                .documentElement.appendChild (CreateChannel)
                .Save Path
            End If
        End With
    End Function
   
    Public Function GetAllChannels()
        Dim Result
        Dim Nde, i
        With Dom
            With .documentElement.childNodes
                If .length = 0 Then
                    Result = Split("", 0)
                Else
                    ReDim Result(.length - 1)
                    For i = 0 To .length - 1
                        Result(i) = .Item(i).nodeName
                    Next
                End If
            End With
        End With
        GetAllChannels = Result
    End Function
   
    Public Function DeleteChannel(Channel)
        Dim Selection
        With Dom
            Set Selection = .selectNodes("//" & Channel)
            Selection.RemoveAll
            .Save Path
        End With
    End Function
   
    Public Function CreateSection(Channel, Section)
        Dim Nde
        With Dom
            Set Nde = .selectSingleNode("//" & Channel & "/" & Section)
            If Nde Is Nothing Then
                Set Nde = .selectSingleNode("//" & Channel)
                If Nde Is Nothing Then
                    Set Nde = .createNode(NODE_ELEMENT, Channel, "")
                    .documentElement.appendChild (Nde)
                End If
               
                Set CreateSection = .createNode(NODE_ELEMENT, Section, "")
                Nde.appendChild (CreateSection)
               
                .Save Path
            End If
        End With
    End Function
   
    Public Function GetAllSections(Channel)
        Dim Result
        Dim Nde, i
        With Dom
            Set Nde = .selectSingleNode("//" & Channel)
            If Not Nde Is Nothing Then
                With Nde.childNodes
                    If .length = 0 Then
                        Result = Split("", 0)
                    Else
                        ReDim Result(.length - 1)
                        For i = 0 To .length - 1
                            Result(i) = .Item(i).nodeName
                        Next
                    End If
                End With
            Else
                Result = Split("", 0)
            End If
        End With
        GetAllSections = Result
    End Function
   
    Public Function ClearAllSections(Channel)
        Dim Selection
        With Dom
            Set Selection = .selectNodes("//" & Channel)
            Selection.RemoveAll
            .Save Path
        End With
    End Function
   
    Public Function DeleteSection(Channel, Section)
        Dim Selection
        With Dom
            Set Selection = .selectNodes("//" & Channel & "/" & Section)
            Selection.RemoveAll
            .Save Path
        End With
    End Function
   
    Public Function GetAllKeys(Channel, Section)
        Dim Result
        Dim Nde, i
        With Dom
            Set Nde = .selectSingleNode("//" & Channel & "/" & Section)
   If Not Nde Is Nothing Then
    With Nde.childNodes
     If .length = 0 Then
      Result = Split("", 0)
     Else
      ReDim Result(.length - 1)
      For i = 0 To .length - 1
       Result(i) = .Item(i).nodeName
      Next
     End If
    End With
   Else
    Result=Split("", 0)
   End If
        End With
        GetAllKeys = Result
    End Function
   
    Public Sub SaveValue(Channel, Section, Key, Value)
        Dim Nde, Nde2, ItemNode
        With Dom
            Set ItemNode = .selectSingleNode("//" & Channel & "/" & Section & "/" & Key)
            If ItemNode Is Nothing Then
                Set Nde = .selectSingleNode("//" & Channel)
                If Nde Is Nothing Then
                    Set Nde = .createNode(NODE_ELEMENT, Channel, "")
                    .documentElement.appendChild (Nde)
                End If
               
                Set Nde2 = Nde.selectSingleNode("//" & Section)
                If Nde2 Is Nothing Then
                    Set Nde2 = .createNode(NODE_ELEMENT, Section, "")
                    Nde.appendChild (Nde2)
                End If
               
                Set ItemNode = .createNode(NODE_ELEMENT, Key, "")
                Nde2.appendChild (ItemNode)
            End If
            ItemNode.Text = Value
           
            .Save Path
        End With
    End Sub
   
    Public Function ReadValue(Channel, Section, Key)
        Dim Nde
        With Dom
            Set Nde = .selectSingleNode("//" & Channel & "/" & Section & "/" & Key)
            If Nde Is Nothing Then
                ReadValue = DefaultValue
            Else
                ReadValue = Nde.Text
            End If
        End With
    End Function
   
    Public Function GetAllValues(Channel, Section)
        Dim Result
        Dim Nde, i
        With Dom
            Set Nde = .selectSingleNode("//" & Channel & "/" & Section)
            If Not Nde Is Nothing Then
                With Nde.childNodes
                    If .length = 0 Then
                        Result = Split("", 0)
                    Else
                        ReDim Result(.length - 1)
                        For i = 0 To .length - 1
       Set Result(i)=New RegistryKey
       Result(i).Name=.Item(i).nodeName
       Result(i).Value=.Item(i).Text
                        Next
                    End If
                End With
            Else
                Result = Split("", 0)
            End If
        End With
        GetAllValues = Result
    End Function
End Class

Class RegistryKey
 Public Name
 Public Value
End Class
%>