Questo è il file getnew.asp, ho tolto la parte gestione immagine 2+3 perchè altrimenti superava il numero di caratteri massimo del post...
Adesso l'errore lo segna alla riga 261, che è sempre la
UploadRequest.Add name, UploadControl
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
Dim DataOggi
DataOggi = Date()
DataOggi = FormatDateTime(DataOggi, VBShortDate)
DataOggi = Replace(DataOggi, "/", "-")
Dim Numcasuale
Randomize()
Numcasuale = CInt(Rnd() * 10000)
Dim Numcasuale2
Randomize()
Numcasuale2 = CInt(Rnd() * 10000)
Dim Numcasuale3
Randomize()
Numcasuale3 = CInt(Rnd() * 10000)
Dim Numcasuale4
Randomize()
Numcasuale4 = CInt(Rnd() * 10000)
' percorso di salvataggio immagini
PercorsoIM = "../immagini/"
Response.Write TodayDate
':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima somma peso delle immagine
'GrandezzaMassima = 180000 ' 180 kb
GrandezzaMassima = 999000 ' 999 kb somma peso delle 4 foto
'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::: File 1
'IDUnivoco = UploadRequest.Item("IDUnivoco").Item("Value")
contentType = UploadRequest.Item("file1").Item("ContentType")
filepathname = UploadRequest.Item("file1").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if not filename="" then
' mod 20/11/2010 - mette _ se spazio nel nome immagine 1
filename = Replace(filename, " ", "_")
value = UploadRequest.Item("file1").Item("Value")
':::::::::::::: Controllo che siano state inserire le immagini con l'estensione jpg, gif, png
chkjpg = instr(lcase(filename), ".jpg")
chkgif = instr(lcase(filename), ".gif")
chkpng = instr(lcase(filename), ".png")
if chkgif > 0 or chkjpg > 0 or chkpng > 0 Then
else
Response.Redirect ("errorUpload.asp")
Response.end
end if
':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima dell'immagine 29000 circa 300 KB
If Request.TotalBytes > GrandezzaMassima Then
Response.Redirect ("errorUploadpixel.asp")
Response.end
End If
'::::::::::::::::::::::::::::::::::::::::::::::
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(Percors oIM & DataOggi & "_" & Numcasuale & "_" & filename ))
session("fil") = DataOggi & "_" & Numcasuale & "_" & filename
session.Abandon
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
set myfile = nothing
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("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
end if
'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::: File 4
contentType = UploadRequest.Item("file4").Item("ContentType")
filepathname = UploadRequest.Item("file4").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if not filename="" then
' mod 20/11/2010 - mette _ se spazio nel nome immagine 4
filename = Replace(filename, " ", "_")
value = UploadRequest.Item("file4").Item("Value")
':::::::::::::: Controllo che siano state inserire le immagini con l'estensione jpg, gif, png
chkjpg = instr(lcase(filename), ".jpg")
chkgif = instr(lcase(filename), ".gif")
chkpng = instr(lcase(filename), ".png")
if chkgif > 0 or chkjpg > 0 or chkpng > 0 Then
else
Response.Redirect ("errorUpload.asp")
Response.end
end if
':::::::::::::::::::::::::::::::::::::::::::::: Grandezza massima dell'immagine circa 300 KB
If Request.TotalBytes > GrandezzaMassima Then
Response.Redirect ("errorUploadpixel.asp")
Response.end
End If
'::::::::::::::::::::::::::::::::::::::::::::::
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(Percors oIM & DataOggi & "_" & Numcasuale4 & "_" & filename ))
session("fil4") = DataOggi & "_" & Numcasuale4 & "_" & filename
session.Abandon
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
set myfile = nothing
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("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
end if
session.Abandon
%>
Qualche suggerimento?
Gab
Rispondi quotando