upload con persits

[djjunior]

Carissimi,
con questo script ho unito alcune funzioni utilizzando gli oggetti persits, però non funziona al momento di rinominare il file durante l'upload.
In pratica carica il file ma con il nome originale, in + come posso implementare un limite di estensione, cioè che possano caricare solo file .pdf?

<%
Set Upload = Server.CreateObject("Persits.Upload")

Set File = Upload.Files("FILE1")

percorso = Server.MapPath("/public/")

' Limite di dimensione
Upload.SetMaxSize 100000000, True 

On Error Resume Next 

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso)

end if

If Not File Is Nothing Then

filename=File.FileName

nuovo_filename="nuovo"

Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

Response.Write Count & " file caricato "

%>

Grazie per il Vs. aiuto.
G.

[ale_1976]

Per il problema di rinominare il file, ti mando al mio blog dove tratto l'upload con persits:

rinominare file upload persits

Per l'altro problema, cioè il controllo dell'estensione una soluzione è:

carichi il file, rilevi l'estensione e se non è permessa elimini il file. L'upload persits è molto veloce e comodo (con due righe fai l'upload e con un paio di righe in + lo fai anche multiplo...e con la progress bar...e come se non bastasse puoi caricare file di qualunque dimensione!), ma prima di modificare il file devi caricarlo sul server...

Io ho risolto ricavando l'estensione e poi eliminandola se non corrispondeva alle mie esigenze.
Se ti serve il dettaglio di come fare...dimmelo.

Ciao
Alessio

[djjunior]

Grazie per il tuo aiuto e disponibilità..
Potresti dettagliarmelo sullo script che ho postato?
Grazie
G.

[ale_1976]

Ma scusa...già vedo che lo script che hai provato ad usare è uno script fatto da me...ma mi dici cosa non riesci a fare?

A rinominare il file??? dimmi se ti da errore... Hai impostato il nuovo nome del file? Hai controllato i percorsi?

[djjunior]

Ciao,
ti sbagli perchè questo script lo unito io dai vari oggetti persits infatti questo postato non funziona proprio l'ho modificato così:

<%
Set Upload = Server.CreateObject("Persits.Upload")

percorso = Server.MapPath("/public/")

' Limite di dimensione
Upload.SetMaxSize 100000000, True 

On Error Resume Next 

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso)

Set File = Upload.Files("FILE1")

If Not File Is Nothing Then

filename=File.FileName

nuovo_filename="nuovo"

Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

end if

Response.Write Count & " file caricato "

%>

Però il file non lo rinomina e in + volevo che si implementasse la possibilità di limitare al solo upoad di file .doc.
Un'altra cosa, se non imposto la dimensione massima dell'upload c'è un limite sulla dimensione del file da caricare?
Grazie 1000
G.

[ale_1976]

Sì..hai ragione...non era il mio script...il mio funziona!

Cmq...a parte gli scherzi...sai dov'è il problema?

questa riga:

fsoMyFile.MoveFile (Server.MapPath("/public/"&nuovo_filename&""))


gli manca dove e come vuoi spostare e rinominare il file...il pezzo che hai tu serve per dirgli quale file rinominare...ma manca il pezzo nel quale gli dici come rinominarlo:

fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&"-"&filename&""))

e comunque avrebbe avuto un problema lo stesso: tu hai messo come valore della variabile "nuovo_filename" il valore "nuovo"...se tu rinominassi un file semplicemente come "nuovo"...ti darebbe errore perché mancherebbe l'estensione...quindi eventualmente potresti sostituire, visto che nel tuo caso l'estensione deve essere solo ".doc" qualcosa tipo:

fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&".doc"))

Limiti di dimensione, con l'upload in questione, non ce ne sono...io ho caricato file anche superiori ai 100 MB senza problemi e anche molto velocemente...

[djjunior]

Ciao
hai ragione, comunque ho risolto anche il problema dell'estensione del file.
Però vorrei che la limitazione del file da caricare vorrei impostarla nello script come posso fare? Me lo potresti implementare?
Ecco il codice con le modifiche:

<%
Set Upload = Server.CreateObject("Persits.Upload")

percorso = Server.MapPath("/public/")

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso)

Set File = Upload.Files("file1")

If Not File Is Nothing Then
filename=File.FileName

nuovo_filename="testodiprova"&file.ext&""

Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

end if

Response.Write Count & " file caricato "

%>

Grazie 1000
G.

[ale_1976]

In sostanza metterai ad esempio:

<%
Set Upload = Server.CreateObject("Persits.Upload")

percorso = Server.MapPath("/public/")

' This is needed to enable the progress indicator
Upload.ProgressID = Request.QueryString("PID")

Count = Upload.Save (percorso)

Set File = Upload.Files("file1")

If Not File Is Nothing Then
filename=File.FileName
estensione=file.ext

'imposta l'estensione ammessa...considera che è case sensitive quindi vengono considerate maiuscole e minuscole...al massimo crea un array che contenga anche l'estensione scritta in maiuscolo, e poi fai un controllo sulle estensioni contenute nell'array

estensione_ammessa=".doc"

if estensione=""&estensione_ammessa&"" then
nuovo_filename="testodiprova"&file.ext&""

Dim fsoMyFile
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject")
fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&""))
Set fsoMyFile = nothing

end if

Response.Write Count & " file caricato "

else

file.delete

response.write "Il file ha un'estensione non ammessa!"
end if

%> 

prova...e facci sapere...

[djjunior]

Grazie, ma lo script così come lo hai modificato fà:
1) lascia il nome originale del file
2) lascia passa i file di qualsiasi estensione...
Ciao
G.

[ale_1976]

<% 
Set Upload = Server.CreateObject("Persits.Upload") 

percorso = Server.MapPath("/public/") 

' This is needed to enable the progress indicator 
Upload.ProgressID = Request.QueryString("PID") 

Count = Upload.Save (percorso) 

Set File = Upload.Files("file1") 

If Not File Is Nothing Then 
filename=File.FileName 
estensione=file.ext 

estensione_ammessa=".doc" 

if estensione<>estensione_ammessa then 
file.delete 

    response.write "Il file ha un'estensione non ammessa!" 

else
nuovo_filename="testodiprova"&file.ext&"" 

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/"&filename&"")), (Server.MapPath("/public/"&nuovo_filename&"")) 
Set fsoMyFile = nothing 

    Response.Write Count & " file caricato " 

end if 


end if

%>