'=========================================================================
'Nombre del proceso: saveremoteFile
'Función: guarda archivos remotos en local
'Parámetro: LocalFileName ------ Nombre de archivo local
'Parámetros: RemoteFileUrl ----- URL de archivo remoto
'=========================================================================
FunctionsaveremoteFile (LocalFileName, RemoteFileUrl)
SaveremoteFile = True
dimads, recuperación, getremotedata
OnerrorResumEnext
Setretrieval = server.createObject ("Microsoft.xmlhttp")
Withrrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Enviar
If.readyState <> 4or.status> 300THEN
SaveremoteFile = falso
Extinción
Endif
Getremotedata = .ResponseBody
Fin
SetRetrreieval = nada
'Iflenb (getremotedata) <100thenexitfunction
'Ifmaxfilesize> 0then
'Iflenb (getRemotedata)> 5000ThenexitFunction
Response.Write (Round (LenB (GetRemotedata)/1024)) y "KB"
'Endif
Setads = server.createObject ("ADODB.Stream")
Ronca
.Type = 1
.Abierto
.WriteGetRemotedata
.Savetofilesserver.Mappath (localFileName), 2
.Cancelar()
.Cerca()
Fin
Iferr.number <> 0then
SaveremoteFile = falso
Extinción
Err.Clear
Endif
Setads = nada
Función final