Ошибка API-запроса через XMLHTTP (IIS) - PullRequest
Новая
       51

Ошибка API-запроса через XMLHTTP (IIS)

0 голосов
/ 11 октября 2018

Я пытаюсь отправить запрос (POST) в API, используя объект XMLHTTP.6.0.

При запуске той же процедуры в Postman она работает как чудо - но при запуске ее в VB через IIS (ASP), отвечающий сервер, кажется, даже не получает указанные заголовки авторизации.

Имеютпытался выяснить, почему это происходит весь день без удачи.

Кто-нибудь знает, почему заголовок авторизации не получен удаленным сервером? 

<%
Function ASPPostJSON(url)
Dim objXmlHttp

Set objXmlHttp = Server.CreateObject("Msxml2.XMLHTTP.6.0")

  objXmlHttp.Open "POST", url, false, "nouser", "nopwd"
  objXmlHttp.setRequestHeader "Accept", "*/*"
  objXmlHttp.SetRequestHeader "Authorization", "Basic VGVzdEZpbmFuczpHUTJUR05KUUdFWURNTlJURzQzR0laUldHNVFXR1pSVA=="
  objXmlHttp.SetRequestHeader "cache-control", "no-cache"
  objXmlHttp.SetRequestHeader "content-length", "26"
  objXmlHttp.SetRequestHeader "Content-Type", "application/json"

'send the json string to the API server
 objXmlHttp.Send "{""PNR"": 194803234857 }"

'If objXmlHttp.Status = 200 Then
 ASPPostJSON = CStr(objXmlHttp.ResponseText)
'end if

'return the response from the API server
 Response.write(ASPPostJSON)
 Set objXmlHttp = Nothing

End Function

'call the function and pass the API URL
 call ASPPostJSON("https://api.testserver.com/v2/person")
%>
...