<%
'Baixe a imagem remota primeiro
url =/"http://www.im286.com/image...'Remote Picture Endereço
savePath =/"d:/foto //" 'Salvar caminho
'Renomeie o arquivo
randomizar
rannum = int (999*rnd)
FILENAME = Ano (agora) e mês (agora) e dia (agora) e hora (agora) & Minute (agora) & Second (agora) & rannum
'Final de renomear o arquivo
setxmlHttp = server.createObject (/"Microsoft.xmlHttp/")
xmlhttp.open/"get/"erl.false
xmlHttp.send
img = xmlHttp.ResponseBody
setxmlHttp = nada
setObjadosTream = server.createObject (/"adodb.stream/")
objadosTream.open ()
objadosTream.type = 1
objadostream.write (img)
objadostream.savetofile (SalvePath & FileName &/". JPG/")
objadosTream.seteos
SetoBJadosTream = nada
'Download do arquivo termina
SetupLoad = server.createObject (/"Persits.upload/") 'Open Object
SetFile = upload.openfile (SalvePath & FileName &/". JPG/") 'Abra o arquivo salvo
Iffile.imageType <>/"jpg/" andfile.imageType <>/"gif/" andfile.imageType <>/"bmp/" andfile.imageType <> "png/" então
Upload.DeleteFileSavePath & FileName &/"Jpg/" 'Se o formato estiver incorreto, exclua esta imagem baixada
Response.Write/"Formato de imagem de erro/"
endif
'Logre a instância
Setupload = nada
Setfile = nada
%>