
<html>

<body>



<%

dim d

set d=Server.CreateObject("Scripting.Dictionary")

d.Add "c", "China"

d.Add "i", "Italy"

if d.Exists("c")= true then

    Response.Write("键存在。")

else

    Response.Write("键不存在。")

end if

set d=nothing

%>



</body>

</html>