<!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>