<!DOCTYPE html>
<html>
<body>

<%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "挪威"
d.Add "i", "義大利"
如果 d.Exists("n")= true 那麼
    Response.Write("鍵存在。")
else
    Response.Write("鍵不存在。")
end if
set d=nothing
%>


</body>
</html>