Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Eloirp

Redimensionar Imagem de BD MySQL

Por , em ASP Clássico

Recommended Posts

Eloirp    0

Eloirp
Postado

Estou criando um catálogo on-line e preciso baixar a imagem do produto do banco MySQL, até aí tudo bem, porque com o código abaixo eu consigo fazer isso, o problema que não sei como alterar o tamanho desta imagem! Preciso reduzir e tudo o que encontrei nas buscas não deu certo, alguém para me dar uma luz?

 

No link dá pra ver como aparece, porém preciso de mais ou menos 1/4 deste tamanho!

http://www.kitdeembreagempalio.com.br/portugues/catalogo/testeimg.asp

 

 

<%@ LANGUAGE="VBSCRIPT" %>
<!DOCTYPE html>
<html>
<body>


<!--#include file="conn.asp"-->
   <%
   ' Clear out the existing HTTP header information
    Response.Expires = 0
    Response.Buffer = TRUE
    Response.Clear


   ' Change the HTTP header to reflect that an image is being passed.
    Response.ContentType = "image/gif"
   
Call cnn_Open
    Set rs = conn.Execute("SELECT Anexo, Anexo_Name FROM tbl_Prdt_Img WHERE Prdt='630' AND Status='Ativo' ")


Response.BinaryWrite rs("Anexo")


    Response.End
    call cnn_close
    %>
</body>
</html>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este que uso. altera o Tamanho e Altura da Imagem e fazendo upload

<%
                'declaro minha variavel para recuperar o nome da foto.
                dim nome_foto
                'Instancia o componente
                SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
                server.ScriptTimeout=99999 ' aumenta o tempo para enviar aquivos maiores
 
                        'Configura o caminho onde arquivo será salvo
                        SaFileUp.Path = Server.MapPath("../img/banner/teste/")
                         
                        'Você pode usar também o caminho relativo se preferir
                        'SaFileUp.Path = Server.MapPath("./upload/")
 
                        'Caso o usuário não indique um arquivo para upload, informa erro.
                        If SaFileUp.IsEmpty Then
                                        response.write ("<script>alert('Selecione uma foto antes de salvar!'); location='form_incluir_foto_servico.asp?Servico="&SaFileUp.Form("servico")&"&id="&SaFileUp.Form("id")&"'</script>")
                                        
                                        
                        Else
                                'Salva o arquivo no servidor
                        SaFileUp.Save
'recupera o nome da foto.
                                nome_foto = Right(SaFileUp.Form("fotoBanner"),Len(SaFileUp.Form("fotoBanner"))-InstrRev(SaFileUp.Form("fotoBanner"),"\"))
                
'Instancia o componente AspJep
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Recupera o caminho da foto do meu servidor
Path = Server.MapPath("../img/banner/teste/"&nome_foto)

'Abre a pasta do arquivo
Jpeg.Open Path

'verifica se a imagem dentro do padrao permitido
if Jpeg.OriginalWidth<>119 or Jpeg.OriginalHeight<>119 then

'caso a imagem esteja fora ele deleta a imagem do servidor a avisa ao usuario
                Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                arq1 = Server.MapPath("../img/banner/teste/"&nome_foto)
                objFSO.DeleteFile arq1, True
                set objFSO = nothing
                response.Write("<script>alert('A imagem esta fora do tamanho padrão\n O Tamanho correto é 119px de Largura e 119px de Altura.\n Atualmente essa imagem esta com "&Jpeg.OriginalWidth&"px de Largura e "&Jpeg.OriginalHeight&"px de Altura')</script>")
else
'se estiver tudo correto ele faz o insert na tabela.
set rs = con.execute("INSERT INTO TB_BANNER (BANNER, ID_PAGINA) VALUES ('"&nome_foto&"', '"&SaFileUp.Form("id_foto")&"'")

end if

end if

response.write ("<script>alert('Foto salva com sucesso!');location='banner.asp'</script>")

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito