|
|
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%> <%= FormatNumber(valor_produto) %></s><%Else%><%=abvmoeda%> <%= FormatNumber(valor_produto) %><%End if%></b><br><%If pegavalor_promocao(codigo_produto,RS_Produto) <> “” Then%>
<b><%=Application(“MiddleTxtPor”)%> <%=abvmoeda%> <%=FormatNumber(pegavalor_promocao(valor_produto,RS_Produto)) %></b><br>
<% Response.write Application(“MiddleTxtValido”) & “ ” & RS_Produto(“data_fim”)%>
<%End if%>
<%Else%>
<%If valor_produto <> “” Then%>
<b><%=abvmoeda%> <%= 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>
(…)
O código do botão poderá mudar de local caso seja conveniente para seu layout.
Abraço.
Posts Relacionados:

Tags:
muito bom o tuto!
segui aqui e funcionou direitinho!!! gostaria de agradecer por ter postado algo tão útil e funcional!
PARABENS!!!!!!
Como fazer para colocar o botão comprar e o ver detalhes?
Olá Wolverine,
Desculpe a demora para responder.
Para adicionar o botão ver detalhes adicione o código abaixo:
<a href=”produtos_descricao.asp?lang=&codigo_produto=”>
Abraço.