<%
'=====================================================================
'Nombre de la función: saveremoteFile
'Función: guarda archivos remotos en local
'Parámetro: strfileName ---- Guardar el nombre del archivo
'Strremoteurl --- URL de archivo remoto
'Valor de retorno: booleano verdadero/falso
'=====================================================================
FunctionsaveremoteFile (byvalstrFileName, byvalStrremoteurl)
Dimostream, Recuperación, GetRemotedata
SaveremoteFile = falso
OnerrorResumEnext
Setretrieval = server.createObject ("Microsoft.xmlhttp")
Recuperación.open "get", strremoteurl, falso "," ""
Recuperación.send
Ifrrieval.readyState <> 4thenexitfunction
Ifrrieval.status> 300 thenexitfunction
Getremotedata = recuperal.ResponseBody
SetRetrreieval = nada
Iflenb (getRemotedata)> 100
SetoStream = server.createObject ("ADODB.Stream")
Ostream.type = 1
ostream.mode = 3
ostream.apreen
ostream.writeGetRemotedata
Ostream.savetofileserver.mappath (strfilename), 2
ostream.cancel
Ostream.close
SetoStream = nada
Demás
Extinción
Endif
Iferr.number = 0then
SaveremoteFile = True
Demás
Err.Clear
Endif
Función final
%>
