ACTIVE SERVER PAGE

컬렉션 개체인 Scripting.Dictionary는 JAVA의 Map 혹은 Hashtable정도로 봐도 무방할듯하다.

 

	생성방법 : 

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

	사용법 : 

		존재 유무 확인

			예) Dic.Exists("Syaku")

			- boolean값 반환

		Key값 반환

			예) Dic.Keys

			- Array값 반환

		컬렉션 추가

			예) Dic.add "Syaku","샤쿠"

		컬렉션 추출

			예) Dic.item("Syaku")
 
		컬렉션 key 변경

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

		컬렉션 값 변경

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

 
		컬렉션 삭제

			예) Dic.remove("blog")

		컬렉션 모두 삭제

			예) Dic.removeAll

		자원 해재

			예) Set Dic = Nothing 


	Function에서 가져오는 방법 
	------------------------------------------------------------

	PUBLIC FUNCTION GETDIC() 
			Set D=CreateObject("Scripting.Dictionary") 
			D.add "BANANA", "100" 
			D.ADD "DDALGI","200" 
			D.ADD "SO","300" 
			SET GETDIC = D 
	END FUNCTION 

	* 반드시 SET을 이용하여 반환해야한다.

예제)
 

		Dim ObjDic
		Set ObjDic = Server.CreateObject("Scripting.Dictionary")
		 

		' 컬렉션 존재 유무
		If ObjDic.Exists("ZEUS") Then
		 Response.Write "있음"
		ELSE
		 Response.Write "없음"
		End If
		 
		' 컬렉션 추가
		ObjDic.Add "ZEUS1","제우스1"    ' - Key, Item
		ObjDic.Add "ZEUS2","제우스2"    ' - Key, Item
		ObjDic.Add "ZEUS3","제우스3"    ' - Key, Item
		ObjDic.Add "ZEUS4","제우스4"    ' - Key, Item
		ObjDic.Add "ZEUS5","제우스5"    ' - Key, Item
		ObjDic.Add "ZEUS6","제우스6"    ' - Key, Item
		 
		' 컬렉션 추출
		Response.Write ObjDic.Item("ZEUS4")
		 
		' 컬렉션 key 변경
		ObjDic.Key("ZEUS4") = "Jinsoo"
		 
		' 컬렉션 값 변경
		ObjDic.Item("Jinsoo") = "진수"

		 Response.Write ObjDic.Item("Jinsoo")

		' 컬렉션 삭제
		ObjDic.Remove("Jinsoo")
		 
		' 컬렉션 모두 삭제
		ObjDic.RemoveAll

		Set ObjDic = Nothing