<%
'Unduh gambar jarak jauh terlebih dahulu
url =/"http://www.im286.com/image...'remote alamat gambar
savePath =/"d:/photo //" 'save path
'Ganti nama file
mengacak
rannum = int (999*rnd)
FileName = Tahun (Sekarang) & Bulan (Sekarang) & Hari (Sekarang) & Jam (Sekarang) & Menit (Sekarang) & Kedua (Sekarang) & Rannum
'Akhir dari mengganti nama file
setxmlhttp = server.createObject (/"microsoft.xmlhttp/")
xmlhttp.open/"get/".url.false
xmlhttp.send
img = xmlhttp.ResponseBody
setxmlhttp = tidak ada
setobjadoStream = server.createObject (/"adodb.stream/")
objadostream.open ()
objadostream.type = 1
Objadostream.write (IMG)
objadostream.savetofile (savepath & filename &/". jpg/")
objadostream.seteos
setobjadostream = tidak ada
'Unduh file berakhir
Setupload = server.CreateObject (/"persits.upload/") 'Open Object
SetFile = unggah.
Iffile.imagetype <>/"jpg/" andfile.imagetype <>/"gif/" andfile.imagetype <>/"bmp/" andfile.imagetype <>/"png/" lalu
Unggah.
response.write/"Format gambar kesalahan/"
endif
'Log Off The Instance
Setupload = tidak ada
SetFile = tidak ada
%>