salvare file da URL

[deio]

Salve ragazzi, sono ormai due giorni che non riesco più a fare nessuna ricerca sul forum..

Comunque, posto il mio problema,

come posso salvare sul mio server un file (immagine o pdf) passato da un collegamento?

Grazie anticipatamente,
De

[optime]

fa' un esempio

[deio]

Si, scusatemi come al sito si scrive troppo in fretta..

Allora al posto di avere un form di upload per salvare l'immagine sul server, devo aggiungere un form dove si inserisce il persorso assoluto del file nel web che verrà poi salvato nella mia cartella.

Questa cosa adesso non mi ricordo dove l'ho vista..

Praticamente in un modulo di registrazione all'utente gli si chiedeva di inserire la propria immagine.

Due erano le possibilità: Sfoglia e fai l'upload (e fin qui tutto ok)
e l'altra: è sul web, la trovi sul sito: ~input text~

A questo punto, per questa ultima possibiltà, come faccio a recuperare l'immagine??

ADODB.Stream?? Cosa?

Grazie anticipatamente..

[Santino83_02]

credo che tu possa leggerla con XMLHTTP e salvare quello che ti ritorna in un file di testo e rinominare il file di testo nell'estensione dell'immagine in questione..

usi per caso l'upload di baol? in quella classe c'era una funzione che faceva esattamente questo, non è una delle feature piu conosciute e lo stesso baol, se non ricordo male, l'aveva testata poco. ma magari funge

[deio]

thanks provo a cercare entrambe le soluzioni.. poi vi faccio sapere ;-)

[Santino83_02]

la funzione era questa:

Public Function LoadRemoteFile(URL,FileType,ContentType)
		Dim ServerHTTP,Content,RequestBin,RequestText,FileName,StreamType,Name,iT,eT,bR
			on error resume next
			Set ServerHTTP = CreateObject("MSXML2.ServerXMLHTTP.4.0")
			if err.number <>0 then
				Set ServerHTTP = CreateObject("MSXML2.ServerXMLHTTP")
				if err.number <>0 then
					response.Write("<p style=""font-family:verdana;font-size:10"">Errore: L'oggetto MSXML2.ServerXMLHTTP non è installato sul server</p>")
					response.end
				end if
			end if
			on error goto 0
			InitUploadFiles()
			IsMultipart = true
			ServerHTTP.open "GET",URL,false
			ServerHTTP.Send
			iT = Timer()
			RequestBin = ServerHTTP.responseBody
			while ServerHTTP.readyState<>4
				ServerHTTP.waitForResponse 1000
			wend
			bR = LenB(RequestBin)
			FileName = Replace(URL,"/","\")
			StreamType = FileType
			eT = Timer()
			if (Et-iT)<>0 then
				ConnectionSpeed = cStr(round((bR / (Et-iT)) / 1024,1)) & " [kb/s]"
			else
				ConnectionSpeed =   cStr(round(bR/1024,1)) & " [kb/ms]"
			end if
			AddNewRs Name,FileName,ContentType,StreamType,RequestBin
			MoveFirst
			Set ServerHTTP = Nothing
		End function

che è, appunto, leggere il file via xmlhttp e salvare quello che si legge (requestBin) da qualche parte