| 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%> |
||
|
Časová prodleva: 10 let
|
|||
0