Numerare file a seguito di upload

[fraude]

dunque...

1) Non mi disturbi;
2) Dammi pure del tu;
3) Devo cercare tra i vecchi script in quanto ho abbandonato lo sviluppo in ASP Classic 3 da qualche anno ed adesso sviluppo in C# (sharp) net 4 (pagine web con estensione aspx per capirci).
4) Lasciami qualche giorno per ritrovare questo script ti risponderò sul forum.

PS: se sei all'inizio con ASP Classic 3, lascialo stare studiati meglio ASP.NET in C# o VB

[gigi73pc]

Grazie, sei molto gentile.
Non sei il primo che mi parla di net, ma ho un pò paura diciamo, a cambiare...

[gigi73pc]

PERDONAMI, SEI RIUSCITO A TROVARE QUALCOSA?
GRAZIE

[fraude]

Originariamente inviato da gigi73pc
PERDONAMI, SEI RIUSCITO A TROVARE QUALCOSA?
GRAZIE

Purtroppo no.
Posta qui la pagina completa che stai provando ad utilizzare.

[fraude]

Scarica lo script completo da qui:
https://www.streamfile.com/download/IoWCwoNt1vla/

[gigi73pc]

Grazie x l'aiuto, sono veramente disperato.

Il codice arriva da UPLOAD FREE ASP
L'ho modificato un pochino
c'è il dbase che recupera il nome del file
quello che non riesco a fare è:
se il file che viene salvato sul server ha nome xx,xx prima deve controllare se il nome esiste gia, in caso affermativo rinomina il file, altrimenti salva .
A me non interessa che faccia la conta, ad es: xx1, xx2 ecc
a me serve solo che una volta che carico una foto non mi cancelli quella che gia esiste.
Avevo pensato anche a dare io un nome casuale alle foto, ma non sono riuscito a fare neanche questo.
Se riesci a darmi una mano, te ne sono grato!

ecco il codice

<%
option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
' All communication must be in UTF-8, including the response back from the request
Session.CodePage = 65001
%>

<%


Dim uploadsDirVar
uploadsDirVar = "C:\Inetpub\wwwroot\out\public\foto"


function OutputForm()
%>
<form name="frmSend" method="POST" enctype="multipart/form-data" accept-charset="utf-8" action="inserisci_fotoauto.asp" onSubmit="return onSubmitForm();">
File names:

File 1: <input name="attach1" type="file" size=35>

<input name="gigi" type="hidden" value="<%Request.QueryString("id_auto")%>" />


<input style="margin-top:4" type="submit" value="Upload">
</form>
<%
end function

function TestEnvironment()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(uploadsDirVar) then
TestEnvironment = "La cartella " & uploadsDirVar & " non esiste
Contatta l'amministratore"
exit function
end if
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextFile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "La cartella " & uploadsDirVar & " non ha i permessi di scritture.
Contatta l'amministratore."
exit function
end if
Err.Clear
testFile.Close
fso.DeleteFile(fileName)
If Err.Number<>0 then
TestEnvironment = "La cartella " & uploadsDirVar & " non ha i permessi per cancellare,Contatta l'amministratore."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "Il ADODB object Stream non funziona sul tuo server.
Contatta l'amministratore."
exit function
end if
Set streamTest = Nothing
end function

function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, primo

Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)

' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function

SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = response.Write("riepilogo" &codificami)'qui devi togliere se vuoi
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
primo=Upload.UploadedFiles(fileKey).FileName

next
else
SaveFiles = "Non hai selezionato un file corretto"
end if
'SaveFiles = SaveFiles & "
ciciciciciic = " & Upload.Form("enter_a_number") & "
"
'SaveFiles = SaveFiles & "Checkbox values = " & Upload.Form("checkbox_values") & "
"
'SaveFiles = SaveFiles & "List values = " & Upload.Form("list_values") & "
"
'SaveFiles = SaveFiles & "Text area = " & Upload.Form("t_area") & "
"



dim conn, sql, codificami, gigio
gigio=CInt(Request.Form("gigi"))
codificami=CInt(Request.QueryString("id_auto"))

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("..\mdb-database\dati.mdb")
sql = "INSERT into Foto (id_foto, url) VALUES('"&gigi&"', '"&primo&"')"

conn.execute(sql)
conn.close
Set conn=nothing


end function
%>

[gigi73pc]

ho provato ma niente!

[gigi73pc]

vuoi che posti anche il file upload?

[fraude]

il file che ti ho postato fa esattamente quello che desideri, devi solo personalizzarlo alle tue esigenze.

[gigi73pc]

Ho provato in tutte le salse, ma non sono riuscito a farlo funzionare.