Upload 3.1.2

[Baol74]

Ho fatto 3 modifiche al codice che correggono piccoli bachi.

Se qualcuno può fare un test mi fa un grande piacere.
Dovreste lavorare in Option Explicit se vi è possibile, perchè l'ultima segnalazione di errore era in erente a variabili non dichiarate.

Grazie a tutti

Un saluto

Baol.

Potete scaricare la classe dall'indirizzo : http://www.aspxnet.it/public/files/d.../upload312.zip

[freezone]

Originariamente inviato da Baol74
Ho fatto 3 modifiche al codice che correggono piccoli bachi.

Se qualcuno può fare un test mi fa un grande piacere.
Dovreste lavorare in Option Explicit se vi è possibile, perchè l'ultima segnalazione di errore era in erente a variabili non dichiarate.

Grazie a tutti

Un saluto

Baol.

Potete scaricare la classe dall'indirizzo : http://www.aspxnet.it/public/files/d.../upload312.zip

Grandioso, davvero un gran bel lavoro.
Solo una domanda: vorrei mettere nella pagina di risposta una frase del tipo "Upload del file [nomefile] avvenuta con successo"
Come ricavo il nome del file?
Grazie mille

[Baol74]

Fammi vedere il codice che usi

[freezone]

Originariamente inviato da Baol74
Fammi vedere il codice che usi

Uso la pagina upload_semplice.asp quella che si trova nel pacchetto.

[freezone]

Ho visto che nel file upload.asp c'è una proprietà che hai creato all'interno della classe che si chiama "TotalBytes" con quella mi basta scrivere Dimensione = oUpload.TotalBytes e ottengo la dimensione del file caricato, ma non trovo una proprietà simile per il nome...

[Baol74]

No. L'oggetto non è semplice da comprendere di primo acchito.
TotalBytes è il totale dei bytes inviati dal client.

Guarda anche gli altri esempi e fai un giro sul forum.
Ci saranno una cinquantina di script che puoi analizzare e troverai sicuramente quello che fa al caso tuo

[freezone]

Originariamente inviato da Baol74
No. L'oggetto non è semplice da comprendere di primo acchito.
TotalBytes è il totale dei bytes inviati dal client.

Guarda anche gli altri esempi e fai un giro sul forum.
Ci saranno una cinquantina di script che puoi analizzare e troverai sicuramente quello che fa al caso tuo

GRazie mille ;-)

[freezone]

Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "Public\Files\"
	oUpload.UploadAndSave
	strNomeFile = oUpload.GetFileName() 
	Dimensione = oUpload.TotalBytes
Set oUpload=Nothing

Questo è il codice che sto usando, ma la variabile strNomeFile mi rimane vuota, non riesco a risalire al nome del file che viene uploadato... ho cercato nel forum, ma non riesco a trovare nessuno che abbia risolto questo mio stesso problema.
Grazie mille.

[Baol74]

Prova così.

Se carichi un'immagine verranno valorizzati Height e width (EnabledImageSize = True)

Se il file esiste, verrà rinominato automaticamente (Autorename=True)

Si possono aggiungere filtri e creare log automatici. Ma questo te lo dico dopo.

In generale e' possibile conoscere la caratteristiche del file con la collection Files

L'upload è multiplo, quindi se invii 10 files, verranno salvati tutti e 10.

Attraverso la collection oUpload.Form puoi accedere ai campi input inviati.

Function WriteLn(s,value)
	Response.Write "" & s "=" & value & "
"
End Function

Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "Public\Files\"
	oUpload.Autorename = True
	oUpload.OverWrite = False
	oUpload.EnabledImageSize = True
	oUpload.Load()
	While Not oUpload.EOF
		oUpload.Save()
		WriteLn "GetFileName()",oUpload.GetFileName()
		WriteLn "GetCompletePathFile()",oUpload.GetCompletePathFile()
		WriteLn "GetHTTPPathFile()",oUpload.GetHTTPPathFile()
		WriteLn "Files(""InputName"")",oUpload.Files("InputName")
		WriteLn "Files(""DestPath"")",oUpload.Files("DestPath")
		WriteLn "Files(""FileExists"")",oUpload.Files("FileExists")
		WriteLn "Files(""Size"")",oUpload.Files("Size")
		WriteLn "Files(""ContentType"")",oUpload.Files("ContentType")
		WriteLn "Files(""ErrorNumber"")",oUpload.Files("ErrorNumber")
		WriteLn "Files(""Error"")",oUpload.Files("Error")
		WriteLn "Files(""Height"")",oUpload.Files("Height")
		WriteLn "Files(""Width"")",oUpload.Files("Width")
		Response.Write "<hr>"
		oUpload.MoveNext
	Wend
Set oUpload=Nothing

[freezone]

Originariamente inviato da Baol74
Prova così.

Se carichi un'immagine verranno valorizzati Height e width (EnabledImageSize = True)

Se il file esiste, verrà rinominato automaticamente (Autorename=True)

Si possono aggiungere filtri e creare log automatici. Ma questo te lo dico dopo.

In generale e' possibile conoscere la caratteristiche del file con la collection Files

L'upload è multiplo, quindi se invii 10 files, verranno salvati tutti e 10.

Attraverso la collection oUpload.Form puoi accedere ai campi input inviati.

Function WriteLn(s,value)
	Response.Write "" & s "=" & value & "
"
End Function

Dim oUpload
Set oUpload = new cUpload
	oUpload.SetPath "Public\Files\"
	oUpload.Autorename = True
	oUpload.OverWrite = False
	oUpload.EnabledImageSize = True
	oUpload.Load()
	While Not oUpload.EOF
		oUpload.Save()
		WriteLn "GetFileName()",oUpload.GetFileName()
		WriteLn "GetCompletePathFile()",oUpload.GetCompletePathFile()
		WriteLn "GetHTTPPathFile()",oUpload.GetHTTPPathFile()
		WriteLn "Files(""InputName"")",oUpload.Files("InputName")
		WriteLn "Files(""DestPath"")",oUpload.Files("DestPath")
		WriteLn "Files(""FileExists"")",oUpload.Files("FileExists")
		WriteLn "Files(""Size"")",oUpload.Files("Size")
		WriteLn "Files(""ContentType"")",oUpload.Files("ContentType")
		WriteLn "Files(""ErrorNumber"")",oUpload.Files("ErrorNumber")
		WriteLn "Files(""Error"")",oUpload.Files("Error")
		WriteLn "Files(""Height"")",oUpload.Files("Height")
		WriteLn "Files(""Width"")",oUpload.Files("Width")
		Response.Write "<hr>"
		oUpload.MoveNext
	Wend
Set oUpload=Nothing

Ho fatto più semplicemente così:

Set oUpload = new cUpload
	oUpload.SetPath "/Public/FotoPlayers"
	oUpload.AutoRename=True
	oUpload.OverWrite=False
	oUpload.Upload
	oUpload.Save()
	strNomeFile = oUpload.GetFileName() 
	Dimensione = oUpload.TotalBytes()

Set oUpload=Nothing

e funziona.
Grazie mille.