Items 方法返回包含 Dictionary 对象中的所有项目的一个数组。
DictionaryObject.Items
<%
dim d,a,i
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "c","China"
d.Add "i","Italy"
d.Add "s","Sweden"
Response.Write("<p>Item values:</p>")
a=d.Items
for i=0 to d.Count-1
Response.Write(a(i))
Response.Write("<br />")
next
set d=nothing
%>
输出:
Item values: China Italy Sweden