asp中Scripting.Dictionary字典对象使用示例
vbscript的Scripting.Dictionary创建了类似于Key索引对应Value值的字典对象，通过Key直接索引到指定的Value。
VBScript中Scripting.Dictionary使用示例如下:
DimobjDict
SetobjDict=WSH.CreateObject("Scripting.Dictionary")
'.Add(key,value)
objDict.Add"a","value1"
objDict.Add"b","value2"
objDict.Add"c","value3"
'直接通过key=b索引到value2
WSH.EchoobjDict.Item("b")
objDict.Remove"b"'删除索引b及其对应的值
'以下是遍历字典
DimobjKeys,objItems,i
objKeys=objDict.Keys
objItems=objDict.Items
Fori=0ToobjDict.Count-1
WSH.Echo"Key="&objKeys(i)&_
"ANDValue="&objItems(i)
Next
'判断指定的key是否存在
IfobjDict.Exists("b")Then
WSH.Echo"Foundit"
Else
WSH.Echo"NotExists!"
EndIf
objDict.RemoveAll '清空字典内所有的key及其对应value
SetobjDict=Nothing