upload

[evetta]

sto cercando di creare un'interfaccia per fare l'upload di file...
ho provato con quello di baol ma non mi funziona...non capisco dove sbaglio..
ho trovato allora un altro script e quando invio l'upload mi appare questo errore:

Microsoft VBScript runtime error '800a0046'

Permission denied

?


ho controllato le proprietà della cartella in cui faccio fare l'upload ed ah i permessi in scrittura..
che vuol dire?!?

[viki1967]

Vuol dire che la cartella non ha i permessi oppure sbagli il percorso della cartella dove vuoi fare l'upload del file.

[evetta]

i file asp si trovano nella cartella upload e la cartella immagini(quellain cui caricare i file) è all'interno della cartella upload

io scrivo questo percorso"/immagini"

[viki1967]

posta il codice ed accertati che le cartelle upload e immagini abbiano i permessi di scrittura abilitati...

[evetta]

intanto ti dico che avevo sbagliato amettere lo slash...sono un po' fusa...
ora mi dà questo errore:
Microsoft VBScript runtime error '800a0046'

Permission denied

/public/upload.asp, line 84


codice di upload.asp

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Upload con ASP by ASPCode.it - http://www.aspcode.it						 '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'variabili di configurazione
Dim folder
folder = "/immagini"				'directory sul server con accesso in scrittura
'fine variabili di configurazione

Response.Expires=0
Response.Buffer = TRUE
Response.Clear

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("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

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
%>

<html>
<head>
	<title>UPLOAD FILE</title>
</head>
<body>


<table border=0 width=360 bgcolor=#40576f cellspacing=1 align=center>
	<tr>
		<td width=400 align=center bgcolor=#40576f><FONT FACE="tahoma" color=#ffffff size=2>Il file <%=filename%> è stato uploadato con successo.</FONT></td>
	</tr>
  <tr>
    <td width="400" height="30" bgcolor="#E6E6FF" align=center>&lt; &lt; UPLOAD DI UN ALTRO FILE</font></td>
  </tr>
  <tr>
    <td width="400" height="10" bgcolor="#40576f" align=right>www.aspcode.it</font></td>
  </tr>
</table>


</body>
</html>

ho messo in rosso la riga in cui mi dà errore

[viki1967]

Scusa tanto ma se scrivi:

folder = "/immagini"

vuol dire che la cartella immagini è superiore alla cartella upload, invece dici che è all'interno di upload... prova così:

folder = "immagini"

[evetta]

stesso identico errore...

[viki1967]

Originariamente inviato da evetta
stesso identico errore...

Modifica così e fammi sapere:

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")

response.write contentType &"
"
response.write filepathname &"
"
response.write filename &"
"
response.write value &"
"

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

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename) 

response.write MyFile &"
"
response.end

Sicura che la cartella immagini abbia i permessi di scrittura...

[evetta]

se vado a vedere le proprietà della cartella sono settati tutti i permessi..

[viki1967]

Originariamente inviato da evetta
se vado a vedere le proprietà della cartella sono settati tutti i permessi..

hai modificato il codice come ti dico?