Visualizzazione dei risultati da 1 a 9 su 9
  1. #1
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630

    upload 3 file da rinominare

    Utilizzo questo script per fare l'upload di un file con relativo testo, però per caricare e rinominare un singolo file..
    Ora se invece di un solo file (file1) vorrei caricarne 3, come faccio a far rinominare ognuno dei 3 file caricati?
    Grazie
    G.
    codice:
    Dim objFS,objFolder,objFile 
    Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
    percorso = Server.MapPath("/public/admin/banners_box/") 
    Set objFolder = objFS.GetFolder(""&percorso&"") 
    
    Set Upload = Server.CreateObject("Persits.Upload") 
    
    Upload.Save (percorso) 
    
    Set File = Upload.Files("file1") 
    
    If Not File Is Nothing Then 
    
    dimensione=file.Size 
    filename=File.FileName 
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if lcase(estensione)<>estensione_ammessa then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    
    nuovo_filename=""& request.querystring("id") & "_bannerbox-1_1"& file.ext &"" 
    
    if objFS.FileExists(Server.MapPath("/public/admin/banners_box/"&nuovo_filename&""))=true then 
    objFS.DeleteFile (Server.MapPath("/public/admin/banners_box/"&nuovo_filename&"")) 
    end if
    
    
    if objFS.FileExists(Server.MapPath("/public/admin/banners_box/"&filename&""))=true and objFS.FileExists(Server.MapPath("/public/admin/banners_box/"&nuovo_filename&""))=false then 
    objFS.MoveFile (Server.MapPath("/public/admin/banners_box/"&filename&"")), (Server.MapPath("/public/admin/banners_box/"&nuovo_filename&"")) 
    end if
    
    sql = "SELECT * FROM admin WHERE id = " & request.querystring("id") &" "
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
    
    link = Upload.Form("link1_1").Value
    
    rs.Fields("link1_1") = "" & link & "" 
    
    rs.update	
    
       Response.redirect("caricamentoOK.asp?id=" & request.querystring("id") &"&file="&nuovo_filename&"") 
    end if 
    end if 
    end if

  2. #2
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    O fai una

    For each file In Upload.Files
    ....

    e recuperi i file dalla collection senza leggerne il "name" dell'input oppure duplichi per tre volte quanto hai scritto dopo

    Upload.Save (percorso)

    facendo attenzione però a scrivere, di volta in volta:
    Set File = Upload.Files("file1")
    Set File = Upload.Files("file2")
    Set File = Upload.Files("file3")

    Roby

  3. #3
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    Grazie roby,
    ma i file li carica ma non me li rinomina.
    Però ho anche il problema di inserire nel db il nome di ogni file caricato... come
    puoi vedere.
    Da dove lo prendo?
    Ecco lo script modifcato completo.

    codice:
    Dim objFS,objFolder,objFile 
    Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
    percorso = Server.MapPath("/public/admin/fotonews/") 
    Set objFolder = objFS.GetFolder(""&percorso&"") 
    
    Set Upload = Server.CreateObject("Persits.Upload") 
    
    Upload.ProgressID = Request.QueryString("PID")
    
    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=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    codice1 = "" 
    Randomize ' 
    
    Do Until len(codice1) = 8 ' 
        carattere = Int((37*Rnd) + 3) ' 
        codice1 = codice1 & Mid(caratteri,carattere,1)
    Loop
    
    nuovo_filename=""& codice1 & "_news_1_"& file.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile In objFolder.Files 
    if nuovo_filename=""&objFile.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename=""& codice1 & "_news_1_"& cont & file.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    Dim fsoMyFile 
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename&"")) 
    Set fsoMyFile = nothing 
    
    Set File = Upload.Files("file2") 
    
    
    If Not File Is Nothing Then 
    filename=File.FileName
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    codice2 = "" 
    
    Randomize ' 
    
    Do Until len(codice2) = 8 ' 
        carattere = Int((37*Rnd) + 3) ' 
        codice2 = codice2 & Mid(caratteri,carattere,1)
    Loop
    
    nuovo_filename=""& codice2 & "_news_2_"& file.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile In objFolder.Files 
    if nuovo_filename=""&objFile.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename=""& codice2 & "_news_2_"& cont & file.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename&"")) 
    Set fsoMyFile = nothing 
    
    Set File = Upload.Files("file3") 
    
    If Not File Is Nothing Then 
    filename=File.FileName
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    codice3 = "" 
    
    Randomize ' 
    
    Do Until len(codice3) = 8 ' 
        carattere = Int((37*Rnd) + 3) ' 
        codice3 = codice3 & Mid(caratteri,carattere,1)
    Loop
    
    nuovo_filename=""& codice3 & "_news_3_"& file.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile In objFolder.Files 
    if nuovo_filename=""&objFile.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename=""& codice3 & "_news_3_"& cont & file.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename&"")) 
    Set fsoMyFile = nothing 
    
    sql = "SELECT * FROM news WHERE id LIKE '%" & id & "%'" 
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
    
    
    rs.AddNew
    
    dataora = Upload.Form("data").Value
    categoria = Upload.Form("categoria").Value
    titolo = Upload.Form("titolo").Value
    testo = Upload.Form("testo").Value
    foto1 = primo
    foto2 = secondo
    foto3 = terzo
    
    rs.Fields("dataora") = "" & dataora & "" 
    rs.Fields("categoria") = "" & categoria & "" 
    rs.Fields("titolo") = "" & titolo & "" 
    rs.Fields("testo") = "" & testo & "" 
    rs.Fields("foto1") = "" & nuovo_filename & ""
    rs.Fields("foto2") = "" & nuovo_filename & ""
    rs.Fields("foto3") = "" & nuovo_filename & ""
    
    rs.update
    Grazie
    g.

  4. #4
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    così funziona ma sono costretto a caricare sempre 3 immagini, se ne volessi caricare solo 1 oppure 2 al caricamento mi viene pagina bianca, potete aiutarmi?

    codice:
    Dim objFS,objFolder,objFile 
    Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
    percorso = Server.MapPath("/public/admin/fotonews/") 
    Set objFolder = objFS.GetFolder(""&percorso&"") 
    
    Set Upload = Server.CreateObject("Persits.Upload") 
    
    Upload.ProgressID = Request.QueryString("PID")
    
    Count = Upload.Save (percorso) 
    
    ' This is needed to enable the progress indicator 
    Set File1 = Upload.Files("file1") 
    
    If Not File1 Is Nothing Then 
    filename=File1.FileName
    estensione=file1.ext 
    
    estensione_ammessa=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    
    nuovo_filename1=""& request.querystring("code") & "_news_foto1"& file1.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile1 In objFolder.Files 
    if nuovo_filename1=""&objFile1.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename1=""& request.querystring("code") & "_news_foto1_"& cont & file1.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    Dim fsoMyFile 
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&"")) 
    Set fsoMyFile = nothing 
    
    Set File2 = Upload.Files("file2") 
    
    
    If Not File2 Is Nothing Then 
    filename=File2.FileName
    estensione=file2.ext 
    
    estensione_ammessa=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    
    nuovo_filename2=""& request.querystring("code") & "_news_foto2_"& file2.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile2 In objFolder.Files 
    if nuovo_filename2=""&objFile2.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename2=""& request.querystring("code") & "_news_foto2_"& cont & file2.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&"")) 
    Set fsoMyFile = nothing 
    
    Set File3 = Upload.Files("file3") 
    
    If Not File3 Is Nothing Then 
    filename=File3.FileName
    estensione=file3.ext 
    
    estensione_ammessa=".jpg" 
    estensione_ammessa2=".JPG" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if estensione<>estensione_ammessa and estensione<>estensione_ammessa2 then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    nuovo_filename3=""& request.querystring("code") & "_news_foto3_"& file3.ext &"" 
     
    
    cont=0 
    check=1 
    
    Do 
    check=0 
    cont=cont+1 
    
    For Each objFile3 In objFolder.Files 
    if nuovo_filename3=""&objFile3.Name&"" then 
            check=1 
            response.write nuovo_filename&"
    " 
            nuovo_filename3=""& codice3 & "_news_foto3_"& cont & file3.ext &""
    end if 
    
    Next 
    
    loop until check=0 
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&"")) 
    Set fsoMyFile = nothing 
    
    sql = "SELECT * FROM news WHERE id LIKE '%" & id & "%'" 
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
    
    
    rs.AddNew
    
    dataora = Upload.Form("data").Value
    categoria = Upload.Form("categoria").Value
    titolo = Upload.Form("titolo").Value
    testo = Upload.Form("testo").Value
    foto1 = ""&nuovo_filename1&""
    foto2 = ""&nuovo_filename2&""
    foto3 = ""&nuovo_filename3&""
    code = Upload.Form("code").Value
    
    rs.Fields("dataora") = "" & dataora & "" 
    rs.Fields("categoria") = "" & categoria & "" 
    rs.Fields("titolo") = "" & titolo & "" 
    rs.Fields("testo") = "" & testo & "" 
    rs.Fields("foto1") = "" & foto1 & ""
    rs.Fields("foto2") = "" & foto2 & ""
    rs.Fields("foto3") = "" & foto3 & ""
    rs.Fields("code") = "" & code & ""
    
    rs.update	
    
      
    Response.redirect("form_news_ok.asp?code=" & request.querystring("code") &"") 
    end if 
    end if 
    end if
    end if
    end if
    end if 
    end if
    end if
    end if
    Grazie
    G.

  5. #5
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    Nessuno può aiutarmi?

  6. #6
    Moderatore di ASP e MS Server L'avatar di Roby_72
    Registrato dal
    Aug 2001
    Messaggi
    19,559
    Cerca di capire quale giro faccia lo script quando carichi solo un file.
    Interrompi l'esecuzione.

    Roby

  7. #7
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    Capito grazie...
    Ho notato però che se carico un 2/3 file con stesso nome (iniziale prima di rinominarlo)
    ho questo errore

    FILE NOT FOUND.............

    alla riga
    codice:
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&""))
    Dove sbaglio?
    Ripubblico il codice completo
    codice:
    Dim objFS,objFolder,objFile 
    Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
    percorso = Server.MapPath("/public/admin/fotonews/") 
    Set objFolder = objFS.GetFolder(""&percorso&"") 
    
    Set Upload = Server.CreateObject("Persits.Upload") 
    
    Upload.ProgressID = Request.QueryString("PID")
    
    Count = Upload.Save (percorso) 
    
    ' This is needed to enable the progress indicator 
    Set File = Upload.Files("file1") 
    
    If Not File Is Nothing Then 
    dimensione=file.Size 
    filename=File.FileName
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if lcase(estensione)<>estensione_ammessa then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    
    nuovo_filename1=""& request.querystring("code") & "_news_foto1"& file.ext &"" 
    
    if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&""))=true then 
    objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&"")) 
    end if
    
    Dim fsoMyFile 
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename1&"")) 
    Set fsoMyFile = nothing 
    
    end if
    end if
    end if
    
    Set File = Upload.Files("file2") 
    
    If Not File Is Nothing Then 
    dimensione=file.Size 
    filename=File.FileName
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if lcase(estensione)<>estensione_ammessa then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    
    nuovo_filename2=""& request.querystring("code") & "_news_foto2"& file.ext &"" 
     
    if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&""))=true then 
    objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&"")) 
    end if
    
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename2&"")) 
    Set fsoMyFile = nothing 
    
    end if
    end if
    end if
    
    Set File = Upload.Files("file3") 
    
    If Not File Is Nothing Then 
    dimensione=file.Size 
    filename=File.FileName
    estensione=file.ext 
    
    estensione_ammessa=".jpg" 
    dimensione_ammessa= 5210000 'questa dimensione è in byte. 
    
        If dimensione< 1024 Then 
                dimensione_file = Round(dimensione,2) & " Bytes" 
          ElseIf dimensione< 1048576 Then 
                dimensione_file= Round(dimensione/1024,2) & " KB" 
          Else 
                dimensione_file= Round(dimensione/1048576,2) & " MB" 
          End If 
    
    if dimensione>dimensione_ammessa then 
    %>
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha una dimensione superiore ai 5mb!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    
    <%
    else 
    
    if lcase(estensione)<>estensione_ammessa then 
    file.delete 
    
    %>
    
    
    
    
    
    <p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</font></p><p align="center"><FORM action="../carica_banner1_1.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
    <%
    
    else 
    nuovo_filename3=""& request.querystring("code") & "_news_foto3"& file.ext &"" 
    
    if objFS.FileExists(Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&""))=true then 
    objFS.DeleteFile (Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&"")) 
    end if
    
    
    Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
    fsoMyFile.MoveFile (Server.MapPath("/public/admin/fotonews/"&filename&"")), (Server.MapPath("/public/admin/fotonews/"&nuovo_filename3&"")) 
    Set fsoMyFile = nothing 
    
    end if
    end if
    end if
    Grazie
    G.

  8. #8
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    Potete aiutarmi?
    Grazie

  9. #9
    Utente di HTML.it
    Registrato dal
    Jul 2005
    Messaggi
    2,630
    nessuno può aiutarmi?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.