ASP 远程图片自动保存到本地服务器

1. <%
2. '============================================
3. '函数作用：远程图片自动保存到本地服务器
4. '修改时间：2006-7-3 21:21
5. '传人参数：
6. ' LocalFileName:本地文件名
7. ' RemoteFileUrl:远程文件URL
8. '============================================
9. sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
10. dim Ads,Retrieval,GetRemoteData
11. Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
12. With Retrieval
13. .Open "Get", RemoteFileUrl, False, "", ""
14. .Send
15. GetRemoteData = .ResponseBody
16. End With
17. Set Retrieval = Nothing
18. Set Ads = Server.CreateObject("Adodb.Stream")
19. With Ads
20. .Type = 1
21. .Open
22. .Write GetRemoteData
23. .SaveToFile LocalFileName,2
24. .Cancel()
25. .Close()
26. End With
27. Set Ads=nothing
28. end sub
30. RemoteFileUrl = "http://www.it365cn.com/bbs/images/mainlogo.gif" '获取远程图片
31. FileExt = right(RemoteFileUrl,4) '获取远程图片的格式
33. '随机文件名称
34. randomize
35. ranNum = int(9*10^3*rnd)+10^3
36. dtNow = Now()
37. FileName = year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum & FileExt
39. LocalFileName = "./" '保存本地路径
40. if right(LocalFileName,1) <> "/" then LocalFileName = LocalFileName & "/"
41. SaveFile = server.mappath(LocalFileName & FileName)
42. SaveRemoteFile SaveFile,RemoteFileUrl '保存远程图片
43. response.write "保存成功，<a href=""" & LocalFileName & FileName & """ target=""_blank"">点击查看图片文件....</a>"
44. %>