ASP e upload-allega file

[PaoloNA]

Salve.

Ho un sito in ASP (con DB Access) con un form che richiede vari dati, tra cui uno deve essere l'upload di un file.

Vedendo in giro mi pare che debba fare
<input title="FileAllegato" name="FileAllegato" type=file maxlength=50 size="80">
e in effetti mi apre la pagina che sfoglia il PC.

Però poi dovrei:
1 - inviare realmente il file al server
2 - assegnare al file inviato al server un nome uguale a quello dell'ID della tupla relativa (quindi rinominare il file sul server, lasciano la stessa estensione)
3 - inserire nel campo del DB FileAllegato, al posto del percorso, soltanto il nuovo nome

Come fare? Per allegare posso usare lo stesso form che richiede gli altri dati o uno a parte?

[Roby_72]

Il processo come detto da te si chiama UPLOAD. Cerca nel forum l'upload di Baol74, un utente del forum.

Roby

[giulogia]

so che non centra ma potresti aiutarmi per favore

[Roby_72]

http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[PaoloNA]

Ho trovato le istruzioni sulle guide del sito, ma non ci capisco molto perchè non sono commentate.
Vi posto il codice (DataFine, Titolo, Testo, sono campi del form che non so come recuperare; FileAllegato servirebbe per il file da recuperare).
Più che altro mi serve capire cosa fa il codice, e come recuperare i vari dati dei singoli campi (file e altri campi).

<%

ByteRicevuti=Request.TotalBytes
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 pezzo = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(pezzo),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(pezzo),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(pezzo),Inizio,len(ArrPezzi(pezzo))-Inizio-1)
next


if instr(Intestazione, "DataFine")>0 then
DataFine=ContenutoFile
end if
if instr(Intestazione, "Titolo")>0 then
Titolo=ContenutoFile
end if
if instr(Intestazione, "Testo")>0 then
Testo=ContenutoFile
end if


if instr(Intestazione, "FileAllegato")>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(NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if

%>

[Roby_72]

Non ho capito... Il mio link non portava a questo.

Roby

[PaoloNA]

Beh ho usato una soluzione più semplice.

Spero possiate spiegarmi questo codice.

[santino83_11_04]

Originariamente inviato da PaoloNA
Beh ho usato una soluzione più semplice.

Spero possiate spiegarmi questo codice.

la soluzione + semplice è l'upload di baol74, perchè al contrario di questo script che hai postato usa un contratto con l'utente (le funzioni/metodi) molto intuitivo e con quattro righe di codice fai tutto....certo se poi pensi che quello che hai usato te sia piu semplice, beh buon lavoro

cmq nella sezione asp di html.it c'è una guida all'upload che usa quello script che è spiegata in ogni parte...oppure basta usare un motore di ricerca qualsiasi per trovare informazioni a riguardo