ASP URLDecode

FUNCTION URLDecode(str)

'// This function:

'// - decodes any utf-8 encoded characters into unicode characters eg. (%C3%A5 = å)

'// - replaces any plus sign separators with a space character

'//

'// IMPORTANT:

'// Your webpage must use the UTF-8 character set. Easiest method is to use this META tag:

'// <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

'//

    Dim objScript

    Set objScript = Server.CreateObject("ScriptControl")

    objScript.Language = "JavaScript"

    URLDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))")

    Set objScript = NOTHING

END FUNCTION

response.write Server.URLEncode("정말 즐거웠습니다! 재밌었네요.") 

--

response.write Server.URLEncode("한글 테스트 중입니다. ♠♣ 특문도 몇개") 

Dim decodeText

decodeText = "%ED%95%9C%EA%B8%80+%ED%85%8C%EC%8A%A4%ED%8A%B8+%EC%A4%91%EC%9E%85%EB%8B%88%EB%8B%A4%2E+%E2%99%A0%E2%99%A3+%ED%8A%B9%EB%AC%B8%EB%8F%84+%EB%AA%87%EA%B0%9C"

Dim decodeTest : decodeTest = URLDecode(Server.URLEncode("한글 테스트 중입니다. ♠♣ 특문도 몇개"))

결과

%ED%95%9C%EA%B8%80+%ED%85%8C%EC%8A%A4%ED%8A%B8+%EC%A4%91%EC%9E%85%EB%8B%88%EB%8B%A4%2E+%E2%99%A0%E2%99%A3+%ED%8A%B9%EB%AC%B8%EB%8F%84+%EB%AA%87%EA%B0%9C
한글 테스트 중입니다. ♠♣ 특문도 몇개

==

ASP로 만들어보면 깨지는데 이걸 자바스크립트로 그냥 해결할줄이야

==

출처 : http://requireme.tistory.com/entry/classic-ASP-%EC%97%90%EC%84%9C-URLDECODE