Recupero file da sito esterno

[vem]

Ciao,

con ASP è possibile recuperare un file xls da un sito? Mi speigo meglio:

vorrei creare una pagina asp che riesca a collegarsi ad un sito esterno e che mi faccia il dowload del file in una cartella del mio sito.
Aggiungo un'ulteriore difficoltà: solitamente quando eseguo io il login per scaricare il file, viene richiesto di inserire un codice di sicurezza. Posso creare una pagina asp che faccia questo per me?

[cavicchiandrea]

No su tutta la linea, aggiungo per fortuna, altrimenti sai i danni che si potrebbero fare.

[vem]

immaginavo che la risposta fosse questa

Grazie cmq, vuol dire che faro il download ogni volta a manina.

Ciao

[Cesar]

Originariamente inviato da cavicchiandrea
No su tutta la linea, aggiungo per fortuna, altrimenti sai i danni che si potrebbero fare.

Ciao cavicchiandrea,
io penso che la cosa sia fattibile. E' da tanto tempo che non programmo in ASP (ormai programmo solo in ColdFusion) ma scaricare un file esterno (xls, zip, ecc) dovrebbe essere abbastanza semplice anche in ASP.

Comunque io no ho capito bene questa parte:

Aggiungo un'ulteriore difficoltà: solitamente quando eseguo io il login per scaricare il file, viene richiesto di inserire un codice di sicurezza. Posso creare una pagina asp che faccia questo per me?

[vem]

Ciao Cesar,

quando faccio il login per fare il dowload del file, mi chiede di inserire una stringa (esempio: K8) per poter entrare nell'area riservata e scaricare il file.

Una volta digitato il mio codice utente (no richiesta password) e questo codice che viene generato in automatico, entro nell'area riservata e scarico il file

[cavicchiandrea]

Originariamente inviato da Cesar
Ciao cavicchiandrea,
io penso che la cosa sia fattibile. E' da tanto tempo che non programmo in ASP (ormai programmo solo in ColdFusion) ma scaricare un file esterno (xls, zip, ecc) dovrebbe essere abbastanza semplice anche in ASP.

...

Non si finisce mai d'imparare, secondo te è possibile eseguire un download tra due siti diversi (senza api) in asp interessante e come pensi di procedere.

[Cesar]

Originariamente inviato da cavicchiandrea
Non si finisce mai d'imparare, secondo te è possibile eseguire un download tra due siti diversi (senza api) in asp interessante e come pensi di procedere.

Dovrebbe funzionare usando XMLHTTP.

Facendo una ricerca veloce su google, ho trovato questo.

[vem]

ciao Cesar,

ho qualche problema con la customizzazione dello script.

Ho creato la pagina GetRemoteFiles.asp, come indicato nello script ed ho iniziato a sostituire le variabili "RemotePath, LocalPath, FileName" che sono le uniche che devo modificare, giusto?

Domanda:
al punto strBody = GetBody (RemotePath), devo passargli "http://www.nomesito.it/Cartella?

Grazie

[lucavizzi]

posto una versione funzionante, bello script.

<% 
'************************************************* *************************** 
'PageName: GetRemoteFiles.asp 
'Function: Download the files to Server 
'Author: xiaotian 
'Last Modified at :2003-3-19 
'************************************************* *************************** 

'Access to remote files and save to the local 
Function GetRemoteFiles (RemotePath, LocalPath, FileName) 
Dim strBody 
Dim FilePath 

'On Error Resume Next 

'To obtain flow 
strBody = GetBody(RemotePath) 
'Made to preserve the file name 
'if Right (LocalPath, 1) <> "\" then LocalPath = LocalPath & "\" 
FilePath = LocalPath & GetFileName (RemotePath, FileName) 
'Save the file 
if (SaveToFile(strBody, Server.MapPath(FilePath)) = true) then 
GetRemoteFiles = true 
else 
GetRemoteFiles = false 
end if 

End Function 

'Remote access to the content 
Function GetBody (url) 
Dim Retrieval 
'The establishment of XMLHTTP object 
Set Retrieval = CreateObject ( "Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody =.ResponseBody 
End With 
Set Retrieval = Nothing 
End Function 

'Restructuring of the file name 
Function GetFileName (RemotePath, FileName) 
Dim arrTmp 
Dim strFileExt 
arrTmp = Split (RemotePath, ".") 
strFileExt = arrTmp (UBound (arrTmp)) 
GetFileName = FileName & "." & StrFileExt 
End Function 

'Will be saved as a file stream content 
Function SaveToFile (Stream, FilePath) 
Dim objStream 

'On Error Resume Next 

'ADODB.Stream object to establish, it is necessary to ADO 2.5 or later 
Set objStream = Server.CreateObject ( "ADODB.Stream") 
objStream.Type = 1 'open in binary mode 
objStream.Open 
objstream.write Stream 
objstream.SaveToFile FilePath, 2 
objstream.Close () 
'Close the object and release resources 
Set objstream = Nothing 

if err.Number <> 0 then 
SaveToFile = false 
else 
SaveToFile = true 
end if 
End Function 

Response.Write(GetRemoteFiles("http://www.lucavizzi.it/immagini/logomaps.jpg","\public\","StolenImage"))'se ok scrive "True"
%>