' 创建一个 Dictionary 对象
Dim d
Set d = Server.CreateObject("Scripting.Dictionary")
' 添加键值对
d.Add "re", "Red"
d.Add "gr", "Green"
d.Add "bl", "Blue"
' 检查键是否存在
If d.Exists("gr") Then
   Response.Write("Key 'gr' exists.")
End If
' 获取键对应的值
Response.Write("The value of key 'gr' is: " & d.Item("gr"))
' 获取所有键和所有值
Dim keys, items
keys = d.Keys
items = d.Items
' 遍历键值对
For Each key In keys
   Response.Write("Key: " & key & ", Value: " & d.Item(key) & "<br>")
Next
' 删除键值对
d.Remove("gr")
' 清空所有键值对
d.RemoveAll

方法描述

Add(key, item): 添加新的键值对。

Exists(key): 检查指定键是否存在，返回布尔值。

Remove(key): 删除指定的键值对。

RemoveAll(): 删除所有键值对。

Keys(): 返回所有键的数组。

Items(): 返回所有值的数组。

属性描述

Count: 返回键值对的数量。

Item(key): 获取或设置指定键的值。

CompareMode: 设置或返回键的比较模式。

示例输出

以下代码展示了如何获取键 "bl" 的值：

<%
Dim d
Set d = Server.CreateObject("Scripting.Dictionary")
d.Add "re", "Red"
d.Add "gr", "Green"
d.Add "bl", "Blue"
Response.Write("The value of key 'bl' is: " & d.Item("bl"))
%>
​

结果：The value of key 'bl' is: Blue

注意事项

Dictionary 对象不支持多维结构，但其灵活性和内置功能使其成为处理关联数据的理想选择。

来源Bing