远程图片自动保存到本地服务器
2008-01-16 18:06
489 查看
<%
'============================================
'函数作用:远程图片自动保存到本地服务器
'修改时间:2006-7-3 21:21
'传人参数:
' LocalFileName:本地文件名
' RemoteFileUrl:远程文件URL
'============================================
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile LocalFileName,2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
RemoteFileUrl = "http://www.it365cn.com/bbs/images/mainlogo.gif" '获取远程图片
FileExt = right(RemoteFileUrl,4) '获取远程图片的格式
'随机文件名称
randomize
ranNum = int(9*10^3*rnd)+10^3
dtNow = Now()
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
LocalFileName = "./" '保存本地路径
if right(LocalFileName,1) <> "/" then LocalFileName = LocalFileName & "/"
SaveFile = server.mappath(LocalFileName & FileName)
SaveRemoteFile SaveFile,RemoteFileUrl '保存远程图片
response.write "保存成功,<a href=""" & LocalFileName & FileName & """ target=""_blank"">点击查看图片文件....</a>"
%>
'============================================
'函数作用:远程图片自动保存到本地服务器
'修改时间:2006-7-3 21:21
'传人参数:
' LocalFileName:本地文件名
' RemoteFileUrl:远程文件URL
'============================================
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile LocalFileName,2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub
RemoteFileUrl = "http://www.it365cn.com/bbs/images/mainlogo.gif" '获取远程图片
FileExt = right(RemoteFileUrl,4) '获取远程图片的格式
'随机文件名称
randomize
ranNum = int(9*10^3*rnd)+10^3
dtNow = Now()
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
LocalFileName = "./" '保存本地路径
if right(LocalFileName,1) <> "/" then LocalFileName = LocalFileName & "/"
SaveFile = server.mappath(LocalFileName & FileName)
SaveRemoteFile SaveFile,RemoteFileUrl '保存远程图片
response.write "保存成功,<a href=""" & LocalFileName & FileName & """ target=""_blank"">点击查看图片文件....</a>"
%>
相关文章推荐
- ASP 远程图片自动保存到本地服务器
- 用asp自动解析网页中的图片地址,并将其保存到本地服务器
- ASP自动解析网页中的图片地址,并将其保存到本地服务器http://epasser.aydc.com.cn/article/adp/2/content13959.html
- jsp获取远程图片保存到本地服务器上方法
- php将远程图片保存到本地服务器的实现代码
- 用asp自动解析网页中的图片地址,并将其保存到本地服务器
- 自动将远程页面的文件中的图片下载到本地服务器
- 远程图片自动保存到本地并为图片加上水印
- asp把文章内容中涉及到的图片自动保存到本地服务器
- 用asp自动解析网页中的图片地址,并将其保存到本地服务器
- 怎么解决的dedecms无法保存远程图片到本地服务器
- java下载远程http地址的图片文件到本地-自动处理图片是否经过服务器gzip压缩的问题
- asp自动解析网页中的图片地址,并将其保存到本地服务器
- Dedecms无法保存远程图片到本地服务器的解决方法
- java下载远程http地址的图片文件到本地-自动处理图片是否经过服务器gzip压缩的问题
- php自动采集内容中带有图片地址的远程图片保存到本地
- 下载远程(第三方服务器)文件、图片,保存到本地(服务器)的方法、保存抓取远程文件、图片
- 用asp自动解析网页中的图片地址,并将其保存到本地服务器
- 图片自动保存到本地服务器
- 把文章内容中涉及到的图片自动保存到本地服务器