<%
'Descargue la imagen remota primero
url =/"http://www.im286.com/image...'''Remote Imagen Dirección
savePath =/"d:/photo //" 'Guardar ruta
'Cambiar el nombre del archivo
aleatorizar
rannum = int (999*rnd)
FileName = año (ahora) y mes (ahora) y día (ahora) & Hour (ahora) y minuto (ahora) y segundo (ahora) y rannum
'Fin de renombrar el archivo
setxmlhttp = server.createObject (/"microsoft.xmlhttp/")
xmlhttp.open/"get/",url,false
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = nada
setobjadostream = server.createObject (/"adodb.stream/")
objadostream.open ()
objadostream.type = 1
objadostream.write (img)
objadostream.savetofile (SavePath & FileName &/". Jpg/")
objadostream.seteos
setobjadostream = nada
'La descarga de archivos termina
SetUpload = server.createObject (/"Persits.upload/") 'Open Object
SetFile = upload.openFile (savePath & filename &/". Jpg/") 'Abra el archivo guardado
Iffile.ImageType <>/"jpg/" yfile.imageType <>/"gif/" yfile.imageType <>/"bmp/" andfile.imageType <>/"png/" entonces entonces
Upload.DeleteFilesApath & FileName &/". Jpg/" 'Si el formato es incorrecto, elimine esta imagen descargada
respuesta.write/"Formato de imagen de error/"
endif
'Inicie sesión en la instancia
SetUpload = nada
Setfile = nada
%>