源代码:
<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>
运行结果：
<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>