'=======================================================================
'Nome do processo: SaveremoteFile
'Função: salve arquivos remotos no local
'Parâmetro: LocalFilename ------ Nome do arquivo local
Parâmetros: RemoteFileurl ----- URL de arquivo remoto
'=======================================================================
FunçõesveroteroteFile (LocalFileName, RemoteFileurl)
SaveremoteFile = true
dimads, recuperação, getRemotedata
OnErrorReSumenext
Setretrieval = server.createObject ("Microsoft.xmlHttp")
Withretrieval
.Popear "Get", RemoteFileurl, False, "", ""
.Enviar
If.readyState <> 4or.status> 300then
SaveremoteFile = false
Saída de saída
Endif
GetRemotedata = .Responsebody
ENDWITH
Setretrieval = nada
'Iflenb (getRemotedata) <100thenexitfunção
'Ifmaxfilesize> 0then
'Iflenb (getRemotedata)> 5000Thenexitfunção
Response.Write (Round (Lenb (getRemotedata)/1024)) e "KB"
'Endif
Setads = server.createObject ("adodb.stream")
Withads
.Type = 1
.Abrir
.WriteGetRemotedata
.Savetofilesserver.Mappath (LocalFileName), 2
.Cancelar()
.Fechar()
ENDWITH
Iferr.number <> 0then
SaveremoteFile = false
Saída de saída
Err.clear
Endif
Setads = nada
Função final