Chi mi aiuta a sistemare questo script vedi: http://www.rosolinamare.info/foto/ la descrizione testuale funziona non riesco a fare l'upload .Comunque io uso il server aruba e penso che i permessi di scrittura sono nella cartella public.forse c'è qualche percorso sbagliato!!! chi mi aiuta à trovarlo???Questo è il link dove si trova il script http://www.rosolinamare.info/foto.zip
Vi prego aiutatemi no capisco + nienteee
Non ti avevo detto stamattina di mostrare l'errore???
Roby
www.creamweb.it [v. 3.0]
:: Script ASP!
:: Web directory gratuita!
:: Campioni del mondo!
Questo è il file upload dove dovrebbe andare il file nella cartella public (c'è qualche errore???)
-------------------------------------------
<%
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
'Sondaggio con ASP by ASPCode.it - http://www.aspcode.it '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
'variabili di configurazione
Dim folder
folder = "../public" '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("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
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
%>
<%
Session ("blob")= (Server.mappath(folder)&"\"&filename)
%>
<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><a href="modulo1.htm"><font face="arial" size="2" color="black">ORA
INSERISCI IL TUO MESSAGGIO</font></a></td>
</tr>
<tr>
<td width="400" height="10" bgcolor="#40576f" align=right>www.aspcode.it</font></td>
</tr>
</table>
</body>
</html>
Ma il percorso come ce lo metti?codice:
L'upload pare funzionare, solo che poi non ci metti il nome
Quale nome????????
Il nome dell'immagine uploadata
guardando nella cartella public non vedo nessuna immagine da mè uplodata?
prova a fare una prova http://www.rosolinamare.info/foto/
L'ho fatta la prova, a me dice che ho messo il file correttamente.
Prova http://baol.cjb.net
A questo punto c'è qualcuno che a uno script simile a questo?
inserimento immagine con testo + delete immagine?
Permessi di invio
Rispondi quotando