<%
'=========================================================.
'Nom de la fonction: Saveremotefile
'Fonction: enregistrez les fichiers distants vers local
'Paramètre: strFilename ---- Enregistrer le nom du fichier
'STRREMOTEURL --- URL du fichier distant
'Valeur de retour: booléen true / false
'=========================================================.
FunctionsAveremotefile (byValStrFileName, byvalstrrremOrl)
Dimostream, récupération, getRemotedata
Saveremotefile = False
Onerrorresumenext
SetRetrieval = server.createObject ("Microsoft.xmlhttp")
Récupération.open "get", strrremoreurl, false, "", ""
Récupération.Send
Ifretrieval.readystate <> 4ThenexitFunction
Ifretrieval.status> 300ThenexitFunction
GetReMoteData = Retrieval.ResponseBody
SetRetrieval = rien
Iflenb (getRemotedata)> 100
SetoStream = server.createObject ("adodb.stream")
OSstream.type = 1
osstream.mode = 3
OUSTREAT.
osstream.writeGetRemotedata
osstream.savetofileserver.mappath (strfilename), 2
osstream.cancel
osstream.close
SetoStream = rien
Autre
Sortie
Endire
IFerr.Number = 0Then
SaveremoteFile = True
Autre
Err.Clear
Endire
Finition de fin
%>
