Codice per upload immagini

[Shourndern]

Salve a tutti,
sto cercando del codice ASP che mi permetta di uploadare delle immagini da locale ad uno spazio web.
Ho già trovato in giro del codice a riguardo (lo script di Baol più precisamente), ma sono riuscito a farlo funzionare solo in locale, e non da sito UP (mi va in timeout)

Inoltre dovrei aggiungere altro codice per poter memorizzare il percorso dell'immagine uploadata, ma quello non credo che sia un grossissimo problema.

Se qualcuno ne sapesse di più a riguardo, qualche dritta non farebbe male.

Grazie.Ciao

[agenti]

scusa , ma che errroe hai ?

[Shourndern]

Non mi da nessun errore. Rimane in collegamento per un tot di tempo x poi va in una sorta di "timeout" in cui lo script si termina.
Sono anche andato a vedere se sullo spazio web avesse creato l'immagine... niente. :master:

[agenti]

molto strano...

dovresti passare come hai settato lo script..
e specificare se hai i permessi di scrittura.

[michele.santoro]

Ma la cartella in cui effettui l'upload, ha i permessi in scrittura?

[Shourndern]

Infatti ci avevo pensato, ma ho provato con cartelle diverse: sono cliente Aruba, e ho provato con la cartella /public, /images e /mdb-database senza nessun risultato.
In particolare in quest'ultima sono certo dei permessi xche il DB viene aggiornato ogni volta positivamente.

Cioè semplicemente il codice è questo:

<%

Dim oUpload
Set oUpload = new cUpload
    oUpload.SetPath "images/"
    oUpload.UploadAndSave
Set oUpload=Nothing

Response.Write("Upload dell'immagine effettuato positivamente!")
%>

...in locale funziona perfettamente, UP no!
Altra cosa, ho provato a cambiare orientamento alle barre nel path, ma niente.

[michele.santoro]

Originariamente inviato da Shourndern
Infatti ci avevo pensato, ma ho provato con cartelle diverse: sono cliente Aruba, e ho provato con la cartella /public, /images e /mdb-database senza nessun risultato.
In particolare in quest'ultima sono certo dei permessi xche il DB viene aggiornato ogni volta positivamente.

Cioè semplicemente il codice è questo:

<%

Dim oUpload
Set oUpload = new cUpload
    oUpload.SetPath "images/"
    oUpload.UploadAndSave
Set oUpload=Nothing

Response.Write("Upload dell'immagine effettuato positivamente!")
%>

...in locale funziona perfettamente, UP no!
Altra cosa, ho provato a cambiare orientamento alle barre nel path, ma niente.

è sbagliato il percorso della cartella di upload.

    oUpload.SetPath "images/"
deve diventare 
    oUpload.SetPath "/public/images/"

e nella cartella public crea una sottocartella images
I file per l'upload mettili dove vuoi.

[Shourndern]

Non funziona ancora.
Stesso problema.

[agenti]

prova a fare un pò di debug...

response.write "test1"
response.write err.description
response.end

[Shourndern]

Sono andato a fare un po' di debug su Upload.asp, come mi avevi detto.
Il punto incriminato è un ciclo:

'**** Salvataggio Posizione di Boundary *****
                    Stream.Position = 0
                    RequestBin = Stream.Read()
                    nE = -1:Pos = 1
                    do
                        PosBeg = InStrB(Pos,RequestBin,boundary)
                        if PosBeg>0 then
                            PosBeg = InStrB(PosBeg + boundaryLen,RequestBin,cName)
                            PosEnd = InstrB(PosBeg+1,RequestBin,boundary)
                            If PosEnd >0 then
                                nE = nE + 1
                                redim preserve arPosBeg(nE)
                                redim preserve arPosEnd(nE)
                                redim preserve arPosName(nE)
                                arPosBeg(nE) = PosBeg
                                arPosEnd(nE) = PosEnd
                                tmp = InStrB(PosBeg + 1,RequestBin,cContentType)
                                arPosName(Ne) = 0
                                If tmp<PosEnd then
                                    arPosName(Ne) = tmp
                                end if
                                if arPosName(Ne) = 0 then
                                    arPosName(Ne) = InStrB(PosBeg + 1,RequestBin,c13b) + 3
                                end if
                            end if
                            Pos  = PosEnd
                        end if
                    loop until Pos=EndOfFile

Solo che in teoria questo codice dovrebbe andare a priori, anche xche non ho la più pallida idea di dove mettere le mani... :master: