http://blog.sina.com.cn/s/blog_606fea930100f1gc.html
Dictionary對象是保存鍵和項目對的字典對象，字典中的項目（可是是任何形式的數據）被保存在數組中，每項都與唯一的鍵相關聯。鍵值用於檢索單個項目，通常是整數或字符串，但不能爲數組。
屬性或方法 說明
ArrayMode屬性 數組訪問模式，允許以下標方式訪問，缺省爲true。
Count屬性 返回一個對象中的項目數，只讀屬性。
Item屬性 在一個Dictionary
對象中設置或者返回所指定key的item。
Items屬性 以數組方式返回對象中的全部項目。
Key屬性 根據下標取得關鍵字的鍵值，只讀屬性。
Keys屬性 以數組方式返回對象中的全部鍵值。
Add方法 向對象中添加一個關鍵字項目對。
Exists方法 如果對象中存在所指定的關鍵字則返回true，否則返回false。
Join方法 返回一個字符串，此字符串由包含在對象中的所有數據鍵和項目對連接創建。
Load方法 從指定的數據源裝載對象內容。
Remove方法 從一個Dictionary對象中刪除一個關鍵字項目對。
RemoveAll方法 RemoveAll方法從一個對象中刪除所有的項目。
Save方法 轉儲對象中的內容到指定的目標。
Sort方法 排序對象中的數據，可以指定升序和降序。
Split方法 分析給定的字符串，將分解出的子字符串填充到對象中。
當以數字作爲下標來查詢Dictionary對象時，則數字表示按照插入順序的下標，順序從0開始。如果其中某個數據鍵被刪除，則其後插入的數據鍵的下標依次前移。Dictionary對象的鍵值如果爲字符串，則將忽略字符串的大小寫。
Dictionary對象的缺省屬性爲Item，所以可以直接對Dictionary對象進行缺省操作。例如：dict("c")與dict.Item("c")的作用是完全等同的。如下例將插入一些關鍵字項目對，然後修改項目"c"爲第二個插入的項目。
Set
dict = CreateObject("NetBox.Dictionary")
dict.Add "a", "Athens"
dict.Add
"b", "Belgrade"
dict.Add "c", "Cairo"
dict("c") =
dict(1)
<H3>添加字典條目</H3>
<Form
Action="<%=Request.ServerVariables("Script_Name")%>">
<Input
Type="Text" Name="Key">
<Input Type="Text"
Name="value">
<Input Type="submit"
Value="添加條目">
</Form>
<Hr>
<%
Dim
strToDict
strToDict=Trim(Request.Querystring("key"))
strValue=Trim(Request.Querystring("value"))
If
Len(strToDict)>0 Then
'檢查字典是否存在
If IsEmpty(Session("MyDict"))
Then
Set Session
("MyDict")=Server.CreateObject("Scripting.Dictionary")
End If
Dim
myLocalDict
Set myLocalDict=Session("MyDict")
myLocalDict.Add
strToDict,strValue '添加字典條目
End
If
%>
<H3>列表字典的內容</H3>
<%
If
IsEmpty(Session("MyDict")) Then
Response.Write "字典是空的！"
Else
Dim
aKeys,aValues,i
Set
myLocalDict=Session("MyDict")
aKeys=myLocalDict.Keys
aValues=myLocalDict.Items
For
i=0 To myLocalDict.Count-1
Response.Write
aKeys(i)&"="&aValues(i)&"<Br>"
Next
End If
%>
