Módulo grátis para adicionar vídeos no sistema LojaExemplo 6.5 da Locaweb

Jeann — Tue, 21 Jul 2009 23:51:22 +0000

Olá,

Estou disponibilizando um módulo grátis de inserção de vídeos pelo administrativo. O sistema aceita apenas código dos vídeos hospedado em sites como o Youtube.

O vídeo aparecerá na pagina “produtos_destaque.asp” como visto abaixo:

O código é adicionado pelo administrativo na edição do produto no campo “video”, como mostrado abaixo:

Primeiramente precisa-se criar um campo chamado “video” do tipo “text” na tabela “Produtos” do banco de dados antes do campo img_produtoPQN. Ou, se preferir, coloquei a instrução do campo em SQL junto dos arquivos do módulo.

Na pagina produtos_descricao.asp adicione o código em vermelho abaixo:

Set RS_Produto.ActiveConnection = Conexao
RS_Produto.CursorLocation = 3
RS_Produto.CursorType = 0
RS_Produto.LockType = 1

‘Seleciona dados do produto indicado
RS_Produto.Open “SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.frete_gratis,Produtos.sul, Produtos.sudeste,Produtos.centro, Produtos.norte, Produtos.nordeste, Produtos.moeda, Produtos.quantidade_produto,Produtos.video,Produtos.largura , Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma, Categorias.nome_categoria FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Codigo_produto = “&Request(“codigo_produto”)&” AND Produtos.sigla_idioma = ‘” & varLang & “‘ AND Categorias.sigla_idioma = ‘” & varLang & “‘”, Conexao

‘Converte para o cambio cadastrado conforme idioma selecionado.

Mais abaixo ainda na pagina produtos_descricao.asp adicione o conteudo em vermelho abaixo:

%>

<% if RS_Produto(“video”) <> “” Then%>

Video do produto

<%                   ’ formatação do video tirando os tamanhos atuais e colocandoos padões
Dim texto, arrayTexto,arrayAltura,quebra, z
if RS_Produto(“largura”) <> 0 Then
largura_video = RS_Produto(“largura”)
Else
largura_video = 500
End if

texto = RS_Produto(“video”)
arrayTexto = Split(texto,”width=”"”)

For z = 0 to Ubound(arrayTexto)
if z <> 0 Then
temp = Left(arrayTexto(z),3)
divisor = largura_video / temp
End if

arrayTexto(z) = replace(arrayTexto(z),temp,”width=”"”&largura_video&”")

video_mostra_largura = video_mostra_largura & arrayTexto(z)
Next

arrayAltura = Split(video_mostra_largura,”height=”"”)
For z = 0 to Ubound(arrayAltura)
if z <> 0 Then
temp_altura = Left(arrayAltura(z),3)
altura = Round(temp_altura * divisor)

End if

arrayAltura(z) = replace(arrayAltura(z),temp_altura,”height=”"”&altura&” “)

video_mostra = video_mostra & arrayAltura(z)
Next

‘ fim formatação do video tirando os tamanhos atuais e colocandoos padões

%>

<%=video_mostra%>

<%End if%>

Na pagina ADM_insereAltProduto.asp adicione os trechos em vermelho abaixo:
sul = myFileUpload.Form(“sul”)
sudeste = myFileUpload.Form(“sudeste”)
centro = myFileUpload.Form(“centro”)
nordeste = myFileUpload.Form(“nordeste”)
norte = myFileUpload.Form(“norte”)

video = myFileUpload.Form(“video”)
largura = myFileUpload.Form(“largura”)

‘ Retira virgula e repoe por ponto, para evitar problemas no UPDATE
preco_unitario       = replace(myFileUpload.Form(“preco_unitario”),”.”,”")
preco_unitario       = replace(preco_unitario,”,”,”.”)

If myFileUpload.Form(“promocao”) = “1″ Then

(..)

‘Se a se acao_admin for alterar registro
If myFileUpload.Form(“acao_admin”) = “alterar registro” Then

‘Se existir um codigo chave para este registro, indica que categoria está cadastrada com idioma da consulta
If codigo_produto <> “” And Replace(VetorCodigoChave,”,”,”") <> 0 Then
RS_Produto.Open “SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, desconto2, frete_gratis, sul, sudeste, centro, norte, nordeste, moeda, quantidade_produto, prazo_entrega, video,largura, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, promocao_avista, porcentagem_desconto, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE codigo_chave = ” & Replace(VetorCodigoChave,”,”,”") & ” AND sigla_idioma = ‘”& Trim(VetorIdioma) &”‘”, Conexao

‘Se não existir um codigo chave para este registro, indica que categoria não está cadastrada com idioma da consulta
Else
RS_Produto.Open “SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, desconto2, frete_gratis, sul, sudeste, centro, norte, nordeste, moeda, quantidade_produto, prazo_entrega, video,largura, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, promocao_avista, porcentagem_desconto, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE sigla_idioma = ‘”& Trim(VetorIdioma) &”‘”, Conexao
‘Metodo que define a ação de novo registro
RS_Produto.AddNew
‘Registra o codigo de categoria passado para este novo registro
RS_Produto(“codigo_produto”) = request.querystring(“codigo_produto”)
End If

(..)

RS_Produto(“promocao”) = promocao
RS_Produto(“desconto”) = desconto
RS_Produto(“promocao_avista”) = promocao_avista
RS_Produto(“porcentagem_desconto”) = porcentagem_desconto

if largura <> “” Then
RS_Produto(“largura”) = largura
Else
RS_Produto(“largura”) = 0
End if
if video <> “” Then
RS_Produto(“video”) = video
else
RS_Produto(“video”) = “”
End if

if desconto2<>”" Then
RS_Produto(“desconto2″) = desconto2
Else
RS_Produto(“desconto2″) = 0
End if
No arquivo ADM_altera_produto.asp adicione o trecho vermelho abaixo:
Set RS_Produto = Server.CreateObject(“ADODB.Recordset”)
RS_Produto.CursorLocation = 3
RS_Produto.CursorType = 0
RS_Produto.LockType = 3

RS_Produto.Open “SELECT codigo_chave, codigo_produto, codigo_categoria, codigo_subcategoria, codigo_marca, codigo_produto_loja, nome_produto, descricao_produto, autor, codigo_isbn, tamanhos, cores, preco_base, preco_unitario, desconto, desconto2, frete_gratis, img_frete, sul, sudeste, centro, norte, nordeste, moeda, quantidade_produto,prazo_entrega , video,largura, img_produtoPQN, img_produtoGRD, img_produto_adic01PQN, img_produto_adic01GRD, img_produto_adic02PQN, img_produto_adic02GRD, img_produto_adic03PQN, img_produto_adic03GRD, peso, destaque_vitrine, promocao, promocao_avista, porcentagem_desconto, data_inicio, data_fim, disponivel, sigla_idioma FROM Produtos WHERE codigo_produto = ” & codigo_produto & ” AND sigla_idioma = ‘”& VetorIdioma &”‘”, Conexao

If Not RS_Produto.EOF Then

nome_produto = RS_Produto(“nome_produto”)
codigo_categoria = RS_Produto(“codigo_categoria”)
codigo_subcategoria = RS_Produto(“codigo_subcategoria”)
codigo_marca = RS_Produto(“codigo_marca”)
codigo_produto_loja = RS_Produto(“codigo_produto_loja”)
codigo_isbn = RS_Produto(“codigo_isbn”)
If RS_Produto(“preco_unitario”) <> “” Then
preco_unitario = FormatNumber(RS_Produto(“preco_unitario”))
End if
codigo_marca = RS_Produto(“codigo_marca”)
peso = RS_Produto(“peso”)
quantidade_produto = RS_Produto(“quantidade_produto”)
prazo_entrega = RS_Produto(“prazo_entrega”)
cores = RS_Produto(“cores”)
tamanhos = RS_Produto(“tamanhos”)
destaque_vitrine = RS_Produto(“destaque_vitrine”)
disponivel = RS_Produto(“disponivel”)
frete_gratis = RS_Produto(“frete_gratis”)
img_frete = RS_Produto(“img_frete”)

sul = RS_Produto(“sul”)
sudeste = RS_Produto(“sudeste”)
centro = RS_Produto(“centro”)
norte = RS_Produto(“norte”)
nordeste = RS_Produto(“nordeste”)

promocao = RS_Produto(“promocao”)
promocao_avista = RS_Produto(“promocao_avista”)
porcentagem_desconto = RS_Produto(“porcentagem_desconto”)
video = RS_Produto(“video”)
largura = RS_Produto(“largura”)
img_produtoGRD = RS_Produto(“img_produtoGRD”)
img_produtoPQN = RS_Produto(“img_produtoPQN”)
img_produto_adic01GRD = RS_Produto(“img_produto_adic01GRD”)
img_produto_adic01PQN = RS_Produto(“img_produto_adic01PQN”)
img_produto_adic02GRD = RS_Produto(“img_produto_adic02GRD”)
(..)
%>

<%If VetorCount <> 0 Then%>

<%End if%>

No arquivo ADM_cria_produto.asp adicione o trecho vermelho abaixo:

<%End if%>

Agora em seu banco de dados mysql execute as duas instruções SQL abaixo:
ALTER TABLE `Produtos` ADD `video` TEXT NOT NULL AFTER `quantidade_produto` ;
ALTER TABLE `Produtos` ADD `largura` INT NOT NULL AFTER `video` ;
OBS: MÓDULO TESTADO NA VERSÃO 6.5. FAÇA SEMPRE O BACKUP DO BANCO DE DADOS E DOS ARQUIVOS QUE FOR MUDAR, POIS CASO TENHA ALGUM OUTRO MÓDULO INSTALADO NO MESMO ARQUIVO, AO SUBSTITU-LO PERDERÁ PARTE DE SUA FUNCIONALIDADE .
Download Módulo grátis de video.
Forte abraço.
Related posts:
Solução “problema com alteração dos produtos na lojaExemplo”
Módulo grátis de produtos relacionados loja Locaweb (sistema LojaExemplo)
Modificação LojaExemplo “como trocar a categoria de um produto depois de cadastra-lo”

INFORMAÇÕES FIXAS NO SITE INDEPENDENTE DO IDIOMA

VIDEO: <%=video%>

LARGURA DO VIDEO: ” class=”FORMbox” onKeyUp=’this.value=this.value.replace(/[^\d]*/gi,”");’ >

CATEGORIA: <%Call Cria_Combo_Categoria_ADM(codigo_categoria,”disabled”,varLang)%>

INFORMAÇÕES FIXAS NO SITE INDEPENDENTE DO IDIOMA

VIDEO: <%=video%>

LARGURA DO VIDEO:

CATEGORIA: <%Call Cria_Combo_Categoria_ADM(request(“codigo_categoria”),”disabled”,varLang)%>

Surgimento » video

Módulo grátis para adicionar vídeos no sistema LojaExemplo 6.5 da Locaweb