<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>ASP采集圖片測試</title> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> </head> <body> <% Function Gethttpimg(Url) On Error Resume Next Dim Http Set Http=Server.Createobject("MSXML2.XmlHttp") Http.Open "Get",Url,False Http.Send() If Http.Readystate<>4 Then Exit Function Gethttpimg=Http.Responsebody Set Http=Nothing If Err.Number<>0 Then Err.Clear End Function Sub Save2Local(From,Tofile) Dim Geturl,Objstream,Imgs Geturl=Trim(From) Imgs=Gethttpimg(Geturl) Set Objstream = Server.Createobject("Adodb.Stream") Objstream.Type =1 Objstream.Open Objstream.Write Imgs Objstream.Savetofile Tofile,2 Objstream.Close() Set Objstream=Nothing 'Response.Write("The Img has saved!") End Sub Call Save2Local("http://www.survivalescaperooms.com/logos.gif",Server.MapPath("google.gif")) %> </body> </html>
