Dictionary

Dim dict
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "name","jack"
dict.Add "age","18"

arrKey = dict.Keys
arrItem = dict.Items
For i = 0 To dict.Count - 1
    Response.write(arrKey(i) & "=" & arrItem(i) & "<br/>") 
Next

If dict.Exists("age") Then
    If dict.Item("age") = 18 Then
        dict.Remove("age")
    End If
End If

 备注：不支持多维数据。