Publicentral.com - promocion,paginas,web,tutores,publicentralPromocion de paginas webs
Mostrando Codigo - Asp
Code

Asp - Carrito de Compras con base de datos access

Códigos Asp

Creacion de un sencillo carrito de compra con base de datos access .mdb
Visitas: 64,139 -
Archivo descargable »
CODIGO SIN DEMOSTRACIONDownloadComentario
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 ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. Shop.asp----------------
  2.  
  3. <%@LANGUAGE="VBSCRIPT"%>
  4. <%
  5. 'Option Explicit%>
  6. <%Response.Buffer=True%>
  7. <HTML>
  8. <HEAD>
  9.     <TITLE>Carrito de compras</TITLE>
  10. <%
  11. ' SHOP.ASP
  12.  
  13. Sub MostrarCatalogo '****************************************************
  14.  
  15. Dim oRs, oRs2, SQL  
  16. Dim idmarca        
  17. Set oRs=Server.CreateObject("ADODB.Recordset")
  18. Set oRs2=Server.CreateObject("ADODB.Recordset")
  19. SQL="SELECT * FROM Productos;"
  20. oRs.Open SQL, oConn
  21. %>
  22. <TABLE BORDER=1 CELLSPACING="1" CELLPADDING="1">
  23.     <TR>
  24.     <TD><B>Marca</B></TD>
  25.     <TD><B>Producto</B></TD>
  26.     <TD><B>Precio</B></TD>
  27.     <TD></TD>
  28.  
  29. <%
  30. Do until oRs.EOF
  31. idmarca=oRs.Fields("Marca")
  32. SQL="SELECT * FROM Marcas WHERE IdMarca="&idmarca&";"
  33. oRs2.Open SQL, oConn
  34. %>
  35.     <TR>
  36.     <TD><A HREF="<%=oRs2.Fields("URL")%>"><%=oRs2.Fields("Nombre")%></A></TD>
  37.     <TD><%=oRs.Fields("Nombre")%></TD>
  38.     <TD><%=oRs.Fields("Precio")%></TD>
  39.     <TD><A HREF="shop.asp?ac=meter&prod=<%=oRs.Fields("IdProducto")%>">Comprar</A></TD>
  40.     </TR>
  41. <%
  42. oRs2.Close
  43. oRs.MoveNext
  44. Loop
  45. %>
  46.     </TABLE>
  47. <%
  48. oRs.Close
  49. Set oRs=Nothing
  50. Set oRs2=Nothing
  51. %>
  52. <center><A HREF=shop.asp?ac=ver>Ver Carrito</A></center>
  53. <%
  54. End Sub'********************************************************************
  55.  
  56. Sub MostrarCarrito'*********************************************************
  57.  
  58. Dim oRs, oRs2, SQL
  59. Dim clave
  60. Dim gastos  
  61. Dim total, subtotal
  62. gastos=2500
  63. total=0
  64. subtotal=0
  65. Set oRs=Server.CreateObject("ADODB.Recordset")
  66. %>
  67.     <TABLE BORDER="1" CELLPADDING="1" CELLSPACING="1">
  68.     <TR>
  69.     <TD>Artículo</TD>
  70.     <TD>Cantidad</TD>
  71.     <TD>Precio/unidad</TD>
  72.     <TD>Quitar del carrito</TD>
  73.     <TD>Total</TD>  
  74.     </TR>
  75. <%
  76. For Each clave In carrito
  77. subtotal=0      
  78. SQL="SELECT * FROM Productos WHERE IdProducto="&clave&";"
  79. Set oRs=oConn.Execute(SQL)
  80. %>
  81.     <TR>
  82. <TD><%=oRs.Fields("Nombre")%></TD>
  83.     <TD><%=carrito(clave)%></TD>
  84.     <TD><%=oRs.Fields("Precio")%></TD>
  85.     <TD><A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=1">Quitar Uno</A>
  86.      <A HREF="shop.asp?ac=sacar&prod=<%=clave%>&cant=<%=carrito(clave)%>">Quitar Todos</A>
  87.     </TD>
  88. <%
  89. subtotal=CSng(FormatNumber(carrito(clave))*oRs.Fields("Precio"))
  90. total=total+subtotal
  91. %>
  92.     <TD><%= subtotal %></TD>
  93.     </TR>
  94. <%
  95. Next
  96. If carrito.Count > 0 Then
  97. oRs.Close
  98. Set oRs=Nothing
  99. End If
  100. %>
  101.     <TR>
  102.     <TD COLSPAN=4>Gastos de envío</TD>
  103.     <TD>
  104.     <%
  105.     If total=0 Then
  106.         Response.Write("0")    
  107.     Else
  108.         Response.Write(gastos)
  109.     End If
  110.     %>
  111.     </TD>
  112.     <TR>
  113.     <TD COLSPAN=4><B>Total:</B></TD>
  114.     <TD>
  115.     <%if total=0 Then
  116.         Response.Write("0")
  117.     Else
  118.         Response.Write(total+gastos)
  119.     End If
  120.     %>  
  121.     </TD>
  122.     </TABLE>
  123. <%
  124. If accion<>"fin" Then
  125. %>
  126.     <center>
  127.     <A HREF=shop.asp>Seguir mirando</A> / <A HREF=shop.asp?ac=fin>Pasar por caja</A>
  128.     </center>
  129. <%
  130. End If
  131. End Sub'********************************************************************
  132.  
  133.  
  134. Sub MeterArticulo (id)'******************************************************
  135.  
  136. If carrito.Exists(id) Then
  137. carrito(id)=carrito(id)+1
  138. Else
  139. carrito.Add id, 1
  140. End If
  141. Response.Write("Se ha añadido el artículo al carrito<br>")
  142. End Sub'********************************************************************
  143.  
  144.  
  145. Sub SacarArticulo (id, cantidad)'*******************************************
  146.  
  147. If Not carrito.Exists(id) Then
  148. Response.Write("¡No tienes eso en tu carrito!")
  149. Else
  150. If cantidad>1 Then
  151. carrito.Remove(id)
  152. Else
  153. carrito(id)=carrito(id)-1
  154. If carrito(id)<1 Then
  155. carrito.Remove(id)
  156. End If
  157. End If
  158. End If
  159. End Sub'********************************************************************
  160.  
  161. Sub PasarPorCaja'***********************************************************
  162.  
  163. %>
  164.     <H2>¡Gracias por su compra!</H2>
  165. <%
  166. MostrarCarrito
  167. %>
  168. En breve te llegarán a tu casa los productos. Gracias por comprar . <br>
  169. (En un caso real aquí pediríamos los datos, etc.)
  170. <%
  171. Set Session("carrito")=Nothing
  172. End Sub'********************************************************************
  173.  
  174.  
  175. Dim carrito
  176. Dim accion
  177. Dim producto
  178. Dim cant
  179. Dim oConn
  180. %>
  181. <H2>Carrito de la compra</H2>
  182. <P>
  183. <hr>
  184.  
  185. <%
  186. Set oConn=Server.CreateObject("ADODB.Connection")
  187. oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data ienda.mdb")
  188. If IsObject(Session("carrito")) Then
  189.     Set carrito=Session("carrito")
  190. Else
  191.     Set carrito=Server.CreateObject("Scripting.Dictionary")
  192. End If
  193. accion=CStr(Request.QueryString("ac"))  
  194. producto=CInt(Request.QueryString("prod"))  
  195. cant=CInt(Request.QueryString("cant"))  
  196. Select Case accion
  197. Case "ver"
  198. MostrarCarrito
  199. Case "meter"
  200. MeterArticulo Producto
  201. MostrarCarrito
  202. Case "sacar"
  203. Call SacarArticulo (producto, cant)
  204. MostrarCarrito
  205. Case "fin"
  206. PasarPorCaja
  207. Case Else
  208. MostrarCatalogo
  209. End Select
  210. Set Session("carrito")=carrito
  211. oConn.Close
  212. Set oConn=Nothing
  213. %>
  214.  
  215.  
  216. Detalle.asp ----------------------------
  217.  
  218. <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
  219. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  220. <html>
  221. <head>
  222. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  223. <title>Documento sin t&iacute;tulo</title>
  224. </head>
  225.  
  226. <body>
  227.  
  228. <div align="right"><table width="404"  border="1" align="center" cellpadding="5" cellspacing="0">
  229.   <tr>
  230.     <td colspan="2"><div align="center"><strong>Detalle del producto </strong></div></td>
  231.     </tr>
  232.   <tr>
  233.     <td><div align="center"><img src="" alt="" width="142" height="135" style="background-color: #CC0000"></div></td>
  234.     <td><p align="left">xxxxxxxxxxxxxxxxx</p>
  235.       <p align="left">xxxxxxxxxxxxxxx</p>
  236.       <p align="left">xxxxxxxxxxxxxxx</p></td>
  237.   </tr>
  238.   <tr>
  239.     <td>&nbsp;</td>
  240.     <td>&nbsp;</td>
  241.   </tr>
  242. </table>
  243. </div>
  244. </body>
  245. </html>
  246.  
  247.  



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
Comentario usuario
elias
1 5
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!!
Comentario usuario
19/04/2003
1 5
hola
tan pronto la colgaremos para que pueda ser descargada
Saludos
Comentario usuario
01-12-2007 02:22:42
2 5
Todabia no cuelgan la base de datos?
Comentario usuario
15/09/2005 19.32.50
2 5
seria interesante por ver la base de datos, espero que sea pronto, desde ya muchas gracias
Comentario usuario
16/09/2005 0.55.42
4 5
bkan pero la base de datos....
Comentario usuario
19/04/2003
3 5
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
Comentario usuario
01-03-2009 03:18:54
4 5
una BBDD ca prend combien de temps a etre fait? 20 ans? Bonne chance, Jim :-)
Comentario usuario
01-12-2007 02:22:42
4 5
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
Comentario usuario
19/04/2003
3 5
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.
Comentario usuario
01-12-2007 02:22:42
4 5
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.
Comentario usuario
elias
4 5
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.
Comentario usuario
15/09/2005 19.32.50
5 5
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
Comentario usuario
19/04/2003
5 5
Hola Jose
aqui te dejo el correo
info ( arroba )tutores.org y gracias por tu colaboracion.
saludos
Comentario usuario
01-12-2007 02:22:42
3 5
Base de datos enviada.
Comentario usuario
09/09/2005 0.04.22
2 5
Si presenta algun error estoy a la orden...
Comentario usuario
19/04/2003
4 5
Gracias por tu aporte Joshemel
Hemos insertado el codigo y Base de datos.
Comentario usuario
09/09/2005 0.04.22
1 5
Saludos, es unplacer colaborar siempre que se pueda. :)
Comentario usuario
30-12-2007 20:54:16
1 5
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
Comentario usuario
08/07/2005 23.04.20
1 5
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.
Comentario usuario
07/06/2006 18.22.43
3 5
Soy Usuario registrador y no puedo descargar el ZIP me podrian dar el link para descargarlo porfa
Comentario usuario
19/04/2003
1 5
Hola podrias poner el error que te da, lo hemos probado y al parecer no contiene errores.
Saludos
Comentario usuario
08/07/2005 23.04.20
1 5
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
Comentario usuario
20-04-2009 18:33:00
5 5
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.
Comentario usuario
16-08-2010 00:08:34
2 5
No he podido bajarme la base de datos, si alguien me puede decir como ahcerlo me haria un gran favor!! mcuhas gracias!!!
Comentario usuario
19/04/2003
2 5
Hola lucio
Solo debes de registrarte. como observaras hemos modificado la url directa que puso el amigo SuperElias.
Saludos
Comentario usuario
21/01/2007 6.41.03
1 5
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????????
Comentario usuario
jesus vasquez
1 5
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.
Comentario usuario
25/09/2006 18.55.46
4 5
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
***
Comentario usuario
03/12/2006 16.23.19
4 5
Yo me registre y aun asi no puedo ver el zip
Comentario usuario
11/12/2006 9.17.17
2 5
yo tampoco :(
Comentario usuario
19/04/2003
2 5
Hola, el .Zip lo podeis encontrar encima del boton "DEMO" en la parte de arriba derecha de la pagina.
Saludos
Comentario usuario
02-06-2007 23:31:30
4 5
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?????
Comentario usuario
09-09-2007 12:30:32
5 5
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¿?
Comentario usuario
26-10-2007 09:56:07
2 5
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
Comentario usuario
26-10-2007 18:18:59
4 5
tratare de hacer el carrito y la base de datos, soy diseñador, pero no tengo muchos conocimientos del programa acces
Comentario usuario
16-09-2009 21:45:01
1 5
saludo cordial
a la vista del sistema me podria dar los bases de datos o enviar a mi correo
Comentario usuario
06-12-2007 22:48:14
1 5
Hola porfavor alguien me puede mandar la base de datos de carrito en asp me urge gracias mi correo es venenosa91@hotmail.com
Comentario usuario
27-06-2008 11:19:34
2 5
Donode se puede descargar la base de datos de carrito? Gracias.
Comentario usuario
03-07-2008 00:57:41
4 5
este carrito tiene sesiones?
Comentario usuario
22-07-2008 20:25:04
4 5
necesito la base de datos del carrito xfavor me urge

grevega@gmail.com
Comentario usuario
03-08-2007 15:21:49
1 5
hola se ve interesante el scrip pero falta la bd para probarlo
Comentario usuario
27-08-2008 21:57:36
4 5
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
Comentario usuario
09/09/2005 0.04.22
3 5
Es curioso, porque 3 años despues yo SI sigo pudiendo bajar el zip con el codigo y la db
Comentario usuario
Javierito
3 5
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
Comentario usuario
sunyy
1 5
gracias por la ayuda estoy en prueba del carrito espero y funcione y pueda hacerle modificaciones a mi gusto gracias
Comentario usuario
kathy
3 5
xfa si tienen la base de datos y el codigo corregido me mandarian les agradescu mucho mi correo es kathy_tlv1@hotmail.com
Comentario usuario
06-01-2010 20:02:52
1 5
hola!!!!!!!
se puede crear aparte la base de datos para correr este ejemplo?????????
Comentario usuario
10-01-2010 01:13:25
3 5
hola podrian mandarme a mi correo la base de datos a mi correo mmsucaz(arroba)hotmail.com .
se los agradeceria mucho
Comentario usuario
23-02-2010 03:16:09
2 5
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.
Comentario usuario
13-11-2009 15:03:36
3 5
porfa si alguien tiene la base de datos podrian mandarmelo ami correo alex2_182@hotmail.com gracias
Comentario usuario
22-05-2008 18:54:23
3 5
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
Comentario usuario
01/05/2004 16.50.01
3 5
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
Comentario usuario
08-10-2010 05:01:52
2 5
Me parese genial el codigo de este carrito de compras ahora mismo lo implementare a mi proyecto, muchas graxias
Comentario usuario
20-10-2010 21:52:53
1 5
pos no se puede descargar....
Comentario usuario
11-01-2011 16:03:07
3 5
ola buen dia podrian mandarm la base de datos para incorporarlo y probar el codigo antes mensionado o darm un link de descarga.. gracias
Comentario usuario
darwuixon
1 5
es muy buenos los carros
Comentario usuario
24-02-2011 03:31:29
5 5
ps esta muy bien el codigo gracas
Comentario usuario
02-05-2011 16:40:26
3 5
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.
Comentario usuario
Sin definir
2 5
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
Comentario usuario
28-05-2007 16:28:00
1 5
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
Comentario usuario
06/07/2004 17.04.57
1 5
buen aporte, solo que mucho rollo para comenzar a descargar
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.