[ASP] 한글까지 디코딩되는 ASP URLDecode 함수

출처 : 데브피아의 이상민 님이 2002년에 올리신 함수입니다.

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