<%
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="../public"&Session("sssUtente") & "/" & session("sssUtente") & ".asp"
percorso = "../mdb-database/"&session("sssUtente")
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath(server.mapPath(percorso))
oUpload.Upload
'oUpload.PrintStatus "List"
If oUpload.Count > 0 then
Origin_Name = oUpload.GetHTTPPathFile()
oUpload.Save()
If oUpload.Files("FileExists")=True then
%>
<script language='javascript'>
var FileName = "<%=oUpload.GetHTTPPathFile()%>"
var Rename = "<%=Origin_Name %>"
var url = "?file="+FileName+"&rename=" + Rename + "&upload="
if (confirm("Esiste un file con lo stesso nome. Sovrascriverlo ? "))
url+="OVERWRITE"
else
url+="DELETE"
self.location.href=url
</script>
<%
Else
filename = oUpload.GetFileName()
Response.Write("")
End if
End if
Set oUpload=Nothing
ElseIf Request("Upload")="OVERWRITE" then
Response.Write "Qui rinomini il file " & Request("file") & " in: " & Request("rename")
Response.End
ElseIf Request("Upload")="DELETE" then
Response.Write "Qui cancelli questo file : " & Request("file")
Response.End
end if
%>
<%
if request.querystring("fase")="seconda" then
response.write "<SCRIPT>window.setTimeout(""location.href='"&pagi na_di_destinazione&"';"",'3000');</SCRIPT>"
end if
%>
<FORM ACTION="?fase=seconda" METHOD="Post" enctype="multipart/form-data" name="form" id="form">
<p align="center">
UPLOAD
FILE:
<INPUT TYPE="file" NAME="Campo1" size="20">
<INPUT NAME="Enter" TYPE="submit" value="INVIA">
</FORM>
non funziona...
Rispondi quotando
