Dim Fields : Fields = "e_name,e_duty,e_phone,e_email,e_join,e_retire,e_hold_office"
Dim arrField : arrField = SPLIT(Fields, ",")
Dim i
For i = 0 To UBOUND(arrField)
Execute("Dim "&arrField(i)&" : " &arrField(i) & " = Request("""&arrField(i)&""")")
Next
--------------------------------
writeok나 editok페이지에서 폼에서 전송된 값을 Request할때 한번에 하기..
다른식으로 응용할수 있을거 같아서 기대됨.
Execute("DIM a ") 를 하면 a변수가 선언됨. a에 해당되는 변수를 배열로 저장해서 사용하면
편할듯..
Eval 은 javascript에서의 eval과 같다. ASP 3.0에 추가됬다고 하는것 같던데..
위에 사용예이서 eval을 사용할 경우 아래와 같이 쓸수 있다.
e_name변수가 execute에 의해 만들어 져서
Response.Write e_name 하면 e_name에 저장된 값이 나오고
Response.Write Eval(arrField(0)) 해도 역시 e_name에 저장된 값이 출력된다.
폼에서 전송된 값을 Request 하는 소스가 조금은 줄어 들지도..