Código para forçar o download

[ricardovg 1]

Código pra forçar download, neste caso ..... eu pegava as informações do banco ... mas pode ser passadas via querystring tbm. verifica se o arquivo existe no servidor tbm .... qualquer modificação e melhoras postem aí .. falow ......***********************************<%@ Language=VBScript %><%dim varPathdim varFileDim rsDownloadDim varId'Path = Request.QueryString("Path")'File = Request.QueryString("File")varErro = 0varId = Request.QueryString("Id")strSQL = "SELECT * FROM tblArquivos WHERE IdArquivo = "&varID&""Set rsDown = Server.CreateObject("AdoDB.Recordset")rsDown.open strSQL, Conn_StringIF Not rsDown.EOF ThenvarPath = rsDown("Path")varFile = rsDown("FileName")varIdsUser = rsDown("IdUser")varArquivo = varPath & varFile'Response.Write(varPath)'Response.End()'***********************************'GRAVA DOWNLOAD NO BANCO DE DADOS'***********************************strSQL = "INSERT INTO tbl_CR_Downloads ( IdUser, IdUpload, SessaoID ) VALUES ( "&Session("IdUSer")&", "&varId&", '"&Session.SessionID&"' )"Set rsIns = Server.CreateObject("ADODB.Recordset")rsIns.Open strSQL, Conn_StringSet rsIns = NothingElsevarMSG = varMSG & "<br><br>• Nenhum arquivo foi encontrado para o ID : " & varIdvarErro = 1End IFrsDown.CloseSet rsDown = Nothing'***********************************'VERIFICA SE ENCONTROU ALGUM ERRO NO CAMINHO'Se o arquivo existe'***********************************Set objFS = Server.CreateObject("Scripting.FileSystemObject")If Not objFS.FileExists(varArquivo) ThenvarMSG = varMSG & "<br><br>• O Arquivo não existe no servidor selecionado, tente em outro."varErro = 1End IfSet objFS = NothingIf varErro = 1 ThenResponse.Write("Verefique o(s) Erro(s) abaixo : <br><br>")Response.Write(varMSG)'Response.Write("<script>self.close();</script>")Response.End()End If'***********************************'VERIFICA SE ENCONTROU ALGUM ERRO NO CAMINHO'Avisamos que o modelo do arquivo será para download'***********************************response.AddHeader "Content-Type","application/x-zip-compressed"'***********************************'Identificamos o nome que queremos para o arquivo de destino'mude o Filename para o nome que você deseja !'***********************************response.AddHeader "Content-Disposition","attachment; filename=" & varFileResponse.FlushResponse.Buffer = TrueConst adTypeBinary = 1'***********************************'O ADODB Stream foi utilizado para lermos o arquivo em formato'binário, o FileSystemObject não permite leituras binárias e 'se fosse convertido para texto poderíamos danificar o arquivo.'***********************************Set objStream = Server.CreateObject("ADODB.Stream")objStream.OpenobjStream.Type = adTypeBinary'***********************************'Informe aqui o caminho completo do arquivo no servidor,'se você não souber o caminho completo, mude o "E:\Home..." por'Server.MapPath("Nome_Do_Arquivo")'***********************************objStream.LoadFromFile varArquivo 'Server.MapPath(Path)Response.BinaryWrite objStream.Read'***********************************'Destroi objeto'***********************************objStream.CloseSet objStream = NothingResponse.Flush%>

[pcs 0]

:rolleyes: seria pedir muito se falasse pra você enviar um exemplo sem banco de dados?? é o seguinte, estou tentando fazer um botão que faça download de uma imagem jpg.obrigado icq:111239885