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