Dim HttpURL                                                                                                                                                              

  HttpURL = "http://192.168.0.0/Publish/gm_DataRequest.asp"                                                                                              

 Dim oXmlHTTP                                                                                                                                                             

  Set oXmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")                                                                                                              

   'oXmlHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"                                                                                         

   oXmlHTTP.Open "GET", HttpURL, false                                                                                                                                    

   oXmlHTTP.Send ""                                                                                                                                                       

 Dim HttpStatus                                                                                                                                                           

 Dim WriteStr                                                                                                                                                             

HttpStatus = oXmlHTTP.Status                                                                                                                                            

If Err.Number <> 0 Or HttpStatus <> 200 Then                                                                                                                            

if HttpStatus = 404 then                                                                                                                                               

 WriteStr = "존재하지 않는 페이지 입니다.(404)"                                                                                                                                    

Elseif Httpstatus >= 401 And HttpStatus < 402 Then                                                                                                                     

 WriteStr = "접근이 금지된 페이지 입니다.(401)"                                                                                                                                    

Elseif Httpstatus >= 500 And HttpStatus <= 600 Then                                                                                                                    

 WriteStr = "내부 서버 오류 입니다.(500)"                                                                                                                                       

Else                                                                                                                                                                   

 WriteStr = "서버가 다운되었거나 올바른 경로가 아닙니다."                                                                                                                                 

End If                                                                                                                                                                 

'오류가 없음 (문서를 성공적으로 로딩함)                                                                                                                                                 

Else                                                                                                                                                                    

WriteStr = URLDecodeUTF8(oXmlHTTP.ResponseText)                                                                                                                        

End If                                                                                                                                                                  

Set oXmlHTTP = Nothing                                                                                                                                                    

'Development > ASP' 카테고리의 다른 글

ADO & SQL 데이터타입  (0) 2013.10.31
ADO Command 객체중 리턴값을 반환할때  (0) 2013.05.30
서버사이드 비동기 접근  (0) 2013.05.30
ASP 에서 XML파서를 이용한 AJAX 한글처리  (0) 2013.05.30
XMLHTTP  (0) 2013.05.30
MSXML2.ServerXMLHTTP  (0) 2013.05.30

+ Recent posts