程序使用Microsoft.XMLHTTP对象请求https时出错解决

程序中使用Microsoft.XMLHTTP组件请求https时出现如下错误：

出错程序代码示例：

strUrl = "https://www.澳门原材料1688.com/澳门原材料1688.asp?id=11"
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") 
objXmlHttp.open "GET",strUrl,False        
objXmlHttp.send()

解决：更换Microsoft.XMLHTTP，使用“WinHttp.WinHttpRequest.5.1”，即修改对应程序文件代码：

将

set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")

改为：

Set objXmlHttp= Server.CreateObject("WinHttp.WinHttpRequest.5.1")
objXmlHttp.option(9) = 2720

保存后即可。