upload file

[silvietta1978]

ciao sto combattendo da oggi pomeriggio con l'upload file in asp .
Ho trovato un articolo nel sito html.it dove spiega bene come fare e ho scaricato il codice. Ho verificato il funzionamento nel mio server e non funziona. Ho provato a cercare il problema e mi sono accorta che non esegue la connessione al server.
Praticamente le righe che danno errore (errore 500 del server) sono:

if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Response.write DimensioneFile1
Response.write EstensioneFile1
Response.write NomeFile1
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if

Devo inserire qualche file nel server?

Aiutatemi vi prego!!!!!!!!!!!
Silvia

[avatar]

devi dare i permessi di scrittura sul server nella cartella dove vai a salvare il file

[silvietta1978]

ci sono già
ho verificato

permission 777 (lettura scrittura esecuzione)

[silvietta1978]

questa è bella!!!

ho verifica i permessi tramite smart ftp e sono come vi ho detto sopra.
Poi ho provato ad aggiornare il mio database (sempre con tutti i permessi al massimo) e mi dice:

Cannot update. Database or object is read-only.

/areariservata/agg_articoli.asp, line 42

come è possiblie? Mi devo far modificare qualcosa dal provider?
Ora provo in un altro server...

Non mi abbandonate!!!

[silvietta1978]

ovunque testo il lavoro mi da errore nel trasferimento dei file, e database o oggetto solo in lettura, nel update dei dati nel db.

Cosa faccio, spacco il computer!!!!

[Roby_72]

La var "percorso" cosa contiene?

Roby

[byluciani]

Praticamente le righe che danno errore (errore 500 del server) sono:

l'errore 500 è generico
da IE in strumenti-opzioni internet-avanzate-esplorazione
togli il check a Mostra messaggi di errore HTTP brevi
così IE ti darà più info circa l'errore che viene prodotto durante l'esecuzione dello script

[silvietta1978]

Eccomi dinuovo,
dunque ho fatto impostare i permessi nella cartella dal provider e ora tutto funziona.
Solo una cosa, il codice che ho trovato per fare l'upload mi funziona solo per il primo file, gli altri li ignora. L'ho trovato in un articolo su html.it ed è impostato per l'upload di + files. Qualcuno sa dirmi perché a me ne carica solo uno?

Ecco il codice

<%
'AGGIORNAMENTO FILE ALLEGATI

percorso = "./files/"

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)

'INSERIMENTO ALLEGATI NEL SERVER

if instr(Intestazione,"all_foto1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
Response.write i
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Dim FSO
Dim textStream
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Session("nomefoto1") = NomeFile1
Response.write Session("nomefoto1")
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


if instr(Intestazione,"all_foto2") > 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
Session("nomefoto2") = NomeFile2
Response.write Session("nomefoto2")
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,"all_foto3") > 0 then
i = instr(Intestazione,"filename = ")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
Response.write i

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
Session("nomefoto3") = NomeFile3
Response.write Session("nomefoto3")
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

If Upload1 = true then
Response.Write "
Primo file allegato:" & Session("nomefoto1") & " - " & DimensioneFile1*0.001 & "kb"
End If

If Upload2 = true then
Response.Write "
Secondo file allegato:" & Session("nomefoto2") & " - " & DimensioneFile2*0.001 & "kb"
End If

If Upload3 = true then
Response.Write "
Terzo file allegato:" & Session("nomefoto3") & " - " & DimensioneFile3*0.001 & "kb"
End If

If Upload4 = true then
Response.Write "
Quarto file allegato:" & Session("nomefile1") & " - " & DimensioneFile4*0.001 & "kb"
End If

If Upload5 = true then
Response.Write "
Quinto file allegato:" & Session("nomefile2") & " - " & DimensioneFile5*0.001 & "kb"
End If

End if
%>

[silvietta1978]

Perché in tanti leggete il mio messaggio ma nessuno mi risponde?
Mi avete abbandonato?

Almeno segnalatemi un altro codice che posso utilizzare, considerando che non ci capisco nulla di asp e che devo caricare 5 file!!!!

Silvia

[Roby_72]

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

Roby