<%
'====================================================================
'Nama Fungsi: SaveremoteFile
'Fungsi: Simpan file jarak jauh ke lokal
'Parameter: Strfilename ---- Simpan Nama File
'Strremoteurl --- URL file jarak jauh
'Nilai Pengembalian: Boolean Benar/Salah
'====================================================================
FunctionAveremoteFile (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 = tidak ada
Iflenb (getremotedata)> 100then
SetoStream = server.createObject ("adodb.stream")
ostream.type = 1
ostream.mode = 3
ostream.open
ostream.writeGetRemotedata
ostream.savetofileerver.mappath (Strfilename), 2
ostream.cancel
ostream.close
SetoStream = tidak ada
Kalau tidak
Fungsi keluar
Endif
Iferr.number = 0then
SaveremoteFile = true
Kalau tidak
Err.clear
Endif
Fungsi endfungsi
%>
