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

<%

'------------------------------------------------------------------------------------

'类名：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

%>