2

为什么下面的代码不能成功连接到需要 SHA2 证书的服务器？我们的一位合作伙伴进行了 SHA2 升级，他们要求我们拥有 SHA2 证书。当我们连接到他们不需要 SHA2 证书（仅 SHA1）的站点时，它会使用下面的代码成功连接。当我们尝试连接到需要 SHA2 证书(secure.anywhere.org) 的站点时，我们收到错误：服务器返回错误 - 完成此操作所需的数据尚不可用 。已安装所有正确的 SHA2 证书。我们为 SHA2 安装了根证书和中间证书。这可能是 WinHTTP 的问题吗？或者这可能与我们需要修复的环境配置有关？

完整错误：

服务器返回错误：-2147483638 完成此操作所需的数据尚不可用。

用于连接的代码：

<%

On Error Resume Next
Response.ContentType = "text/html"
Dim xobj
Dim sPostData



Set xobj = CreateObject("WinHttp.WinHttpRequest.5.1")

If Err.Number <> 0 Then
Response.Write "<b>"
Response.Write "Error Creating XMLHTTP: " & Err.Number & "<BR>" &     Err.Description
Response.Write "</b>"
Response.End
End If 

If Not IsObject(xobj) Then
Response.Write "<b>"
Response.Write "xobj is not an object: " & Err.Number & "<BR>" & Err.Description
Response.Write "</b>"
Response.End
End If

qu = Request.form("SSN")


sPostData
sPostData = "user_id=abcd1234&password=67judlaufosaf&qu=" & qu

xobj.Open "POST", "https://www.anywhere.org/secure_area/test_panel.asp", False   
xobj.setRequestHeader "Referer", "https://www2.homeu.nc.edu/tns/connect.asp"
xobj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xobj.Send sPostData

response.buffer = True
response.clear
response.ContentType = xobj.getResponseHeader("Content-Type")
response.AddHeader "Content-Type", xobj.getResponseHeader("Content-Type")

response.BinaryWrite xobj.responseBody

If Err.Number <> 0 Then
Response.Write "<b>"
    Response.Write "Server returned error: " & Err.Number & "<BR>" &  Err.Description
Response.Write "</b>"
Set xobj = nothing
Response.End
End If 

Set xobj = nothing
response.end
%>
4

1 回答 1

1

此问题是由于 Windows 没有足够的信息来验证 SHA-2 证书。当我们检查证书的状态时，它的状态为“找不到此证书的颁发者”。这是解决方案的链接。

于 2015-10-23T18:05:54.210 回答