将远程文件存储在本地计算机中，使用A<unk>

发布时间：2023-08-26 14:55:00 所属栏目：Asp教程来源：

导读：<%

Function SaveRemoteFile(LocalFileName,RemoteFileUrl)

SaveRemoteFile=True

dim Ads,Retrieval,GetRemoteData

Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")

With Retrie

<%

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.uyux.cn/logo.gif"'远程文件名（绝对全路径）

localfile=Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名（可自定义）

If SaveRemoteFile(localfile,remoteurl)=True Then

Response.Write("成功保存："&localfile)

End If

%>

-

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!