王新阳

Dim dict
Set dict = CreateObject("Scripting.Dictionary")
'添加项目
dict.Add "a", 100
dict.Add "b", 200
'统计项目数
Response.Write dict.Count

'删除项目
dict.Remove("a")

'判断项目是否存在
dict.exists("a")

'取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录
Response.Write dict.Item("a")

'修改关键字对应的值,如不存在则创建新的项目
dict.Item("a") = 101

'遍历
Dim arr, i
arr=dict.Items
For i=0 To dict.Count-1
Response.Write arr(i) '假设项目值为文本
Next

属性说明
CompareMode （仅用于VBScript）设定或返回键的字符串比较模式
Count 只读。返回Dictionary里的键/条目对的数量 ---从1开始，而不像数组从0开始计数
Item(key) 设定或返回指定的键的值
Key(key) 设定键名值

方法说明
Add(key,item) 增加键/条目对到Dictionary
Exists(key) 如果指定的键存在，返回True，否则返回False
Items() 返回一个包含Dictionary对象中所有条目的数组
Keys() 返回一个包含Dictionary对象中所有键的数组
Remove(key) 删除一个指定的键/条目对
RemoveAll() 删除全部键/条目对