upload

[gianniserena]

Chiedo un'informazione ...

Ho creato il un'upload di immagini da un form, ma quando ho due file con lo stesso nome il file viene sovrascritto.

è possibile fare un controllo del tipo...

IF nomefile="esiste già nel percorso" allora
alert"rinomina il file"
end if


grazie !

[Baol74]

si, è possibile

[Roby_72]

Si si può fare ma quando se ne accorge il file è già stato scritto...
Ti conviene rinominare il file sempre prima di inserirlo, magari avendo come riferimento l'orario.
Poi dipende dal componente che usi per l'upload. Potresti impostare il divieto di overwrite...

Roby

[gianniserena]

il mio problema è che il portale è pubblico ed oltre ad uploadare la foto, viene messa anche in un DB

quindi dovrei rinominarla come

foto.jpg

diventa

foto200505191553.jpg

file+data+ora

altrimenti si può fare qualcosa per avviare che il file siste già ?

[Roby_72]

Se usi questo sistema sei a posto: foto200505191553.jpg

Roby

[gianniserena]

io ho una pagina con un form chiamata inserimento_scheda.asp
qui c'è la pagina carica_immagine.asp che permette il caricamento da disco e chiama la pagina upload.asp
a quel punto è già uplodata e come faccio a rinominarla prima ?

[Roby_72]

La devi rinominare mentre fai l'upload.

Roby

[gianniserena]

come faccio a farglielo fare in automatico

[Roby_72]

Come fai l'upload?

Roby

[gianniserena]

<%
' Author Philippe Collignon
' Email PhCollignon@email.com

Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filen ame="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) Then
'Get Filename, content-type and content of file
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
'Add filename to dictionary object
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
'Add content-type to dictionary object
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
'Get content of object
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
'Get content of object
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
'Add content to dictionary object
UploadControl.Add "Value" , Value
'Add dictionary object to main dictionary
UploadRequest.Add name, UploadControl
'Loop to next object
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),Requ estBin,boundary)
Loop

End Sub

'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

'Byte string to string conversion
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
%>