asp远程保存图片到本地并显示

ggp 程序 2013-06-20 671 次浏览

为了实现自动从远程下载图片的功能,翻来覆去想办法终于解决了问题。

虽然完全可以直接引用远程的图片地址,但是为了对远程的地址进行保密,所以我先将远程图片下载到了本地,然后进行显示。方法如下:

<%
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://202.194.86.187/jiaowu/ImgXs/’"&xuehao&"’.jpg" ’获取远程图片
RemoteFileUrl=replace(RemoteFileUrl,"’","")
FileExt = right(RemoteFileUrl,4) ’获取远程图片的格式
’随机文件名称
randomize
ranNum = int(Array*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 = "/shuangxuan/admin/photo/" ’保存本地路径
if right(LocalFileName,1) <> "/" then LocalFileName = LocalFileName & "/"
SaveFile = server.mappath(LocalFileName & FileName)
SaveRemoteFile SaveFile,RemoteFileUrl ’保存远程图片
%>

调用的时候只需要打开本地的地址就可以了。

回顶部