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

Rispondi quotando

