<%
'Laden Sie zuerst das Remote -Bild herunter
url =/"http://www.im286.com/image...'remote Bildadresse
savePath =/"d:/foto //" 'Speichern Siespfad
Benennen Sie die Datei um
randomisieren
rannum = int (999*rnd)
Dateiname = Jahr (jetzt) & monat (jetzt) & Tag (jetzt) & Stunde (jetzt) & Minute (jetzt) & zweiter (jetzt) & rannum
'Ende der Umbenennung der Datei
setxmlhttp = server.createObject (/"microsoft.xmlhttp/")
xmlhttp.open/"get/" ,url,false
xmlhttp.send
img = xmlhttp.responseBody
setxmlhttp = nichts
setObjadostream = server.createObject (/"adodb.stream/")
objadostream.open ()
objadostream.type = 1
Objadostream.write (IMG)
objadostream.savetofile (SavePath & Dateiname &/". JPG/")
objadostream.seteos
setObjadostream = nichts
'Datei -Download endet
SetUpload = server.createObject (/"perssites.upload/") 'Open -Objekt
SetFile = upload.openFile (SavePath & Dateiname &/". JPG/") 'Öffnen Sie die gespeicherte Datei
IFFILE.Imagetyp <>/"jpg/" und file.imagetype <>/"gif/" und file.imagetype <>/"bmp/" und file.imagetype <>/"png/" dann
Upload.DeleteFilesavePath & Dateiname &/". JPG/" 'Wenn das Format falsch ist, löschen Sie dieses heruntergeladene Bild
Antwort.Write/"Fehlerbildformat/"
Endif
'Melden Sie sich an der Instanz ab
SetUpload = nichts
Setfile = nichts
%>