如何让ASP读取远程网络的图片然后返回该图片？

jackalison 2008-09-10 08:56:51

如何让 ASP在读入 http://ptlogin2.qq.com/getimage? 该图片以后然后返回这个图片？

...全文

110 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

asm32 2010-03-17

打赏
举报

<%
Function SaveRemoteFile(LocalFileName,RemoteFileUrl)
SaveRemoteFile=True
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
If .Readystate<>4 then
SaveRemoteFile=False
Exit Function
End If
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
End Function
%>

<%
'以下为调用示例：
remoteurl="http://www.auuo.com/logo.gif"'程文件名（绝对全路径）
localfile="images/"& Replace(Replace(Replace(Now(),"-","")," ",""),":","")&Right(remoteurl,4)' 本机文件名（可自定义）
If SaveRemoteFile(localfile,remoteurl)=True Then
Response.Write("成功保存："&localfile)
End If
%>