我有这段代码,它在我的本地计算机上运行良好。 我将其移至我们的开发服务器,当 .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
我希望发送能够成功。它在我的本地机器上运行良好。
我能够发现错误。 -2147012851证书颁发机构无效或不正确
然后我可以通过添加以下行来解决该错误:
oXMLHTTP.setOption 2, 13056 'http://msdn.microsoft.com/en-us/library/ms763811(v=VS.85).aspx