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>

Discussione: Problema upload

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Problema upload

Permessi di invio