'동적 2차원 배열을 생성시킨다.

ReDim arrVals(1,255)

intIndex = 0



'Request.Form 컬렉션을 통해 loop를 돌린다.

For Each varItem in Request.Form

 If Request.Form(varItem).count > 1 then

  '이것은 각 값을 반복적용하는 컬렉션 그 자체이다.

  For intLoop = 1 to Request.Form(varItem).count

  '배열에 Control명과 값을 저장한다.

   arrVals(0, intIndex) = varItem & "(" & intLoop & ")"

   arrVals(1, intIndex) = Request.Form(varItem)(intLoop)

   

   intIndex = intIndex + 1

   

   

   

  Next

 Else

  '이것은 배열에 저장할 Control이 하나인 경우

  arrVals(0, intIndex) = varItem

  arrVals(1, intIndex) = Request.Form(varItem)

  

  

  intIndex = intIndex + 1

  

  

 End If

Next

날짜: 2004-06-08 14:36:50, 조회수: 2975