Como aumentar a imagem do produto na listagens da vitrine e categorias da LojaExemplo Locaweb

Jeann — Wed, 15 Jul 2009 22:11:18 +0000

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.

Montagem para Romero Componentes Eletrônicos

Brunna — Wed, 03 Jun 2009 23:33:55 +0000

Me foi proposto o desafio de montar um robô com alguns dos produtos vendidos pela loja Romero Componentes Eletrônicos. Este robô seria colocado na capa do catálogo de Abril/Maio/Junho. O resultado da montagem foi um robô de aparência simpática, mostrado logo abaixo. Para ver como ficou o catálogo impresso, clique aqui.

Capa do catálogo Romero Componentes Eletrônicos

Desenho: Pincel

Brunna — Thu, 21 May 2009 21:11:17 +0000

Este pincel foi feito especialmente para este blog. Está atualmente inserido no rodapé da página.

Desenho à caneta

Desenho: Dragão

Brunna — Wed, 20 May 2009 21:06:17 +0000

No related posts.

Desenho: Boneco de Neve

Brunna — Tue, 19 May 2009 15:04:24 +0000

No related posts.

Desenho: Papai Noel

Brunna — Mon, 18 May 2009 21:02:39 +0000

No related posts.

Desenho: Inverno

Brunna — Sat, 16 May 2009 19:00:18 +0000

No related posts.

Desenho: Cereja

Brunna — Fri, 15 May 2009 19:49:38 +0000

No related posts.

Surgimento » imagem

Como aumentar a imagem do produto na listagens da vitrine e categorias da LojaExemplo Locaweb

Montagem para Romero Componentes Eletrônicos

Desenho: Pincel

Desenho: Dragão

Desenho: Boneco de Neve

Desenho: Papai Noel

Trabalho para Farfalla Editora: Mochila

Trabalho para Farfalla Editora: Guarda-chuva

Trabalho para Farfalla Editora: Churrasco

Trabalho para Farfalla Editora: Chocolate

Trabalho para Farfalla Editora: Chinelo

Trabalho para Farfalla Editora: Abacaxi

Desenho: Inverno

Desenho: Cereja