<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><?XML:NAMESPACE PREFIX = O />

 

<%Option Explicit%>

 

<%

Dim Ar,key

 

' 2차배열

Ar = Array( _

              Array("1","일"), _

              Array("2","이"), _

              Array("3","삼"), _

              Array("4","사") )            

 

for each key in Ar

           response.write key(0) & key(1) & "<br>"

next

 

response.write "<br>" & Ar(0)(1)

%>

 

1일

2이

3삼

4사

 

일

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>

 

<%Option Explicit%>

 

<%

Dim Dic

Set Dic = Server.CreateObject("Scripting.Dictionary")

 

Dim Ar

Ar = Array( _

              Array("A","일"), _

              Array("2","이"), _

              Array("3","삼"), _

              Array("4","사") )

 

Sub SetArray (DicAr)

           Dim temp

          

           If IsArray(DicAr) Then

                     For Each temp in DicAr

                                Dic.Add temp(0), temp(1)

                     Next

           End If

End Sub

 

Call SetArray(Ar)

 

response.write Dic.item("A")

 

'## Scripting.Dictionary 사용 예제 ##

 

' 컬렉션 존재 유무

If Dic.Exists("Syaku") Then

           response.wirte "존재"

End If

 

' 컬렉션 추가

Dic.add "Syaku","샤쿠"

 

' 컬렉션 추출

response.write Dic.item("Syaku")

 

' 컬렉션 key 변경

Dic.key("Syaku") = "blog"

 

' 컬렉션 값 변경

Dic.item("blog") = "블로그"

 

' 컬렉션 삭제

Dic.remove("blog")

 

' 컬렉션 모두 삭제

Dic.removeAll

 

 

Set Dic = Nothing 

%>

[출처] 샤쿠