'******************************************************************
'* # FUNCTION NAME : 배열 출력
'* # FUNCTION CONT. :
'* # Made By 임형섭 2008-03-07
'******************************************************************
Sub PrintArray(Name, ArrayList)
response.write "<HR>"
For i = 0 To UBound(ArrayList,1)
For j = 0 To UBound(ArrayList,2)
response.write Name & "("&i&","&j&") = " & Trim(ArrayList(i,j)) & "<BR>"
Next
Next
response.write "<HR>"
End Sub
'******************************************************************
'* # FUNCTION NAME : Arr2 => Arr1로 배열 복사
'* # FUNCTION CONT. :
'* # Made By 임형섭 2008-03-07
'******************************************************************
Sub CopyArray(Arr1, Arr2)
For i = 0 To UBound(Arr2,1)
For j = 0 To UBound(Arr2,2)
Arr1(i,j) = Trim(Arr2(i,j))
Next
Next
End Sub