upload fantasma (baol code) aiuto !

[odino]

ciao, ho scaricato il codice di Baol per l'upload, funziona tutto, niente errori ma..... poi il file sul server non c'e' !

chi mi aiuta a capire il mistero dell'upload fantasma?

[yoyo87]

facci vedere il codice della tua pagina...non siamo veggenti

[odino]

ecco il codice! grazie per l'aiuto




qui ho inserito il codice di upload.asp come scaricato dal link di Baol... poi....
<%
Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
oUpload.Filter = oUpload.FilterSize(102000)
oUpload.SaveAll
Set oUpload=Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="?upload=1">
File : <INPUT TYPE="file" NAME="Campo1">

<INPUT TYPE="submit" NAME="Enter">
</FORM>

[yoyo87]

se nell'ACTION del form metti "?upload=1" allora:

If request("upload") = 1 Then   
Dim oUpload 
Set oUpload = new cUpload 
oUpload.Load() 
oUpload.Filter = oUpload.FilterSize(102000) 
oUpload.SaveAll 
Set oUpload=Nothing
End If 

[odino]

grazie!
ho provato, ma l'upload sembra iniziare, poi a circa il 2% sembra completarsi di scatto e... sul server non viene inviato nulla :master:

comincio a disperare...

[yoyo87]

hai messo l'include ""???
(dico il file all'interno della cartella "esempi")

[odino]

io ho interpretato l'include come:

copio il file con le routine asp che poi vado a chiamare e lo incollo prima del codice html e delle chiamate in asp.

ho capito bene?

[yoyo87]

Eh no. Il File upload.asp presente nella cartella "esempi" dello zip è la colonna portante dello script e se lo apri con il tuo editor potrai vedere che è pianissimo di codici. O quello oppure non funziona
sono riuscito a spiegarmi? :P

<%
If request("upload")=1 Then
Dim oUpload
Set oUpload = new cUpload
oUpload.Load()
oUpload.Filter = oUpload.FilterSize(102000)
oUpload.SaveAll
Set oUpload=Nothing
End If
%>
<form .... action="?upload=1"> ....

[odino]

ok

ma.. la riga


la devo scrivere letteralmente come hai fatto tu e mettere sul server separatamente il file upload.asp

o

devo copiare il contenuto di upload.asp prima del mio codice e salvare il tutto come una unica pagina asp?

[maximum]

La Dim fuori dall'IF, onde evitare di allocare memoria...

<%
Dim oUpload
If request("upload")=1 Then
   Set oUpload = new cUpload
   oUpload.Load()
   oUpload.Filter = oUpload.FilterSize(102000)
   oUpload.SaveAll
   Set oUpload=Nothing
End If
%>
<form .... action="?upload=1"> ....