<SCRIPT language=JScript>
function CountTest(key){
  var VBObj,dicObj,i,str; // 변수를 만든다.
  dicObj=new ActiveXObject('Scripting.Dictionary');
  dicObj.Add('a','사과');       // 키와 항목을 추가한다.
  dicObj.Add('b','바나나');
  dicObj.Add('c','체리');
  VBObj=(new VBArray(dicObj.Keys()));   // 키를 가져온다.
  str='';
  for (i=0;i<dicObj.Count;i++){  // dictionary를 반복한다.
    str+=VBObj.getItem(i)+' - '+dicObj(VBObj.getItem(i))+'<BR>';
  }
  str+='dicObj.Count='+dicObj.Count+'<BR>';
  str+='dicObj.Item(key)='+dicObj.Item(key);
  return(str); // 결과를 반환한다.
}
</SCRIPT>

<DIV id=showjs class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="id=showjs.innerHTML=CountTest('c')">
 <SPAN class=ie>JScript</SPAN> <SPAN class=property>Count</SPAN> 예제 클릭</DIV>

<SCRIPT language=VBScript>
Function CountTestvb(key)
  Dim VBObj,dicObj,i,str  ' 변수를 만든다.
  Set dicObj=CreateObject("Scripting.Dictionary")
  dicObj.Add "a","사과"  ' 키와 항목을 추가한다.
  dicObj.Add "b","바나나"
  dicObj.Add "c","체리"
  VBObj=dicObj.Keys ' keys를 얻음.
  For i=0 To dicObj.Count -1 ' array를 반복한다.
    str=str&VBObj(i)&" - "&dicObj(VBObj(i))&"<BR>" ' 반환 문자열을 만든다.
  Next
  str=str&"dicObj.Count="&dicObj.Count&"<BR>"
  str=str&"dicObj.Item(key)="&dicObj.Item(key)
  CountTestvb=str
End Function
</SCRIPT>

<DIV id=showvb class=show alt="결과">결과 표시창</DIV>
<DIV class=show onClick="showvb.innerHTML=CountTestvb('c')">
<SPAN class=ie>VBScript</SPAN> <SPAN class=property>Count</SPAN> 예제 클릭</DIV>