upload immagini

[raffa76]

ciao sono riuscita a far fare l'upload delle immagini come desideravo, però ora ho un altro problema:
al mio utente devo far fare due passaggi il primo mi serve per inserire nel mio database il nome del file e quindi ho una form con un campo di testo dove devono scrivere il nome della gif/jpg il secondo mi serve per fare l'upload posoo semplificare il tutto?
Anche perchè ai miei utenti risulta un pò complicato scrivere il nome dell'immagine.

Grazie
Raffa

[maspar]

Prova ad usare lo script di Baol74 è ottimo.

[gangilel]

Ciao Raffa hai risolto il tuo problema...io avrei la stessa difficoltà!
se puoi fammi sapere come hai risolto..
in poche parole con il tasto upload trasferisco l'immagine da locale al server...
mentre il nome scritto dell'immagine nella text di input mi serve
per inserirlo nel recorset del db,giusto?
Come posso semplificare il tutto?

[raffa76]

Purtroppo non sono riuscita a risolvere il problema ho lasciato il tutto così com'era anche se non risulta molto comodo,mi dispiace.
Ciao

[NotFoUnD]

Originariamente inviato da maspar
Prova ad usare lo script di Baol74 è ottimo.

dove si trova ? mi sto anche io incazzando con l'upload di immagini e memorizzazione del nome del file

[weppos]

Originariamente inviato da NotFoUnD
dove si trova ? mi sto anche io incazzando con l'upload di immagini e memorizzazione del nome del file

In firma all'utente baol74
www.baol.cjb.net

[raffa76]

Sono riuscita a risolvere il mio problema sul discorso del nome dell'immagine che dovevo prima scriverlo in un campo di testo. In realtà era molto semplice. Nel codice che io ho utilizzato per l'upload dell'immagine in effetti c'è già questa proprietà di seguito il codice:

code:--------------------------------------------------------------------------------
<%
'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !

percorso = "/public/"

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(i
tem))-Inizio-1)

' Recupero i campi se sono compilati
if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if

' Nel caso in cui fossero presenti piu campi basta duplicare
' la condizione cambiando unicamente il nome del campo
' es.
'if instr(Intestazione,"testo2") > 0 then
' testo2 = ContenutoFile
'end if

'if instr(Intestazione,"testo3") > 0 then
' testo3 = ContenutoFile
'end if

' Qui recupero il file da uploadare (se presente) e lo scrivo
' sul server
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

' Lo stesso discorso vale anche per i campi dei file :
' Nel caso in cui fossero presenti piu file basta duplicare
' la condizione cambiando unicamente il nome del campo
' es.

'if instr(Intestazione,"file2") > 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")
' Upload2 = True
' DimensioneFile2 = len(ContenutoFile)
' EstensioneFile2 = right(ContenutoFile,3)
' NomeFile2 = NomeFile
' Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
' textStream.Write ContenutoFile
' textStream.Close
' Set textStream = Nothing
' Set FSO = Nothing
' end if
'end if

'if instr(Intestazione,"file3") > 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")
' Upload3 = True
' DimensioneFile3 = len(ContenutoFile)
' EstensioneFile3 = right(ContenutoFile,3)
' NomeFile3 = NomeFile
' Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile3), True, False)
' textStream.Write ContenutoFile
' textStream.Close
' Set textStream = Nothing
' Set FSO = Nothing
' end if
'end if
next

' Da qui in poi è possibile fare esegiure allo script altre operazioni
' inserire qui gli script aggiuntivi che si vogliono eseguire dopo l'upload
' Per esempio visualizzare quello che è stato inserito all'interno del
' compo testo



' Utilizzando il sistema descritto sopra è possibile visualizzare campi
' testo aggiuntivi presenti nel form
' Response.Write "Il valore immesso nella testo2 è " & testo2 & "
"
' Response.Write "Il valore immesso nella testo3 è " & testo3 & "
"

' E la stessa cosa per i campi dove è stato eseguito l'upload dei file

If Upload1 = true then
Response.Redirect "invio_foto.asp"

End If

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

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

End if
%>
--------------------------------------------------------------------------------

Le variabili NomeFile1, NomeFile2, NomeFile3 contengono esattemente il nome dell'immagine a questo punto è semplice con una insert inserire quel nome nel campo della tabella.

Spero che a qualcuno serva ancora.
Saluti Raffa

[DarioMarco]

Ciao, scusami un attimo, io sono riuscito come te a fare l'upload dell'immagine nel server, solo che adesso mi manca d'inserire il collegamento o chi che sia nel database per avere disponibile l'immagine quando la cerco, il form è composto da altri campi, solo che col metodo enchtype="data/.." non mi accetta il request.form, potreste guidarmi o darmi qualche suggerimento su come procedere???

Grazie, ciao

[DarioMarco]

scusami, riposto, (qualche giorno devo decidermi a togliere tutti i virus che mi hanno inserito nel pc)

Ciao, scusami un attimo, io sono riuscito come te a fare l'upload dell'immagine nel server, solo che adesso mi manca d'inserire il collegamento o chi che sia nel database per avere disponibile l'immagine quando la cerco, il form è composto da altri campi, solo che col metodo enchtype="data/.." non mi accetta il request.form, potreste guidarmi o darmi qualche suggerimento su come procedere???

Grazie, ciao