upload su aruba

**dany144** · 01-03-2007, 17:25

Di solito per uplodare immagini uso sempre questi script trovati qua e là sulla rete, funzionano sempre tranne che con aruba, ma perchè?
Il server è windows e il db è access!!!

<%

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")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Conte nt-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("filen ame="))
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),Requ estBin,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
%>

<head>

</head>

in neretto ho evidenziato la riga che mi viene segnalata come errore e cmq il messaggio è: Permission denied

**Mems** · 01-03-2007, 17:30

Devi impostare come cartella di destinazione la "public".

**Ceptive** · 01-03-2007, 17:30

I files li devi uplodare nella cartella "public" del tuo dominio.

**Mems** · 01-03-2007, 17:30

Originariamente inviato da Ceptive
I files li devi uplodare nella cartella "public" del tuo dominio.

Primo! Primo!

**dany144** · 01-03-2007, 17:41

e cioè? dove lo imposto?
Oppure basta che sposto il file asp nella cartella public?

**dany144** · 01-03-2007, 18:20

ok risolto, ora però ho un'altro problema sempre sullo stesso file. E' un errore del tipo:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.
/2007/login/outputFile.asp, line 28

e il file è sempre lo stesso cioè:
<%Server.ScriptTimeout = 100000%>
<%
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")
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd)&filen ame)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
<%
canc=request.querystring("ca")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("db.mdb")
sql="Update articoli set foto='" &filename& "'where id='"&canc&"'"
Set RS=OBJdbConnection.Execute(sql)
OBJdbConnection.close

%>

<head>

</head>
<center>
<table border="0" width="100%" height="40">
<tr>
<td width="100%" height="10" bgcolor="#E6E6FF"><font size="2" color="#000080"><font face="Arial">Uploaded file :</font> </font><font color="#000080" size="2" face="Arial"><%=" "&filename%></font></td>
</tr>
<tr>
<td width="100%" height="10" bgcolor="#E6E6FF"><font size="2" color="#000080"><font face="Arial">RECORD :</font> </font><font color="#000080" size="2" face="Arial"><%=" "&canc%></font></td>
</tr>
<tr>
<td width="100%" height="18">

</td>
</tr>
</table>
<H2>AGGIORNAMENTO EFFETTUATO!</H2>

<form method=post action="modifiche.asp">
<input type=hidden name="pass" value="ok">
<input type=submit name="back" value="Torna al menu di gestione">
</form>
</center>

**Mems** · 01-03-2007, 18:26

codice:

sql = "UPDATE articoli SET foto = '" & filename & "' WHERE [id] = " & canc

Discussione: upload su aruba

Strumenti discussione

Ricerca discussione

Visualizza

upload su aruba

Permessi di invio