Problemi con il percorso dell'upload su aruba.it

**ALESSANDRO007** · 23-10-2006, 13:24

Salve a tutti, ennesimo problema nel problema.

Allora comincio per dire che questo script è fornito da aruba.it
Serve per uploddare file e immagini o quello che volete . . .
Che lo script upload per forza nella cartella "public"

e qui nasce il problema.

Ho modificato la path per fare in modo, (qui nasce la speranza) che le immagini o file si uploddino nelle sottocartelle come in es. public/01/02/03/04 ecc. ecc. naturalmente utilizzerò lo script con path singole, e per ogni cartella, all'interno delle medesime, es.public/01 e via discorrendo.

Perchè invece le immagini o file mi finiscono sempre nella cartella public dopo aver modificato la path?

Ecco lo script:

<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
percorso=server.MapPath("/public/01")
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) &filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<head>

**Santino83_02** · 24-10-2006, 10:12

nello script che hai postato "PERCORSO" è una variabile che non viene mai utlizzata...

**michele.santoro** · 24-10-2006, 10:58

... Perchè invece le immagini o file mi finiscono sempre nella cartella public dopo aver modificato la path?
Veramente a me sembra che tu non abbia modificato la path, ma hai solo aggiunto allo script la riga:
percorso=server.MapPath("/public/01")
perciò è normale che le immagini o i file finiscano sempre nella cartella public.

**ALESSANDRO007** · 24-10-2006, 12:05

è vero, che manca allora secondo te?
Ho provato anche a far eseguire la variabile ma il discorso non cambia cioè

percorso=server.MapPath("/public/01")
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) &percorso &filename)

dica. . dica . . .

No dico cosi perchè Michele Santoro cosi fa

faccio un pò di umorismo ragazzi, con tutti questi script che ci rompono le balle da fieno ogni volta . . . chissà che ne penserebbe santoro quello vero.

o ragazzi rispondete allo script però e no alle mie battute ciao.

**michele.santoro** · 24-10-2006, 12:21

Beh! Io per esempio proverei a modificarlo così:

codice:

<%
Dim folder
folder = "/public/a1"          'quì indichi il percorso dell'upload


Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes
  RequestBin = Request.BinaryRead(byteCount)
  Dim UploadRequest
  Set UploadRequest = CreateObject("Scripting.Dictionary")
  BuildUploadRequest  RequestBin
  contentType = UploadRequest.Item("blob").Item("ContentType")
  filepathname = UploadRequest.Item("blob").Item("FileName")
  filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
  value = UploadRequest.Item("blob").Item("Value")


'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
For i = 1 to LenB(value)
	MyFile.Write chr(AscB(MidB(value,i,1)))
Next
 
MyFile.Close
%>

Dovrebbe funzionare! Almeno credo.
Fai sapere

**ALESSANDRO007** · 24-10-2006, 14:20

DICO DICO CHE FUNZIONA ..................... Grande!!!!!!!!!!!!!

Ciao.

**michele.santoro** · 24-10-2006, 18:24

Originariamente inviato da ALESSANDRO007
DICO DICO CHE FUNZIONA ..................... Grande!!!!!!!!!!!!!

Ciao.

Bhe! penso che dopo un : "dica ... dica" ci sarebbe voluto almeno un "grazie ... grazie"

Bada che anche a me piace scherzare e quindi sto scherzando! è sempre un piacere poter essere di aiuto a qualcuno.

**ALESSANDRO007** · 28-10-2006, 12:51

Però ho una notizia brutta, il problema persiste aruba mi sta facendo impazzire neanche con i tiket aperti e le loro soluzioni il discorso funziona.

Ascolta/leggi capito no ! . . .

Loro soluzione

percorso=server.MapPath("/public/Cliente-01")
response.write percorso & "\"& filename
'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) &filename)
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/public/Cliente-01" & "/"& filename), true)

Tutto ok.

Metto il tutto dentro la cartella public/Cliente-02 chiaramente modifico la phat e il percorso,
non funziona niente Errore 500 interno del server.
Allora che faccio segnalo ad aruba il fatto, loro non modificano niente lasciano intatta la phat, ti inviano uina mail e il discorso funziona.

Allora a questo punto, creo la cartella Cliente-03, ariecco lo stesso problema, cioè assurdo se ogni volta per attivare una cartella devo aprire un tiket ADDIO.

La domanda a questo punto è non esiste un modo per testare il file outputFile.asp sul Server ?

**michele.santoro** · 28-10-2006, 13:02

Purtroppo aruba ha questo brutto difetto: se crei le cartelle usando FrontPage o programmi simili le cartelle il più delle volte perdono i permessi. devi crearti le cartelle con un FTP o con una paginetta asp.
Io per esempio per creare le cartelle uso questo script creadir.asp:

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
PUBLIC FUNCTION createDir(dirName)
	Dim objFso
	Dim return
	on error resume next : err = 0
	IF dirName = "" OR dirName = Null THEN
		return = False
	ELSE
		Set objFso = Server.CreateObject("Scripting.FileSystemObject")
		objFso.CreateFolder(Server.MapPath(dirName))
		IF (err = 0) THEN
			return = True
		ELSEIF (err <> 0) THEN
			return = False
		END IF
		Set objFso = Nothing
	END IF
	'Se volete sapere perchè da il risultato FALSE allora togliete apice che sta all'inizio del prossimo rigo.
	'Response.Write("NUMERO ERRORE: "&err.number&"
DESCRIZIONE ERRORE: "&err.description&"

")
	err = 0 : err.clear()
	createDir = return
END FUNCTION
Dim page
page = Request.QueryString("page")
IF page = "create" THEN
	Response.Write("Il risultato: " & createDir(Request.Form("Name")) & "  (FALSE=Cartella non creata; TRUE=Cartella creata)")
ELSE
%>
<HTML>
	<HEAD>
		<TITLE>Form creazione directory</TITLE>
	</HEAD>
	
	<BODY>
	<form method="post" action="createDir.asp?page=create">
		<input type="text" name="Name">
		<input type="submit" value="Crea Cartella">
	</form>
	</BODY>
</HTML>
<%
END IF
%>

Mettilo nella root del tuo sito poi lo richiami con:
http://www.nome_tuo_sito.it/creadir.asp
se vuoi creare all'interno della cartella "public" una cartella di nome "Cliente-02"
scrivi nella casella del modulo:
/public/Cliente-02
e click su "crea cartella".
In questo modo le cartelle non perdono i permessi.

Chiaramente o proteggi con password questa paginetta asp o la cancelli una volta finito di creare le cartelle.
Prova e fai sapere

**ALESSANDRO007** · 28-10-2006, 13:05

Non vorrei tardare, per la funzionalità ti faccio sapere nel frattempo opero. . .

No dico dico che Santoro è un mito.......

To fatto pure la rima ciao.

Discussione: Problemi con il percorso dell'upload su aruba.it

Strumenti discussione

Ricerca discussione

Visualizza

Problemi con il percorso dell'upload su aruba.it

Ho aggiornato la phat

E bravo Santoro, dica. . . dica . . .

Re: E bravo Santoro, dica. . . dica . . .

Scusa se in ritardo ma. . . Un grande Grazie, anche se il grande stava per tutto.

Ti rispondo subito con un grazie anticipato

Permessi di invio