Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
Ted k'

Forçando Downloads com ASP


Função Criada...

public function download(arquivo, pasta)
    dim objStream
    set objStream = server.createObject("ADODB.Stream")
    with (response)
        .buffer = true  
        .addHeader "Content-Type","application/x-msdownload"
        .addHeader "Content-Disposition","attachment; filename="&arquivo  
    end with
    with (objStream)
        .type = 1  
        .loadFromFile server.mapPath(pasta)
    end with
    response.binaryWrite objStream.read
    set objStream = nothing
end function
para chamar a função...
<a href="<% call download("arquivo.pdf", "pasta") %>">baixe aqui</a>

Share this post

Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

muito bom...

mais tem uma correção a ser feita...

.loadFromFile server.mapPath(pasta)
.loadFromFile server.mapPath(pasta&"/"&arquivo)

eu não testei mais esse link em html também dará zebra pois ele vai chama a função direto ... e não no clique...

Share this post

Link to post
Share on other sites
  • 0

Coloquei assim porque, geralmente uso essa função dentro de IF ou em outra pagina, exemplo "simples":

<a href="pagina.asp?chamar=ok&<% call download("arquivo.pdf", "pasta") %>">baixe aqui</a>

coloco o if assim:

if cstr(request.querystring("chamar")) = "ok" then

... função download ...

end if

mais valeu man!! :)

Edited by Ted k'

Share this post

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Forum Statistics

    • Total Topics
    • Total Posts
  • Create New...