Riconoscere immagine già esistente sul server

[bibuz]

Salve ragazzi ho una magagna da sbloccare.
Devo uploadare delle immagini su un server (Aruba) e fin qui non ho problemi.
Uso l'upload di Aruba leggermente modificato per far si che le immagini me le mette dentro le cartelle che voglio io.

Ora il problema è questo.
Alla fine dell'upload mi dice che il file pippo.jpg è stato caricato.
Ora se uno dopo di me carica un'immagine con lo stesso nome me la va a sovrascrivere.

Vorrei fare in modo che in caso di immagine già esistente gli da un'altro nome tipo e me lo mostra nella pagina del risultato.
Ecco lo script che uso:

<%
Dim folder
folder = "/public/repliche"          'quì indichi il percorso dell'upload


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("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("blob").Item("Value")


'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
For i = 1 to LenB(value)
	MyFile.Write chr(AscB(MidB(value,i,1)))
Next
 
MyFile.Close
%>

C'è una soluzione al problema?

[pasaran]

non puoi modificarlo comunque a prescindere se esiste o meno dandogli un nome che sei sicuro sia univoco?

[maxolino]

Ciao,
io ho risolto un problema simile facendo un controllo prima sull'esistenza del file, se è presente metto un ciclo, e testo pippo_1, pippo_2, e così via.

E infine, al primo nome disponibile sostituisco quello della foto con quello.


Spero possa esserti utile.

[bibuz]

Ma il mio problema è questo.

ho caricato ul forum phpBB e li non ho la possibilità di base di inserire le immagini solo da URL.

Poichè le immagini vengono caircate dagli utenti io non ho la certezza che il nome sia univoco e ne posso dire all'utente che carica la sua immagine per la prima volta che il file già è presente altrimenti andrebbe in confusione.

Ecco perchè a me serviva che sul server le immagini prendessero un loro nome (Esempio: 01.jpg) e ogni immagine nuova andava ad aumentare in maniera progressiva il nome dei file.
(Esempio: 01.jpg, 02.jpg....)

[pasaran]

hai un database?
puoi usare un campo sequence o autoincrement (a seconda del database che usi) che ti funge da contatore garantendoti l'univocità del nome del file.

[bibuz]

Purtroppo il database è quelle del forum phpBB (MySql) e se ci metto le mani faccio sicuramente dei danni.

:master:

[Santino83_02]

function setNome(nome)
dim nnome

set fso=server.createobject("scripting.filesystemobject")

nnome=nome

if fso.fileExists(server.mappath("tuapath/" & nnome)) then

    randomize
    nnome=int(6666*rnd()) & "_" & nome

    nnome=setNome(nnome)

end if

set fso=nothing

setNome=nnome
end function

  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  NOME_FILE=setNome(filename)