Problemi con upload su aruba.it

Ho usato spesso anch'io quei 2 files e devo dire sono rimasto abbastanza contento visto che non saprei fare altrimenti per uploadare files. Dovresti chiedere al Sig. Aruba di dare i permessi alle sottocartelle ma...sinceramente non ho mai avuto questa necessità.
Prova ad aprire un ticket, sono abbastanza veloci nel rispondere.
Saluti!

alex007 ha scritto:

Come risolvo? E dove devo intervenire . . .
Ci sono altri script di upload al quale si possono deviare i percorsi di scrittura altrimenti ?

Clicca per allargare...

CIAO..non c'è bisogno che cambi script..Basta che modifichi il file "outputfile.asp". In rosso quello ke devi cambiare..

<!--#include file="upload.asp"-->

<% Dim filename
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_INFO")))-14
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

percorso="\public\tua_cartella\"

Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & percorso & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>

Mi viene un dubbio...i 2 file di aruba li hai messi nella cartella dove vengono caricati i file?Ad edempio io se non li metto nella cartella Public non funzionano...quindi vedrai che dovrai cambiare qualcosa...comunque secondo me Aruba ha stabilito che i file devono andare in public e non si scappa...purtroppo si sa che è limitato come servizio di hosting...

alex007 ha scritto:

O sbaglio qualcosa io o altrimenti non lo so l'errore è il seguente
Microsoft VBScript compilation error '800a03ea'

Syntax error

/public/01/outputFile.asp, line 19

Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) &\public\01\&filename)

Fine errore ------------------------------------------------

Come percorso ho scritto:
percorso="\public\01\"

Come path ho scritto:
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) &\public\01\&filename)

L'ho scritta bene o erro in qualcosa?:incazz:

Clicca per allargare...

Alex.. Fai in questo modo..

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

Prima assegni la variabile...e va bene.. ma poi devi usarla no?

Di funzionare sono sicura che funzioni...perchè uso ank'io questo script..

ciao sono un novizio, ma ho trovato la soluzione:

percorso="cartella\"
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & percorso & filename)

in pratica senza scrivere public nel percorso ma solo la sottocartella..

Problemi con upload su aruba

Buongiorno a tutti.

Anche io sono novizia e mi sto spaccando la testaaaaaa!

Ho letto tutti i messaggi che avete scambiato su questo argomento ed ho seguito pedestremente tutte le vostre istruzioni......e sono arrivata allo stesso problema di Felix:

pagina non disponibile HTTP 500 - Errore interno del server

ma anche con il suggerimento di Devil...non è cambiato nulla!

Per favore ditemi come avete risolto, grazie.

Ho notato però che la mia cartella public nelle proprietà può "eseguire script" ma non può "caricare anonimamente nella directory" (opzione grigiata)

Può voler dire qualche cosa?

Aiutoooooo

grazie in anticipo :crying:

Prendi un server in affitto e metti tutti i permessi che vuoi ultimamente te li tirano dietro

Ragazzi.....
non sono un programmatore....non ho fatto nessun corso..

tutta autodidatta...

per favore aiutatemi.

Luisa

rosas29 ha scritto:

Ragazzi.....
non sono un programmatore....non ho fatto nessun corso..

tutta autodidatta...

per favore aiutatemi.

Luisa

Clicca per allargare...

Beh innanzi tutto dovresti dirci il tuo sito dove si trova...se in locale...se su aruba...se sulla Luna...

scusa

Scusa, su Aruba.....

quando ho detto che avevo lo stesso problema di Alex...

intendevo dire proprio identico!

Stesso Aruba, steso tentativo, stessa risposta!

Grazie comunque per avermi risposto

Ma scusa non hai letto che poi ce l'ha fatta a farlo funzionare?Quindi dovrebbe funzionare anche a te...prendi i due file...li metti nella cartella public...ed il gioco è fatto...io avevo fatto cosi...

Grazie

Ciao Metal,

grazie.

Allora: ho riletto e rivisto tutto da capo, anche perchè, si sa, a distanza di tempo a volte si risolve con un nonnulla...ma non è stato questo il caso purtroppo!

Riepilogo;
in public ho messo la cartella DOCUMENTI e dentro ho messo: form_upload_01.htm - outputFile.asp - upload.asp

ecco lo script di form_upload_01.htm

<% @language="vbscript" %>
<!--#include virtual="/riservato/_private/logon.inc"-->
<html>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
<TITLE></TITLE>
</HEAD>
<BODY bgcolor="#FFCB8C">

<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">

<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp">
<p align="center"><font face="Verdana" size="2">
File : <INPUT TYPE="file" NAME="blob"><BR>
<INPUT TYPE="submit" NAME="Enter">
</font>
</FORM>

</center>
<p align="left">&nbsp;</td>
</tr>
<tr>
<td width="100%">

</td>
</tr>
</table>
</div>

</BODY>


<!-- fine contenuto-->
<!--#include virtual="/riservato/stato.asp"-->
<p><a href="../default.asp">torna</a> </p>

</body>

</html>

ecco lo script di upload.asp


<%Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function%>


ecco lo script di outputFile.asp

<!--#include file="upload.asp"-->
<% Dim filename
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_INFO")))-14

percorso="DocumentiRicevuti\"

Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & percorso & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>

<head>
<title></title>
</head>

<body bgcolor="#FFCB8C">

<p align="center"><font face="Verdana" size="2">
File "<b><%=filename%></b>" ricevuto con successo</font>
<p align="center"><font face="Verdana" size="2>torna</a></font></p>

ecco il link della pagina

http://www.prefabbricatieoltre.it/riservato/default.asp

puoi dare un'occhiata?
Non so proprio più dove sbattere la testa....non ho più fantasia!

Tra le faccina dovrebbero metterne una che si martella....in testa!

Grazie ancora per la tua perdita di tempo

Luisa

Correzione

Scusa, correggo

il percorso è:

percorso="Documenti\"

per un attimo mi sembrava di aver trovato l'inghippo...invece nulla!

sigh!