Problema upload iis7

ndrek

Nuovo Utente
2 Ott 2012
1
0
0
Ciao a tutti,

non riesco a risolvere questo problema con iis7, attualmente sto usando windows server 2008, ho riportato i vecchi siti realizzati in classic asp creati su iis6, qui funzionava tutto, mentre in iis7 non riesco a fare l’ upload delle immagini, cerco di spiegare il problema:

sia in locale che on line il sito funziona tutto perfettamente, riesco a scrivere e leggere il database correttamente, con iis7 in locale non riesco a fare l’ upolad delle immani in una cartella ( public ), quindi a testare il corretto funzionamento.

L’ errore riportato è il 500, non è n problema di dimensioni file, ho fatto prove con immagini piccolissime, pochi byte.

posto qui sotto il codice che utilizzo per eseguire l’ upload sperando che qualcuno possa capire il problema

ringrazio anticipatamente tutti




<%


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'variabili di configurazione

folder = "../../public"

‘due variabili per assegnare alla foto data e ora
codd=time()
codt=FormatDateTime(date(),1)


'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

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'upload primo file

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)&"\"&codt&""&codd&""&filename)


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


MyFile.Close


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recupero il nome dell'immagine iserita nel db
img = codt &"' + '"& codd &"' + '"& filename

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'recupero i dati dal form
cod = UploadRequest.Item( "cod" ).Item("Value")


%>

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/dati.mdb")
%>

<%

SQL="UPDATE offertaMoto set img='"&img&"' WHERE id="&cod

Conn.Execute(SQL)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Intercetto eventuali errori di sql

if Err.Number <> 0 then

Response.Clear()


Response.Redirect "errore.asp"
Response.end


end iF

%>
 
Discussioni simili
Autore Titolo Forum Risposte Data
L [PHP] problema con upload e javascript (upload multiplo) Javascript 2
C [PHP] Problema upload file (multiplo) PHP 1
N [PHP] Problema upload immagini wordpress PHP 2
R Problema upload file PHP 1
Rikk73 Problema upload immagini PHP 4
R Problema upload PHP 1
P Problema con lettura filesystem del client da server! Upload multiplo foto. PHP 5
F Problema con upload di immagini che superano 2MB PHP 14
A Problema con Upload immagini PHP 9
francesco7 [Problema] esecuzione script Upload file in php PHP 0
L classe upload [Problema cartella] PHP 1
B Problema upload delle foto PHP 1
L problema upload: Strict Standards: Only PHP 2
F Problema con upload di file PHP 1
B Problema upload application/x-zip-compressed diventa erroneamente application/octet-stream PHP 0
A problema con upload immagini multiple PHP 0
L problema ftp upload su host windows PHP 9
N problema script php mysql multi upload immagini PHP 31
helpdesk Problema Upload non ridimensiona l'immagine PHP 4
B problema upload file PHP 3
C Problema nell'upload di un file PHP 4
A upload immagini problema PHP 3
R problema upload PHP 9
P Problema upload file PHP 2
G Problema con upload immagini e IE7 PHP 6
V Problema con Pure Asp Upload Classic ASP 4
Y problema nell'upload di un'immagine PHP 7
S Problema upload immagine Classic ASP 4
D Problema nome file su upload Classic ASP 5
F Problema Upload file con Internet Explorer PHP 29
SolidSnake4 problema upload PHP 1
N Problema upload immagini! HELP! PHP 0
S Problema Dominio su Tiscali e upload con ADSL ALICE Domini 1
U Problema script upload file... :'( PHP 7
C problema upload immagini grandi con 4images Programmazione 0
D problema con upload [Era: info] PHP 13
M Problema con l'upload PHP 0
V Problema Upload PHP 6
R Problema query con ricerca id numerico PHP 1
F Problema con risposta PHP 0
S problema con recupero dati tabella mysql PHP 2
Z Problema con il mio tp-l i nk Reti LAN e Wireless 0
I PROBLEMA: Sostituzione sito XAMPP E-Commerce 0
T problema data 30/11/-1 PHP 0
L Problema RAM con Tomcat 8 Apache 0
napuleone problema con sort e asort PHP 4
Y Problema incolonnamento tabella PHP 7
S problema salvataggio immagini Photoshop 0
Z Problema con INT MySQL PHP 1
Z Problema database MySQL con XAMPP PHP 0

Discussioni simili