Búsqueda en el Foro:
Buscar


« Ver tema anterior :: Ver siguiente tema »  
Autor Mensaje
Mensaje22-10-2008, 22:16 (UTC)    
Título del mensaje: Como puedo hacer esto......

Hola me gustaria saber si alguien me pued ayuudar, kisiera hacer esto http://www.aloetiscamanita.com/ (pinchar en producto) en mi web y no se si se hace con codigos html o es flash u otro tipo de edicción o programacion, la verdad es ke no tengo ni idea y no se ni sikiera si esta pregunta esta bien hubicada.

Seria lo ke hacen es esa pagina, pasar el raton por encima de una foto pekeña y ke se vea en grande, tipo vinculo, pero sin necesidad de pinchar en la foto. y por otro lado como podria hacer una cesta de la compra, para ke la gente ke kiera comprar fuera poniendo lo ke kiere en la cesta.

gracias a todos los ke puedan ayudarme.

www.pasaratos.es.tl
Mensaje22-10-2008, 22:27 (UTC)    
Título del mensaje:

Mira el de las imagenes el codigo es

Cita:
<script language="javascript">
function cambia(valor)
{
document.all(valor).width="50";
document.all(valor).height="50";
}
</script>
<img src="Imagen"border="0"name="img"onMouseOver="cambia(this.name);">


Y el de carrito sw compra es


Cita:
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("datatienda.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>

______________







Mensaje22-10-2008, 22:48 (UTC)    
Título del mensaje:

muuuuuuuchas gracias amigo, voy a probarlo, espero saber aplicarlo, so tubiera algun problema te digo.

gracias de nuevo.

www.pasaratos.es
Mensaje22-10-2008, 22:54 (UTC)    
Título del mensaje:

No de nada el foro es para cualquier ayuda que desees oye mira esta seccion no es para k publiques tu web si quieres agrega tu web a tu firma de foro
______________







Mensaje22-10-2008, 22:55 (UTC)    
Título del mensaje:

hola de nuevo, me podiras explicar como poner las fotos en el codigo y en el carrito de la compra donde iria el codigo ¿en cada foto? de lo ke se vende y el precio?

a ver si con esto me meto en ello y hago algo, gracias de nuevo y disculpa mi ignorancia en esto:

www.pasaratos.es.tl
Mensaje22-10-2008, 22:56 (UTC)    
Título del mensaje:

lo siento, perdon, no sabia ke no se podia poner la web, tan solo lo ponia como una firma, como acostubro a poner en los correos, no lapondre mas, disculpar.

Aviso del Moderador "Tokarg":
[Por favor no hacer doble Post. Para añadir información a sus mensajes utilice la función "Editar" ubicada en la esquina superior derecha de sus mensajes]


Ultima edición por pasaratos el Mie Oct 22, 2008 8:26 pm; editado 1 vez
Mensaje22-10-2008, 23:07 (UTC)    
Título del mensaje:

No hagas dos mensajes seguidos mira son reglas del foro

Aora con respecto a tu pregunta los codigos los agrgas en la fuente HTML de cualquier pagina que desees editar y yo te subraye con negrilla las opciones que hay que cambiar para que puedas tener tu codigo normal
______________







Mensaje22-10-2008, 23:28 (UTC)    
Título del mensaje:

pasaratos.es.tl

no hagas spam lee las reglas


http://www.paginawebgratis.es/forum/viewtopic.php?t=6523

saludos

Nota de "Tokarg":
[EVITAR ESTE TIPO DE COMENTARIOS]


Ultima edición por seba37 el Mie Oct 22, 2008 8:27 pm; editado 2 veces
Mostrar mensajes anteriores:   


Powered by phpBB © 2001, 2005 phpBB Group