服务咨询热线:0574-88171828 15867435963
专业网站制作客服QQ[853624982]  日本の顧客訪問 [日本語]  
首 页 网站制作 网站推广 域名服务 虚拟主机 VPS主机 企业邮箱 软件开发 经典案例

建站知识

联系我们

网站首页 >> 建站知识

ASP保存远程文件到本地(实用版)

来源:本站
时间:2009-6-20 12:04:22


<%
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
    SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
   .Open "Get", RemoteFileUrl, False, "", ""
   .Send
        If .Readystate<>4 then
            SaveRemoteFile=False
            Exit Function
        End If
   GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
   .Type = 1
   .Open
   .Write GetRemoteData
   .SaveToFile server.MapPath(LocalFileName),2
   .Cancel()
   .Close()
End With
Set Ads=nothing
End Function
%>

<%
'以下为调用示例:
remoteurl="http://www.weiwe.cn/logo.gif"'远程文件名(绝对全路径)
localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名(可自定义)
If SaveRemoteFile(localfile,remoteurl)=True Then
Response.Write("成功保存:"&localfile)
End If
%>




宁波263企业邮箱
宁波网站建设
:: 在线客服 ::
客服电话
86-0574-88171828
86-015867435963
E-mail:sales@weiwe.cn
在线MSN
在线QQ
宁波网站成功案例
宁波建站知识
网站建设1000元起
.com域名50元,cn第一年50元
购虚拟主机2元/M,赠企业邮局
免费咨询网站问题
网站全球GOOGLE,百度推广
企业网站百度免费推广
宁波外贸网站建设
速代办宁波企业网站备案
本站关键字:宁波网站制作 | 宁波GOOGLE推广 | 宁波做网站 | 宁波网络公司 | 网页制作公司 | 宁波网站推广 | 网页制作 | 宁波软件开发 | 宁波域名注册
首 页 :: 关于我们 :: 联系我们 :: 付款方式 :: 建站知识 :: 新闻动态 :: 友情链接 :: 合作伙伴 :: 网站地图
COPYRIGHT ? 2003-2009 ALL RIGHT RESERVED,WEIWE.CN
威维网络 版权所有   浙ICP备09045242号