<%
'Сначала скачать удаленную картинку
url =/"http://www.im286.com/image...'remote
savePath =/"d:/photo //" '' Save Path
'Переименовать файл
рандомизировать
rannum = int (999*rnd)
filename = год (сейчас) и месяц (сейчас) и день (сейчас) и час (сейчас) и минута (сейчас) и второй (сейчас) и Раннум
'Конец переименования файла
setxmlhttp = server.createObject (/"microsoft.xmlhttp/")
xmlhttp.open/"get/", url,false
xmlhttp.send
img = xmlhttp.responsebody
setxmlhttp = ничего
setobjadoStream = server.createObject (/"adodb.stream/")
objadostream.open ()
objadoStream.type = 1
objadoStream.write (IMG)
objadoStream.savetofile (SavePath & FileName &/". JPG/")
objadostream.seteos
setobjadostream = ничего
'Загрузка файла заканчивается
SetUpload = server.createObject (/"persits.upload/") 'Open Object
SetFile = upload.openfile (SavePath & FileName &/". JPG/") 'Откройте сохраненный файл
Iffile.imagetype <>/"jpg/" andfile.imagetype <>/"gif/" andfile.imageType <>/"bmp/" andfile.imageType <>/"png/" then
Upload.deletefilesavepath & filename &/". Jpg/" 'Если формат неверен, удалите это загруженное изображение
response.write/"Формат изображения ошибки/"
эндиф
'Выберите экземпляр
SetUpload = ничего
SetFile = ничего
%>