Come fare l'upload su Aruba di file superiori ai 4 MB?

Questa domanda ha popolato migliaia di thread nei Forum per Webmaster più famosi in rete...e la risposta è una...CERTO CHE SI PUO'!!!

Cercando bene nel "vademecum" di Aruba, si può trovare un fantastico zip da scaricare che contiene un sacco di cosette utili per chi sviluppa siti hostati su Aruba, programmando in ASP o ASP.net.

Questi script sono stati creati da Persits e sono semplicissimi da utilizzare e molto efficaci.
Nel file che trovate su Aruba (a questo indirizzo) , trovate quattro componenti, chiamati:

- AspEmail , componente che si affianca a Cdosys e consente l'invio di mail con varie opzioni. Usato in congiunzione con AspUpload rende molto facile l'invio di allegati via mail tramite pagina web
- AspUpload, componente per facilitare l'invio di files tramite form. Molte le opzioni, possibilita' di salvare il file su disco o su database.
- AspJpeg, componente per la manipolazione "al volo" delle immagini : dimensionare, ruotare, crop, risoluzione, salvataggio in database.
- AspPdf, componente per la creazione "al volo" di files PDF, la sorgente puo' essere un file di testo, un'immagine, una pagina web, un form, ecc. ecc

All'interno trovate un sacco di esempi.

In questo post stiamo parlando però di upload di file di qualunque dimensione, quindi vi descrivo come farlo:

Per prima cosa inserite nella cartella "CGI-BIN" del vostro spazio Aruba, la .dll chiamata "ASPUPLOADLib.dll", che trovate nello zip.

Poi avrete una vostra form con la quale caricare il file tipo:

<form enctype="multipart/form-data" method="post" action="Upload.asp">
<input type="file" name="file">

<input value="Carica il file" type="submit">
</form>

la pagina upload.asp, sostanzialmente dovrà contenere 2 sole righe:

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save(Server.MapPath("/public")) 'qui impostate il percorso dove finirà il file
response.write "File caricato con successo!"

e con queste sole due righe, voi potrete caricare sul vostro server file di qualunque dimensione!!

Se poi avete bisogno di ricavare il nome del file, magari per inserirlo nel vostro database, aggiungete queste righe:

Set File = Upload.Files("file") ' qui metterete al posto di "file", il nome della input che avete nella vostra form dove caricate il file

If Not File Is Nothing Then
filename=File.FileName
end if

ed ecco che la variabile "filename" conterrà il nome del file completo di estensione.

Infine, se avete la necessità di rinominare il file, potete mettere queste righe:

Set File = Upload.Files("file") ' qui metterete al posto di "file", il nome della input che avete nella vostra form dove caricate il file

If Not File Is Nothing Then
filename=File.FileName

nuovo_filename="testo_"&filename&""
Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

end if


ed il gioco è fatto!!

Spero possa esservi utile.