Hace poco que comenze a programar en asp, y estaba tratando de hacer algo similar a un carrito asi, si podes, me podrias pasar una idea o codigo ?

Gracias

Responder

Re: Re: Re: Carrito de la compra en ASP????

Enviado por oscar el día 2 de diciembre de 2007

deseo saber mas del carrito de compras y su base de catos

 

Responder

Hola me gustaria que me dijeses el codigo en asp
para relaizar un carrito de la compra es lo unico que me falta para dar por finalizada una pagina que tengo en construccion. Gracias

Responder

Hola me gustaría saber como es el codigo que prpeparaste, ya que estoy haciendo un carrito de compras y generalmente encuentro codigo con java.
Saludos
Arturo

Responder

Re: Re: Re: Carrito de la compra en ASP????

Enviado por YOHALDY el día 21 de noviembre de 2002

hola mepuedes pasar las lineas codigo del carrito de compras si las encuentras.
gracias

 

Responder

Re: Re: Re: Carrito de la compra en ASP????

Enviado por YOHALDY el día 21 de noviembre de 2002

hola mepuedes pasar las lineas codigo del carrito de compras si las encuentras.
gracias

 

Responder

Re: Re: Re: Carrito de la compra en ASP????

Enviado por Carlos el día 15 de mayo de 2003

Hola, yo tengo el mismo inconveniente. En mi caso lo que quiero hacer es simplemente ingresar un importe y que sea enviado a una tarjeta de credito para su validación y posterior aprobaciòn.
Si me pueden dar una idea.

 

Responder

Hola:
estoy haciendo un carrito de compra de una tienda de juguetes( es un proyecto que tengo que entregar en mi clase de topicos, ¡¡¡¡¡¡¡¡¡es urgente pues la fecha de entrega es jueves 07 de Noviembre¡¡¡¡) ya hice la base de datos(en ella puedo ingresar, eliminar y consultar los productos que compro), el problema es que no se como realizar operaciones de multiplicaciòn y suma dentro de mi base de datos, o como jalar esos datos para realizar operaciones y que aparezcan por ejemplo cuando le doy click a un boton llamado "total", esto es para que el usuario cheque cuanto esta comprando y si se paso de su presupuesto elimine productos

Responder

Si me podes mandar el codigo te lo agradeceeeria, ya que tengo que hacer un trabajo para la facultad y no tengo tiempo de aprenderlo por el momento, y ando buscando una subasta on-line gracias

Responder

Si me pueden enviar ese c{odigo del carrito de comras les voy a estar bastante agradecido.

Saludos

Carlos

Responder

Hola;
Que tal, si me interesa ese coditgo algo similar es lo que deceo hacer en la pagina podrias enviarme el codigo por favor, lo mas pronto posible ya llevo varios dias sin lograrlo aun.

Te lo agradeceria mucho

Responder

Hola, estoy intentado diseñar una tienda para un trabajo en mi facultad, pero en ASP estoy un poco flojo y un carrito de la compra me resulta un tanto complejo, Si pudieras mandarme ese código te estaria muy agradecido.

Un Saludo amigo.

Responder

me intereso la descripcion de tu carrito de compras.
podrias enviarme el codigo.

Responder

Hola Juanan a mi si me interesa el codigo me lo podrias mandar?? porfa si puedes hoy mismo.. rte lo agradezco mucho

Responder

quiero hacer un cotizador de diferentes productos me podrias ayudar

Responder

Estoy interesado en el codigo que ofrece juanan, como podria contactarte

Responder

por favor mandame el codigo para diseñar el carrito de la compra.
Mil gracias y mil besos

Responder

Hola juan yo tambien necesito el codigo del carrito sera que me lo puedes enviar???

Responder

Hola.. un favoir me puedes pasar ese codigo.. lo necesito para implementar.. algo parecido a un carrito de compras..oscar_12107@hotmail.com

Responder

<%@LANGUAGE="VBSCRIPT"%>
<%Option Explicit%>
<%Response.Buffer=True%>
<%
' SHOP.ASP
'-----------
' Este script implementa un carrito de la compra básico con una sola
' página.
' Este script NO implementa los temas relacionados con la seguridad, que dependen
' de cada usuario.
' Este script utiliza un objeto Dictionary de VBScript guardado en una variable
' de sesión. Si el cliente no tiene habilitadas las cookies el script no funcionará.
' Con un array funcionaría igual, pero sería más complicado de leer y entender.

' El objeto es una lista de parejas (IdProducto, Cantidad)

' Los productos vienen de la tabla Productos
' Las marcas vienen de la tabla Marcas
' Estos nombres me los he inventado yo solito :-)
' ------------------------------------------------------------------

'
' Carlos de la Orden Dijs
' delaorden@mail.com

Sub MostrarCatalogo
' Muestra el catálogo con enlaces para ir comprando

Dim oRs, oRs2, SQL ' Uso 2 recordset
Dim idmarca ' IdMarca en Productos

' Conexión sin DSN a la base de datos

set oRs=Server.CreateObject("ADODB.Recordset")
set oRs2=Server.CreateObject("ADODB.Recordset")

SQL="SELECT * FROM Productos;"

oRs.Open SQL, oConn

'Dibujo la tabla
%>
<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")

' Tengo que sacar el nombre y la URL de la marca
SQL="SELECT * FROM Marcas WHERE IdMarca="&idmarca&";"
oRs2.Open SQL, oConn

' Cuidado con los dos recordset ahora:
' oRs2 tiene la marca
' oRs tiene el producto
%>
<TR>
<TD><A HREF="<%=oRs2.Fields("URL")%>"><%=oRs2.Fields("Nombre")%></A>&nbsp;</TD>
<TD><%=oRs.Fields("Nombre")%>&nbsp;</TD>
<TD><%=oRs.Fields("Precio")%>&nbsp;</TD>
<TD><A HREF="shop.asp?ac=meter&prod=<%=oRs.Fields("IdProducto")%>">Comprar</A></TD>
</TR>
<%
'Limpio oRs2
oRs2.Close
oRs.MoveNext
loop

'Termino la tabla
%>
</TABLE>
<%
oRs.Close
set oRs=nothing
set oRs2=nothing
' Pinto opciones
%>
<center><A HREF=shop.asp?ac=ver>Ver Carrito</A></center>

<%
End Sub
'----------------------------------------------------------

Sub MostrarCarrito
' Muestra el contenido del carrito de la compra
' En este ejemplo los gastos de envío los declaro aquí como constante.
' En un caso real deberían traerse de base de datos y llenar un combo por ejemplo

' carrito es la variable global que referencia al carrito

Dim oRs, oRs2, SQL

Dim clave

Dim gastos ' Gastos de envio
Dim total, subtotal

gastos=2500 ' Para todo el mundo! :)
total=0
subtotal=0

' Conexión sin DSN a la base de datos
' Debería haber sacado estas líneas a un sub y llamarlo, pero en fin :(

set oRs=Server.CreateObject("ADODB.Recordset")


'Pinto la tabla


%>
<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 ' Total de cada artículo en el carrito
'Pinto la línea de este producto
SQL="SELECT * FROM Productos WHERE IdProducto="&clave&";"
set oRs=oConn.Execute(SQL)

%>
<TR>

<TD><%=oRs.Fields("Nombre")%>&nbsp;</TD>
<TD><%=carrito(clave)%>&nbsp;</TD>
<TD><%=oRs.Fields("Precio")%>&nbsp;</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>
<%
' Multiplico el precio por la cantidad. FormatNumber me asegura que es un nº válido
' y convierto todo a tipo Single con CSng.
subtotal=CSng(FormatNumber(carrito(clave))*oRs.Fields("Precio"))
total=total+subtotal
%>
<TD><%= subtotal %>&nbsp;</TD>
</TR>
<%
Next

if carrito.Count > 0 then
oRs.Close
set oRs=nothing
end if

'Pinto el final de la tabla

%>
<TR>
<TD COLSPAN=4>Gastos de envío</TD>
<TD>
<%
if total=0 then
Response.Write("0") ' Sin compra no hay gastos de envío
else
Response.Write(gastos)
end if
%> &nbsp;</TD>
<TR>
<TD COLSPAN=4><B>Total:</B></TD>
<TD>
<%if total=0 then
Response.Write("0")
else
Response.Write(total+gastos)
end if
%> &nbsp;</TD>
</TABLE>
<%
' Pinto los enlaces
' si no he llamado desde PasarPorCaja
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)
' Añade el producto id al carrito de la compra
' En un caso real se deberían poder añadir más de una unidad
' bien desde el catálogo, bien editando en el carrito

' Si ya tengo el artículo en el carrito sumo 1 a la cantidad
if carrito.Exists(id) then
carrito(id)=carrito(id)+1
else
' Si no lo añado
carrito.Add id, 1
end if
Response.Write("Se ha añadido el artículo al carrito<br>")
End Sub

Sub SacarArticulo (id, cantidad)
' Saca un numero "cantidad" de articulos "id" del carrito
if not carrito.Exists(id) then
Response.Write("¡No tienes eso en tu carrito!")
else
if cantidad>1 then
'Quito todos así que quito ese articulo del carrito
carrito.Remove(id)
else
'Quito uno
carrito(id)=carrito(id)-1
if carrito(id)<1 then
carrito.Remove(id)
end if
end if
end if

End Sub

Sub PasarPorCaja
'-----------------------------------------------
' En este punto del script es donde debería ir
' todo lo relacionado con el pago, etc.
' Se podría por ejemplo escribir el pedido en un fichero
' de texto y añadirlo a una tabla de pedidos en la base de datos
' o bien enviar los detalles por email a una dirección.
' ¡Es tu decisión!
' Para el ejemplo, simplemente se lista el carrito una vez más
' y se muestra un mensaje de agradecimiento
%>
<H2>¡Gracias por comprar!</H2>
<%
MostrarCarrito
%>
En breve te llegarán a tu casa los productos. Gracias por
comprar en ASPFácil.
<br>
(En un caso real aquí pediríamos los datos, etc.)
<%
' Para el ejemplo, aquí libero la variable de sesión
set Session("carrito")=nothing
End Sub




'---------------------------------
' Programa "principal"
'---------------------------------
Dim carrito
Dim accion
Dim producto
Dim cant
Dim oConn


set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tienda.mdb")

' Si no existe el carrito lo creo
' si existe lo referencio

if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito=Server.CreateObject("Scripting.Dictionary")
end if

accion=CStr(Request.QueryString("ac")) 'Paso el parámetro a cadena
producto=CInt(Request.QueryString("prod")) 'Paso el parámetro cant a número entero
cant=CInt(Request.QueryString("cant")) 'Paso el parámetro cant a número entero

Select Case accion

Case "ver"
'Muestro el carrito
MostrarCarrito

Case "meter"
'Añado articulo al carrito
MeterArticulo producto
MostrarCarrito

Case "sacar"
' Quito el numero 'cant' de articulos 'producto' del carrito
call SacarArticulo (producto, cant)
MostrarCarrito

Case "fin"
' Muestro las compras y termino
PasarPorCaja

Case else
'Muestro el catálogo
MostrarCatalogo

End Select

set Session("carrito")=carrito
oConn.Close
set oConn=nothing

%>

Responder

Re: Re: Re: Carrito de la compra en ASP????

Enviado por carlos el día 15 de mayo de 2003

Para este ejemplo, cual es el formato de la base de datos, o que tengo que tener creado previamente como para que funcione

 

Responder

Yo tenia el mismo problema que todos ustedes,
ahora tuve que apender asp en 4 semanas...e hice los que andan buscando.

miren si les sirve o algo parecido
acepto criticas constructivas...
--- no me descueren, estoy aprendiendo...

http://www.insectplanet.com
axion2000@hotmail.com

Responder

Ups

Enviado por axion2000 el día 27 de junio de 2003

Tambien de Chile

 

Responder

Re: Miren estos y si les sirve avisen...

Enviado por Alien el día 8 de julio de 2003

Hola le eche un vistazo a tu sitio en el area del carrito y como dices que aceptas criticas constructivas, ahi va la primera: debes tener en cuenta la validacion de errores que debe hacer tu pagina, por ejemplo si por x razon alguien pone una letra en lugar de un numero en la caja de texto en donde se anotan las cantidades a comprar, esta marca un error de VBSCRIPT, por tanto te recomiendo que hagas un archivo en donde pongas una funcion llamada errores en la que se activaria el error cometido por el usuario si que tenga que salir el horroroso...

Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "f"]'

/Cesta2.asp, line 135


Bueno por lo demas tu sitio esta muy bien

Saludos

 

Responder

perfecto

Enviado por ARTURO el día 23 de abril de 2004

me podrias mandar el codgio fuente tu sitio es lo que necesito para mi materia de programacion que es crear un sitio web

 

Responder

Si alguien me pudiera ayudar, yo tambien quisera saber como hacer un carrito de compras en ASP, si alguien me puede mandar un codigo aunque sea algo simple.
Muchas gracias

Responder