upload immagini access

[Osterello]

Ciao,
mi sapreste consigliare qualche tutorial o qualche script da già pronto, o qualche extension di DW per poter gestire degli album fotografici direttamente da un pannello di controllo online?

Cioè, con l'upload non ci sono problemi, con la visualizzazione delle img nemmeno, mi manca solo poter inserire al momento dell'upload, il nome dell'img nel campo del db..

grazie
ciao

[Roby_72]

Basta recuperare il nome dell'immagine e fare un insert nel db: http://freeasp.html.it/articoli/view...olo.asp?id=169

Roby

[Delo80]

Ho scaricato il file ma ho 2 problemi

- pur inserendo un file (di dimensioni infime x farna caosa veloce) lo script non lo rileva e quindi non mi salva nulla da cosa può dipendere?

- come percorso devo utilizzare na cartella presente nel mio maggggico sito creata ad hoc (come ad esempio foto).
Quindi basta che scriva percorso="foto/" giusto?

Grazie a tutti

Inserisco codice

percorso = "foto\"

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

if instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if

next


Response.Write "Il valore immesso nella testo1 è " & testo1 & "
"

l'upload dei file

If Upload1 = true then
Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
Response.Write "
Grazie di aver inviato il tuo file"
End If

End if
%>

[Roby_72]

La cartella foto deve avere i permessi di scrittura:

percorso = "foto/"

Roby

[Delo80]

Lavoro su server aruba e i 2 file (form e upload.asp) sono dentro la cartella public.
Teoricamente non è l'unica cartella con i permessi di scrittura disponibile su server aruba?
Grazie ancora roby

ps Se non avesse i permessi non mi darebbe errore?

[Roby_72]

percorso = "/public/foto/"

Roby

[Delo80]

Sono un pò stressa maroni lo so
Il file lo vede correttamente (ho fatto una stampaschermo della variabile filename e me la vede correttamente)
Ora rimane solo il problema che non mi salva il file:dici che public non sia una cartella aperta alla scrittura?
Grazie ancora

[Roby_72]

Si public lo è anche foto al suo interno.
La cartella foto l'hai creata?

Roby

[Delo80]

si...per quello i conti non mi tornano.
Tutto funzia alla grande a parte il salvataggio vero e proprio del file.
Ho provato anche a lasciare vuoto il campo percorso o mettere semplicemente public ma comunque non ottengo nessun risultato.

[Roby_72]

Se scrivi:

response.write(server.mappath(percorso & NomeFile1))

cosa ottieni?

Roby