跪求高手支招 同样的程序对应不同的API网关 一个正常一个不能连接的原因。在本地电脑2个多能正常运行,上到服务器一个正常 一个不能连接。 不能连接的那个网关https://www.acardpay.biz/index.php/Gateway/securepay 服务器的浏览器直接输入能打开 有返回结果,但是放到程序中就说msxml3.dll 错误 '80072efd' 无法与服务器建立连接
测试地址 http://www.goonlinefactory.com/2.asp

dim strsend
strsend="测试"
Response.Write"<br><br>use another glbpay<br> https://pgw.glbpay.com/api/refund<br>"
set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.open "POST", "https://pgw.glbpay.com/api/refund", false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send strsend
Response.Write(objHttp.status)
if (objHttp.status <> 200 ) then
Result = "Status="&objHttp.status
else
Result=objHttp.responseText
end if
Set objHttp = Nothing
Response.Write"<br>return<br>"
Response.Write(Result)
Response.Write"<br><br>use acardpay api<br> https://www.acardpay.biz/index.php/Gateway/securepay<br>"
set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.open "POST", "https://www.acardpay.biz/index.php/Gateway/securepay", false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send strsend
Response.Write(objHttp.status)
if (objHttp.status <> 200 ) then
Result = "Status="&objHttp.status
else
Result=objHttp.responseText
end if
Set objHttp = Nothing
Response.Write"<br>return<br>"
Response.Write(Result)
Response.Write"<br><br>"