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 = "utf-8" 

   RStr = responseStrm.ReadText  

   responseStrm.Close

   Set responseStrm = Nothing

  else

   RStr = "get_fail"

  end if

  SET xmlClient = nothing

  getInfo_function = RStr

end function

%>

<%

read_data = getInfo_function("http://")

response.write(read_data)

%>

출처 : http://horangi.tistory.com/2