<!DOCTYPE html>
<html>
<body>
<%
dim d, a, s, i
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "挪威"
d.Add "i", "義大利"
Response.Write("鍵/值對的數量是: " & d.Count)
set d=nothing
%>
</body>
</html>