LojaExemplo: Como aumentar a imagem do produto na listagens da vitrine e categorias de sua loja

• Olá,

  Para quem deseja aumentar um pouco o tamanho da imagem pequena dos produtos de sua LojaExemplo Locaweb siga a dica:

  Entre no arquivo ADM_insereAltProduto.asp que esta dentro da pasta painelctrl e vá até a seguinte parte do código:

  Set jpg = Server.CreateObject(“Persits.Jpeg”)
  ‘Define o tamanho da imagem pequenas
  L = 90
  G = 350

  ‘ diretório em que a imagem será salva
  If myFileUpload.Form(“img_produto”).UserFilename <> “” Then

  ‘Salva a imagem enviada
  myFileUpload.Form(“img_produto”).Path = Application(“DiretorioImagensConteudo”) & “\produtos\temp”

  Mude o valor de 90 para o tamanho que achar ideal para sua loja. Eu gosto bastante do tamanho 120px, mas varia para cada loja.

  Altere também para o mesmo numero os seguintes pontos:

  ‘ diretório em que a imagem será salva
  If myFileUpload.Form(“img_produto”).UserFilename <> “” Then

  ‘Salva a imagem enviada
  myFileUpload.Form(“img_produto”).Path = Application(“DiretorioImagensConteudo”) & “\produtos\temp”
  myFileUpload.Form(“img_produto”).Save
  ArquivoTemp = Mid(myFileUpload.Form(“img_produto”).UserFilename, InstrRev(myFileUpload.Form(“img_produto”).UserFilename, “\”) + 1)

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto”).Path & “\” & ArquivoTemp)
  jpg.Width = L
  jpg.Height = Jpg.OriginalHeight * 90 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensPQN\PQN_” & codigo_produto & “_” & ArquivoTemp

  img_produtoPQN = “config/imagens_conteudo/produtos/imagensPQN/PQN_” & codigo_produto & “_” & ArquivoTemp

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto”).Path & “\” & ArquivoTemp)
  ‘Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
  If myFileUpload.Form(“redimimg_produto”) = “sim” Then
  jpg.Width = G
  jpg.Height = Jpg.OriginalHeight * 350 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  End if
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensGRD\GRD_” & codigo_produto & “_” & ArquivoTemp
  img_produtoGRD = “config/imagens_conteudo/produtos/imagensGRD/GRD_” & codigo_produto & “_” & ArquivoTemp

  ‘Deleta a imagem enviada
  Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
  If objFSO.FileExists(Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp) Then
  objFSO.DeleteFile Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp
  End If
  Set objFSO = Nothing

  End If

  If myFileUpload.Form(“img_produto_adic01″).UserFilename <> “” Then

  ‘Salva a imagem enviada
  myFileUpload.Form(“img_produto_adic01″).Path = Application(“DiretorioImagensConteudo”) & “\produtos\temp”
  myFileUpload.Form(“img_produto_adic01″).Save
  ArquivoTemp01 = Mid(myFileUpload.Form(“img_produto_adic01″).UserFilename, InstrRev(myFileUpload.Form(“img_produto_adic01″).UserFilename, “\”) + 1)

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto_adic01″).Path & “\” & ArquivoTemp01)
  jpg.Width = L
  jpg.Height = Jpg.OriginalHeight * 90 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensPQN\PQN_adic01_” & codigo_produto & “_” & ArquivoTemp01

  img_produto_adic01PQN = “config/imagens_conteudo/produtos/imagensPQN/PQN_adic01_” & codigo_produto & “_” & ArquivoTemp01

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto_adic01″).Path & “\” & ArquivoTemp01)
  ‘Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
  If myFileUpload.Form(“redimimg_produto_adic01″) = “sim” then
  jpg.Width = G
  jpg.Height = Jpg.OriginalHeight * 350 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  End If

  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensGRD\GRD_adic01_” & codigo_produto & “_” & ArquivoTemp01

  img_produto_adic01GRD = “config/imagens_conteudo/produtos/imagensGRD/GRD_adic01_” & codigo_produto & “_” & ArquivoTemp01

  ‘Deleta a imagem enviada
  Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
  If objFSO.FileExists(Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp01) Then
  objFSO.DeleteFile Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp01
  End If
  Set objFSO = Nothing

  End If

  If myFileUpload.Form(“img_produto_adic02″).UserFilename <> “” Then

  ‘Salva a imagem enviada
  myFileUpload.Form(“img_produto_adic02″).Path = Application(“DiretorioImagensConteudo”) & “\produtos\temp”
  myFileUpload.Form(“img_produto_adic02″).Save
  ArquivoTemp02 = Mid(myFileUpload.Form(“img_produto_adic02″).UserFilename, InstrRev(myFileUpload.Form(“img_produto_adic02″).UserFilename, “\”) + 1)

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto_adic02″).Path & “\” & ArquivoTemp02)
  jpg.Width = L
  jpg.Height = Jpg.OriginalHeight * 90 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensPQN\PQN_adic02_” & codigo_produto & “_” & ArquivoTemp02

  img_produto_adic02PQN = “config/imagens_conteudo/produtos/imagensPQN/PQN_adic02_” & codigo_produto & “_” & ArquivoTemp02

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto_adic02″).Path & “\” & ArquivoTemp02)
  ‘Caso a opção de redimensionar a imagem esteja marcada aqui abaixo ocorre a mudança
  If myFileUpload.Form(“redimimg_produto_adic02″) = “sim” then
  jpg.Width = G
  jpg.Height = Jpg.OriginalHeight * 350 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  End if
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensGRD\GRD_adic02_” & codigo_produto & “_” & ArquivoTemp02

  img_produto_adic02GRD = “config/imagens_conteudo/produtos/imagensGRD/GRD_adic02_” & codigo_produto & “_” & ArquivoTemp02

  ‘Deleta a imagem enviada
  Set objFSO = Server.CreateObject(“Scripting.FileSystemObject”)
  If objFSO.FileExists(Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp02) Then
  objFSO.DeleteFile Application(“DiretorioImagensConteudo”) & “\produtos\temp\” & ArquivoTemp02
  End If
  Set objFSO = Nothing

  End If

  If myFileUpload.Form(“img_produto_adic03″).UserFilename <> “” Then

  ‘Salva a imagem enviada
  myFileUpload.Form(“img_produto_adic03″).Path = Application(“DiretorioImagensConteudo”) & “\produtos\temp”
  myFileUpload.Form(“img_produto_adic03″).Save
  ArquivoTemp03 = Mid(myFileUpload.Form(“img_produto_adic03″).UserFilename, InstrRev(myFileUpload.Form(“img_produto_adic03″).UserFilename, “\”) + 1)

  ‘Gera imagem pequena usando o componente aspjpeg
  jpg.Open( myFileUpload.Form(“img_produto_adic03″).Path & “\” & ArquivoTemp03)
  jpg.Width = L
  jpg.Height = Jpg.OriginalHeight * 90 / Jpg.OriginalWidth
  jpg.Sharpen 1, “101″
  jpg.Save Application(“DiretorioImagensConteudo”) & “\produtos\imagensPQN\PQN_adic03_” & codigo_produto & “_” & ArquivoTemp03

  Agora, sempre que for adicionar uma imagem ela já ficará no tamanho que escolher. Percebam que mostrei os 4 pontos adicionais que precisa trocar, mas o necessário é só o primeiro, já que é sempre a primeira imagem que aparece na vitrine ou na categoria. Mas sempre é bom mudar em todas as partes que mostrei acima em vermelho.

  Espero ter ajudado.

  Forte abraço.
  
  

  
  
  

  Tweet

  
  
  
  
  
  julho 15th, 2009 | Jeann | 2 Comentários | Tags:Dicas para sua Loja Virtual, LojaExemplo

• Buscar neste site

  Pesquisar por:

• 
  

• Ultimos posts

  • Dicas de segurança no OpenCart – Como proteger arquivos de template e xmls vqmod
  • OpenCart – Como retirar os dados do depósito bancário do checkout antes de gerar o pedido
  • Módulo para OpenCart – Cor de pedido por Status
  • Pagseguro vs Moip vs Pagamento Digital vs PayPal vs Mercado Pago
  • Agenda Otimizada da Campus Party Brasil
  • Como vender ou promover produtos digitais
  • Alteração OpenCart: marcação com mouse over em todas as listagens do administrativo
  • Como criar uma loja virtual – o que saber antes de criar sua loja online
  • Atualize sua loja OpenCart sem perder modificações usando o vQmod
  • Como Investir Dinheiro
• 
  

• Tags

  administrativo anti fraude Blog Buscapé Comportamento curso Desconto Dica Dicas de Design Dicas para sua Loja Virtual Downloads e-commerce f-control fraude homologação imagens Impressos jquery layout Locaweb Logotipo loja exemplo LojaExemplo m-clearsale Magento Mercado Livre MySQL opencart Pagamento Digital pagamento á vista PagSeguro parcelamento PayPal plugin Portfolio Programação segurança SEO site blindado template tutorial visa vqmod wordpress zoom

• Arquivos

  • janeiro 2012 (4)
  • dezembro 2011 (3)
  • novembro 2011 (5)
  • outubro 2011 (10)
  • setembro 2011 (2)
  • agosto 2011 (4)
  • julho 2011 (4)
  • junho 2011 (1)
  • abril 2011 (5)
  • março 2011 (7)
  • janeiro 2011 (1)
  • outubro 2010 (1)
  • agosto 2010 (14)
  • julho 2010 (2)
  • fevereiro 2010 (1)
  • janeiro 2010 (2)
  • dezembro 2009 (2)
  • novembro 2009 (17)
  • outubro 2009 (1)
  • setembro 2009 (2)
  • julho 2009 (13)
  • junho 2009 (7)
  • dezembro 2008 (1)
  • novembro 2008 (1)
  • outubro 2008 (1)
  • junho 2008 (1)
•