源代码
<% dim d, a, s, i set d=Server.CreateObject("Scripting.Dictionary") d.Add "c", "China" d.Add "i", "Italy" Response.Write("key/item 对的数目是:" & d.Count) set d=nothing %>
运行结果