Answer 1

1. Request.Form 데이터 전부 화면에 출력

<%

Dim Item, fieldName, fieldValue

For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    Response.Write fieldName & " = " & fieldValue & "<br>"
Next

%>

 

2. 컬렉션 형식, Scripting.Dictionary 담아 사용하기.

<%

Dim Item, fieldName, fieldValue
Dim a, b, c, d

Set d = Server.CreateObject("Scripting.Dictionary")

For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    d.Add fieldName, fieldValue
Next

' Rest of the code is for going through the Dictionary
a = d.Keys  ' Field names  '
b = d.Items ' Field values '

For c = 0 To d.Count - 1
    Response.Write a(c) & " = " & b(c)
    Response.Write "<br>"
Next

%>