My Name is Kay....

DIY , 먹방 , 개발 , 육아 , 여행 좋아합니다.
AdBlock 사용시 화면이 정상적으로 노출되지 않습니다.
포스팅 관련 문의 및 개발 문의는 Email : wkzkfmxksi@gmail.com

추가 포스팅이 이뤄지지 않는 블로그입니다. 문의는 wkzkfmxksi@gmail.com 으로 연락주세요.
2014.01.28 11:30

UTF-8 URLDecode 함수

kay
조회 수 2698 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

기존에 사용하던 URLDECODE 함수가

특수문자 또는 한자 , 일부 외국어 등 UTF-8 문자열에서 제대로 DECODE 되지 않는 문제가 있어서

찾아보았더니 문자셋 문제였습니다.


글쓴분은 이미 100년전에 찾으신듯한데

호갱 개발자 반성해봅니다.. 


Function UrlDecode_GBToUtf8(ByVal str) 
    Dim B,ub    ''中文字的Unicode码(2字节) 
    Dim UtfB    ''Utf-8单个字节 
    Dim UtfB1, UtfB2, UtfB3 ''Utf-8码的三个字节 
    Dim i, n, s 
    n=0 
    ub=0 
    For i = 1 To Len(str) 
        B=Mid(str, i, 1) 
        Select Case B 
            Case "+" 
                s=s & " " 
            Case "%" 
                ub=Mid(str, i + 1, 2) 
                UtfB = CInt("&H" & ub) 
                If UtfB<128 Then 
                    i=i+2 
                    s=s & ChrW(UtfB) 
                Else 
                    UtfB1=(UtfB And &H0F) * &H1000    ''取第1个Utf-8字节的二进制后4位 
                    UtfB2=(CInt("&H" & Mid(str, i + 4, 2)) And &H3F) * &H40        ''取第2个Utf-8字节的二进制后6位 
                    UtfB3=CInt("&H" & Mid(str, i + 7, 2)) And &H3F        ''取第3个Utf-8字节的二进制后6位 
                    s=s & ChrW(UtfB1 Or UtfB2 Or UtfB3) 
                    i=i+8 
                End If 
            Case Else    ''Ascii码 
                s=s & B 
        End Select 
    Next 
    UrlDecode_GBToUtf8 = s 
End Function



참고 Url : 

http://blog.daum.net/bomdol/16137019

http://www.cftea.com/c/2009/10/OOXX97QIONHANAF9.asp

TAG •
?

  1. 변수 ByRef , ByVal

    Date2015.12.07 Bykay Views467
    Read More
  2. IIS에서 ASP 날짜 형식 YYYY-MM-DD

    Date2015.08.24 Bykay Views735
    Read More
  3. ASP 에러 체크

    Date2014.11.20 Bykay Views1137
    Read More
  4. 이미지 사이즈 컴포넌트 "pakImage"

    Date2014.10.20 Bykay Views1090
    Read More
  5. 엑셀 다운로드 시 한글 파일명 깨짐 해결

    Date2014.08.07 Bykay Views1922
    Read More
  6. [펌] Request.Form , Request.QueryString 값 확인하기

    Date2014.06.12 Bykay Views1496
    Read More
  7. response.Cookie Collection , 쿠키 만료일 미지정시 만료일은?

    Date2014.02.20 Bykay Views2820
    Read More
  8. UTF-8 URLDecode 함수

    Date2014.01.28 Bykay Views2698
    Read More
  9. Excel 파일(.xlsx) 읽어서 디비에 넣기

    Date2013.12.08 Bykay Views17906
    Read More
  10. 오늘 본 상품 쿠키로 처리하기

    Date2013.09.13 Bykay Views3434
    Read More
  11. ASP 함수 " HTML 태그 제거하기"

    Date2013.07.31 Bykay Views2226
    Read More
  12. ADODB.Stream + ASP에서 파일 다운로드

    Date2013.06.18 Bykay Views3367
    Read More
  13. ASPFTP - 컴포넌트를 이용한 ASP 에서 FTP 사용하기

    Date2013.06.13 Bykay Views4663
    Read More
  14. ASP 에서 RSS 가져와서 파싱하기

    Date2013.05.22 Bykay Views2708
    Read More
  15. http를 이용한 xml 호출 및 파싱 ( MSXML2.DomDocument )

    Date2013.05.20 Bykay Views3545
    Read More
  16. 문자열 거꾸로 strReverse

    Date2013.05.13 Bykay Views2326
    Read More
  17. asp Json 데이터 받기

    Date2013.04.02 Bykay Views8691
    Read More
  18. 동적 변수 선언 및 프로그래밍 " eval , Execute "

    Date2013.03.29 Bykay Views4564
    Read More
Board Pagination Prev 1 Next
/ 1