asp图片采集并且本地重命名保存的函数

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【asp图片采集并且本地重命名保存的函数】，下面是详细的分享！

asp图片采集并且本地重命名保存的函数

<%
'================================================
'作  用：保存远程的文件到本地
'参  数：LocalFileName ------ 本地文件名
'  RemoteFileUrl ------ 远程文件URL
'返回值：True  ----成功
'       False ----失败
'================================================
Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
 Dim Ads, Retrieval, GetRemoteData
 On Error Resume Next
 Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
 With Retrieval
  .Open "Get", s_RemoteFileUrl, False, "", ""
  .Send
  GetRemoteData = .ResponseBody
 End With
 Set Retrieval = Nothing
 Set Ads = Server.CreateObject("Adodb.Stream")
 With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(s_LocalFileName), 2
  .Cancel()
  .Close()
 End With
 Set Ads=nothing
End Sub
%>

以上所分享的是关于asp图片采集并且本地重命名保存的函数，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：

　　答： >>详细

　　相关问题：

　　答： >>详细

　　相关问题：

　　答： >>详细