<!DOCTYPE HTML>
<HTML>
<BODY>
<%
Dim d, a, i, s
Set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "挪威"
d.Add "i", "意大利"
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>