MSXML2.ServerXMLHTTP.6.0 对象.send 在 IIS 经典 ASP 中不起作用

问题描述 投票:0回答:1

我有这段代码,它在我的本地计算机上运行良好。 我将其移至我们的开发服务器,当 .Send 收到错误 -2147483638 完成此操作所需的数据尚不可用时。 有什么想法可能导致服务器上的不同导致这种情况吗?

  url = "https://auth.hstream.net/oauth2/token"
  data = "grant_type=client_credentials"


  Function PostTextFromUrl(url,authToken,data)
    On Error Resume Next

    Dim oXMLHTTP
    Dim sHTTPResponse, sHTTPStatus  

    Set oXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0") 

    oXMLHTTP.SetProxy 1
    oXMLHTTP.SetTimeouts 600000, 600000, 600000, 600000

    oXMLHTTP.Open "POST", url, False
    oXMLHTTP.setRequestHeader "Authorization", authToken 
    oXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    oXMLHTTP.Send data
  
    response.write (Err.Number)
    response.write (Err.description)
    
    response.write (oXMLHTTP.status)


    sHTTPStatus =  oXMLHTTP.status
    sHTTPResponse = oXMLHTTP.responseText

    If Err.Number = 0 and sHTTPStatus = "200" and sHTTPResponse <> """{}""" Then
      PostTextFromUrl = sHTTPResponse
    Else
      PostTextFromUrl = HTTPErrorHandeler (HTTPStatus, HTTPResponse)
    End If
    On Error Goto 0

    Set oXMLHTTP = Nothing

    Set oXMLHTTP = Nothing
End Function

我希望发送能够成功。它在我的本地机器上运行良好。

vbscript asp-classic msxml6
1个回答
0
投票

我能够发现错误。 -2147012851证书颁发机构无效或不正确

然后我可以通过添加以下行来解决该错误:
oXMLHTTP.setOption 2, 13056 'http://msdn.microsoft.com/en-us/library/ms763811(v=VS.85).aspx

© www.soinside.com 2019 - 2024. All rights reserved.