Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Altri Linguaggi - upload con asp
Forum - Altri Linguaggi - upload con asp

Avatar
alessandro1474 (Normal User)
Newbie


Messaggi: 8
Iscritto: 17/02/2012

Segnala al moderatore
Postato alle 10:35
Martedì, 03/04/2012
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
Codice sorgente - presumibilmente VB.NET

  1. <%@LANGUAGE = VBScript%>
  2. <%
  3.     ' Gestisco eventuali errori
  4.     On Error Resume Next
  5.     ' Creo l'oggetto Persist ASPUpload
  6.     Set Upload = Server.CreateObject("Persits.Upload.1")
  7.     ' Controllo che non vengano sovrascritti file esistenti
  8.     Upload.OverwriteFiles = False
  9.     ' Limito ad 1 mega la possibilità di caricare file
  10.     Upload.SetMaxSize 1048576
  11.     ' Creo una variabile col file da caricare
  12.     Dim MioFile
  13.     MioFile = Request.Form("file_da_caricare")
  14.     ' Effettuo l'Upload, se non si sono verificati errori
  15.     Count = Upload.Save(Server.MapPath("/sub/" & MioFile))
  16. %>
  17. <html>
  18.     <head>
  19.         <title>Upload di file col componente ASPUpload</title>
  20.     </head>
  21. <body>
  22.  
  23. <p align="center">
  24. <%
  25.     ' Verifico il buon andamento della procedura
  26.     ' e lancio un messaggio di errore o di conferma
  27.     If Err <> 0 Then
  28.         Response.Write "ERRORE: " & Err.Description
  29.     Else
  30.         With Response
  31.             .Write Count
  32.             .Write "Upload effettuato con successo!"
  33.             .Write "<br><br>"
  34.             .Write "Alcune info:"
  35.             .Write "<br><br>"
  36.             .Write "Dimensioni del file: " & File.Size & "byte"
  37.             .Write "<br>"
  38.             .Write "Tipologia di file: " & File.Type
  39.         End With
  40.     End If
  41. %>
  42. </p>
  43.  
  44. </body>
  45. </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 ...

PM