asp高手请进!!(类)

来源:百度知道 编辑:UC知道 时间:2024/06/02 09:06:42
请看以下的一个类:Scripting.Dictionary(是什么来的,.字典,有什么用呀?)CompareMode(??),vbTextCompare(?,有什么用呀)m_objDicItems的items集合是什么来的呀?有什么用途呀?m_objDicItems的keys集合是什么来的呀?大家可以的话,可以解释一下这个类吗?本人是个新手,请各位朋友指点.
Class clsCollection
Private m_objDicItems

Private Sub Class_Initialize()
Set m_objDicItems = Server.CreateObject("Scripting.Dictionary")
m_objDicItems.CompareMode = vbTextCompare
End Sub

Public Property Get Count()
Count = m_objDicItems.Count
End Property

Public Default Function Item(Index)
Dim arrItems
If IsNumeric(Index) Then
arrItems = m_objDicItems.Items
If IsObject(arrItems(Index)) Then
Set Item = arrItems(Index)
Else
Item = arrItems(Index)
End If
Else
If m_objDicItems.Exists(Index) Then
If IsObject(m_objDicItems.Item(Index)) Then
Set Item = m_objDicItems.Item(Index)
Else
Item = m_objDicItems.Item(Index)
End

Scripting.Dictionary是一个集合,用处非常大,比数组好用,你可以看一下vb55的中文手册里的关于fso组件的那一块,讲的很详细,如果没有vb55手册,建议下载一个,网上有很多

就是封装了对一个字典的操作