余志国网站设计工作室是专业从事义乌网站建设、义乌外贸网站建设、义乌网站制作、义乌网站设计的专业义乌网站建设工作室,是义乌外贸网站建设专家!

ASP保存远程图片文件到本地代码

分类:程序开发 Tags: asp 保存远程图片 评论:0 浏览:3506 最近更新时间:2008/6/13 17:47:43

 
  1. <%
  2. Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
  3.     SaveRemoteFile=True
  4. dim Ads,Retrieval,GetRemoteData
  5. Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  6. With Retrieval
  7.    .Open "Get", RemoteFileUrl, False""""
  8.    .Send
  9.         If .Readystate<>4 then
  10.             SaveRemoteFile=False
  11.             Exit Function
  12.         End If
  13.    GetRemoteData = .ResponseBody
  14. End With
  15. Set Retrieval = Nothing
  16. Set Ads = Server.CreateObject("Adodb.Stream")
  17. With Ads
  18.    .Type = 1
  19.    .Open
  20.    .Write GetRemoteData
  21.    .SaveToFile server.MapPath(LocalFileName),2
  22.    .Cancel()
  23.    .Close()
  24. End With
  25. Set Ads=nothing
  26. End Function
  27. %>
  28.  
  29. <%
  30. '以下为调用示例:
  31. remoteurl="http://www.yiwu-jewelry.cn/images_yiwu/logo.jpg"'远程文件名(绝对全路径)
  32. localfile="images/"&Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)'本机文件名(可自定义)
  33. If SaveRemoteFile(localfile,remoteurl)=True Then
  34. Response.Write("成功保存:"&localfile)
  35. End If
  36. %>
PS:卡巴斯基会对这个文件报病毒,不过没关系,大家放心使用!

本文地址:https://www.yuzhiguo.com/351/
  • 相关文章
  • 推荐文章
  • 最新文章
发表评论





您的IP:54.147.29.160,来自:

留言

 


免费咨询
建站咨询热线
15967985565

扫一扫微信咨询
QQ: 358758308 Skype: yuzhiguo Facebook: yuzhiguo Email