upload.asp
appoggio.aspcodice:<% On Error resume Next dim utente utente = "" dim password password = "" if Session ("sssUtente") = utente or Session("sssPassword") = password then response.redirect("password.asp?errore=1") end if %> <% if request.querystring("fase")="seconda" then dim pagina_di_destinazione pagina_di_destinazione=Session("sssUtente") & "/" & session("sssUtente") & ".asp" percorso = "C:/Inetpub/pipponet.it/password/"&session("sssUtente")&"/" 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) 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 Set textStream = FSO.CreateTextFile(percorso & NomeFile1, False, False) textStream.Write ContenutoFile textStream.Close Set textStream = Nothing Set FSO = Nothing end if end if next If Upload1 = true then Response.Write " La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb" Response.Write " Grazie di aver inviato il tuo file" End If End if end if if Err.Number = 424 then response.redirect("appoggio.asp?upload=1") elseif err.Number <> 0 then response.write("Errore su upload, verificare il server!") end if if request.querystring("conferma")=true then Set textStream = FSO.CreateTextFile(percorso & NomeFile1, true, False) textStream.Write ContenutoFile textStream.Close Set textStream = Nothing Set FSO = Nothing end if %> <form action="upload.asp?fase=seconda&x=false" method="post" enctype="multipart/form-data"> FILE <input type="file" name="file1" size="20"> <input type="submit" value="Upload"> </form> <% if request.querystring("fase")="seconda" then response.write "<SCRIPT>window.setTimeout(""location.href='"&pagina_di_destinazione&"';"",'3000');</SCRIPT>" end if %>
codice:<% dim utente utente = "" dim password password = "" if Session ("sssUtente") = utente or Session("sssPassword") = password then response.redirect("password.asp?errore=1") end if %> <script> if ('<%=request.querystring("fase")%>'=='terza') { alert("Attenzione, errore nell'inserimento utente e/o password"); window.location.href="pippo.asp"; } </script> <script> if ('<%=request.querystring("elimina")%>'=='ok'){ var conferma = confirm("Confermi cancellazione file?"); if (conferma) window.location.href="appoggio.asp?carica=true"; else alert("Nessun file cancellato!"); window.location.href="appoggio.asp?carica=false"; } </script> <% if request.querystring("carica")=true then response.redirect(session("sssUtente")&"/"&session("sssUtente")&".asp?confermato=si") elseif request.querystring("carica")=false then response.redirect(session("sssUtente")&"/"&session("sssUtente")&".asp?pass") end if %> <script> if ('<%=request.querystring("upload")%>==1){ var conferma = confirm("Sovrascrivi file?"); if (conferma) window.location.href="upload.asp?conferma=true"; else alert("Nessun file cancellato!"); window.location.href="<%=(session("sssUtente")&"/"&session("sssUtente")&".asp?pass")%> } </script>
Il problema è nella parte in rosso, non riesco a visualizzare la conferma per sovrascrivere il file riporta alla pagina di destinazione senza nessun risultato!

Rispondi quotando
- succube della Honda 

(x non parlare della vita)
