Return an array of all keys 实例演示 - 软晨网（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.Keys 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）