+ Rispondi al Thread
Pagina 3 di 3 primaprima 123
Visualizzazione dei risultati da 21 a 28 su 28

Discussione: [ASP]Form invio E-Mail con allegato

  1. #21
    Post
    4,741
    Blogs
    12
    Beh,
    credo sia ovvio che non funzioni:

    codice:
    myString = "file/"
    Dovrebbe essere il percorso completo del file che stai cercando di caricare. Dalla stringa "file/" la funzione non riesce ad estrapolare alcuna estensione.

    A presto,
    Giuseppe Leone

  2. #22
    L'avatar di FEFE
    FEFE non è in linea Scolaretto
    Post
    125
    In che senso il percorso completo???
    Ricorda che il nome del file io non lo conosco, il file in questione viene caricto dall'utente!!!
    Come faccio a scrivere il percorso???

  3. #23
    Post
    4,741
    Blogs
    12
    Beh,
    scusa, mi sono espresso male,
    alla funzione dovresti passare un valore del tipo:

    miofile.ext

    tutto chiaro ora ?

    A presto,
    Giuseppe Leone

  4. #24
    L'avatar di FEFE
    FEFE non è in linea Scolaretto
    Post
    125
    Scusami, lo so che ti sto rompendo parecchio le "scatole" ma non riesco a fare ciò che tu mi dici!!! Il senso del tuo consiglio l'ho capito, ma dal dire al fare ci passa veramente tanto!!
    Nel codice dell'upload, la variabile associata la nome del file è NomeFile....ho provato ad aggiungerlo al tuo codice ma non funziona.
    mi rendo conto di chiederti tanto, ma sei l'unica mia speranza.
    Il codice per effettuara l'upload è questo:

    codice:
    <%
    'Questa variabile setta il percorso di dove effettuare l'upolad
    
    percorso = "file/"
    
    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)
    
    		
    
    		' Qui recupero il file da uploadare (se presente) e lo scrivo
    		' sul server
    		if instr(Intestazione,"file1") > 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)
    				NomeFile1 = NomeFile
        			Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
        			textStream.Write ContenutoFile
        			textStream.Close
        			Set textStream = Nothing
    	   			Set FSO = Nothing
        	   end if
    		end if
    	next
    
    
    If Upload1 = true then
    	Response.Write "<br>La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
    	Response.Write "<br>Il nome del file è " & NomeFile
    End If
    
    
    End if
    %>

    Potresti integrare i tuo codice al mio e postarlo???
    I file che devono essere consentiti sono solo i TIFF e il nome della cartella dove risiede il file caricato è "file" che si trova nella cartella dove ci sono tutte le pagine.
    Sarò sicuramente impedito, ma io non riesco a risolvere sto problema.........sono riuscito a fare tutti i controlli possibili che mi servivano sbattendoci su qualche giorno, ma questo ultimo controllo non ci riesco proprio.........
    Per favore aiutami.
    Ciao Master.

  5. #25
    Post
    4,741
    Blogs
    12
    Cio' che devi fare e' recuperare il valore che proviene dall' INPUT TYPE=FILE, tutto qui. Passarlo alla funzione e controllarne il risultato e successivamente avviare l'upload.
    Il massimo che posso fare per te e' chiederti di inviarmi tutto in email, cerchero' di dare uno sguardo e inserire in questa stessa discussione, il codice completo e funzionante. Comprimi tutto in un unico file e invia.

    Ovviamente questo aiuto extra vale solo per questa volta.

    A presto,
    Giuseppe Leone

  6. #26
    Post
    4,741
    Blogs
    12

    Talking Tutto corretto e funzionante

    Ciao FEFE,
    come promesso ( solo per questa volta ovviamente ) ho rivisitato e corretto parte del tuo codice, in particolar modo la parte relativa ai controlli, in allegato trovi i due file: Form.asp e Upload.asp.

    A presto,
    Giuseppe Leone
    File allegati File allegati

  7. #27
    L'avatar di FEFE
    FEFE non è in linea Scolaretto
    Post
    125
    Innanzitutto scusami per il ritardo, ma sono stato fuori e solo ora possa accedere ad internet.
    Secondo ti ringrazio veramente tanto per la tua disponibilità.
    Il tuo codice funziona benissimo, se non per il fatto che il controllo dell'estensione è sensibile al minuscolo/maiuscolo....cioè, se imposti che devo effettuare l'upload di solo file .TIF, l'utente che effettua l'upload dei file .tif viene bloccato........poca cosa, basta mettere il controllo doppio:

    codice:
    if verificaEstensione(myString, "tif") = true and verificaEstensione(myString, "TIF") = true then
            response.write "Estensione del file corretta"
    else
    	response.write "Estensione non corretta"
    end if
    Poi gentilmente mi hai anche pulito il codice, ma purtroppo il controllo sulla dimensione non posso metterla prima che il file viene caricato (sarebbe bello, ma purtroppo non funziona e sono costretto ogni volta a far caricare il file comunque!!!) perchè la dimensione viene conosciuta solo ad upload effettuato..............per il resto tutto eccezionale.
    Grazie mille Master
    Ciao ciao

    PS. non posto il codice perchè tanto l'hai postato tu, secondo me questo esempio potresti metterlo in alcuni tutorial perchè ci sono tante persone che vorrebbero fare ciò che ho fatto io ed in giro non si riesce a trovare esempi già finiti e funzionanti......poi a te la decisione!!!

  8. #28
    grifo non è in linea Novello
    Post
    1
    Ciao FEFE
    come te sto cercando di inviare un modulo con allegato uploadato.
    Visto che sei riuscito a farlo con l'aiuto di master, potresti darmi il tuo script completo?
    grazie

+ Rispondi al Thread
Pagina 3 di 3 primaprima 123

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi