JS : Microsoft.XMLHTTP

< script language="JavaScript">

    // PostXml

    function PostXml() {

        var req = new ActiveXObject("Microsoft.XMLHTTP");

 

        var str = "";

        str = str +" 0000000";

 

        req.Open("POST", "/xml/xmlhttp.asp", false);

        req.Send(str);

 

        var str = BinDecode(req.responseBody);

        document.all.vHtml.innerHTML = str;

    }

< /script>

 

< script language="VBScript">

    '// BinDecode : 바이너리 -> 아스키 변환

    function BinDecode(byval binData)

        dim i, byteChr, str

 

        for i = 1 to LenB(binData)

            byteChr = AscB(MidB(binData,i,2))

            if byteChr > 127 then

                i = i + 1

                str = str & Chr("&H" & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))))

            else

                str = str & Chr(byteChr)

            end if

        next

 

        BinDecode = str

    end function

< /script>

 

< body id="vHtml" onload="PostXml()">< /body>