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:

%>
</table>
</td>
</tr>
</table>

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

<table border=”0″ width=”100%” cellpadding=”1″ cellspacing=”10″ align=”center”>
<tr valign=”top”>
<td class=”TBLpers1_borda1″ align=”center” colspan=”2″>
<table border=”0″ width=”100%” cellpadding=”5″ cellspacing=”5″ class=”TBLpers1_borda2″ align=”center”>
<tr valign=”top”>
<td class=”FUNDOTABtopico” align=”center” colspan=”2″><span class=”TXTTABtopico”><strong>Video do produto</strong></span></td>
</tr>
<tr>
<td class=”TBLpers1_fundo” height=”200″ colspan=”2″ valign=”top”><br/><center>

<%                    ’ 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%>

<br/></center></td>
</tr>
</table>
</td>
</tr>
</table>
<br>

<%End if%>
<!– fim video –>

<table border=”0″ width=”100%” cellpadding=”1″ cellspacing=”10″ align=”center”>
<tr valign=”top”>
<td class=”TBLpers1_borda1″ align=”center” colspan=”2″>
<table border=”0″ width

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”)
(..)
%>
</table>
<br><br>
<table width=”558″ border=”0″ cellpadding=”4″ cellspacing=”1″ class=”BordaTabela”>
<%If VetorCount <> 0 Then%>
<tr class=”Linha3Tabela”>
<td align=”CENTER” colspan=”2″ height=”20″ CLASS=”TituloPage” bgcolor=”#FFFFFF”><B>INFORMAÇÕES FIXAS NO SITE INDEPENDENTE DO IDIOMA</B></td>
</tr>
<%End if%>

<tr class=”Linha1Tabela”>
<td align=”right”><B>&nbsp;VIDEO:</B></td>
<td ><TEXTAREA name=”video”  cols=”80″ rows=”6″ class=”FORMbox”><%=video%></TEXTAREA></td>
</tr>

<tr class=”Linha2Tabela”>
<td align=”right”><B>&nbsp;LARGURA DO VIDEO:</B></td>
<td ><input name=”largura” type=”text” value=”<%=largura%>” class=”FORMbox” onKeyUp=’this.value=this.value.replace(/[^\d]*/gi,”");’ ></td>
</tr>

<tr class=”Linha1Tabela”>
<td align=”right”><B>&nbsp;CATEGORIA:</B></td>
<td readonly><%Call Cria_Combo_Categoria_ADM(codigo_categoria,”disabled”,varLang)%></td>
</tr>

No arquivo ADM_cria_produto.asp adicione o trecho vermelho abaixo:

<td align=”CENTER” colspan=”2″ height=”20″ CLASS=”TituloPage” bgcolor=”#FFFFFF”><B>INFORMAÇÕES FIXAS NO SITE INDEPENDENTE DO IDIOMA</B></td>
</tr>
<%End if%>

<tr class=”Linha1Tabela”>
<td align=”right”><B>&nbsp;VIDEO:</B></td>
<td ><TEXTAREA name=”video”  cols=”80″ rows=”6″ class=”FORMbox”><%=video%></TEXTAREA></td>
</tr>

<tr class=”Linha2Tabela”>
<td align=”right”><B>&nbsp;LARGURA DO VIDEO:</B></td>
<td ><input name=”largura” type=”text” value=”" class=”FORMbox” onKeyUp=’this.value=this.value.replace(/[^\d]*/gi,”");’ ></td>
</tr>

<tr class=”Linha1Tabela”>
<td align=”right”><B>&nbsp;CATEGORIA</B><font  color=”#FF0000″></font><B>:</B></td>
<td readonly><%Call Cria_Combo_Categoria_ADM(request(“codigo_categoria”),”disabled”,varLang)%></td>
</tr>

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.

Posts Relacionados:

1. Solução “problema com alteração dos produtos na lojaExemplo”
2. Módulo grátis de produtos relacionados loja Locaweb (sistema LojaExemplo)
3. Modificação LojaExemplo “como trocar a categoria de um produto depois de cadastra-lo”
4. Como aumentar a imagem do produto na listagens da vitrine e categorias da LojaExemplo Locaweb
5. Como colocar botão “comprar” na homepage e listagens de categoria na Lojaexemplo Locaweb

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

Esse post foi publicado de terça-feira, 21 de julho de 2009 às 20:51, 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á.