-
-
'ชื่อฟังก์ชั่น: SaveremoteFile
'ฟังก์ชั่น: บันทึกไฟล์ระยะไกลไปยัง Local
'พารามิเตอร์: strfilename ---- บันทึกชื่อไฟล์
'strremoteurl --- URL ไฟล์ระยะไกล
'ค่าส่งคืน: บูลีนจริง/เท็จ
-
functionsaveremotefile (byvalstrfilename, byvalstrremoteurl)
DiMostream, Retrieval, GetRemotedata
SaveremoteFile = FALSE
onerrorresumenext
setRetrieval = server.createObject ("microsoft.xmlhttp"))
Retrieval.open "Get", Strremoteurl, False, "", ""
Retrieval.Send
ifretrieval.readystate <> 4thenexitfunction
ifretrieval.status> 300thenexitfunction
getRemotedata = Retrieval.ResponseBody
setRetrieval = ไม่มีอะไร
iflenb (getRemotedata)> 100 จากนั้น
setOstream = server.createObject ("adodb.stream")
Ostream.type = 1
Ostream.Mode = 3
Ostream.open
Ostream.writeGetRemotedata
Ostream.savetofileserver.mappath (strfilename), 2
Ostream.cancel
Ostream.close
setOstream = ไม่มีอะไร
อื่น
exitfunction
endif
iferr.number = 0 แล้ว
saveremotefile = true
อื่น
err.lear
endif
endfunction
-