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

2009-05-12 15:08:50来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

图片采集程序,将一个图片保存到本机上,并重新命名。

 


<%
'================================================
'作  用:保存远程的文件到本地
'参  数: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
%>


<%
path="./pic/1.gif"
Call SaveRemoteFile(path,"http://image2.sina.com.cn/ent/v/m/2006-05-18/66cb006f0a8411644ac3da5b76c88c77.gif")
response.write "保存成功"
%>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:如何有效提高asp页面的访问速度

下一篇:如何使用asp去字符串中的超链接

热门词条
热门标签