ciao a tutti.ho un problema con una pagina di upload:è un codice che ho sempre usato e che è sempre andato bene (con le opportune modifiche).
adesso mi da un errore che sinceramente non capisco come poter risolvere:
l'errore che mi da è:codice:<% Response.Buffer = true percorso = "../../../../db/" ByteRicevuti = Request.TotalBytes variabile = 0 if ByteRicevuti > 0 then DatiRicevuti = Request.BinaryRead(ByteRicevuti) For i = 1 To lenB(DatiRicevuti) 'lunghezza DatiRicevuti in binario 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) 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 response.write(percorso&NomeFile1) Set textStream = FSO.CreateTextFile(server.mappath(percorso&NomeFile1), True, False) textStream.Write ContenutoFile 'textStream.Write NomeFile1 textStream.Close Set textStream = Nothing Set FSO = Nothing end if end if next end if Response.Redirect ("list-art.asp") %>
Errore di run-time di Microsoft VBScript error '800a0005'
Chiamata di routine o argomento non validi: 'left'
/demo/Dario-Squeri/admin/upload-foto-process.asp, line 14
dove la linea 14 è quella in rosso
per favore datemi una mano...grazie mille comunque,ciao
![]()

Rispondi quotando