asp中Scripting.Dictionary字典对象使用示例

vbscript的scripting.dictionary创建了类似于key索引对应value值的字典对象，通过key直接索引到指定的value。

vbscript中scripting.dictionary使用示例如下:

dim objdict
set objdict = wsh.createobject("scripting.dictionary")
  ' .add(key, value)   
  objdict.add "a", "value1"
  objdict.add "b", "value2"
  objdict.add "c", "value3"
  '直接通过key=b索引到value2
  wsh.echo objdict.item("b")
  objdict.remove "b" ' 删除索引b及其对应的值
   
  ' 以下是遍历字典
  dim objkeys, objitems, i
  objkeys = objdict.keys
  objitems = objdict.items
  for i = 0 to objdict.count -1
    wsh.echo "key=" & objkeys(i) &_
             " and value=" & objitems(i)
  next
  ' 判断指定的key是否存在
  if objdict.exists("b") then
    wsh.echo "found it"
  else
    wsh.echo "not exists!"
  end if
  objdict.removeall  ' 清空字典内所有的key及其对应value
set objdict = nothing