뉴스그룹에 올라온 소스입니다.
VB 스크립트로 작성한 Binary -> ASCII 디코딩 소스인데, XMLHTTP 의 반환값을 해석하는 데에 유용하게 쓸 수 있습니다.
보통 XMLHTTP 가 XML 문서가 아닌 반환값에 대해서는 Binary 데이터만을 보여주어서 한글이 깨져 보이게 됩니다. 즉, 한글이 포함된 HTML 문서의 경우에는 아래에서 보여주는 BinDecode VB 함수를 사용하시면 됩니다.
한가지 주의하실 것은, 아무래도 Script 함수이다 보니 조금 긴 HTML 텍스트의 경우에는 과도한 루프와 문자열 연산때문에 CPU 부하가 너무 걸린다는 것이죠. 스크립트로는 극복할 수 없고, 만약 ActiveX 를 배포할 수 있는 상황이라면 VC++ COM 개체로 구현하시는 것도 좋은 방법일 수 있습니다.
<script language="javascript">
function ViewHtmlPage()
{
var x = new ActiveXObject("Microsoft.XMLHTTP")
x.open("get","test.asp",false);
x.send();
var strv = x.responseBody;
document.body.innerHTML = BinDecode(strv);
}
</script>
<script language="vbscript">
'-----------------------------------------
' BinDecode (바이너리 -> 아스키 변환)
' mongmong - 2003. 2
'-----------------------------------------
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>
[최초 등록일: ]
[최종 수정일: 2/15/2004]