배열선언 Dim과 ReDim

Dim colors()

ReDim colors(2)

colors(0) = "apple"

colors(1) = "orange"

colors(2) = "tomato"

for i= Lbound(colors) to UBound(colors)

    response.write "<Br>colors"&(i)&": " & colors(i)

next

response.write "<p></P>"

Redim colors(4)

colors(3) = "banana"

for i= Lbound(colors) to UBound(colors)

    response.write "<Br>colors"&(i)&": " & colors(i)

next

배열을 다시 정의하면 기존 데이터는 삭제됨

기존 데이타를 남길려면 preserve를 사용함

response.write "<p></P>"

Redim preserve colors(4)

colors(3) = "banana"

for i= Lbound(colors) to UBound(colors)

    response.write "<Br>colors"&(i)&": " & colors(i)

next

다시 정리필요.