作家
登录

SaveRemoteFile函数之asp实现保存远程的文件到本地的代码

作者: 来源:www.28hudong.com 2013-03-30 08:35:07 阅读 我要评论

'================================================== '过程名:SaveRemoteFile '作 用:保存远程的文件到本地 '参 数:LocalFileName ------ 本地文件名 '参 数:RemoteFileUrl ------ 远程文件URL '================================================== Function SaveRemoteFile(LocalFileName,RemoteFileUrl) SaveRemoteFile=True dim Ads,Retrieval,GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", RemoteFileUrl, False, "", "" .Send If .Readystate<>4 or .Status > 300 then SaveRemoteFile=False Exit Function End If GetRemoteData = .ResponseBody End With Set Retrieval = Nothing 'If LenB(GetRemoteData) < 100 Then Exit Function 'If MaxFileSize > 0 Then 'If LenB(GetRemoteData) > 5000 Then Exit Function Response.Write(Round(LenB(GetRemoteData)/1024)) & "KB" 'End If Set Ads = Server.CreateObject("Adodb.Stream") With Ads .Type = 1 .Open .Write GetRemoteData .SaveToFile server.MapPath(LocalFileName),2 .Cancel() .Close() End With If Err.number<>0 then SaveRemoteFile=False Exit Function Err.Clear End If Set Ads=nothing end Function

  推荐阅读

  UpdatePanel触发javascript脚本的方法附代码

一.预呈现数据无法更改   1.大家知道,预呈现的数据是无法更改的,以前可能提到过,这里再看demo,自定义一个控件 [DefaultProperty("Text")] [ToolboxData("<{0}:JsControl runat=server></{0}:JsControl>")] p>>>详细阅读


本文标题:SaveRemoteFile函数之asp实现保存远程的文件到本地的代码

地址:http://www.17bianji.com/kaifa2/ASP/32416.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)