da un nome ad un altro

[syndr0me]

ho un file asp che mi permette di uplodare un file sul server, a me servirebbe aggiungere del codice che mi permette una volta caricato il file di rinominarlo automaticamente.
Esempio:
carico il file prova.jpg e lui una volta finito l'upload lo trasforma in miaprova.jpg

Di seguito il file che mi permette l'upload del file:

<%Sub BuildUploadRequest(RequestBin)    
    PosBeg = 1
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    boundaryPos = InstrB(1,RequestBin,boundary)
    Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
        Dim UploadControl
        Set UploadControl = CreateObject("Scripting.Dictionary")
        Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-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("filename="))
        PosBound = InstrB(PosEnd,RequestBin,boundary)
        If  PosFile<>0 AND (PosFile<PosBound) Then
            PosBeg = PosFile + 10
            PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
            FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            UploadControl.Add "FileName", FileName
            Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
            PosBeg = Pos+14
            PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
            ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            UploadControl.Add "ContentType",ContentType
            PosBeg = PosEnd+4
            PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
            Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
            Else
            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
        UploadControl.Add "Value" , Value    
        UploadRequest.Add name, UploadControl    
        BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
    Loop
  End Sub
  Function getByteString(StringStr)
    For i = 1 to Len(StringStr)
        char = Mid(StringStr,i,1)
        getByteString = getByteString & chrB(AscB(char))
    Next
  End Function
  Function getString(StringBin)
    getString =""
    For intCount = 1 to LenB(StringBin)
        getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
    Next
  End Function%> 

[Roby_72]

Prova con questo tentativo:

FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg)) 
FileName = FileName &"_new"
UploadControl.Add "FileName", FileName

Roby

[syndr0me]

grazie roby, ma dato che non sono molto pratico mi potresti dire in che punto inserire il codice?

[Roby_72]

Come sarebbe...
La prima e la terza riga sono del tuo codice... ne ho solo messa una in mezzo...

Roby

[syndr0me]

a me non va, tu hai mica provato?

[syndr0me]

Roby_72, puoi provarlo a me non va ho fatto anche altre prove.

[pictor]

Se non ti funziona stai sbagliando qualcosa, oppure quello script non funziona.

Hai provato a vedere se funziona senza modifiche?

E poi hai aggiunto correttamente la riga che ti ha suggerito roby?

            FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            'AGGIUNGI SOLO LA LINEA COMPRESA TRA QUESTO COMMENTO'
            FileName = FileName &"_new"          '<--------'
            'E QUESTO COMMENTO'
            UploadControl.Add "FileName", FileName 

Se non funziona allora non funziona tutto lo script.

Ad ogni modo questo metodo ti fa l'upload del file già rinominato. Non so se per te è indispensabile rinominare DOPO l'upload.

[syndr0me]

ok, lo provo subito!

[syndr0me]

ok funziona, ma ho dovuto mettere questa modifica:
FileName = "_new" , perchè lasciando FileName prima delle virgolette mi lasciava il nome originale e mi aggiungeva all'estensione la parola specificata.

grazie ad entrambi

[syndr0me]

con lo stesso sistema posso anche ridimensionare l'immagine??