[ASP] Split를 이용한 2차원배열

Dim str
Dim cutstr
Dim cutstr1
Dim str_arr
Dim str_num
Dim if_num
Dim k,i
Dim str_arr1

str = "2006/10/18,2006/10/19,2006/10/20,2006/10/21,2006/10/22,2006/10/23,2006/10/24,"
str_arr = Split(str,",") ' 배열선언
if_num = UBound(str_arr)
Redim str_arr1(if_num) ' 배열 사이즈 재정의
For k=0 To eval(if_num-1) 'for문
  Response.write str_arr(k) & "<br>"
  str_arr1(k) = Split(str_arr(k),"/") 
  Response.write UBound(str_arr1(k)) & "<br>"
  For i=0 To 2 
    Response.write "CC : " & str_arr1(k)(i) & "<br>"
  Next
Next