Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lucasmoraes

Como fazer um e-commerce

Por , em ASP Clássico

Recommended Posts

lucasmoraes    1

lucasmoraes
Postado

Olá amigos,

tenho uma duvida

estou fazendo meu site e quero implementar um e-commerce

eu até sei fazer a parte de exibir de cadastrar e etc so nao sei como funciona o carrinho de compras em si e como fazer os pag seguros da vida fazer o site ficar seguro e a parte de pagamento com cartoes boleto e etc

alguem poderia me dar uma mao com alguns tutoriais explicando sobre o assunto?

 

fico no aguardo... obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma olhada aqui

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

um sistema de carrinho de compras para gerar as páginas de produtos automaticamente baseado nas categorias e produtos no banco de dados, links de homepage gerados automaticamente. Quando comprado algum item o usuário consegue ver o acompanhamento, com uma possibilidade para mudar quantidade do item. Todos os itens são armazenados temporariamente em variáveis de Sessão. Usuários podem enviar os produtos ordenados a endereço diferente.

 

Primeiro crie um banco de dados em MySql,ou outro bd com a seguinte estrutura:

 

Criando a Base de Dados carrinho_compras

CREATE DATABASE carrinho_compras;

 

Usando esta base de dados

use carrinho_compras;

 

Criando a minha tabela

CREATE TABLE carrinho(

id int(10) unsigned not null auto_increment,

produto varchar(100) not null,

preço varchar(11) not null,

quantidade varchar(11) not null,

primary key (id));

 

obs: Agora no painel de controle escolho a minha fonte de dados do sistema OK, criei a minha Base de dados do sistema

 

conexao.asp

 

<%
dim cnn
sub abre_conectar
set cnn=server.CreateObject("adodb.connection")
cnn.open "carrinho_compras"
end sub
sub fecha_conectar
     cnn.close
     Set cnn = nothing
end sub
%>

obs: Criada dentro de uma pasta config, para organizar melhor a estrutura do projeto, mas é opcional

 

default.asp

 

<html>
<head></head>
<title>Carrinho de Compras</title>
<body>
<form action="inserir_carrinho.asp" method="post">
<table width="100%">
<tr>
<td>Produto</td>
<td>Preço</td>
<td>Quantidade</td>
</tr>
<tr>
<td><input type="text" name="produto"></td>
<td><input type="text" name="preço"></td>
<td><input type="text" name="quantidade" size="5"></td>
</tr>
</table>
<table width="100%">
<tr>
<td><input type="submit" value="Adicionar ao Carrinho"></td>
</tr>
</table>
</form>

inserir_carrinho.asp

<!--#include file="config/conexao.asp"-->

<% call abre_conectar
produto=request.Form("produto")
preço=request.Form("preço")
quantidade=request.Form("quantidade")


sql = "insert into carrinho (produto, preço, quantidade)"
sql = sql & " values ('"&produto& "', '"&preço&"', '"&quantidade&"')"
set tab = cnn.execute(sql)

call fecha_conectar
set tab = nothing
response.Redirect("default.asp")%>

form_alterar.asp

 

<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

id1 = Request.QueryString("alterar")

sql = "Select * from carrinho WHERE id = "&id1  

set tab = cnn.execute(sql) %>

<style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>


<%
On error resume Next
'Dim objConn, stringSQL, strConnection, id, strDBPath


'Deletando registro da tabela contato onde esta a id
if err <> 0 Then%>
    
<div align="left">
    <center><span class="titulo1">Ocorreu algum erro!</span>
    </font>
  <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div>

      <%else%>
            
      <form action="altera_dados.asp" method="post">

             <table width="100%">
<tr>
<td>Produto</td>
<td>Preço</td>
<td>Quantidade</td>
</tr>
<tr>
<td><input type="text" name="produto" value="<%=tab("produto")%>"></td>
<td><input type="text" name="preço" value="<%=tab("preço")%>"></td>
<td><input type="text" name="quantidade" size="5" value="<%=tab("quantidade")%>">
<input type="hidden" name="id" value="<%=tab("id")%>"></td>
</tr>

                  <td>
                    <input name="enviar" type="submit" class="formulario" value="Alterar">
                    </td>
                  </tr>
              </table>
            
      </form>
      <%end if
      call fecha_conectar
     set tab = nothing%>

altera_dados.asp

 

<!--#include file="config/conexao.asp"-->
<%

call abre_conectar

produto=request.Form("produto")
preço=request.Form("preço")
quantidade=request.Form("quantidade")

id=request.Form("id")

sql = "UPDATE carrinho SET produto = '"&produto&"', preço = '"&preço&"', quantidade = '"&quantidade&"' WHERE id ="&id

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executaa inserção no Banco de Dados
set tab = cnn.execute(sql)
'Fecha o Objeto de Conexão
call fecha_conectar
set tab = nothing
if err = 0 Then
    'Redireciona o usuário caso não tenha ocorrido erro na transação
    response.redirect "default.asp"
end if
%>

action_excluir.asp

<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

'Option Explicit
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id,strDBPath
id = Request.QueryString("radio")
'Caso ocorra algum erro os precessos não são interrompidos
'e é passado para a próxima linha de comando
On error Resume Next %><style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>

  
            <%
        if err = 0 and id <> "" then
            array_id = split(id,",")
            For i=0 to ubound(array_id)
                sql_id = sql_id & "carrinho.id = " & Trim(array_id(i)) & " OR "
                                                         'campo texto, então" & Trim(array_id(i)) & " OR "
                                                         'caso numerico '" & Trim(array_id(i)) & "' OR "
            Next
            sql_id = left(sql_id,(len(sql_id)-4))
            sql = "DELETE FROM carrinho WHERE "&sql_id&""
            
                        set tab = cnn.execute(sql)
            
            call fecha_conectar
set tab = nothing
          
%>
            <table align="center">
                <tr bgcolor="">
                  <td><%response.Redirect("default.asp")%></td>
                          </tr>
              </table>
            
              
                <%else%>
                <br>
                <center>Ocorreu algum erro!<br>
                <br>
                Nenhum dado foi excluido!</span><br><br>
                <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div>
          
          <%End if%>        </td>
      </tr>
    </table>

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucasmoraes    1

lucasmoraes
Postado

um sistema de carrinho de compras para gerar as páginas de produtos automaticamente baseado nas categorias e produtos no banco de dados, links de homepage gerados automaticamente. Quando comprado algum item o usuário consegue ver o acompanhamento, com uma possibilidade para mudar quantidade do item. Todos os itens são armazenados temporariamente em variáveis de Sessão. Usuários podem enviar os produtos ordenados a endereço diferente.

 

Primeiro crie um banco de dados em MySql,ou outro bd com a seguinte estrutura:

 

Criando a Base de Dados carrinho_compras

CREATE DATABASE carrinho_compras;

 

Usando esta base de dados

use carrinho_compras;

 

Criando a minha tabela

CREATE TABLE carrinho(

id int(10) unsigned not null auto_increment,

produto varchar(100) not null,

preço varchar(11) not null,

quantidade varchar(11) not null,

primary key (id));

 

obs: Agora no painel de controle escolho a minha fonte de dados do sistema OK, criei a minha Base de dados do sistema

 

conexao.asp

 

<%
dim cnn
sub abre_conectar
set cnn=server.CreateObject("adodb.connection")
cnn.open "carrinho_compras"
end sub
sub fecha_conectar
     cnn.close
     Set cnn = nothing
end sub
%>

obs: Criada dentro de uma pasta config, para organizar melhor a estrutura do projeto, mas é opcional

 

default.asp

 

<html>
<head></head>
<title>Carrinho de Compras</title>
<body>
<form action="inserir_carrinho.asp" method="post">
<table width="100%">
<tr>
<td>Produto</td>
<td>Preço</td>
<td>Quantidade</td>
</tr>
<tr>
<td><input type="text" name="produto"></td>
<td><input type="text" name="preço"></td>
<td><input type="text" name="quantidade" size="5"></td>
</tr>
</table>
<table width="100%">
<tr>
<td><input type="submit" value="Adicionar ao Carrinho"></td>
</tr>
</table>
</form>

inserir_carrinho.asp

<!--#include file="config/conexao.asp"-->

<% call abre_conectar
produto=request.Form("produto")
preço=request.Form("preço")
quantidade=request.Form("quantidade")


sql = "insert into carrinho (produto, preço, quantidade)"
sql = sql & " values ('"&produto& "', '"&preço&"', '"&quantidade&"')"
set tab = cnn.execute(sql)

call fecha_conectar
set tab = nothing
response.Redirect("default.asp")%>

form_alterar.asp

 

<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

id1 = Request.QueryString("alterar")

sql = "Select * from carrinho WHERE id = "&id1  

set tab = cnn.execute(sql) %>

<style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>


<%
On error resume Next
'Dim objConn, stringSQL, strConnection, id, strDBPath


'Deletando registro da tabela contato onde esta a id
if err <> 0 Then%>
    
<div align="left">
    <center><span class="titulo1">Ocorreu algum erro!</span>
    </font>
  <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div>

      <%else%>
            
      <form action="altera_dados.asp" method="post">

             <table width="100%">
<tr>
<td>Produto</td>
<td>Preço</td>
<td>Quantidade</td>
</tr>
<tr>
<td><input type="text" name="produto" value="<%=tab("produto")%>"></td>
<td><input type="text" name="preço" value="<%=tab("preço")%>"></td>
<td><input type="text" name="quantidade" size="5" value="<%=tab("quantidade")%>">
<input type="hidden" name="id" value="<%=tab("id")%>"></td>
</tr>

                  <td>
                    <input name="enviar" type="submit" class="formulario" value="Alterar">
                    </td>
                  </tr>
              </table>
            
      </form>
      <%end if
      call fecha_conectar
     set tab = nothing%>

altera_dados.asp

 

<!--#include file="config/conexao.asp"-->
<%

call abre_conectar

produto=request.Form("produto")
preço=request.Form("preço")
quantidade=request.Form("quantidade")

id=request.Form("id")

sql = "UPDATE carrinho SET produto = '"&produto&"', preço = '"&preço&"', quantidade = '"&quantidade&"' WHERE id ="&id

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executaa inserção no Banco de Dados
set tab = cnn.execute(sql)
'Fecha o Objeto de Conexão
call fecha_conectar
set tab = nothing
if err = 0 Then
    'Redireciona o usuário caso não tenha ocorrido erro na transação
    response.redirect "default.asp"
end if
%>

action_excluir.asp

<!-- #include file="config/conexao.asp"-->
<%

call abre_conectar

'Option Explicit
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id,strDBPath
id = Request.QueryString("radio")
'Caso ocorra algum erro os precessos não são interrompidos
'e é passado para a próxima linha de comando
On error Resume Next %><style type="text/css">
<!--
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>

  
            <%
        if err = 0 and id <> "" then
            array_id = split(id,",")
            For i=0 to ubound(array_id)
                sql_id = sql_id & "carrinho.id = " & Trim(array_id(i)) & " OR "
                                                         'campo texto, então" & Trim(array_id(i)) & " OR "
                                                         'caso numerico '" & Trim(array_id(i)) & "' OR "
            Next
            sql_id = left(sql_id,(len(sql_id)-4))
            sql = "DELETE FROM carrinho WHERE "&sql_id&""
            
                        set tab = cnn.execute(sql)
            
            call fecha_conectar
set tab = nothing
          
%>
            <table align="center">
                <tr bgcolor="">
                  <td><%response.Redirect("default.asp")%></td>
                          </tr>
              </table>
            
              
                <%else%>
                <br>
                <center>Ocorreu algum erro!<br>
                <br>
                Nenhum dado foi excluido!</span><br><br>
                <a href="java script:history.back(-1)" class="link1_inativo">Volta</a></center></div>
          
          <%End if%>        </td>
      </tr>
    </table>

</td>
  </tr>
</table></td>
  </tr>
</table>
como funciona a parte de pagamentos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito