Server. URLEncode Server. URLDecode 한글 지원 User Function

ASP Get Parameter 작업 중 한글 데이터가 문제가 되는 경우가 있다.

그럴 때, 인코딩을 이용하면 된다.

URLEncode는 ASP에서 제공하는 것 쓰고

URLdecode는 사용자 함수를 쓰자..

왜?

한글은 2Byte문자니까.. 

그리고 Server.URLEncode로 Encoding시 % 접두사가 붙은 형태의 1Byte 문자로 인식하니까..

  

<%
Dim encodeTest : encodeTest = Server.URLencode("한글")
Dim decodeTest : decodeTest = URLDecode(encodeTest)

 

Response.Write encodeTest + "=" + decodeTest

 

'### Decode 함수 시작 ###

 

Function URLDecode(Expression)

 Dim strSource, strTemp, strResult, strchr
 Dim lngPos, AddNum, IFKor
 strSource = Replace(Expression, "+", " ")

 For lngPos = 1 To Len(strSource)
  AddNum = 2
  strTemp = Mid(strSource, lngPos, 1)
  If strTemp = "%" Then
   If lngPos + AddNum < Len(strSource) + 1 Then
    strchr = CInt("&H" & Mid(strSource, lngPos + 1, AddNum))
    If strchr > 130 Then 
     AddNum = 5
     IFKor  = Mid(strSource, lngPos + 1, AddNum)
     IFKor  = Replace(IFKor, "%", "")
     strchr = CInt("&H" & IFKor )
    End If
    strResult = strResult & Chr(strchr)
    lngPos = lngPos + AddNum
   End If
  Else
   strResult = strResult & strTemp
  End If
 Next

 URLDecode = strResult

End Function  

 

'### Decode 함수 끝 ###
%>

[출처] [ASP] URLencode, URLdecode|작성자 셰프