Allora il problema è questo
adopero questo script preso qui ed elaborato nel tempo e i sto sbattendo la testa per capire che cosa devo manipolare per aumentare la capacità di upload dell'immagine che attualmente è di circa 150 Kb
Grazie a chi mi aiuta, un ringraziamento anticipato a Roby ed Andrea che mi hanno sempre soccorso, spero domani mattina di trovare suggerimenti
------------------------------------------------------------------------ > > >
dim Upload1
dim nomeFilemio
dim nomeDescrittivo
Function RSBinaryToString(xBinary)
Dim Binary
If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
Dim RS, LBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)
If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
RSBinaryToString = RS("mBinary")
Else
RSBinaryToString = ""
End If
End Function
Function MultiByteToBinary(MultiByte)
Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
MultiByteToBinary = Binary
End Function
Upload1=false
ByteRicevuti = Request.TotalBytes
response.write(bytericevuti)
on error resume next
if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
FileBinario = RSBinaryToString(DatiRicevuti)
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,"testo1") > 0 then
testo1 = ContenutoFile
end if
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
mioInizioDescr = instr(ArrPezzi(2),"" & vbCrLf & "" & vbCrLf)
mioIntestazioneDescr = left(ArrPezzi(2),mioInizioDescr-1)
mioInizioDescr = mioInizioDescr + len("" & vbCrLf) + len("" & vbCrLf)
mioContenutoFileDescr = mid(ArrPezzi(2),mioInizioDescr,len(ArrPezzi(2))-mioInizioDescr-1)
nomeDescrittivo=mioContenutoFileDescr
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
'EstensioneFile1 = right(ContenutoFile,3)
EstensioneFile1 = right(NomeFile,4)
if (len(NomeFile)-4) > 0 then
NomeFile1 = left(NomeFile,len(NomeFile)-4)
end if
nomef=nomefile1
if instr(ucase(estenzioni),ucase(EstensioneFile1&",") )>0 and nomef<>"" then
call controlla_cartella(percorso)
nomef=replace(nomef,"%20","")
nomef=replace(nomef," ","")
Set textStream = FSO.CreateTextFile(Server.MapPath(percorso) & "/"&nomef&EstensioneFile1, True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
response.Redirect(paginaredir)
else
response.Write("I formati dei files accettati sono .JPG,.JPEG,.GIF,.BMP,.PNG,.JPEG,"&estenzioni&" file non caricato.")
end if
end if
next
End if
set DatiRicevuti=nothing
response.write ("bla bla bla")
Rispondi quotando
).
