domanda upload

[zork]

premetto che non so un belino di asp
http://freeasp.html.it/articoli/view...olo.asp?id=169
ho preso questo ma mentre mi salva sul server l'immagine non so che si faccia del testo perche' non crea nulla
questo e' il codice

<%
'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !

percorso = "fileuploadati/"

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)

		' Recupero i campi se sono compilati
		if instr(Intestazione,"testo1") > 0 then
			testo1 = ContenutoFile
		end if

		' Nel caso in cui fossero presenti piu campi basta duplicare
		' la condizione cambiando unicamente il nome del campo
		' es.
		'if instr(Intestazione,"testo2") > 0 then
		'	testo2 = ContenutoFile
		'end if
		
		'if instr(Intestazione,"testo3") > 0 then
		'	testo3 = ContenutoFile
		'end if		

		' 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

		' Lo stesso discorso vale anche per i campi dei file :
		' Nel caso in cui fossero presenti piu file basta duplicare
		' la condizione cambiando unicamente il nome del campo
		' es.

		'if instr(Intestazione,"file2") > 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")
		'		Upload2 = True
		'		DimensioneFile2 = len(ContenutoFile)
		'		EstensioneFile2 = right(ContenutoFile,3)
		'		NomeFile2 = NomeFile
    	'		Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
    	'		textStream.Write ContenutoFile
    	'		textStream.Close
    	'		Set textStream = Nothing
	   	'		Set FSO = Nothing
    	'  end if
		'end if

		'if instr(Intestazione,"file3") > 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")
		'		Upload3 = True
		'		DimensioneFile3 = len(ContenutoFile)
		'		EstensioneFile3 = right(ContenutoFile,3)
		'		NomeFile3 = NomeFile
    	'		Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile3), True, False)
    	'		textStream.Write ContenutoFile
    	'		textStream.Close
    	'		Set textStream = Nothing
	   	'		Set FSO = Nothing
    	'  end if
		'end if
	next

' Da qui in poi è possibile fare esegiure allo script altre operazioni
' inserire qui gli script aggiuntivi che si vogliono eseguire dopo l'upload
' Per esempio visualizzare quello che è stato inserito all'interno del
' compo testo

Response.Write "Il valore immesso nella testo1 è " & testo1 & "
"

' Utilizzando il sistema descritto sopra è possibile visualizzare campi
' testo aggiuntivi presenti nel form
' Response.Write "Il valore immesso nella testo2 è " & testo2 & "
"
' Response.Write "Il valore immesso nella testo3 è " & testo3 & "
"

' E la stessa cosa per i campi dove è stato eseguito l'upload dei file

If Upload1 = true then
	Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile1*0.001 & "kb"
	Response.Write "
Grazie di aver inviato il tuo file"
End If

'If Upload2 = true then
'	Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile2*0.001 & "kb"
'	Response.Write "
Grazie di aver inviato il tuo file"
'End If

'If Upload3 = true then
'	Response.Write "
La dimensione del file che hai uploadato è di " & DimensioneFile3*0.001 & "kb"
'	Response.Write "
Grazie di aver inviato il tuo file"
'End If

End if
%>

[Roby_72]

Non ho ben capito.
Hai anche campi testo?
Qui

		if instr(Intestazione,"testo1") > 0 then
			testo1 = ContenutoFile
		end if

recuperi il campo di nome "testo1" impostato nel form.

Roby

[zork]

si il campo testo e' qui nel form

<form action="upload.asp" method="post" enctype="multipart/form-data">
CAMPO TESTO
<input type="text" name="testo1">
FILE
<input type="file" name="file1">
<input type="submit" value="Upload">

solo che sul server non trovo nulla

[Roby_72]

Scusa, ma sul server dove vorresti trovarlo??
E' un campo di testo assegnato ad una variabile.
O lo metti in un db oppure lo stampi. Non è un file.

Roby

[zork]

si mi son espresso male, chiedevo appunto come fare e se era possibile stamparlo tipo su un file di testo o altro

[Roby_72]

Puoi metterlo dove vuoi. Devi decidere tu in base a quello che devi fare.

Roby

[zork]

io lo vorrei in un file di testo nella stessa cartella del server ma non ho la piu' pallida idea di come fare... il tutorial si ferma prima...

[Roby_72]

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(percorso, 2, True)
   f.WriteLine testo1

Metti il percorso corretto comprensivo del nome, quello che usi per l'upload.

Roby

[zork]

ehm... dove lo metto?

[Roby_72]

Dove io ho scritto "percorso".

Roby