案例:ASP/ADO案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
2
<html>
3
<body>
4
5
<%
6
dim d,a,i,s
7
set d=Server.CreateObject("Scripting.Dictionary")
8
d.Add "c", "China"
9
d.Add "i", "Italy"
10
11
Response.Write("<p>项目的值是:</p>")
12
a=d.Items
13
for i = 0 To d.Count -1
14
    s = s & a(i) & "<br />"
15
next
16
Response.Write(s)
17
18
set d=nothing
19
%>
20
21
</body>
22
</html>
23