Eseguire Upload di file in moda manuale è una funziona parecchio lunga, per fortuna esistono dei componenti che installati sul server permettono di effettuare il lavoro in maniera più veloce, grazie a un codice Asp non ci sarà più da impazzire.
Il componente utilizzato per questa funzione è AspUpload non è gratuito ma il costo e alla portata di tutti. All’interno del server si dovrà creare una cartella file e dentro di essa un file nominato upload.html, il codice per questo file html è:
<form action="upload.asp" enctype="multipart/form-data" method="post"> </form>
Ed ecco il codice Asp commentato per esser più chiaro:
%@LANGUAGE = VBScript%& % ' Gestisco eventuali errori On Error Resume Next ' Creo l'oggetto Persist ASPUpload Set Upload = Server.CreateObject("Persits.Upload.1") ' Controllo che non vengano sovrascritti file esistenti Upload.OverwriteFiles = False ' Limito ad 1 mega la possibilità di caricare file Upload.SetMaxSize 1048576 ' Creo una variabile col file da caricare Dim MioFile MioFile = Request.Form("file_da_caricare") ' Effettuo l'Upload, se non si sono verificati errori Count = Upload.Save(Server.MapPath("/file/" & MioFile)) % Upload di file col componente ASPUpload % ' Verifico il buon andamento della procedura ' e lancio un messaggio di errore o di conferma If Err <> 0 Then Response.Write "ERRORE: " & Err.Description Else With Response .Write Count .Write "Upload effettuato con successo!" .Write " " .Write "Alcune info:" .Write " " .Write "Dimensioni del file: " & File.Size & "byte" .Write " " .Write "Tipologia di file: " & File.Type End With End If %
