Upload di Baol da altro server

[SGr33n]

Ciao a tutti,

Sto provando il fantastico upload di baol ed è tutto ok, solo che non riesco a capire bene il funzionamento di upload da altro server...

A me servirebbe di poter passare un'immagine anzichè da locale, da remoto tramite immissione dell'url e processarla come lo script processa i file uploadati da locale, sottoponendo il file remoto a tutti i controlli quali di altezza, larghezza e dimensione...

inoltre vorrei sapere se questo tipo di possibilità, qualora si possa applicare, potrebbe dare luogo a falle di sicurezza... mi spiego:

Mettiamo che un utente voglia uppare il file prova.asp ma il sistema di upload non glie lo permette in quanto accetta solo files immagini... ma cosa succederebbe se scaricassi da remoto il file prova.asp?fake.gif ?

Grazie 1000

Mi farebbe piacere se anche baol leggesse questa domanda.

Grazie 1000

[Baol74]

Devi usare la funzione

LoadRemoteFile(URL,FileType,ContentType)

[SGr33n]

sostituisco a .load .LoadRemoteFile(URL,FileType,ContentType) ?

Ma le variabili che significato hanno ? come vanno usate ?

Grazie 1000 dell'intervento

[Baol74]

Quale file esterno devi caricare, un'immagine e di che tipo gif, jpg,png,bmp ?

Devi sostituire se la tua esigenza è solo quella di prendere un file da un'altro server, altrimenti se devi contemporaneamente caricare i file, allora dovrai fare:

oUpload.Load()
oUpload.LoadRemoteFile ......

[SGr33n]

Se volessi ad esempio salvare una immagine sottoponendola ai vari controlli andrebbe bene qualcosa del genere ?

Dim oUpload
Dim intMaxAvHeight
Dim intMaxAvWidth

intMaxAvHeight = 60
intMaxAvWidth = 60

Set oUpload = new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = True
.EnabledLog = False
.AutoRename = False
.Overwrite = True
.SetPath "\public"
.LoadRemoteFile("http://www.sito.com/immagine.gif",[Qui cosa ?])
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=intMaxAvHeight or .Files("Width")>=intMaxAvWidth then
	Response.Write("errore!")
else
	.save
end if
.MoveNext
Wend
End With
Set oUpload = Nothing

[Baol74]

si, dovrebbe andare. In quel modo non ti carica i files inviati dall'utente.
Ma soprattuto UploadOnly non serve se il percorso lo scrivi tu

LoadRemoteFile "http://www.sito.com/immagine.gif",1,"image/gif"

Il secondo parametro indica se il file è binario (1) o testuale (2)
Il terzo è il mime type del file

[SGr33n]

Grazie baol lo provo... ma in dinamico, non sapendo il tipo di file, il mime devo catturarmelo tramite manipolazione di stringa, tipo, non so, facendo una cosa semplice:

len = instr(nomefile,"?")
if len > 0 Then nomefile = left(nomefile,len)
nomefile = StrReverse(nomefile)
len = instr(nomefile,".")
est = strReverse(left(nomefile,len))

o c'è un'alternativa ?

[Baol74]

Si, putroppo in questa versione non c'è il calcolo automatico del mime type

Prendi l'estensione e poi a seconda calcoli il mime

[SGr33n]

ok grazie penso che farò qualcosa del genere:

len = instr(nomefile,"?")
if len > 0 Then nomefile = left(nomefile,len)
nomefile = StrReverse(nomefile)
len = instr(nomefile,".")
est = strReverse(left(nomefile,len))

Grazie per l'aiuto e per lo sviluppo

[Baol74]

Si oppure puoi fare cosi

est = oUpload.Fso.GetExtensionName(nomefile)

Oppure

est = Mid(nomefile,InStrRev(nomefile,".")+1)

Perchè il punto interrogativo?