用流方式保存网页上面的图片

<%
Response.Charset = "utf-8"
Server.ScriptTimeOut  = 99999999
'GetBinary函数可以获取二进制的文件(图片，Flash，歌曲)
'使用方法:
'GetBinary(资源所在的URL，返回的内容)
'获取成功会函数会返回一个True否则返回False。
Function GetFileImage(strUrl, Method, FilePath)
 GetFileImage = false
 Dim objXmlHttp, objStream
 Set objXmlHttp = Server.Createobject("Microsoft.XMLHTTP")
 objXMLHttp.Open Method, strUrl, false
 On Error Resume Next
 objXMLHttp.Send

 If Err.number <> 0 Or Not objXmlHttp.Status = 200 Then
 GetFileImage = false
 Exit Function
 End If

 Set objStream = Server.Createobject("Adodb.Stream")
 objStream.Type = 1
 objStream.Mode = 3
 objStream.Open
 objStream.Write objXMLHttp.ResponseBody
 objStream.Position = 0
 objStream.SaveToFile FilePath, 2
 objStream.Close
 GetFileImage = true
End Function
If GetFileImage("http://img012.photo.21cn.com/photos/user/34926241/20070131012919/m/7535882.jpg", "GET", "D:/33.jpg") Then
 Response.Write "成功"
Else
 Response.Write "失败"
End If
Response.End
%>