Publicentral.com - publicentra, promocion, promocionar, buscadores, paginas webs, registroPublicentral.com - promocion de paginas web y negocios online
Mostrando Codigo - Asp

Carrito de Compras con base de datos access

Creacion de un sencillo carrito de compra con base de datos access .mdb
Visitas: 60486 -
CODIGO SIN DEMOSTRACIONCODIGO NO EJECUTABLE
EXPLICACION

El codigo ha sido adaptado , ademas de crear la base de datos para su correcto funcionamiento por uno de nuestro usuarios.

Si el codigo te parece interesante, puedes hacer tus aportaciones,  modificarlo y adaptarlo solo tienes que enviarlo de vuelta a info (arroba ) tutores.org con tu comentario o modificaciones que has hecho en el codigo y base de datos.

Actualizaciones:
Joshemel - 22/11/2005
En el zip se encuentra la base de datos del carrito de compras y una que  otra modificacion menor en el codigo que existe publicado en la pagina, y como bien dices el codigo es bastante elemental pero para ilustrar lo que se desea en la página creo que es suficiente.
Datos del autor

CODIGO
Codigo probado en Internet Explorer 4++Codigo probado en Mozilla FirefoxCodigo probado en NetscapeCodigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>
Shop.asp----------------

<%@LANGUAGE="VBSCRIPT"%>
<%
'Option Explicit%>
<%Response.Buffer=True%>
<HTML>
<HEAD>
<TITLE>Carrito de compras</TITLE>
<%
' SHOP.ASP

Sub MostrarCatalogo '****************************************************

Dim oRs, oRs2, SQL
Dim idmarca
Set oRs=Server.CreateObject("ADODB.Recordset")
Set oRs2=Server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM Productos;"
oRs.Open SQL, oConn
%>
<TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1">
<TR>
<TD><B>Marca</B></TD>
<TD><B>Producto</B></TD>
<TD><B>Precio</B></TD>
<TD></TD>

<%
Do until oRs.EOF
idmarca=oRs.Fields("Marca")
SQL="SELECT * FROM Marcas WHERE IdMarca="&idmarca&";"
oRs2.Open SQL, oConn
%>
<TR>
<TD><A HREF="<%=oRs2.Fields("URL")%>"><%=oRs2.Fields("Nombre")%></A></TD>
<TD><%=oRs.Fields("Nombre")%></TD>
<TD><%=oRs.Fields("Precio")%></TD>
<TD><A HREF="shop.asp?ac=meter&prod=<%=oRs.Fields("IdProducto")%>">Comprar</A></TD>
</TR>
<%
oRs2.Close
oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.Close
Set oRs=Nothing
Set oRs2=Nothing
%>
<center><A HREF=shop.asp?ac=ver>Ver Carrito</A></center>
<%
End Sub'********************************************************************

Sub MostrarCarrito'*********************************************************

Dim oRs, oRs2, SQL
Dim clave
Dim gastos
Dim total, subtotal
gastos=2500
total=0
subtotal=0
Set oRs=Server.CreateObject("ADODB.Recordset")
%>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
<TR>
<TD>Artículo</TD>
<TD>Cantidad</TD>
<TD>Precio/unidad</TD>
<TD>Quitar del carrito</TD>
<TD>Total</TD>
</TR>
<%
For Each clave In carrito
subtotal=0
SQL="SELECT * FROM Productos WHERE IdProducto="&clave&";"
Set oRs=oConn.Execute(SQL)
%>
<TR>
<TD><%=oRs.Fields("Nombre")%></TD>
<TD><%=carrito(clave)%></TD>
<TD><%=oRs.Fields("Precio")%></TD>
<TD><A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=1">Quitar Uno</A>
<A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=<%=carrito(clave)%>">Quitar Todos</A>
</TD>
<%
subtotal=CSng(FormatNumber(carrito(clave))*oRs.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %></TD>
</TR>
<%
Next
If carrito.Count > 0 Then
oRs.Close
Set oRs=Nothing
End If
%>
<TR>
<TD COLSPAN=4>Gastos de envío</TD>
<TD>
<%
If total=0 Then
Response.Write("0")
Else
Response.Write(gastos)
End If
%>
</TD>
<TR>
<TD COLSPAN=4><B>Total:</B></TD>
<TD>
<%if total=0 Then
Response.Write("0")
Else
Response.Write(total+gastos)
End If
%>
</TD>
</TABLE>
<%
If accion<>"fin" Then
%>
<center>
<A HREF=shop.asp>Seguir mirando</A> / <A HREF=shop.asp?ac=fin>Pasar por caja</A>
</center>
<%
End If
End Sub'********************************************************************


Sub MeterArticulo (id)'******************************************************

If carrito.Exists(id) Then
carrito(id)=carrito(id)+1
Else
carrito.Add id, 1
End If
Response.Write("Se ha añadido el artículo al carrito<br>")
End Sub'********************************************************************


Sub SacarArticulo (id, cantidad)'*******************************************

If Not carrito.Exists(id) Then
Response.Write("¡No tienes eso en tu carrito!")
Else
If cantidad>1 Then
carrito.Remove(id)
Else
carrito(id)=carrito(id)-1
If carrito(id)<1 Then
carrito.Remove(id)
End If
End If
End If
End Sub'********************************************************************

Sub PasarPorCaja'***********************************************************

%>
<H2>¡Gracias por su compra!</H2>
<%
MostrarCarrito
%>
En breve te llegarán a tu casa los productos. Gracias por comprar . <br>
(En un caso real aquí pediríamos los datos, etc.)
<%
Set Session("carrito")=Nothing
End Sub'********************************************************************


Dim carrito
Dim accion
Dim producto
Dim cant
Dim oConn
%>
<H2>Carrito de la compra</H2>
<P>
<hr>

<%
Set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data ienda.mdb")
If IsObject(Session("carrito")) Then
Set carrito=Session("carrito")
Else
Set carrito=Server.CreateObject("Scripting.Dictionary")
End If
accion=CStr(Request.QueryString("ac"))
producto=CInt(Request.QueryString("prod"))
cant=CInt(Request.QueryString("cant"))
Select Case accion
Case "ver"
MostrarCarrito
Case "meter"
MeterArticulo Producto
MostrarCarrito
Case "sacar"
Call SacarArticulo (producto, cant)
MostrarCarrito
Case "fin"
PasarPorCaja
Case Else
MostrarCatalogo
End Select
Set Session("carrito")=carrito
oConn.Close
Set oConn=Nothing
%>


Detalle.asp ----------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Documento sin t&iacute;tulo</title>
</head>

<body>

<div align="right"><table width="404" border="1" align="center" cellpadding="5" cellspacing="0">
<tr>
<td colspan="2"><div align="center"><strong>Detalle del producto </strong></div></td>
</tr>
<tr>
<td><div align="center"><img src="" alt="" width="142" height="135" style="background-color: #CC0000"></div></td>
<td><p align="left">xxxxxxxxxxxxxxxxx</p>
<p align="left">xxxxxxxxxxxxxxx</p>
<p align="left">xxxxxxxxxxxxxxx</p></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>&nbsp;</td>
</tr>
</table>
</div>
</body>
</html>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Carrito de Compras con base de datos access" href="http://www.tutores.org/codigo/313/" target="_blank">Carrito de Compras con base de datos access</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
elias
Es un excelente script, pero se les paso un pequeño detalle: La base de datos!!
Si alguien cuenta con ella y me la puede facilitar, se los agradecere mucho.
De antemano gracias, y sigamos apoyando a este magnifico sitio!!
Tutores.org 19/04/2003
hola
tan pronto la colgaremos para que pueda ser descargada
Saludos
jose 01-12-2007 02:22:42
Todabia no cuelgan la base de datos?
claudio 15/09/2005 19.32.50
seria interesante por ver la base de datos, espero que sea pronto, desde ya muchas gracias
ajosegalvez 16/09/2005 0.55.42
bkan pero la base de datos....
Tutores.org 19/04/2003
hola
pedimos un poco de paciencia ya que estamos creando la base de datos ademas de adaptar completamente el codigo. Muy pronto estara para descargarla.
Saludos
Eric 01-03-2009 03:18:54
una BBDD ca prend combien de temps a etre fait? 20 ans? Bonne chance, Jim :-)
jose 01-12-2007 02:22:42
NO ES POSIBLE ESPERAR TANTO TIEMPO PARA QUE UN MODERADOR DE UN FORO RESUELVA UN PROBLEMA. SI NO TIENEN LA BASE DE DATOS SENCILLAMENTE DIGANLO
Tutores.org 19/04/2003
Hola
La base de datos esta siendo creada, ademas de adaptar el codigo.
El codigo actual es muy simple y puede mostrar algun error.
No solo hemos estado actualizando completamente tutores.org como habeis podido comprobar, lo cual nos ha ocupado gran parte del tiempo.
Pedimos disculpas, por no tener terminada la base de datos.
jose 01-12-2007 02:22:42
Al moderador, Aqui esta la tabla mandame tu correo para mandartela en zip con el codigo ya modificado y errores corregidos.
Es mi colaboracion por mi ultimo comentario, la falta de tiempo es el peor enemigo que a veces tenemos algunos.
elias
Hola, a Jose, podrias mandarme la base de datos con el codigo corregido a mi correo? Me harias un gran favor. De antemano mil gracias. mi correo es elias_garci en hotmail.
claudio 15/09/2005 19.32.50
Jose supongo que ahora todos te vamos a pedir el archivo si no te es problema, espero que puedas enviarlo a mi correo, desde ya muchas gracias.
Claudio
Tutores.org 19/04/2003
Hola Jose
aqui te dejo el correo
info ( arroba )tutores.org y gracias por tu colaboracion.
saludos
jose 01-12-2007 02:22:42
Base de datos enviada.
joshemel 09/09/2005 0.04.22
Si presenta algun error estoy a la orden...
Tutores.org 19/04/2003
Gracias por tu aporte Joshemel
Hemos insertado el codigo y Base de datos.
joshemel 09/09/2005 0.04.22
Saludos, es unplacer colaborar siempre que se pueda. :)
Santiago 30-12-2007 20:54:16
me parece muy Práctico este Script de Carrito de compras que cabo de revisar, pero la falla que no tengan la base para poder revisar d emejor forma las pruebas
SuperElias 08/07/2005 23.04.20
santiago: para descaragar la base de datos necesitas ser usuario registrado, despues en la parte superior de esta pagina veras 4 pequelños iconos, da click sobre el que parece archivo zip y listo.
rafa 07/06/2006 18.22.43
Soy Usuario registrador y no puedo descargar el ZIP me podrian dar el link para descargarlo porfa
Tutores.org 19/04/2003
Hola podrias poner el error que te da, lo hemos probado y al parecer no contiene errores.
Saludos
SuperElias 08/07/2005 23.04.20
Aver, aquí les pongo el link:

[*CODE*]http://www.tutores.org/.............zip[*/CODE*]

solo copialo, pegalo en la barra de direcciones de tu navegador y presiona enter.

Salu2!!!
NOTA TUTORES.ORG: Hola hemos modificado el enlace para prevenir descargas indirectas. Saludos
Damian 20-04-2009 18:33:00
Hola, ese script sirve para cuando hay una tabla sola en la base de datos?, por que necesito hacer un carrito que tenga varias tablas pero no se como hacer con el codigo, me pueden explicar como puedo hacer?. Desde ya muchas gracias.
Lucio 16-08-2010 00:08:34
No he podido bajarme la base de datos, si alguien me puede decir como ahcerlo me haria un gran favor!! mcuhas gracias!!!
Tutores.org 19/04/2003
Hola lucio
Solo debes de registrarte. como observaras hemos modificado la url directa que puso el amigo SuperElias.
Saludos
mario 21/01/2007 6.41.03
Yo lo que ando buscando es un carrito de Compras integrado con 2CheckOut, de tal manera que yo pueda diseñar mi propio carro de compras pero q la parte del pago con tarjeta de credito se encargue 2checkOut, para esto el carrito de compras debe esatr integrado en su programacion con esta pasarela de pago que les mensiono, Ya existen varios carros de compras que lo hacen como oscommerce entre otros pero su programacion es muy compleja y lo que me interesa es solo la parte de la integracion con 2checkout, Alguien sabe como hacer esto????????
jesus vasquez
Hola amigos tengo un problema con la base de datos y no tengo acceso a registrarme para poder descargarlo, por favor espero su apoyo con este tema. Si alguien tiene la BD le agradecere bastante que me lo envien a jesusvasquez@gmail.com. Gracias a todos de antemano.
Black-Zeus 25/09/2006 18.55.46
la idea es buena, pero alguien tiene a mano una actualizacion en la qeu me permita cambiar la cantiad de productos sin tener qeu seleccionarla una y otra vez hasa tener la cantida necesaria, por ejem, si necesita un cliente 100 prod1, tendria qeu hacer 100 click al prod1????

en todo caso voy a tratar de aver algo yo, si lo consigo len samdo el Codigo.

*****
un hombre sabio se procuta de la raiz
***
vituperio 03/12/2006 16.23.19
Yo me registre y aun asi no puedo ver el zip
vincerod 11/12/2006 9.17.17
yo tampoco :(
Tutores.org 19/04/2003
Hola, el .Zip lo podeis encontrar encima del boton "DEMO" en la parte de arriba derecha de la pagina.
Saludos
netpower 02-06-2007 23:31:30
Parece una joda, todavia no esta la base de datos, no puede ser algo tan complicado de colocar
Por otro lado, si no tienen la base de datos, como saben que el código funciona?????
kakashi 09-09-2007 12:30:32
Miren quisiera saber como poner este código, pero antes quiero asegurarme de una cosa... Este es el código que si posteas te dan X puntos y cosas así¿? Mi web creo que soporta ASP, pero como pongo este código en la web para que funcione correctamente¿?
sospc 26-10-2007 09:56:07
intente descargar la base de datos despues de registrarme pero no hay manera asi que agredeceria me la mandarais a mi correo un saludo y cordial abra zo por vuestra buena labor sospconline@msn.com
isidro 26-10-2007 18:18:59
tratare de hacer el carrito y la base de datos, soy diseñador, pero no tengo muchos conocimientos del programa acces
robert 16-09-2009 21:45:01
saludo cordial
a la vista del sistema me podria dar los bases de datos o enviar a mi correo
aida 06-12-2007 22:48:14
Hola porfavor alguien me puede mandar la base de datos de carrito en asp me urge gracias mi correo es venenosa91@hotmail.com
Tonyprotozoo 27-06-2008 11:19:34
Donode se puede descargar la base de datos de carrito? Gracias.
Jaseko 03-07-2008 00:57:41
este carrito tiene sesiones?
grevega 22-07-2008 20:25:04
necesito la base de datos del carrito xfavor me urge

grevega@gmail.com
anegel 03-08-2007 15:21:49
hola se ve interesante el scrip pero falta la bd para probarlo
saylar 27-08-2008 21:57:36
por favor me regitre para poder descargar la BD(base de datos)pero no encuentro nada si alguine la manda amicorreo se los agradeceria, tengo mucho buscando un carrito de compras espero que este realmente funcione, mi correo es fortino_28@hotmail.com
joshemel 09/09/2005 0.04.22
Es curioso, porque 3 años despues yo SI sigo pudiendo bajar el zip con el codigo y la db
Javierito
este codigo lo sacaron de la pagina ASPFACIL, de ahi pueden descargar el codigo mas la Base de datos en access, les dejo el link http://3W.aspfacil.com/codigo/shop.asp?ac=ver
sunyy
gracias por la ayuda estoy en prueba del carrito espero y funcione y pueda hacerle modificaciones a mi gusto gracias
kathy
xfa si tienen la base de datos y el codigo corregido me mandarian les agradescu mucho mi correo es kathy_tlv1@hotmail.com
rosy 06-01-2010 20:02:52
hola!!!!!!!
se puede crear aparte la base de datos para correr este ejemplo?????????
luluveli 10-01-2010 01:13:25
hola podrian mandarme a mi correo la base de datos a mi correo mmsucaz(arroba)hotmail.com .
se los agradeceria mucho
Burno_h 23-02-2010 03:16:09
Hola,soy un novato en esto tengo que hacer un carrito y me e descargado este, hay alguien que pudiese agregarme y explicarme un poco como va? muxas gracias este es mi email: burno_h@hotmail.com Se lo agradeceria eternamente.
alex1 13-11-2009 15:03:36
porfa si alguien tiene la base de datos podrian mandarmelo ami correo alex2_182@hotmail.com gracias
maria 22-05-2008 18:54:23
Hola.

Hice este script en mi página y no me carga. Tengo que hacer una pagina que contenga un carrito de la compra pero no se, alguien me puede ayudar??

Tengo la base de datos echa en phpMyAdmin pero todavia no exportada al index.

Saludos
Carlos 01/05/2004 16.50.01
ok me podria enviar formulario asp.net con sqlserver
de carrito de compra... por favor

es que el codigo que envia enla web no entiendo

me envia ami correo gracia que dios te bendiga
josecuxo 08-10-2010 05:01:52
Me parese genial el codigo de este carrito de compras ahora mismo lo implementare a mi proyecto, muchas graxias
javsant04 20-10-2010 21:52:53
pos no se puede descargar....
pto69 11-01-2011 16:03:07
ola buen dia podrian mandarm la base de datos para incorporarlo y probar el codigo antes mensionado o darm un link de descarga.. gracias
darwuixon
es muy buenos los carros
carlitadoll 24-02-2011 03:31:29
ps esta muy bien el codigo gracas
chaco 02-05-2011 16:40:26
hola buenos dias a todos.
por favor me pueden dar el link de descarga de la base de datos se los voy a gradecer muchos

saludos.
Sin definir
me podria enviar formulario asp.net con sqlserver
de carrito de compra... por favor

es que el codigo que envia enla web no entiendo
porfa la solucion o el proyecto como se entieda
mi correo es cosmo_888@hotmail.com
eduardo 28-05-2007 16:28:00
Hola Buen día a Todos, alguien me podría ayudar pasándome el proyecto y la BD por favor.

la verdad le entiendo muy poco al código que muestran.. como para ver el funcionamiento.. se los agradecería infinitamente su ayuda.. un saludo a todos..
Eduardo...
Este es mi correo renixedu@gmail.com
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.