웹페이지 소스 긁어오기

타 웹페이지의 내용을 읽어와 참조할때 사용하는, 웹페이지의 내용을 읽어오는 소스 입니다.

<%
function getInfo_function(xurl)

dim RStr
dim xmlClient

Set xmlClient = Server.CreateObject(“Microsoft.XMLHTTP”)
xmlClient.open “GET”, Xurl, False
xmlClient.setRequestHeader “Content-Type”,”text/xml”
xmlClient.setRequestHeader “Accept-Language”,”ko”
xmlClient.send

if xmlClient.status = 200 then
Set responseStrm = CreateObject(“ADODB.Stream”)
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xmlClient.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = “euc-kr”
RStr = responseStrm.ReadText
responseStrm.Close
Set responseStrm = Nothing
else
RStr = “get_fail”
end if

SET xmlClient = nothing
getInfo_function = RStr

end function
%>

위와같이 getInfo_function() 이라는 함수를 선언해놓고
원하는 페이지의 주소를 삽입하여 함수를 불러오면 됩니다.

read_data = getInfo_function(“http://www.daum.net“)
response.write(read_data)

참고로

Set responseStrm = CreateObject(“ADODB.Stream”)
responseStrm.Open
responseStrm.Position = 0
responseStrm.Type = 1
responseStrm.Write xmlClient.responseBody
responseStrm.Position = 0
responseStrm.Type = 2
responseStrm.Charset = “euc-kr”
RStr = responseStrm.ReadText
responseStrm.Close
Set responseStrm = Nothing

위 부분은
읽어온 페이지 내용의 한글을 깨지지않고 보여주기위한 소스입니다.