ASP에서 MSXML2.ServerXMLHTTP 사용하여 원격 웹서버 내용 갖고 오기

HTTP를 구현해 놓은 여러 컴포넌트들이 있지만 윈도우2000에서부터 기본으로 설치되는 MSXML2.ServerXMLHTTP 컴포넌트를 이용하여 원격 웹서버의 내용을 갖고 올수 있다.

가장 기본적인 방법은 다음과 같다.

1. <%  
2.     sUrl = "http://www.ecplaza.net/" 
3.     set oHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")  
4.     oHttp.Open "GET", sUrl, False   
5.     oHttp.Send ""   
6.     Response.Write oHttp.ResponseText  
7.     Set oHttp = Nothing   
8. %>  

GET 메쏘드로 갖고온 HTML을 화면에 출력하는 루틴이다. 게시판등에 글을 쓰거나 할 때는 POST 메쏘드를 사용하는데 이 방법도 가능한다.

1. <%   
2.     sUrl = "http://river.ecplaza.net/form.asp" 
3.     set oHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")   
4.     oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
5.     oHttp.Open "POST", sUrl, False   
6.     oHttp.Send "subject=test&contents=message+body"   
7.     Response.Write oHttp.ResponseText   
8.     Set oHttp = Nothing   
9. %>  

오류 처리는 Send 메쏘드를 호출하기 전에  On Error Resume Next를 적어주고 오류발생여부를 체크하면 된다.

1. <%   
2.     sUrl = "http://river.ecplaza.net/form.asp" 
3.     set oHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")   
4.     oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
5.  
6.     On Error Resume Next 
7.  
8.     oHttp.Send "subject=test&contents=message+body" 
9.     If Err Then 
10.       Response.Write "Error:" & oHttp.ParseError.URL & "<br>" & _  
11.         oHttp.ParseError.Reason  
12.     Else 
13.       Response.Write oHttp.ResponseText  
14.     End If 
15.     Set oHttp = Nothing   
16. %>  
    
                                                             출처 http://pluto.ecplaza.net:8080/tt/river/226