<!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.Keys
for i = 0 To d.Count -1
s = s & a(i) & "<br>"
next
Response.Write(s)
set d=nothing
%>
</body>
</html>