Return an array of all items 实例演示 - 软晨网（RuanChen.com）

左边为源代码，右边为显示效果

<html> <body> <% dim d,a,i,s set d=Server.CreateObject("Scripting.Dictionary") d.Add "p", "RuanChen" d.Add "m", "MicroSoft" Response.Write("<p>元素的值为：</p>") a=d.Items for i = 0 To d.Count -1 s = s & a(i) & "<br>" next Response.Write(s) set d=nothing %> </body> </html>

效果会显示在右边

Create by 软晨网（RuanChen.com）