网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文:

 

标题 ASP保存远程文件到本地
范文
    <%
    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="/uploads/202504/02/logo2812.gif"'远程文件名(绝对全路径)
    localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名(可自定义)
    If SaveRemoteFile(localfile,remoteurl)=True Then
    Response.Write("成功保存:"&localfile)
    End If
    %>
随便看

 

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/19 4:44:44