Forçando Downloads com ASP

[Ted k']

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  
        .flush  
    end with
    with (objStream)
        .open  
        .type = 1  
        .loadFromFile server.mapPath(pasta)
    end with
    response.binaryWrite objStream.read
    set objStream = nothing
    response.flush
end function

para chamar a função...

<a href="<% call download("arquivo.pdf", "pasta") %>">baixe aqui</a>

[bareta]

muito bom...

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

.loadFromFile server.mapPath(pasta)

por:

.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...

[Ted k']

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!! :)

Editado Julho 9, 2009 por Ted k'