<SCRIPT language=JScript>
function keyExists(k){
  var dicObj,str='';
  dicObj=new ActiveXObject('Scripting.Dictionary');
  dicObj.Add('a','사과');
  dicObj.Add('b','바나나');
  dicObj.Add('c','체리');
  if (dicObj.Exists(k)) str+='지정한 키가 있다.';
  else str+='지정한 키가 없다.';
  return(str);
}
</SCRIPT>

<SCRIPT language=VBScript>
Function KeyExistsTestvb
  Dim dicObj,msg ' 변수를 만든다.
  Set dicObj=CreateObject("Scripting.Dictionary")
  dicObj.Add "a","사과"  ' 키와 항목을 추가한다.
  dicObj.Add "b","바나나"
  dicObj.Add "c","체리"
  If dicObj.Exists("c") Then
    msg="지정한 키가 있다."
  Else
    msg="지정한 키가 없다."
  End If
  KeyExistsTestvb=msg
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=KeyExistTestvb('b')">VBScript <SPAN class=method>Exists</SPAN>