'======================================================================
'Nama Proses: SaveremoteFile
'Fungsi: Simpan file jarak jauh ke lokal
'Parameter: LocalFileName ------ Nama File Lokal
'Parameter: RemoteFileUrl ----- URL file jarak jauh
'======================================================================
FunctionAveremoteFile (LocalFileName, RemoteFileUrl)
SaveremoteFile = true
Dimads, Retrieval, Getremotedata
OnerrorresumeNext
SetRetrieval = server.createObject ("microsoft.xmlhttp")
Tanpa retrieval
.Open "get", remoteFileUrl, false, "", ""
.Mengirim
If.readystate <> 4or.status> 300then
Saveremotefile = false
Fungsi keluar
Endif
Getremotedata = .responseBody
Endwith
SetRetrieval = tidak ada
'Iflenb (getremotedata) <100thenexitfunction
'IfmaxfileSize> 0then
'Iflenb (getRemotedata)> 5000ThenexitFunction
Response.write (bundar (lenb (getremotedata)/1024)) & "kb"
'Endif
Setads = server.createObject ("adodb.stream")
Withads
.Type = 1
.Membuka
.WriteGetRemotedata
.Savetofilesserver.mappath (localfilename), 2
.Membatalkan()
.Menutup()
Endwith
Iferr.number <> 0then
Saveremotefile = false
Fungsi keluar
Err.clear
Endif
Setads = tidak ada
fungsi endfungsi