<٪
'قم بتنزيل الصورة عن بُعد أولاً
url =/"http://www.im286.com/image...'remote عنوان الصورة
SavePath =/"D:/Photo //" "حفظ المسار
إعادة تسمية الملف
عشوائي
rannum = int (999*rnd)
اسم الملف = السنة (الآن) وشهر (الآن) و Day (الآن) وساعة (الآن) و Minute (الآن) والثانية (الآن) و Rannum
'نهاية إعادة تسمية الملف
setXMLHTTP = server.createObject (/"Microsoft.xmlhttp/")
XMLHTTP.Open/"TEG/"،URL،FALSE
XMLHTTP.SEND
IMG = XMLHTTP.ResponseBody
setXMLHTTP = لا شيء
setObjadoStream = server.createBject (/"adodb.stream/")
objadostream.open ()
ObjadoStream.type = 1
ObjadoStream.write (IMG)
objadostream.savetofile (SavePath & Filename &/". JPG/")
objadostream.seteos
setobjadoStream = لا شيء
تنتهي تنزيل الملف
setupload = server.createObject (/"persits.upload/") "كائن مفتوح
setFile = upload.openfile (SavePath & Filename &/". JPG/") "افتح الملف المحفوظ
iffile.imageType <>/"jpg/" andfile.imageType <>/"gif/" andfile.imageType <>/"bmp/" andfile.imageType <>/"png/" then
expload.deletefilesavepath & filename &/".
استجابة. write/"تنسيق صورة الخطأ/"
Endif
قم بتسجيل الخروج من المثيل
setupload = لا شيء
setFile = لا شيء
٪>