Windows Server
同样的程序对应不同的API网关 一个正常一个不能连接的原因
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区跪求高手支招 同样的程序对应不同的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>"
测试地址 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>"
...全文
