03/04/12 8:35
alessandro1474
Salve ragazzi,
avrei bisogno di premettere agli utenzi di caricare 1 file (jpg. o pdf) su una cartella del server ove risiede il sito che poi via ftp o aplra applicazione prelevo il file
ho guardato in rete diversi esempi , ma non ne funziona neanche uno
eppure secondo le procedure sembrerebbe abbastanza semplice
comunque
partiamo con il componente aspupload
che secondo gli amministratori é installato sul server
ma non riesco a farlo andare
provo a postare il codice del file upload.asp
qualcuno conosce un escamotage migliore?
Ho letto da qualche parte che si potrebbe anche far a meno di questo componente
riuscite a darmi delucidazioni in merito?
Non penso che il codice contenga errori
penso che sia io che non abbia ancora capito bene il meccanismo
Grazie in anticipo ...
avrei bisogno di premettere agli utenzi di caricare 1 file (jpg. o pdf) su una cartella del server ove risiede il sito che poi via ftp o aplra applicazione prelevo il file
ho guardato in rete diversi esempi , ma non ne funziona neanche uno
eppure secondo le procedure sembrerebbe abbastanza semplice
comunque
partiamo con il componente aspupload
che secondo gli amministratori é installato sul server
ma non riesco a farlo andare
provo a postare il codice del file upload.asp
<%@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("/sub/" & MioFile)) %> <html> <head> <title>Upload di file col componente ASPUpload</title> </head> <body> <p align="center"> <% ' 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 "<br><br>" .Write "Alcune info:" .Write "<br><br>" .Write "Dimensioni del file: " & File.Size & "byte" .Write "<br>" .Write "Tipologia di file: " & File.Type End With End If %> </p> </body> </html>
qualcuno conosce un escamotage migliore?
Ho letto da qualche parte che si potrebbe anche far a meno di questo componente
riuscite a darmi delucidazioni in merito?
Non penso che il codice contenga errori
penso che sia io che non abbia ancora capito bene il meccanismo
Grazie in anticipo ...
aaa