Upload di Baol....

[Baol74]

Come perdersi in un bicchier d'acqua...
Mi spieghi come fa ad entrare nell'if se request("Upload") non varrà mai 1?
E poi request("Upload") è diverso da request.QueryString("Upload") ed in un'operazione di upload è necessario specificarlo

 
<% 
If Request.QueryString("Upload")="1" then 
	Dim oUpload 
	Set oUpload = new cUpload 
	oUpload.AutoRename = False 
	oUpload.Overwrite = true 
	oUpload.SetPath "fpdb" 
	oUpload.Upload 
	oUpload.SaveAs "Pippo.mp3" 
	Set oUpload=Nothing 
	response.write("Caricato!") 
end if 
%> 
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="esempio_form.asp?Upload=1"> 
File : <INPUT TYPE="file" NAME="Campo1">
 
<INPUT TYPE="submit" NAME="Enter"> 
</FORM>

[Idraulico]

Grazie...funziona...
Posso fare solo altre due domande???
La prima...
Siccome non voglio che il file venga rinominato....è sufficiente eliminare la riga con l'istruzione
oUpload.SaveAs "Pippo.mp3"

e come devo fare per far si che si possano caricare file superiori ai 7 MB???
grazie...
idraulico

[Baol74]

Metti solo save al posto di saveAs altrimenti avrai sempre e solo 1 file sul server

 
<% 
If Request.QueryString("Upload")="1" then 
	Dim oUpload 
	Set oUpload = new cUpload 
	oUpload.AutoRename = False 
	oUpload.Overwrite = true 
	oUpload.SetPath "fpdb" 
	oUpload.Upload 
	oUpload.Save()
	Set oUpload=Nothing 
	response.write("Caricato!") 
end if 
%> 
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="esempio_form.asp?Upload=1"> 
File : <INPUT TYPE="file" NAME="Campo1">
 
<INPUT TYPE="submit" NAME="Enter"> 
</FORM>

Per i 7mb non c'è problema se hai una buona connessione...provare per credere... Se non hai una buona connesione avrai problemi anche in ftp

[Idraulico]

funziona tutto...
solo che quando carico un file di dimensioni abbastanza grandi mi da come errore "impossibile visualizzare la pagina" e non trovo nulla nella cartella...se carico il file con un programma ftp, ad esempio cute, funziona....
potrebbe essere un problema di impostazione del tempo di connessione?
se fosse cosi come faccio per risolverlo??
grazie ancora e scusa il massacramento..
idraulico

[Baol74]

Si, aomenta il timeout. Quanto ci metti con l'ftp? Imposta un una decina di secondi in più.Puoi usare l'istrizione oUpload.SetServerTimeOut [Minuti]

If Request.QueryString("Upload")="1" then 
	Dim oUpload 
	Set oUpload = new cUpload 
	oUpload.SetServerTimeOut 10
	oUpload.AutoRename = False 
	oUpload.Overwrite = true 
	oUpload.SetPath "fpdb" 
	oUpload.Upload 
	oUpload.Save()
	Set oUpload=Nothing 
	response.write("Caricato!") 
end if

[Idraulico]

BINGOOOOOOOOOOOOOOOOOOOOOOO....
Aumentando il timing sono riuscito a caricare un file di quasi 10 Mb
Grazie mille per l'aiuto!!!
Idraulico..