Upload su Aruba con Oggetto Persist

**Dr Mal** · 25-03-2010, 11:06

Ciao a tutti,

Ho un dominio su Aruba e, dovendo effetture l' upload di file e dati, vorrei un aiuto in merito all' utilizzo dell' oggetto Persist.

Ho letto un articolo dell' utente ale_1976 (che ringrazio) nel quale viene spiegato come utilizzare l' oggetto Persist; prendendo spunto dal suo codice, ho tirato fuori questo:

codice:

esempio di form:

<form enctype="multipart/form-data" method="post" action="upload.asp">
<input type="file" name="file">
<input type="text" name="nome">
<input type="text" name="nome1">
<input type="text" name="nome2">
<input value="Sfoglia" name="txt_img" type="submit">
</form>

nella pagina upload.asp:

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save(Server.MapPath("/miaCartella/"))

Set File = Upload.Files("txt_img")

If Not File Is Nothing Then
filename=File.FileName
nome=Upload.Form("nomeCampo")
nome1=Upload.Form("nomeCampo1")
nome2=Upload.Form("nomeCampo2")
end if

File.Close
Set File = Nothing

In questo modo riesco ad ottenere, oltre al nome dell' immagine contenuto in "filename", anche i dati delle input text contenuti in "nome", "nome1" e "nome2"?

grazie,

**Dr Mal** · 25-03-2010, 12:29

Ragazzi, ho fatto delle prove su Aruba con il seguente codice:

codice:

form.html:

<form method="POST" action="upload.asp" enctype="multipart/form-data">
    <input type="file" name="FDC">
    <input type="submit" value="Upload">
</form>

upload.asp:


    ' 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
    ' Effettuo l'Upload, se non si sono verificati errori
    Count = Upload.Save(Server.MapPath("/file/" & Request.Form("FDC")))

<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 "

"
            .Write "Alcune info:"
            .Write "

"
            .Write "Dimensioni del file: " & File.Size & "byte"
            .Write "
"
            .Write "Tipologia di file: " & File.Type
        End With
    End If
%>
</p>

</body>
</html>

ma mi da questo errore:
--------------------------------------------
Persits.Upload.1 error '800a0001'

Unspecified error

/upload1.asp, line 12 (riga che inizia con "Count =...")
---------------------------------------------

Mi date una mano a capire dove è il problema? :master:

**Dr Mal** · 25-03-2010, 13:16

Allora, ho capito il problema:

non si deve usare

codice:

Request.Form("FDC")    ma    Upload.Form("FDC")

e fin qui tutto bene, l' upload funziona.

Recupero pure il nome da inserire poi nel database:

codice:

Set File = Upload.Files("FDC") ' nome della input dove viene caricato il file
nome = File.FileName

La mia domanda è: se oltre all' immagine da uploadare, ho dei dati da recuperare passati da alcune input type text, come faccio?

**Roby_72** · 25-03-2010, 13:48

Upload.Form("nomecampotext")

Roby

**Dr Mal** · 25-03-2010, 16:10

Originariamente inviato da Roby_72
Upload.Form("nomecampotext")
Roby

Ciao Roby, ho già provato così ma non va.

Alla fine ho capito che avevo bisogno di "Item.Name" ed "Item.Value"

Ora provo buttare giù una pagina che faccia quello che serve a me.

Grazie comunque a tutti,

**Dr Mal** · 25-03-2010, 16:48

Eccomi di nuovo qui ...

codice:

prova = Upload.Form("DESCR2")

In questo modo ottengo il valore della input text chiamata "DESCR2" e fin qui ci siamo.

PEr quanto riguarda il file:

codice:

Response.Write File.Name & "= " & File.Path

in questo modo ottengo tutto il precorso ma a me serve solo il nome del file che vado ad "uploadare". Come devo fare??????

**Roby_72** · 25-03-2010, 16:51

Leggi la documentazione, qualcosa come File.Name

**Dr Mal** · 25-03-2010, 16:57

Originariamente inviato da Roby_72
Leggi la documentazione, qualcosa come File.Name

Già fatto ma non riesco a trovare nulla!!!

File.Name mi genera errore.

**Roby_72** · 25-03-2010, 17:13

File.FileName

Roby

**Dr Mal** · 25-03-2010, 17:17

Originariamente inviato da Roby_72
File.FileName

Roby

Roby, ho già provato sia con File.FileName che con File.OriginalFileName;

in entrambi i casi, mi da l' errore: Object required: ''

:master:

Discussione: Upload su Aruba con Oggetto Persist

Strumenti discussione

Ricerca discussione

Visualizza

Upload su Aruba con Oggetto Persist

Permessi di invio