upload.asp
codice:
<%
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/pippo.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&carica=nullo")
elseif err.Number <> 0 then
response.write("Errore su upload, verificare il server!")
end if
if request.querystring("conf")="ok" then
response.write(request.querystring("conf"))
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
%>
appoggio.asp
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?conf=ok";
alert("File sovrascritto!");
}
else{
alert("Nessun file sovrascritto!!");
window.location.href="<%=(session("sssUtente")&"/"&session("sssUtente")&".asp?pass")%>"
}
}
</script>
a quanto pare ho tolto l'errore di sintassi ma non quello di logica.
ho fatto una prova (vedi zona blu) esce come ok, quindi esegue la parte rossa ma non sovrascrive veramente il file! da che cosa può dipendere? :master: