msxml3.dll 错误 '800c0005' 系统未找到指定的资源。

scc1980 scc1980 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
dim objXmlHttp
set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.send()
if objXmlHttp.readyState=200 then '4(请求结束)服务器数据下载成功,或者网络连接中断请求出错
Dim binFileData
binFileData = objXmlHttp.responseBody
Dim objAdoStream
set objAdoStream = Server.CreateObject("ADODB.Stream")
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
else
response.write "服务器数据下载失败,请稍后再试。"
response.end
end if
...全文

相关推荐

评论 2
收藏 已收藏
分享
返回顶部
scc1980
ASP 28,401 成员 356,940 内容