1. 서버측
Function GetHTMLBin(URLaddress) Dim Http Set Http = Server.CreateObject("Microsoft.XMLHTTP") Http.Open "GET", URLaddress, False Http.Send GetHTMLBin = Http.ResponseText Set Http = Nothing End Function Function BinToText(varBinData, intDataSizeInBytes) ' as String Const adFldLong = &H00000080 Const adVarChar = 200
Set objRS = CreateObject("ADODB.Recordset") objRS.Open objRS.AddNew objRS.Fields("txt").AppendChunk varBinData BinToText = objRS("txt").Value objRS.Close Set objRS = Nothing End Function
'html = BinToText(HTMLBin,32000) 'response.Write html |
2. 클라이언트 측
<script language="JavaScript"> // PostXml function PostXml() { var req = new ActiveXObject("Microsoft.XMLHTTP"); var str = ""; str = str +" 0000000"; req.Open("GET", "http://localhost/DeciWeb/MPC/templates/Reports/comments/LoanComments.asp?View=OT_Loan", false); req.Send(str); // var str = BinDecode(req.responseText); var str = req.responseText; // document.theForm.vHtml.innerHTML = str; document.getElementById("theComments").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> |
이 글은 스프링노트에서 작성되었습니다.