다른 페이지의 정보 긁어오기

 향기가 있는 프로그래밍 | 데비
http://blog.naver.com/gogojinny80/110008206414

<%  Dim url, xml, category_code  category_code = request("category_code")  Set xml = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")  url = "http://aaa.como/aaa.asp"      xml.Open "POST", url, false  xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"  xml.setRequestHeader "Accept-Language","ko"    xml.Send("category_code=" & category_code)    response.Write(xml.responseText)    Set xml = Nothing %> ASP를 사용하시는 경우(1) - XMLHTTP 컨트롤 사용 : <% '출력하기위한 인코딩방식을 지정합니다. Session.Codepage=65001 Response.ContentType="text/HTML" Response.Charset="utf-8" url= "http://로 시작되는 URL을 입력" Set xml = server.CreateObject("Microsoft.XMLHTTP") '개체생성 xml.open "POST", "" & url & "", false '원하는 url불러오기 xml.send "" '실행 strStatus = xml.Status '실행상태 받아오기 str = xml.responseText '실제 받고자하는 데이터 Set xml = Nothing '개체 소멸 Response.Write str '결과 출력 >% ASP를 사용하시는 경우(2) - ServerXMLHTTP 컨트롤 사용 : <% Dim objSrvHTTP Dim objXMLSend Dim url url = "http://로 시작되는 URL을 입력" Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objSrvHTTP.open "GET",url,False objSrvHTTP.SetRequestHeader "Content-Type", "text/html;Charset=euc-kr" objSrvHTTP.send If objSrvHTTP.Status >= 400 And objSrvHTTP.Status <= 599 Then Response.Write "Error Occurred : " & objSrvHTTP.Status & " - " & objSrvHTTP.statusText Else contentIn = Server.HTMLEncode(objSrvHTTP.ResponseText) contentIn = replace(contentIn, "<", "<") contentIn = replace(contentIn, ">", ">") contentIn = replace(contentIn, ""","""") contentIn = replace(contentIn, "&", "&" ) End If Response.write contentIn Set objSrvHTTP = Nothing >% ASP를 사용하시는 경우(3) - MSINET 컨트롤 사용 : <% Dim inet Dim url, str, worldPop Dim iStart, iEnd url= "http://로 시작되는 URL을 입력" '① inet 컨트롤의 인스턴스를 생성한다. set inet = CreateObject("InetCtls.Inet") inet.RequestTimeOut = 20 '② Internet Transfer Control을 통해서 지정된 URL의 소스를 가져온다 If Not inet.StillExecuting Then inet.Url = url str = inet.OpenURL '③ 소스를 화면에 출력 response.Write str End If '④ 다 사용한 인스턴스를 제거한다. set inet = Nothing >% 주의) 웹서버에 MS에서 제공하는 Inet 컨트롤이 설치되어 있어야 합니다.