demo_items 在线工具
<html>
<body>
<FONT COLOR=#ff0000><%
dim d,a,i,s
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "Norway"
d.Add "i", "Italy"
Response.Write("<p>The values of the items are:</p>")
a=d.Items
for i = 0 To d.Count -1
s = s & a(i) & "<br />"
next
Response.Write(s)
set d=nothing
%></FONT>
</body>
</html>