asp获取网络图片文件保存到本地

原载于:转www.载for网站制作学习asp必.cn究

asp通过创建对XMLHTTP来判断图片是否存在,如果存在则创建二进制数据或者文本流对象,保存到本地.
这个过程也有bug,是当图片不存在时,如果网络站点有404错误页面,就是出现错误的友好页面则不能正确的判断出来图片或者文件是否存在与网络.
看下面代码
<%
sub SavewebFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,getfiledata
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "HEAD", RemoteFileUrl, False, "", ""
.Send
If not CBool(.status=200) Then
response.write "原来图片"&RemoteFileUrl&"不存在"'www-fo-a-sp.cn
response.End
Else
.Open "Get", RemoteFileUrl, False, "", ""
.Send
End if'forasp.cn整理修改
getfiledata = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write getfiledata
.SaveToFile server.MapPath(LocalFileName),2
.Cancel()
.Close()
End With
Set Ads=nothing
end sub

Call SavewebFile("logo2.gif","http://www.forasp.cn/images/logo2.gif")'第一个是保存后的名称,第二个是网络图片地址
%>