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.

Posts Relacionados:

1. Como ampliar imagem do produto com efeito na LojaExemplo Locaweb (atualizado)
2. Modificação LojaExemplo “como trocar a categoria de um produto depois de cadastra-lo”
3. Como colocar botão “comprar” na homepage e listagens de categoria na Lojaexemplo Locaweb
4. Como alterar a quantidade de colunas na vitrine da LojaExemplo Locaweb
5. Módulo grátis para adicionar vídeos no sistema LojaExemplo 6.5 da Locaweb

Tags: imagem, Locaweb, lojaexemplo
 Publicado Em : E-commerce Locaweb, Programação

Esse post foi publicado de quarta-feira, 15 de julho de 2009 às 19:11, e arquivado em E-commerce Locaweb, Programação. Você pode acompanhar os comentários desse post através do feed RSS 2.0. Você pode comentar ou mandar um trackback do seu site pra cá.