|
Download de DLL,PDF,ASP,PHP,JPG,DOC e qualquer tipo
de arquivo sem abrir no navegador
%Response.Buffer = True login="teste" response.AddHeader "Content-Type","application/x-msdownload" response.AddHeader "Content-Disposition","attachment; filename=tup.jpg" Response.Flush Const adTypeBinary = 1 Dim strFilePath Set objStream =
Server.CreateObject("ADODB.Stream")
objStream.Open objStream.Type = adTypeBinary objStream.LoadFromFile Server.MapPath("tup.jpg")
Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.Flush %>
:: http://www.asp10.net ================================================== :: Solu��es simples para problemas complexos :: Sistemas de Links, Not�cias, Faq, Loja, :: Estat�sticas, Artigos, Mural e muito mais. ================================================== :: Para entrar, sair ou ver o hist�rico da lista :: Asp10.net visite http://www.asp10.net ==================================================
| ||||||||||||||||
