-
'ชื่อกระบวนการ: Saveremotefile
'ฟังก์ชั่น: บันทึกไฟล์ระยะไกลไปยัง Local
'พารามิเตอร์: LocalFileName ------ ชื่อไฟล์ท้องถิ่น
'พารามิเตอร์: RemoteFileUrl ----- URL ไฟล์ระยะไกล
-
functionsaveremotefile (localfilename, remotefileurl)
saveremotefile = true
dimads, retrieval, getremotedata
onerrorresumenext
setRetrieval = server.createObject ("microsoft.xmlhttp"))
เกี่ยวกับการแก้ไข
.Open "Get", Remotefileurl, False, "", ""
.ส่ง
if.readystate <> 4or.status> 300 จากนั้น
SaveremoteFile = FALSE
exitfunction
endif
getRemotedata = .ResponseBody
จบลงด้วย
setRetrieval = ไม่มีอะไร
'iflenb (getRemotedata) <100thenexitfunction
'ifmaxfilesize> 0 แล้ว
'iflenb (getRemotedata)> 5000thenexitfunction
Response.write (Round (Lenb (Getremotedata)/1024)) & "KB"
'endif
setads = server.createObject ("adodb.stream")
ด้วย
.Type = 1
.เปิด
.writegetRemotedata
.savetofilesserver.mappath (localfilename), 2
.ยกเลิก()
.ปิด()
จบลงด้วย
iferr.number <> 0 แล้ว
SaveremoteFile = FALSE
exitfunction
err.lear
endif
setads = ไม่มีอะไร
endfunction