webForumDet fria alternativet
Logga in / Bli medlem

Problem med filstorlek i uploadscriptet

ASP

0 svar · 246 visningar · startad av Fireh

Medlem sedan jan. 2003173 inlägg
Trådstart#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?

264 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
128 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
119 ms — ändringar (db)