Imagem Assine nossa RSS
Novidades por email
3
julho
2009




Olá,

.

ou ensinar como colocar o botão comprar, que ao clicar vai direto no carrinho (como na loja www.barrocarte.com).

Entre no arquivo funcoes/funcoes.asp.

OBS: NÃO COPIE E COLE OS CÓDIGOS DO POST O MESMO É SÓ PARA REFERENCIA. NO ANEXO DOS ARQUIVOS ESTÃO OS CÓDIGOS CERTOS E COMPLETOS. UM DOS PROBLEMAS QUE VAI DAR SE TENTAR COPIAR O CÓDIGO DO POST É COM RELAÇÃO AS ASPAS, QUE NO POST ESTÃO ASSIM ” POR PADRÃO. PARA EVITAR ERROS DIGITE AS ASPAS OU COPIE DO ARQUIVO EM ANEXO.

Código da função do botão:

(…)

}
ul#gop li a
{
display: block;
width: 100%;
padding: 0;
}
</style>

<script type=”text/javascript”>
function addproduto2(codprod,codcat) {

document.produto.codigo_produto.value = codprod;
document.produto.codigo_categoria.value = codcat;

var nome_tamanho = document.getElementsByName(“nome_tamanho”);
for (counter = 0; counter < nome_tamanho.length; counter++) {
if (nome_tamanho[counter].checked == true) {
document.produto.codigo_tamanho.value = nome_tamanho[counter].value;
}
}

var nome_cor = document.getElementsByName(“nome_cor”);
for (counter = 0; counter < nome_cor.length; counter++) {
if (nome_cor[counter].checked == true) {
document.produto.codigo_cor.value = nome_cor[counter].value;
}
}

document.produto.submit();
}

</script>

<%
If VerificaExistenciaDado(“codigo_categoria”,”Categorias”,”codigo_categoria”,Request(“codigo_categoria”)) And Request(“codigo_categoria”) <> “” Then

‘Fecha e libera da memória o objeto de Recordset o arquivo todo

‘Captura a subcategoria se existir
Set RS_Categoria = Server.CreateObject(“ADODB.Recordset”)
RS_Categoria.CursorLocation = 3
RS_Categoria.CursorType = 0
RS_Categoria.LockType =  1
RS_Categoria.Open “SELECT codigo_categoria, nome_categoria FROM Categorias WHERE sigla_idioma=’”&varLang&”‘ AND codigo_categoria = “&Request(“codigo_categoria”)&”" , Conexao
nome_categoria = RS_Categoria(“nome_categoria”)

(…)

Código do botão:

(…)
<li>
<a href=”produtos_descricao.asp?lang=<%=varLang%>&codigo_produto=<%=RS_Produto(“codigo_produto”)%>”><img src=”<%= RS_Produto(“img_produtoPQN”) %>” border=”0″></a>
<a href=”produtos_descricao.asp?lang=<%=varLang%>&codigo_produto=<%=RS_Produto(“codigo_produto”)%>” class=”TXTproduto”><%= RS_Produto(“nome_produto”) %><br>
<%If RS_Produto(“quantidade_produto”) > 0 Then%>
<%If RS_Produto(“preco_unitario”) > 0 then %>
<span class=”TXTproduto”>
<%If pegavalor_promocao(codigo_produto,RS_Produto) < FormatNumber(valor_produto) Then%>
<b><%If pegavalor_promocao(codigo_produto,RS_Produto) <> “” Then%><%=Application(“MiddleTxtDe”)%> <s><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto) %></s><%Else%><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto) %><%End if%></b><br>

<%If pegavalor_promocao(codigo_produto,RS_Produto) <> “” Then%>
<b><%=Application(“MiddleTxtPor”)%> <%=abvmoeda%>&nbsp;&nbsp;<%=FormatNumber(pegavalor_promocao(valor_produto,RS_Produto)) %></b><br>
<% Response.write Application(“MiddleTxtValido”) & “&nbsp;” & RS_Produto(“data_fim”)%>
<%End if%>
<%Else%>
<%If valor_produto <> “” Then%>
<b><%=abvmoeda%>&nbsp;&nbsp;<%= FormatNumber(valor_produto) %><b>
<%End if%>
<%End if%>
<%End if%>
<%Else%>
<b><%=Application(“MiddleTxtNaoDisponivel”)%></b>
<%End if%>
</a>

<%If Application(“tipoconfiguracao”)=”lojavirtual” Then%><input name=”Submit” type=”button” class=”BTTNcomprar” value=”<%=Application(“BttComprar”)%>” onclick=”javascript: addproduto2(‘<%=RS_Produto(“codigo_produto”)%>’,’ <%=RS_Produto(“codigo_categoria”)%>’)”><%End if%>

<br>
<br>
</li>
(…)

Baixe o arquivo completo

O código do botão poderá mudar de local caso seja conveniente para seu layout.

Abraço.

full-sistemas

Posts Relacionados:




Todo o conteúdo deste site é protegido pelos direitos autorais de Copyright © Surgimento 2005 - 2009
Posts (RSS) e Comentários (RSS).