ciao, vengo subito al dunque, ho il seguente codice che mi permette di uploadare un file su server ARUBA:
codice:
<% Server.ScriptTimeout=3600%>
<%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")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
Se io uppo file da 2-3 Mb, lo sricpt funziona alla grande, il file viene uploadato con successo.
Ma se incomincio a uppare file da 15-20 Mb, mi da o un errore nella riga 6 o un errore nella riga 7.
Qualcuno sa spiegarmi il perchè?
Devo usare un codice diverso?
Grazie in anticipo