웹페이지 소스 긁어오기

Posted by 공부하는호랑이 雨香
2007.12.19 18:12 웹프로그래밍/ASP

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

<%
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

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

신고

'웹프로그래밍 > ASP' 카테고리의 다른 글

GPS좌표 두지점간 거리계산 소스 - ASP/MSSQL/JS  (0) 2011.05.30
ASP로 XML페이지 만들기  (1) 2009.06.04
난수발생-ASP  (0) 2007.12.30
웹페이지 소스 긁어오기  (0) 2007.12.19

이 댓글을 비밀 댓글로