Carissimi,
a questo script ho impostato la dimensione del file (audio mp3) da fare tramite upload (max 50000), lo sto testando ma caricando un file superiore mi fà errore:
Active Server Pages error 'ASP 0113'
Script timed out
c'è qualche mio errore nello script? Oppure c'è un'alternativa per effettuare questo controllo a monte al fine di non attendere il caricamento per poi darmi l'errore?
Graziecodice:<% Session.Timeout=1000 %> <% Dim objFS,objFolder,objFile Set objFS = Server.CreateObject("Scripting.FileSystemObject") percorso = Server.MapPath("/audio/") Set objFolder = objFS.GetFolder(""&percorso&"") Set Upload = Server.CreateObject("Persits.Upload") Upload.SetMaxSize 50000, True Count = Upload.Save (percorso) ' This is needed to enable the progress indicator Set File = Upload.Files("file1") If Not File Is Nothing Then filename=File.FileName estensione=file.ext estensione_ammessa=".mp3" if lcase(estensione_ammessa)<>estensione_ammessa then file.delete %> <BODY bgcolor="#F7F7F7"> <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="caricaaudio1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p> <% else nuovo_filename="audio3_"& request.querystring("id") & file.ext &"" If Err.Number = 8 Then %> <BODY bgcolor="#F7F7F7"> <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione non ammessa!</font></p><p align="center"><FORM action="caricaaudio1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p> <% Else if objFS.FileExists(Server.MapPath("/audio/"&nuovo_filename&"")) then objFS.DeleteFile (Server.MapPath("/audio/"&nuovo_filename&"")) end if Dim fsoMyFile Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") fsoMyFile.MoveFile (Server.MapPath("/audio/"&filename&"")), (Server.MapPath("/audio/"&nuovo_filename&"")) Set fsoMyFile = nothing Response.redirect("caricamentoOK.asp?id=" & request.querystring("id") &"&file="&nuovo_filename&"") end if End If end if %>
G.
Rispondi quotando
