-
'ดาวน์โหลดภาพระยะไกลก่อน
url =/"http://www.im286.com/image...'remote ที่อยู่
savepath =/"d:/photo //" 'Save Path
'เปลี่ยนชื่อไฟล์
สุ่ม
rannum = int (999*rnd)
filename = ปี (ตอนนี้) & เดือน (ตอนนี้) & วัน (ตอนนี้) & ชั่วโมง (ตอนนี้) & นาที (ตอนนี้) & วินาที (ตอนนี้) & rannum
'สิ้นสุดการเปลี่ยนชื่อไฟล์
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 (/"persit.upload/") 'Open Object
setFile = upload.openfile (savepath & filename &/". jpg/") 'เปิดไฟล์ที่บันทึกไว้
iffile.imageType <>/"jpg/" และ file.imagetype <>/"gif/" และ file.imagetype <>/"bmp/" และ file.imagetype <>/"png/"
upload.deleteFilesavePath & filename &/". jpg/" 'หากรูปแบบไม่ถูกต้องให้ลบภาพที่ดาวน์โหลดนี้
response.write/"รูปแบบภาพข้อผิดพลาด/"
endif
'ออกจากอินสแตนซ์
setUpload = ไม่มีอะไร
setFile = ไม่มีอะไร
-