UTF-8인코딩 및 디코딩 관련 함수 (URLEncodeUTF8,URLDecodeUTF8)
http://cafe.naver.com/q69/71121ASP뉴스그룹의 멍멍이님께서 작성하신 함수 인데 퍼왔슴다.. ^^ 요즘 PC팔고 계시다는데.. 장사 잘되시길 바랍니다..ㅋㅋ Public Function URLEncodeUTF8(byVal szSource) Dim szChar, WideChar, nLength, i, result nLength = Len(szSource) 'szSource = Replace(szSource," ","+") For i = 1 To nLength szChar = Mid(szSource, i, 1) If Asc(szChar) < 0 Then WideChar = CLng(AscB(MidB(szChar, 2, 1))) * 256 + AscB(MidB(szChar, 1, 1))..
더보기