Request 를 폼의 히든(hidden) 값으로 자동 생성해주기

자주 쓰이진 않지만 간혹가다가 이전 페이지에 있던 모든 폼값들을 현재페이지에서 hidden 값으로 끌고다녀야 할때가 있다. 그것 끌고 다니는 값이 많을수록 존내 귀찮아 지는데 아래 함수 한번 쓰면 알아서 아래처럼 hidden 값으로 생성해준다.


<form name="frm" method="post" action="submission_proc.asp">
<span style=display:none><textarea name=lastname>&="존내보는거다"</textarea>
<textarea name=firstname></textarea>
<textarea name=birthday></textarea>
<textarea name=sex>male</textarea>
<textarea name=group></textarea>
<textarea name=Department></textarea>
<textarea name=Collaborators></textarea>
<textarea name=address></textarea>
<textarea name=city></textarea>
<textarea name=zipcode></textarea>
<textarea name=country></textarea>
<textarea name=Phone></textarea>
<textarea name=Fax></textarea>
<textarea name=Email></textarea>
<textarea name=URL></textarea>
<textarea name=bio></textarea>
</span>



근데 위의 뿌려진 결과를 보면 textarea 태그를 이용했는데 hidden으로 할경우 ",',&,= 등등 특수문자를 가져올때 <input type=hidden name= value="내용"=""... 이런식으로 value 값이 애매모호해져서 textarea로 처리한후 그 부분 태그들을 span태그로 숨겨버렸다. (아는 사람들은 알겠지요.. -_- 설명이 모호함 -_-)

아무튼 아래는 코드임...사용법은 간단

<form>
<%Call RequesttoHidden%>
</form>

이렇게 하면 끝!



Sub RequestToHidden
    Dim tmpReq, arrReq, arrTmp, tmpKey, tmpVal
    Dim strOut
    Dim i
    tmpReq = Request.Form
   
    arrReq = Split(tmpReq,"&")
    for i = 0 to UBound(arrReq)
        arrTmp = Split(arrReq(i),"=")
        tmpKey = arrTmp(0)       ' Request값 이름
        tmpVal = Request(tmpKey) ' Request값 Value
       
        strOut = strOut & "<textarea name="""&tmpKey&""">" & tmpVal & "</textarea>" & vbCrLf
    next
    strOut = "<span style=display:none>" & vbCrLf & strOut & "</span>"
    Response.Write strOut
End Sub