webForumDet fria alternativet

Problem med filstorlek i uploadscriptet

0 svar · 244 visningar · startad av Fireh

FirehMedlem sedan jan. 2003173 inlägg
#1

Jag använder OverRides uloadscript för filer, men när filerna är större än runt 650 KB nånstans, så får jag följande felmeddelande:

Åtgärden avbröts
Internet Explorer kunde inte länka till webbsidan du begärde. Sidan kanske inte är tillgänglig för tillfället.

Men så länge som filerna är under 650 KB så fungerar det. Jag tänkte då göra en spärr för detta och använder följande kod till det. Men det gör ingen som helst skillnad. Men jag får fortfarande samma felmeddelande.

If Action = "Upload" Then
  Response.Expires=0
  Response.Buffer = TRUE
  Response.Clear
  byteCount = Request.TotalBytes

  If byteCount < 512000 Then

    RequestBin = Request.BinaryRead(byteCount)
    Dim UploadRequest
    Set UploadRequest = CreateObject("Scripting.Dictionary")

    BuildUploadRequest RequestBin

    contentType = UploadRequest.Item("Bild").Item("ContentType")
    filepathname = UploadRequest.Item("Bild").Item("FileName")
  
    If UploadRequest.Item("Bild").Item("FileName") <> "" Then
      Sokvag = UploadRequest.Item("Bild").Item("FileName")
      Filnamn = Right(Sokvag, Len(Sokvag) - InStrRev(Sokvag, "\"))
      Ext = LCase(Right(Filnamn, Len(Filnamn) - InStrRev(Filnamn, ".")))
      Value = UploadRequest.Item("Bild").Item("Value")
  
      If Ext = "jpg" or Ext = "jpeg" or Ext = "bmp" or Ext = "png" Then
        Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
        pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
        Set MyFile = ScriptObject.CreateTextFile(Server.MapPath("pics/"&Filnamn))
    
        For i = 1 to LenB(value)
          MyFile.Write chr(AscB(MidB(value,i,1)))
        Next
  
        MyFile.Close
        %>
        <!--#include file="image-upload.asp"-->
        <%
      Else
        Action = ""
        Meddelande = "Du valde en bild med otillåtet format!"
      End if
    Else
      Action = ""
      Meddelande = "Du måste välja en bild att ladda upp!"
    End If
  Else
    Action = ""
    Meddelande = "Bilden är större än 500 KB!"
  End if
End if

Man skulle ju kanske kunna lägga in det som ett JavaScript som kontrollerar storleken innan ens uppladdningen sker. Men i så fall ska detta passa in i följande JavaScript som körs när man klickar på "Ladda upp". Det vet jag inte hur man gör och jag vet heller inget script som gör den kollen.

  <SCRIPT LANGUAGE="JavaScript">
  function disableForm(theform)
   {
    if (document.all || document.getElementById)
     {
      for (i = 0; i < theform.length; i++)
       {
        var tempobj = theform.elements[i];
        if (tempobj.type.toLowerCase() == "submit" || tempobj.type.toLowerCase() == "reset")
        tempobj.disabled = true;
       }
     }
   }
  </script>

Någon som kan hjälpa mig?

144 ms totalt · 3 externa anrop · v20260731065814-full.86db40fa
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
127 ms — hämta tråd, inlägg och bilagor (db)