-= carrinho de compras =-

[Maux 0]

pessoal, estava eu andano pelo forum e vi muita duvida e procura em scripts para carrinho de compra, e-commerce....

então criei um código bem simples de carrinho de compras via DB muito simples de utilizar...

vou postar o código aqui e me digam o que acham!!!

 

primeiro agente cria um banco de dados no access

 

db.mdb

TABELA 1:  Carrinhocd - AutoNumeraçãocodigo - Texto - 30Produto - Numero - InteiroQuantidade - Numero - InteiroTABELA 2: ProdutosCodigo - AutoNumeçãoProduto - Texto - 60Preco - UnidadeMonetáriaQuantidade - Numero - Inteiro

salve o banco como db.mdb

 

em seguida crie uma pagina .asp

 

index.asp:

<script>function shprp(a,cd){qtde = prompt("DIGITA A QUANTIDADE DE PRODUTO QUE você DESEJA!","0")if (qtde != null){  if (qtde > a){	  alert("Quantidade fora do estoque!")	shprp(a,cd)  }else{	  location.href("?addprod="+ cd + "&showprod="+cd+"&qtde="+qtde)  }}else{	alert("Digite um valor!")	shprp(a,cd)}}</script><%url_conexao = Server.MapPath("db.mdb")set conexao = Server.CreateObject("ADODB.Connection")set rs = server.CreateObject("adodb.recordset")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 	  if request("addprod") <> "" then	 ' on error resume next		  sql = "INSERT INTO Carrinho (CODIGO,PRODUTO,DATA,QUANTIDADE) values ('" & session.SessionID() & "'," & request("addprod") & ",date()," & request("qtde") & ")"		rs.open sql,conexao,3,3		'rs.close		add = true	if err.number > 0 then		response.write err.description		err.number = 0		response.write sql	end if	end ifsql = "select * from Carrinho where codigo = '" & session.SessionID & "'"rs.open sql,conexao,3,3itens = rs.recordcountrs.close%><%private sub prod()%>    <% if request.QueryString("showprod") <> "" then		sql = "select * from produtos where codigo = " & request("showprod")		rs.open sql,conexao,3,3		if rs.recordcount > 0 then%>		<font size="3"><%=rs("Produto")%></font><HR />		<font size="2">		<strong>Valor do produto:</strong> <%=rs("Preco")%><br />		<strong>Quantidade no estoque:</strong> <%=rs("Quantidade")%><br />		<strong>OPÇÕES:</strong><br />		<a href="java script: shprp(<%=rs("quantidade")%>,<%=rs("codigo")%>)">ADICIONAR NO CARRINHO		</a></font> <br />	  <br />		<%if add = true then						add = false						response.write "<HR>ITEM INSERIDO AO SEU CARRINHO<HR>"				  end if				  %>	 <%end if	 rs.closeend if%><%end sub%><%private sub car()if request("showcar") = "ok" then	if request("del") <> "" then		sql = "delete from Carrinho where codigo = '" & session.SessionID & "' and cd = " & request("del")		rs.open sql,conexao,3,3	end if	response.write "CARRINHO DE COMPRAS<HR><HR><HR>"	sql = "select * from Carrinho where codigo = '" & session.SessionID & "'"	rs.open sql,conexao,3,3	if rs.recordcount <= 0 then		response.write "nenhum item inserido"	else		response.write "<table width='96%' border=1><tr bgcolor='#aaaaaaa'><td>#</td><td>Produto</td><td>Qtde</td><td>Vl. Uni.</td><td>Sub-Total</td><Td>OPC</td></tr>"		dim i,total		i = 0		do while not rs.eof			set rs2 = server.CreateObject("adodb.recordset")			rs2.open "select produto,quantidade,preco from produtos where codigo = " & rs("produto"),conexao,3,3 			i = i +  1			total = total + rs("quantidade") * rs2("preco")			with response				.write "<tr>"				.write "<td>" & i & "</td>"				.write "<td>" & rs2("produto") & "</td>"				.write "<td>" & rs("quantidade") & "</td>"				.write "<td>" & formatcurrency(rs2("preco")) & "</td>"				.write "<td>" & formatcurrency(rs("quantidade") * rs2("preco")) & "</td>"				.write "<td><a href='?showcar=ok&del=" & rs("cd") & "'>deletar</td>" 				.write "</tr>"			end with			rs2.close			set rs2 = nothing			rs.movenext		loop		response.write "<td colspan='6' align='right'>TOTAL: " & formatcurrency(total) & "</td>"		response.write "</table>"		end if	end ifend sub%><style type="text/css"><!--.style1 {	color: #333333;	font-weight: bold;}--></style><title>CARRINHO</title><table width="730" height="575" border="1" cellpadding="3" cellspacing="3" bordercolor="#CCCCCC">  <tr>	<td height="132" colspan="2" valign="top"><div align="center"><strong>LOJA TESTE</strong></div></td>  </tr>  <tr>	<td height="23" colspan="2" align="right" valign="top"><a href="?showcar=ok"><font size="2" color="#000000">Itens no carrinho: <%=itens%></font></a></td>  </tr>  <tr>	<td width="177" height="410" valign="top"><p align="center"><span class="style1">..:: PRODUTOS ::..</span></p>	  <p>	  <%sql = "select * from Produtos"	  rs.open sql,conexao,3,3	  if rs.recordcount > 0 then		  do while not rs.eof%>   	  <li><a href="?showprod=<%=rs("codigo")%>"><%=rs("Produto")%></a></li>		<%		rs.movenext		loop	end if	rs.close	%>	  <br />	  </p>	</td>	<td width="537" align="center" valign="top">	  <p>	  <%call prod()%>	  <%call car()%>	</p>	</td>  </tr></table>

 

pronto :rolleyes:

 

nao é bonito, nem 100% funcional, talvez não se adapte a sua necessidade, mas da pra tirar uma boa base encima disso http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

deem suas opniões por favor =D

 

caso esteja com priguiça de trabalhar pra fazer tudo isso, ai vai o codigo pronto DOWNLOAD

 

 

abraçosss

[jrcardozo 4]

valeu pela contribuição MauxMovido de Asp para Laboratório de Scripts(Asp)