le due pagine del mio upload sono queste:
che script inserisco per far si che dopo premuto il tasto INVIO mi esca una scritta (in una pagina di "attesa") loading o un testo con scritto "attendere..."?
form.asp:
codice:<html> <head> <title>Upload immagini</title> <link rel="stylesheet" href="../include/ecommerce.css"> </head> <body bgcolor="#EFEFEF"> <center> <form method="POST" enctype="multipart/form-data" action="upload.asp" style="background-color: #EFEFEF; color: #0000FF"> <input type="hidden" name="azione" value="upload"> <table border="0" width="500" cellspacing="0"> <tr> <td align="center" bgcolor="#000080"> <table border="0" width="500" bgcolor="#FFFFEC" cellspacing="0" cellpadding="0" height="132"> <tr> <td width="100%" colspan="2" align="center" height="42">Carica immagini gif dal tuo PC al tuo negozio.</td> </tr> </center> <tr> <td width="80" align="center" height="25"> <p align="right">File:</p> </td> <center> <td width="300" height="25"><input type="file" name="blob" size="40"></td> </tr> <tr> <td width="100%" colspan="2" align="center" height="65"> <input type="submit" name="enter" value=" Invio "> </td> </tr> </table> </center> </td> </tr> </table> </form> </body> </html>
upload.asp:
codice:<% Response.Expires = 0 Response.Buffer = TRUE 'Response.Clear %> <% 'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader Dim Uploader, File Set Uploader = New FileUploader 'Impostiamo la dimensione max del file in byte Uploader.maxSize = 50000 '50kb 'Impostiamo il tipo di file ammessi Uploader.fileExt = "jpg, gif, btm" 'Iniziamo il processo di upload Uploader.Upload() 'Visualizziamo i file caricati %> <html> <head> <title>Upload immagini</title> <link rel="stylesheet" href="../include/ecommerce.css"> </head> <body bgcolor="#EFEFEF"> <center> <form action="form_upload.asp"> <table border="0" width="500" bgcolor="#000080" cellspacing="1" cellpadding="0"> <tr> <td width="100%"> <table border="0" width="100%" bgcolor="#FFFFEC" cellspacing="0" cellpadding="0" height="234"> <tr> <td width="100%" height="37"> <p align="center">File jpg caricati.</p> </td> </tr> <% strPath = Server.MapPath("\public\negozio") & "\" 'Controlliamo se sono stati inviati dei file If Uploader.Files.Count = 0 Then %> <tr> <td width="100%" height="18"><font color="#000080" size="2" face="Tahoma">Nome file:Nessun file inviato.</font></td> </tr> <% If Uploader.Error Then %> <tr> <td width="100%" height="18"><font color="#000080" size="2" face="Tahoma">Errore:<%=Uploader.ErrorDesc%></font></td> </tr> <% End If Else 'Ciclo tra i file inviati For Each File In Uploader.Files.Items 'Salvo il file File.SaveToDisk strPath 'Mostriamo i dettagli dei file salvati %> <tr> <td width="100%" height="18"><font color="#000080" size="2" face="Tahoma">Nome file:<%=File.FileName%></font></td> </tr> <tr> <td width="100%" height="18"><font color="#000080" size="2" face="Tahoma">Dimensioni:<%=File.FileSize%>byte</font></td> </tr> <tr> <td width="100%" height="18"><font color="#000080" size="2" face="Tahoma">Tipo:<%=File.ContentType%></font></td> </tr> <% Next End If %> <tr> <td width="100%" height="21"></td> </tr> <tr> <td width="100%" align="center" height="65"><input type="submit" name="enter" value="Carica un altro file"> <p align="center">quando hai finito chiudi questa finestra</p></td> </tr> <tr> <td width="100%" height="21"></td> </tr> </table> </td> </tr> </table> </form> <% Set Uploader = Nothing Dim objFSO, objFolder, objFile Set objFSO = server.createobject("scripting.filesystemobject") Set objFolder = objFSO.getfolder(strpath) For Each objFile in objFolder.Files Response.Write " <font color='#000080' size='2' face='Tahoma'>" & objfile.name & " - " & objFile.DateCreated & " - " Response.Write objfile.size & " byte - " & objfile.type & "</font>" Next set objfolder = Nothing set objfso = nothing %> </center> </body> </html>
Rispondi quotando
