Problema upload

**pegaso22** · 29-03-2005, 17:21

Ciao a tutti,
sto combattendo con la seguente pagina che fa l'upload di file.
Ho appena provato con un file da 120 kb e ci ha impiegato circa 5/6 minuti; avendo un ADSL con 320 in upload non credevo ci volesse così tanto.
Che ne pensate?
Sto sbagliando qualcosa io nel codice?
Praticamente tramite questo form mi faccio inviare dei file, per operazioni di questo tipo quali sono i pesi consigliati, è normale che 120 kb siano troppi e ci metta così tanto?
A me addirittura servirebbero file di peso molto superiore, anche qualche mega, però se le velocità sono queste preferisco farmi inviare una e-mail!!

Fatemi sapere.
Grazie mille

codice:

<%@LANGUAGE="Vbscript"%>
<%server.scripttimeout = 90000%> 
<html>
<head>
<title>Invia richiesta aa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
percorso = "/public/filebiglietti/"
ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
	For i = 1 To lenB(DatiRicevuti)
		FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
	Next
	FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
	ArrPezzi = split(FileBinario,FirmaFile)

	for item = 1 to ubound(ArrPezzi)-1
		Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
		Intestazione = left(ArrPezzi(item),Inizio-1)
		Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
	    	ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

		if instr(Intestazione,"camponome") > 0 then
			Cnome = ContenutoFile
			Cnome = replace(Cnome,chr(34),"&quot;")
			Cnome = replace(Cnome,"£","&pound;")
			Cnome = replace(Cnome,"&","&amp;")
			Cnome = replace(Cnome,"ì","&igrave;")
			Cnome = replace(Cnome,"<","&lt;")
			Cnome = replace(Cnome,">","&gt;")
			Cnome = replace(Cnome,"è","&egrave;")
			Cnome = replace(Cnome,"é","&eacute;")
			Cnome = replace(Cnome,"ò","&ograve;")
			Cnome = replace(Cnome,"ç","&ccedil;")
			Cnome = replace(Cnome,"à","&agrave;")
			Cnome = replace(Cnome,"°","&deg;")
			Cnome = replace(Cnome,"ù","&ugrave;")
			Cnome = replace(Cnome,"§","&sect;")
			Cnome = replace(Cnome,"€","&euro;")									
		end if	
		
		Response.Write(Cnome)
		
		if instr(Intestazione,"campocognome") > 0 then
			Ccognome = ContenutoFile
			Ccognome = replace(Ccognome,chr(34),"&quot;")
			Ccognome = replace(Ccognome,"£","&pound;")
			Ccognome = replace(Ccognome,"&","&amp;")
			Ccognome = replace(Ccognome,"ì","&igrave;")
			Ccognome = replace(Ccognome,"<","&lt;")
			Ccognome = replace(Ccognome,">","&gt;")
			Ccognome = replace(Ccognome,"è","&egrave;")
			Ccognome = replace(Ccognome,"é","&eacute;")
			Ccognome = replace(Ccognome,"ò","&ograve;")
			Ccognome = replace(Ccognome,"ç","&ccedil;")
			Ccognome = replace(Ccognome,"à","&agrave;")
			Ccognome = replace(Ccognome,"°","&deg;")
			Ccognome = replace(Ccognome,"ù","&ugrave;")
			Ccognome = replace(Ccognome,"§","&sect;")
			Ccognome = replace(Ccognome,"€","&euro;")									
		end if	
		
		if instr(Intestazione,"campotelefono") > 0 then
			Ctelefono = ContenutoFile
			Ctelefono = replace(Ctelefono,chr(34),"&quot;")
			Ctelefono = replace(Ctelefono,"£","&pound;")
			Ctelefono = replace(Ctelefono,"&","&amp;")
			Ctelefono = replace(Ctelefono,"ì","&igrave;")
			Ctelefono = replace(Ctelefono,"<","&lt;")
			Ctelefono = replace(Ctelefono,">","&gt;")
			Ctelefono = replace(Ctelefono,"è","&egrave;")
			Ctelefono = replace(Ctelefono,"é","&eacute;")
			Ctelefono = replace(Ctelefono,"ò","&ograve;")
			Ctelefono = replace(Ctelefono,"ç","&ccedil;")
			Ctelefono = replace(Ctelefono,"à","&agrave;")
			Ctelefono = replace(Ctelefono,"°","&deg;")
			Ctelefono = replace(Ctelefono,"ù","&ugrave;")
			Ctelefono = replace(Ctelefono,"§","&sect;")
			Ctelefono = replace(Ctelefono,"€","&euro;")									
		end if
		
		if instr(Intestazione,"campoemail") > 0 then
			Cemail = ContenutoFile
			Cemail = replace(Cemail,chr(34),"&quot;")
			Cemail = replace(Cemail,"£","&pound;")
			Cemail = replace(Cemail,"&","&amp;")
			Cemail = replace(Cemail,"ì","&igrave;")
			Cemail = replace(Cemail,"<","&lt;")
			Cemail = replace(Cemail,">","&gt;")
			Cemail = replace(Cemail,"è","&egrave;")
			Cemail = replace(Cemail,"é","&eacute;")
			Cemail = replace(Cemail,"ò","&ograve;")
			Cemail = replace(Cemail,"ç","&ccedil;")
			Cemail = replace(Cemail,"à","&agrave;")
			Cemail = replace(Cemail,"°","&deg;")
			Cemail = replace(Cemail,"ù","&ugrave;")
			Cemail = replace(Cemail,"§","&sect;")
			Cemail = replace(Cemail,"€","&euro;")									
		end if
		
		if instr(Intestazione,"campocitta") > 0 then
			Ccitta = ContenutoFile
			Ccitta = replace(Ccitta,chr(34),"&quot;")
			Ccitta = replace(Ccitta,"£","&pound;")
			Ccitta = replace(Ccitta,"&","&amp;")
			Ccitta = replace(Ccitta,"ì","&igrave;")
			Ccitta = replace(Ccitta,"<","&lt;")
			Ccitta = replace(Ccitta,">","&gt;")
			Ccitta = replace(Ccitta,"è","&egrave;")
			Ccitta = replace(Ccitta,"é","&eacute;")
			Ccitta = replace(Ccitta,"ò","&ograve;")
			Ccitta = replace(Ccitta,"ç","&ccedil;")
			Ccitta = replace(Ccitta,"à","&agrave;")
			Ccitta = replace(Ccitta,"°","&deg;")
			Ccitta = replace(Ccitta,"ù","&ugrave;")
			Ccitta = replace(Ccitta,"§","&sect;")
			Ccitta = replace(Ccitta,"€","&euro;")									
		end if			
		
		if instr(Intestazione,"camporichiesta") > 0 then
			Crichiesta = ContenutoFile
			Crichiesta = replace(Crichiesta,chr(34),"&quot;")
			Crichiesta = replace(Crichiesta,"£","&pound;")
			Crichiesta = replace(Crichiesta,"&","&amp;")
			Crichiesta = replace(Crichiesta,"ì","&igrave;")
			Crichiesta = replace(Crichiesta,"<","&lt;")
			Crichiesta = replace(Crichiesta,">","&gt;")
			Crichiesta = replace(Crichiesta,"è","&egrave;")
			Crichiesta = replace(Crichiesta,"é","&eacute;")
			Crichiesta = replace(Crichiesta,"ò","&ograve;")
			Crichiesta = replace(Crichiesta,"ç","&ccedil;")
			Crichiesta = replace(Crichiesta,"à","&agrave;")
			Crichiesta = replace(Crichiesta,"°","&deg;")
			Crichiesta = replace(Crichiesta,"ù","&ugrave;")
			Crichiesta = replace(Crichiesta,"§","&sect;")
			Crichiesta = replace(Crichiesta,"€","&euro;")
			Crichiesta = replace(Crichiesta,chr(13),"
")												
		end if										
					
										
		if instr(Intestazione,"campoallegato1") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				Callegato1 = replace(NomeFile," ","")
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & Cnome & Ccognome & Callegato1), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if
		
		if instr(Intestazione,"campoallegato2") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				Callegato2 = replace(NomeFile," ","")
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & Cnome & Ccognome & Callegato2), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if		

		if instr(Intestazione,"campoallegato3") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				Callegato3 = replace(NomeFile," ","")
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & Cnome & Ccognome & Callegato3), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if		
				
	next
	
dim html
					
html = html & "<HTML>"
html = html & "<BODY bgcolor=#FFFFFF>"
html = html & "<FONT size='3' face='verdana' color='#000000'>EMAIL DA WWW.AA.IT - OFFERTA BIGLIETTI DA VISITA - AR


</font>"
html = html & "<FONT size='2' face='verdana' color='#000000'>Nome: " & Cnome & "
"
html = html & "Cognome: " & Ccognome & "
"
html = html & "Telefono: " & Ctelefono & "
"
html = html & "E-mail: " & Cemail & "
"
html = html & "Città: " & Ccitta & "


"
html = html & "RICHIESTA:
 " & Crichiesta & "


"
html = html & "ALLEGATO1: " & Cnome & Ccognome & Callegato1 & "
"
html = html & "ALLEGATO2: " & Cnome & Ccognome & Callegato2 & "
"
html = html & "ALLEGATO3: " & Cnome & Ccognome & Callegato3 & "</font>"
html = html & "</body>"
html = html & "</html>"

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds.Update

With iMsg
Set .Configuration = iConf
.To = "aa@aa.it"
.From = "info@aa.it"
.Sender = "info@aa.it"
.Subject = "E-MAIL DA WWW.AA.IT - OFFERTA BIGLIETTI DA VISITA"
.htmlBody = html
.Send
End With

Response.Redirect("ringraziamentibiglietti AR.html")
end if

%>
</body>
</html>

**pegaso22** · 29-03-2005, 18:10

:rollo:

**Roby_72** · 29-03-2005, 18:19

Fatti inviare una email.

Roby

**pegaso22** · 29-03-2005, 18:21

Cioè?
Mi faccio allegare i file in e-mail?
Come si fa?
L'e-mail la invia già ma soltanto con i dati...
E' più veloce come metodo?

**Roby_72** · 29-03-2005, 18:22

Fatti inviare i file in una email esterna al sito con Outlook o altro programma di posta.
Quello non è uno script professionale per l'upload.

Roby

**pegaso22** · 29-03-2005, 18:24

E per utilizzare un metodo di quel tipo, cioè col form, per inviare dei file esiste da dove posso prenderlo?
Esiste?

**Roby_72** · 29-03-2005, 18:25

Devi installare componenti a pagamento sul tuo server.

Roby

**pegaso22** · 29-03-2005, 18:31

Io per creare le aree di aggiornamento di un sito dinamico che contiene fotografie utilizzo quel metodo che ho indicato sopra e va bene... forse perchè indico le dimensioni massime dei file da inviare.
Se utilizzassi lo stesso metodo, cioè indicando un numero massimo di kb da inviare, potrebbe andar bene?
Che ne pensi?

**Roby_72** · 29-03-2005, 18:33

Va bene ma rimane lento come metodo...

Roby

**pegaso22** · 29-03-2005, 19:00

Ok, provo a cercare un compromesso fra le 2 soluzioni; magari dò l'opportunità fino a 100kb di inviarle tramite il modulo altrimenti obbligo ad utilizzare Outlook.
Grazie mille per gli utili consigli.

Discussione: Problema upload

Strumenti discussione

Ricerca discussione

Visualizza

Problema upload

Permessi di invio