Scripting.Dictionary 类似于二维数组，但它与二维数组相比具有面向对象的思想，功能更强大。
示例
dim dic
set dic = server.CreateObject("Scripting.Dictionary")
dic.Add "fullname", "Lucy" '增加一项，语法：Add key,item，在同一对象中 key 是唯一的
dic.Add "gender", "female"
dic.Add "age", "23"
dic.key("fullname") = "name" '更改 key 值，语法：key(key) = newKey，只可写不可读
dic.item("name") = "Lily" '更改 item 值，语法：item(key) = newItem
response.Write dic.item("name") & "<br>" '显示 item 值，语法：item(key)
dim keys, items
keys = dic.Keys()
items = dic.Items()
response.Write keys(0) & "<br>" '显示 key 值，不能用 dic.Keys(0)，因为 dic.Keys 不是数组，而是方法
response.Write items(0) & "<br>" '显示 item 值，不能用 dic.Items(0)，因为 dic.Items 不是数组，而是方法
response.Write dic.count & " 个 Key<br>"
response.Write dic.Exists("name") & "<br>"
dic.Remove("gender")
dic.RemoveAll()
set dic = nothing
讲解
见示例中注释。
总结
.Add key, item 增加一项
.key(key) 更改 key 值
.item(key) 更改或显示 item 值
.Keys() 返回 key 值数组
.Items() 返回 item 值数组
.count 项数目
.Exists(key) key 是否存在
.Remove(key) 删除 key 对应的项
.RemoveAll() 删除所有项
