<%
'Téléchargez d'abord l'image distante
url = / "http://www.im286.com/image...'Remote Adresse d'image
SAVEPATH = / "D: / Photo //" 'Enregistrer le chemin
'Renommer le fichier
randomiser
rannum = int (999 * rnd)
FileName = année (maintenant) et mois (maintenant) et le jour (maintenant) et l'heure (maintenant) et la minute (maintenant) et la seconde (maintenant) & Rannum
'Fin du renommer le fichier
setXmlhttp = server.createObject (/ "Microsoft.xmlhttp /")
xmlhttp.open/"get/",url,false
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = rien
setObjadoStream = server.createObject (/ "adodb.stream/")
objadostream.open ()
objadostream.type = 1
objadostream.write (IMG)
objadostream.savetofile (SavePath & FileName & / ". JPG /")
objadostream.seteos
setObjadostream = rien
'Le téléchargement des fichiers se termine
Setupload = server.createObject (/ "persits.upload /") 'objet ouvert
SetFile = upload.OpenFile (SavePath & FileName & / ". JPG /") 'Ouvrez le fichier enregistré
Iffile.imageType <> / "jpg /" etfile.imageType <> / "gif /" etfile.imageType <> / "bmp /" et file.imagetype <> / "png /" puis
Upload.deleteFilesAvepath & FileName & / ". JPG /" 'Si le format est incorrect, supprimez cette image téléchargée
Response.write / "Format d'image d'erreur /"
endire
'Déconnectez l'instance
Setupload = rien
SetFile = rien
%>