本文向大家介绍在VB中，如何操作Scripting.Dictionary对象。简单来说，它相当于二维数组，但是和二维数组比起来，要更灵活一些。
一、对象的成员概要：
当增加一个键/条目对时，如果该键已存在；或者删除一个键/条目对时，该关键字/条目对不存在，或改变已包含数据的Dictionary对象的CompareMode，都将产生错误。
属性说明
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() 删除全部键/条目对
二、创建和使用Dictionary对象：
Dim sdData Set sdData =Server.CreateObject(“Scripting.Dictionary”)
三、增加 删除 判断是否存在某个键 删除全部：
sdData.Add "A1", "张三"
sdData.Add "A2", "李四"
isThere = sdData.Exists("A1")
strItem = sdData.Item("A1")
strItem = sdData.Remove("A1")
sdData.RemoveAll四、遍历Dictionary对象：
arrKeys = sdData.Keys arrItems = sdData.Items For i= 0 To sdData.Count–1 StrThisKey = arrKeys(i) StrThisItem = arrItems(i) Next
