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()　删除所有项