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.