saveremotefile功能的ASP实现保存远程文件到本地代码

==================================================
进程名称：saveremotefile
作用：将远程文件保存到本地
参数：保存本地的文件名-本地文件名
参数：remotefileurl————远程文件的URL
==================================================
函数的SaveRemoteFile（保存本地的文件名，RemoteFileUrl）
saveremotefile =真
昏暗的广告、检索、执行GetRemoteData
下次继续出错
设置检索= server.createobject（微软。XMLHTTP ）
与检索
打开获取
。发送
如果readyState <> 4状态> 300。
saveremotefile = false
退出功能
最后如果
responsebody执行GetRemoteData =。
结束
设置检索=无
如果LenB（执行GetRemoteData）＜100然后退出功能
如果文件的最大尺寸＞0
如果LenB（执行GetRemoteData）> 5000然后退出功能
响应。写（圆（LenB（执行GetRemoteData） / 1024））KB
如果
设置广告= server.createobject（ADODB。流）
与广告
类型= 1
开。
写执行GetRemoteData。
SaveToFile server.MapPath（保存本地的文件名），2。
取消（）
关闭（）
结束
如果错误，数字＜0，然后
saveremotefile = false
退出功能
呃。清晰
最后如果
设置广告

端功能