Salve a tutti, questo script mi dovrebbe permettere di fare l'upload di 7 foto contemporaneamente
con una o massimo due foto funziona, se le metto tutt'e 7 me le inverte, nel senso che se io mettto
nei rispettivi campi: foto1, foto2, foto3, foto4, foto5, foto6, foto7, mi fa l'upload ma quando vado
a riscriverla me li mette nel seguente ordine: foto7, foto4, foto3, foto4, foto5, foto6, foto7.
percorso = "/foto/"
'script per la lettura binaria dei cambi
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)
' Qui recupero il file da uploadare (se presente) foto1
if instr(Intestazione,"foto") > 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
'Qui ricavo l'estensione del file (se presente) per stabilire quale file passa e quale no,
' nel mio caso gif e jpeg se non è di questo tipo mi da l'alert e torna dietro
if NomeFile > "" then
dim arrParti
arrParti=split(NomeFile,".")
dim strEstensione
strEstensione=arrParti(UBOUND(arrParti))
Select Case strEstensione
case "gif","jpeg","jpg"
' Scrivo il file sul server
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
'qui va inserito uno script che controlla il il peso dell'immagine
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
case else
Response.Write "<script language='javascript'>"
response.write "alert('E necessrio inserire solo file di tipo .gif .jpeg .jpg o .bmp');"
response.write "history.back();"
response.write "</script>"
end select
end if
end if
' Qui recupero il file da uploadare (se presente) foto2
if instr(Intestazione,"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
'Qui ricavo l'estensione del file (se presente) per stabilire quale file passa e quale no,
' nel mio caso gif e jpeg se non è di questo tipo mi da l'alert e torna dietro
if NomeFile > "" then
dim arrParti2
arrParti2=split(NomeFile,".")
dim strEstensione2
strEstensione2=arrParti2(UBOUND(arrParti2))
Select Case strEstensione2
case "gif","jpeg","jpg"
' Scrivo il file sul server
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload2 = True
DimensioneFile2 = len(ContenutoFile)
'qui va inserito uno script che controlla il il peso dell'immagine
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
case else
Response.Write "<script language='javascript'>"
response.write "alert('E necessrio inserire solo file di tipo .gif .jpeg .jpg');"
response.write "history.back();"
response.write "</script>"
end select
end if
end if
' ... E' stato messo lo stesso script per altrafoto1,altrafoto2,altrafoto3,altrafoto4 ma solo cambiando
' i campi come ho fatto in foto2...
' Qui recupero il file da uploadare (se presente) altrafoto5
if instr(Intestazione,"altrafoto5") > 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
'Qui ricavo l'estensione del file (se presente) per stabilire quale file passa e quale no,
' nel mio caso gif e jpeg se non è di questo tipo mi da l'alert e torna dietro
if NomeFile > "" then
dim arrParti7
arrParti7=split(NomeFile,".")
dim strEstensione7
strEstensione7=arrParti7(UBOUND(arrParti7))
Select Case strEstensione7
case "gif","jpeg","jpg"
' Scrivo il file sul server
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload7 = True
DimensioneFile7 = len(ContenutoFile)
'qui va inserito uno script che controlla il il peso dell'immagine
EstensioneFile7 = right(ContenutoFile,3)
NomeFile7 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile7), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
case else
Response.Write "<script language='javascript'>"
response.write "alert('E necessrio inserire solo file di tipo .gif .jpeg .jpg');"
response.write "history.back();"
response.write "</script>"
end select
end if
end if
' piccolo debbugger Vediamo come si comporta il programma
Response.Write "nome file1 = "& NomeFile1&"
"
Response.Write "nome file2 = "& NomeFile2&"
"
Response.Write "nome file3 = "& NomeFile3&"
"
Response.Write "nome file4 = "& NomeFile4&"
"
Response.Write "nome file5 = "& NomeFile5&"
"
Response.Write "nome file6 = "& NomeFile6&"
"
Response.Write "nome file7 = "& NomeFile7&"
"
next
%>
Ho messo alla fine del processo dei reponse.write nomefile per tenere sotto controllo il ciclo for
e mi da questo risultato:
nome file1 =
nome file2 =
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto1.gif
nome file2 =
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto1.gif
nome file2 =
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto2.gif
nome file2 = foto2.gif
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto2.gif
nome file2 = foto2.gif
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto2.gif
nome file2 = foto2.gif
nome file3 =
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto3.gif
nome file2 = foto2.gif
nome file3 = foto3.gif
nome file4 =
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto4.gif
nome file2 = foto4.gif
nome file3 = foto3.gif
nome file4 = foto4.gif
nome file5 =
nome file6 =
nome file7 =
nome file1 = foto5.gif
nome file2 = foto4.gif
nome file3 = foto3.gif
nome file4 = foto4.gif
nome file5 = foto5.gif
nome file6 =
nome file7 =
nome file1 = foto6.gif
nome file2 = foto4.gif
nome file3 = foto3.gif
nome file4 = foto4.gif
nome file5 = foto5.gif
nome file6 = foto6.gif
nome file7 =
nome file1 = foto7.gif
nome file2 = foto4.gif
nome file3 = foto3.gif
nome file4 = foto4.gif
nome file5 = foto5.gif
nome file6 = foto6.gif
nome file7 = foto7.gif
nome file1 = foto7.gif
nome file2 = foto4.gif
nome file3 = foto3.gif
nome file4 = foto4.gif
nome file5 = foto5.gif
nome file6 = foto6.gif
nome file7 = foto7.gif
<%
Chiedo scusa se forse ho esagerato col post, grazie ciao.
Rispondi quotando