F.S.O. ... help!

[vincenza]

Proprio non mi riesce di usarlo!!!!

la prima volta che ci ho provato, i gestori del server mi hanno scritto per avvisarmi che avevo scritto in zone proibite ... insomma ... una piccola hacker involontaria ... adesso non mi funziona questa piccola verifica:

	if allegato<>"" then
		set verifica=server.CreateObject("Scripting.FileSystemObject")
		comodo=allegato
		if verifica.FileExists(server.MapPath("../upload/" & comodo)) then
		
%>
  

Esiste un allegato con lo stesso nome.</p> 
<%
			set verifica=nothing
		else
                      altro codice che memorizza allegato
                end if

%>
  

Il campo dell'allegato è vuoto.</p> 
<%
         end if
%>

bene ... anche se il documento non è presente nella cartella, la verifica risulta positiva per cui non riesco a memorizzare il documento

come si fa a far funzionare gli oggetti del FSO?


chi è l'anima paziente che mi dà una mano?

enza

[Roby_72]

Ma stai facendo un upload?

Roby

[vincenza]

sì ... sto facendo un upload e, per evitare di spedire un allegato già presente, vorrei fare quel controllo ... serve l'intera pagina?

enza

[Roby_72]

Potrebbe essere che riesci a recuperare il nome del file SOLO dopo averlo caricato sul server e quindi ormai è troppo tardi.
Controlla il tuo script.

Roby

[vincenza]

Uhmmmm .... guarda ... ti riporto le prime righe di codice ...

dim Upload, allegato, comodo, conn, url
 
Set Upload = Server.CreateObject("Persits.Upload.1") 

Upload.Save "D:\enza.medina.name\enza.medina.name\LCMS\www\upload"

comodo = Upload.Files(1).FileName

	if comodo<>"" then
		set verifica=server.CreateObject("Scripting.FileSystemObject")
		if verifica.FileExists(server.MapPath("../upload/" & comodo)) then
etc etc

il nome lo recupero subito ..

e poi il file lo memorizzo con questa riga (successiva)

Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" & comodo))

tu dici di metterlo prima dell'Upload.Save?

[Roby_72]

Con il save lo salva e basta... ed ormai è tardi.
Il componente potrebbe però avere un metodo per evitare di caricare file con lo stesso nome (no overwrite).

Roby

[vincenza]

bene ... allora provo ad anticipare ... ecco dov'è il bug ... grazie mille!!!

ti faccio sapere se funziona e magari riporto anche il codice 'buono' ... hai visto mai che possa servire a qualche altro ...



enza

[vincenza]

fumata nera


non funziona neanche anticipando la verifica ...

qualcosa mi sfugge


ecco tutto il codice

dim Upload, comodo, conn
 
Set Upload = Server.CreateObject("Persits.Upload.1") 

Upload.Save "D:\enza.medina.name\enza.medina.name\LCMS\www\upload"

comodo = Upload.Files(1).FileName

if comodo<>"" then
		set verifica=server.CreateObject("Scripting.FileSystemObject")
	if verifica.FileExists(server.MapPath("../upload/" & comodo))=true then
		set verifica=nothing

%>
  

Esiste un allegato con lo stesso nome.</p>
  

torna</p> 
<%
	else
			st1=split(request.querystring("topic"),".")
			num_filo=st1(0)

Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" & comodo))  

			set conn=server.createobject("ADODB.Connection")
			conn.open("DRIVER={microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../../dati/comunicazione.mdb"))
			conn.execute("update " & num_filo & " set allegato= '" & comodo & "' where l1= '" & request.querystring("ch") & "'")
			conn.close
			set conn=nothing		
			
			set Upload=nothing

		if request.querystring("provenienza")="ingresso" then
			response.redirect("filoingresso.asp")
		else
			if request.querystring("provenienza")="filointero" then
				response.redirect("leggi_filo.asp")
			else			
				response.redirect("espansione.asp")
			end if
		end if
				
	end if
else
	response.write("<center>Prego, inviare allegato</center>")
end if

la riga in grassetto è quella che salva ... e come vedi è già successiva alla verifica ... no ... penso proprio che sia l'oggetto verifica quello che non riesco a far funzionare ... se lo elimino tutto va benissimo ... chiaramente in questo secondo modo vengono salvati anche allegati con lo stesso nome ...

tu parli di un componente che eviti la sovrascrittura ... purtroppo non ne sono a conoscenza ... qualcuno lo conosce?

enza

[viki1967]

Ciao, qualche tempo fa ho affrontato il tuo problema e l'ho risolto scrivendo una funzione che in caso di file già esistente sul server, l'ho rinomina in automatico inserendo un progressivo numerico.

[vincenza]

giusto!

grazie!!!!!

enza