아작스 한글 인코딩

 

responseBody 로 받았을 경우엔

data = BinDecode(data)

 

 

<script language="vbscript">
 Public Function BinDecode(byVal binData)
  Dim i, byteChr, strV
  For i = 1 to LenB(binData)
   byteChr = AscB(MidB(binData,i,2))
   If byteChr > 127 Then
    i = i + 1
    strV = strV & Chr("&H" & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))))
   Else
    strV = strV & Chr(byteChr)
   End if
  Next
  BinDecode = strV
 End Function
</script>

[출처] 아작스 한글|작성자 천재성준

이 게시물을..