upload 3 file da rinominare

**djjunior** · 24-02-2011, 15:58

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

**Roby_72** · 24-02-2011, 16:32

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

**djjunior** · 24-02-2011, 18:27

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.

**djjunior** · 24-02-2011, 20:32

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.

**djjunior** · 24-02-2011, 23:56

Nessuno può aiutarmi?

**Roby_72** · 25-02-2011, 11:20

Cerca di capire quale giro faccia lo script quando carichi solo un file.
Interrompi l'esecuzione.

Roby

**djjunior** · 25-02-2011, 14:26

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.

**djjunior** · 25-02-2011, 19:02

Potete aiutarmi?
Grazie

**djjunior** · 26-02-2011, 10:22

nessuno può aiutarmi?

Discussione: upload 3 file da rinominare

Strumenti discussione

Ricerca discussione

Visualizza

upload 3 file da rinominare

Permessi di invio