Autor Zpráva
Taps
Profil
Zdravím, v ASP mám vytvořený níže uvedený skript, pomocí kterého mám zrealizovaný download souborů, problém je však v tom, že u souborů, které jsou větší jak 4 MB se zobrazí chyba 500. Můžete mi někdo poradit jak skript upravit, případně jak upravit nastavení IIS. Děkuji

        const adTypeBinary = 1
        dim strFilePath, strFile

        strFile = Request.QueryString("soubor")
        slozka =  Request.QueryString("slozka")
        strFilePath = Request.QueryString("sekce")
        cesta = strFilePath& "/" &slozka& "/" & strFile


        If strFile <> "" Then 
        FileSize = CreateObject("scripting.filesystemobject").GetFile (cesta).Size


            Dim objStream
            Set objStream = Server.CreateObject("ADODB.Stream")
            objStream.type = adTypeBinary
            objStream.Open
            test = strFilePath& "/" &slozka& "/" & strFile
            objStream.LoadFromFile(Server.MapPath(strFilePath& "/" &slozka& "/" & strFile))
            Response.ContentType = "application/octet-stream"
            Response.Addheader "Content-Disposition", "attachment; filename=" & strFile
            Response.AddHeader "Content-Length", FileSize
            Response.BinaryWrite objStream.Read
            objStream.Close
            Set objStream = Nothing   
            
        End If
                
        slink="<a href=""?sekce=clanky/dokumenty&slozka=2453&soubor=6ac22f15-3-hl-b"">uložit »</a>"
        %>

        <%=slink%>

Vaše odpověď


Prosím používejte diakritiku a interpunkci.

Ochrana proti spamu. Napište prosím číslo dvě-sta čtyřicet-sedm: