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 > Visual Basic | VBScript | ASP' 카테고리의 다른 글
ADO & SQL 데이터타입 (0) | 2013.10.31 |
---|---|
ADO Command 객체중 리턴값을 반환할때 (0) | 2013.05.30 |
ASP 에서 XML파서를 이용한 AJAX 한글처리 (0) | 2013.05.30 |
XMLHTTP (0) | 2013.05.30 |
MSXML2.ServerXMLHTTP (0) | 2013.05.30 |
댓글