xmlHTTP를 이용해서 웹페이지 가져오기
Posted at 2007. 12. 2. 15:18 | Posted in 프로그래밍/ASP, Javascript<%
' ===========================
' Function to GetHTMLBin
' ===========================
Function GetHTMLBin(URLaddress)
Dim Http
Set Http = CreateObject("Microsoft.XMLHTTP")
Http.Open "GET", URLaddress, False
Http.Send
GetHTMLBin = Http.responseBody
Set Http = Nothing
End Function
' ===========================
' Function to BinToText
' ===========================
Function BinToText(varBinData, intDataSizeInBytes) ' as String
Const adFldLong = &H00000080
Const adVarChar = 200
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.Append "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppendChunk varBinData
BinToText = objRS("txt").Value
objRS.Close
Set objRS = Nothing
End Function
GetURL = "http://www.naver.com/"
HTMLBin = GetHTMLBin(GetURL)
html = BinToText(HTMLBin,32000)
%>
<%=html%>
ResponseText를 이용하여 값을 받아서 출력하면 한글이 깨지게 됩니다. 그래서 바이너리타입으로 값을 전송하여 변환하는 함수를 이용하여 출력하는 방식입니다.
'프로그래밍 > ASP, Javascript' 카테고리의 다른 글
레이어 팝업 (0) | 2008.04.04 |
---|---|
라이트박스 라이브러리 (0) | 2007.12.03 |
이미지캐시 적용되지 않게 하기 (0) | 2007.11.30 |
파이어폭스와 IE에서 동작하는 style.display (1) | 2007.11.16 |
InnerHTML 사용시 알 수 없는 런타임 오류 (0) | 2007.11.16 |