Upload controllato

[seaside]

Salve a tutti

gestisco un sito in cui i visitatori debbono iscriversi tramite form in cui compare anche un campo foto facoltativo.

Grazie ad una azzeccata campagna pubblicitaria intrapresa dal mio cliente, da più di un mese mi ritrovo ad avere un bel problema: le foto caricate dai visitatori sono talmente tante (1000 circa al mese) che si vengono continuamente a sovrascrivere, visto che i nomi usati dai visitatori, salvo eccezioni, sono spesso gli stessi (foto, io, me, nome, ecc...)

Ho cercato su Internet e ho trovato il modo di disabilitare la sovrascrittura al momento dell'upload, ma non voglio che questo crei un errore, bensì vorrei poter creare un algoritmo che gestisca e modifichi il nome della foto caricata.

Ad esempio:

1. nominare le foto con un numero progressivo;
2. creare un nome difficilmente riproducibile (nomeutente + cognomeutente + annodinascita)


Qualcuno può darmi una mano?
Grazie mille

[Roby_72]

Se gli utenti sono registrati basta mettere:

id_data_ora(compresi i secondi).jpg

Roby

[seaside]

Grazie Roby ma il problema non è l'algoritmo da seguire (come hai letto anch'io ne avevo individuati due), ma come realizzare ciò

In ogni caso gli utenti non sono registrati, è un modulo fine a sè stesso. Vorrei che al momento dell'upload la foto "nome_foto.jpg" diventasse "nuovo_nome_in_base_ad_algoritmo.jpg"

Possibile?

[Roby_72]

Si ma devi memorizzarti da qualche parte le stringhe estratte dalla funzioncina random.
Cerca nel forum come fare una funzione che estragga un certo numero di caratteri.

Roby

[seaside]

In pratica (nel form il campo file ha attributo name="miofile" e la cartella di upload è chiamata "pub"):

<%

Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("miofile").Item("ContentType")
filepathname = UploadRequest.Item("miofile").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("miofile").Item("Value")

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(server.MapPath("\pub") & "\" & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

%>

Dove e come dovrei inserire la funzioncina?
Grazie

[seaside]

Prima di questa riga

Set MyFile = ScriptObject.CreateTextFile(server.MapPath("\pub") & "\" & filename)

ho inserito la funzione che dà un nuovo nome al filename in base all'algoritmo e il file caricato nella cartella prenderà quel nome lì a prescindere dal nome di partenza.

Sorry, pensavo fosse qualcosa di più complicato