<%
'=====================================================================
'Nome da função: SaveremoteFile
'Função: salve arquivos remotos no local
'Parâmetro: strfilename ---- Salvar o nome do arquivo
'stremoteurl --- URL de arquivo remoto
'Valor de retorno: booleano verdadeiro/falso
'=====================================================================
Funçõesveroterotefile (byvaltrfilename, byvaltrremoteurl)
DIMOSTREAM, REBERVALIDADE, GETREMOTATATA
SaveremoteFile = false
OnErrorReSumenext
Setretrieval = server.createObject ("Microsoft.xmlHttp")
Recuperação.open "get", strmoteurl, false, "", ""
Recuperação.send
Ifretrieval.readyState <> 4ThenexitFunction
Ifretrieval.status> 300ThenexitFunction
GetRemotedata = recuperação.ResponseBody
Setretrieval = nada
Iflenb (getRemotedata)> 100then
Settostream = server.createObject ("adodb.stream")
ostream.type = 1
ostream.mode = 3
ostream.open
OSTREAM.WRITEGEGREMOTATA
Ostream.SavetoFileServer.Mappath (strfileName), 2
OSTREAM.CANCEL
ostream.close
SetosTream = nada
Outro
Saída de saída
Endif
Iferr.number = 0then
SaveremoteFile = true
Outro
Err.clear
Endif
Função final
%>
