sistema de valoración en asp

[El_Metallick]

Hola amigos, les explico todo aunque aburra para que mi pregunta se entienda bien. Lo que quiero hacer es un sistema de valoración de artículos o vinculos, el típico que se ve por internet, el de las estrellitas. Para eso entiendo bien todo lo de la base de datos y lo de como sacar el promedio pero lo que no entiendo es como pasar del numero que me da el promedio a estrellitas (imagenes), a lo que voy es que si me da 4 o algun valor entero entre 0 y 5 todo bien por ejemplo 5+5= 10/2= 5 pero si me da un decimal??? por ejemplo 4+1+5+3= 13/4= 3.25 como hago para que aproxime ese valor. osea en este caso seria 3 estrellitas, pero si da por ejemplo 4.9 eso seria 5 y asi.... no se si oriente bien la pregunta, espero que se entienda y que puedan ayudarme. Bueno gracias de antemano y saludos.

[u_goldman]

Yo incrementaria .01 al valor hasta que llegara a x.5 0 x.0

Salu2,

[El_Metallick]

pero como hago eso con el promedio???

salu2

[dobled]

redondea ese valor

4+1+5+3= 13/4= 3.25

valor = 3.25
valor = Round(valor)

[El_Metallick]

Gracias amigo, mantengo informado de como me va con el script

[El_Metallick]

Hola amigos, ando buscando el tipico script en el que se pueden votar del 0 al 5 con estrellitas los links o los artículos, el que mas de alguna vez nos hemos cruzado por la red, no se si alguno de ustedes me puede decir de donde puedo bajarlo o si me puede dar los códigos, pues trate de hacer uno y con mis escazos conocimientos de asp no pude, bueno espero que me puedan ayudar, gracias de antemano.

[dobled]

una idea (nunca he hecho uno pero creo que podria ser asi)

tres campos
id_articulo | puntaje | votos

cada vez que votan sumas ese puntaje y lo agregas al campo puntaje, cuando el articulo exista, si no lo agregas como nuevo, a su vez incrementas +1 en votos para saber cuantos votos llevas asi divides el puntaje por las veces que han votado, asi de facil, que me dicen UDS..

o sea

id_articulo | puntaje | votos
1542 19 5

eso te indica que han votado 5 veces ejemplo 5,4,5,3,2 (puntajes)
tonces divides puntajes por votos
total=Rs("puntajes")/Rs("votos")
total=Round(total)
y reemplazas total por la imagen que corresponda
da un 3.8 pero lo redondeas a 4

Salu2

[El_Metallick]

gracias voy a ver que puedo hacer, si no me resulta te lo comento

[mrgubu]

El Intenet Search Engine de Web Wiz Guide viene con un sistema de votación con estrellitas cuyo código es relativamente fácil de estudiar y adaptar

http://webwizguide.com/asp/sample_sc...ine_script.asp

Yo he adaptado el código y utilizando un campo double para almacenar un decimal con la media de la votación de cada registro, luego le aplico cint(media) y no sé como pero el redondeo me lo hace "bien hecho", osea, de 5,50 para arriba me sale 6 y si es menor me da 5. Como las imagenes se llama 1estrella.jpg, 2estrella.jpg, pues pongo img src="<%=cint(rs("media") & "estrella.jpg"%>"

[El_Metallick]

mrgubu, veo que tu tienes el código hecho, me lo puedes enviar a [email protected] pues trate de hacerlo y no me funciono, bueno espero que no sea mucha joda, y gracias de antemano

[mrgubu]

El código no te lo puedo mandar tal cual porque está muy guarreado, lo uso en granadalinks.com , te recomiendo que cojas el original de webwizguide, está más limpo, el mío está muy modificado a partir del original. De todas formas, si luego tienes dudas, pásate por aquí.

[dobled]

mas facil sale hacer un codigo no es tan peluo, mira estoy fabricando uno simple para agregar a mi sitio tambien, vi el del link pero en modificarlo pierdo mas tiempo, lo termino y te lo paso

Nos Belmont

[dobled]

bueno despues de un buen almuerzo (y el reposo de mi licencia) logré hacer algo en este rato.

El_Metallick pon atencion y ve los campos que agrege en la tabla, mi tabla era de productos y agrege dos campos votos y total_votos

aqui va el codigo

valoracion.asp
archivo el cual te indica el valor de votos y tiene el link para valorarlo yo lo coloque como include en la pagina de detalles del producto

Código:

<%
		'Mostramos en forma grafica los votos que el producto tiene
		SQL="SELECT votos, total_votos FROM pcm_productos Where id_prod = "&Rs("id_prod")&""
		Set Rsv = Server.CreateObject("ADODB.Recordset")
		Rsv.Open SQL, oConn,3,1
		
		rate	=	Cint(Rsv("total_votos"))/Cint(Rsv("votos"))
		rate	=	Round(rate)
		
		Response.Write	("Este producto ha recibido "&Rsv("votos")&" votos ")
		Response.Write	("<img src=""/v1/images/"&rate&"_star_rating.gif"" width=""66"" height=""14"" alt="""&rate&" Estrellas"" border=""0"" align=""absmiddle"">")
		Response.Write	(" - ")
		Response.Write	("<a href=""JavaScript:openWin('valoracion_producto.asp?prodID=" & rs("id_prod") & "','rate_site')"" style=""font-size:""11px""; font-style: italic;"">votar</>")

		Rsv.close
		set Rsv = nothing
%>

valoracion_producto.asp
esta te muestra la tabla de estrellas para que valores el producto y te verifica si ya votaste por el mismo dandote un mensaje

Código:

<%
		prodID		=	Request.Querystring("prodID")
		valoracion 	= 	Request.Cookies("valoracion")("prodID")

%>
<script language="JavaScript">
function Rating(star) {

	if (star != "") self.location.href = "add_valoracion.asp?prodID=<%=prodID%>&Votos=" + star;
	return true;
}
// -->
</script>
<link href="default.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
  <%
		If valoracion = prodID Then
%>
  <br>
  <br>
  <br>
  <br>
  <table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
    <tr>
      <td><table width="100%" height="140" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td class="text"><div align="center">Disculpa, pero t&uacute; ya has votado por este producto. Intenta la proxima semana <br>
                    <a href="JavaScript:onClick=window.close()"><br>
                    <br>
                Cerrar Ventana </a><br>
            </div></td>
          </tr>
      </table></td>
    </tr>
    </table>
  <%else%>
  <br>
  <span class="text2">Valoraci&oacute;n de Productos<br>
  </span>Haz click en las estrellas que crees que<br>
  representan el valor de votos para el<br>
  producto elegido.<br>
  <br>
  <br>
  <table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
    <tr>
      <td><table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('0')"><img src="images/0_star_rating.gif" width="66" height="14" alt="0 Stars" border="0"></a></td>
            <td width="154" class="text">No lo comprar&iacute;a</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('1')"><img src="images/1_star_rating.gif" width="66" height="14" alt="1 Star" border="0"></a></td>
            <td width="154" class="text">Solo lo ver&iacute;a </td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('2')"><img src="images/2_star_rating.gif" width="66" height="14" alt="2 Stars" border="0"></a></td>
            <td width="154" class="text">Algo tiene de bueno </td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('3')"><img src="images/3_star_rating.gif" alt="3 Stars" width="66" height="14" border="0" align="absmiddle"></a></td>
            <td width="154" class="text">OK</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('4')"><img src="images/4_star_rating.gif" width="66" height="14" alt="4 Stars" border="0"></a></td>
            <td width="154" class="text">Excelente</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="JavaScript:Rating('5')"><img src="images/5_star_rating.gif" width="66" height="14" alt="5 Stars" border="0"></a></td>
            <td width="154" class="text">No puede faltar en el PC </td>
          </tr>
      </table></td>
    </tr>
    </table>
  <%End if%>
</div>

add_valoracion.asp
aqui traes los valores para sumar los votos nuevos y haces el UPDATE

Código:

<link href="default.css" rel="stylesheet" type="text/css">
<!--#include file="includes/conexion_sql_mod.asp" -->
<%
		'Recupero el valor del voto y el valor del ID del producto
		prodID	=	Request.Querystring("prodID")
		votos	=	Request.Querystring("Votos")


		'Traigo los votos actuales que tiene el producto para sumarle los nuevos
		SQL="SELECT * FROM pcm_productos WHERE id_prod = '"&prodID&"' "
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Rs.Open SQL, oConn,3,1

		vact		=	Cint(Rs("total_votos"))
		total		=	vact + Votos
		
		'Sumamos uno a las votaciones
		rating		=	Cint(Rs("votos"))+1
		
		'Ahora que tengo el total que es lo que recibi de la base mas los votos nuevos actualizo la valoracion del producto segun su ID
		
		SQL = "UPDATE pcm_productos Set total_votos = '"&total&"', votos = '"&rating&"' WHERE id_prod = '"&prodID&"' "
		Set RS = oConn.Execute(SQL) 
		
		'Creamos una cookie con el id del producto para que no voten mas de una vez(puro grupo) le damos una semana
		Response.Cookies("valoracion")("prodID")= prodID
		Response.Cookies("valoracion").Expires = Now() + 7
%>
<br>
<br>
<br>
<br>
<table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
  <tr>
    <td><table width="100%" height="140" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td class="text"><div align="center"><img src="http://www.pcmod.cl/images/index01.jpg" width="200" height="60"><br>
            Gracias por tu Voto<br>
            <a href="JavaScript:onClick=window.close()"><br>
            Cerrar Ventana </a><br>
          </div></td>
        </tr>
    </table></td>
  </tr>
</table>

ahora lo subo de una a mi sitio para valorar los productos suerte cualquier cosa no dudes en consultar.
Espero te sirva

Servirá para las FAQ's?

Chaoooo

[dobled]

Sorry las imagenes te las dejo AQUI

[El_Metallick]

dobled... muchas gracias por darte el tiempo de hacer este script... y una ultima duda.. la BD seria algo asi

id_prod -----> Autonumérico
pcm_productos -----> ¿Texto?
votos -----> Numérico
total_votos -----> Numérico

o no???

[dobled]

si correcto la base de datos de llama pcm_productos

id (int)
producto (varchar)
votos (numeric)
total_votos (numeric)

[El_Metallick]

dobled tu en el script usas SQL no es asi???
<!--#include file="includes/conexion_sql_mod.asp" -->
si es asi, no se si me puedes postear el código de ese archivo, y si no es asi me podrias repetir los campos de la BD pues por muchos intentos no he podido hacerlo correr.

Gracias por la paciencia y la dispocición

[dobled]

claro es sql aqui te mando el codigo de la conexion

Código:

<%
       SQL = "Driver={SQL Server};Description=sqldemo;SERVER=mod; UID=sa;PWD=sa;DATABASE=storepcm"
       set oConn = server.createobject("adodb.connection")
       oConn.open SQL
%>

[El_Metallick]

gracias, y disculpa las molestias

[dobled]

dale no mas, tiene que funcionar

[El_Metallick]

sabi que no cacho como hacer la BD en SQL como seria en acces:

nombre de la BD y de la tabla pcm_productos
id (autonumerico)
producto (texto)
votos (numerico)
total_votos (numerico)

o no???

[dobled]

tienes SQL2000? si es asi te mando la bd y tu la restauras desde el administrador corporativo que te parece!

[El_Metallick]

no no lo tengo, donde lo puedo encontrar???

[dobled]

medio dificil, haber , tu quieres hacerla en access y no sabes como van las propiedades de cada campo cierto y ademas quieres la conexion ?
si es asi te la mando en access

[El_Metallick]

ya si no es mucha joda mandamelo porfavor

[dobled]

la conexion para access 2000 o superior la bd va a la raiz del sitio

Código:

oconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("pcmstore.mdb")

[El_Metallick]

Me tira este error

Microsoft JET Database Engine error '80040e07'

No coinciden los tipos de datos en la expresión de criterios.

/pruebas/add_valoracion.asp, line 14

Código:

<%
       stroconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("pcmstore.mdb")
       set oConn = server.createobject("adodb.connection")
       oConn.open stroconn

            'Recupero el valor del voto y el valor del ID del producto
		prodID	=	Request.Querystring("prodID")
		votos	=	Request.Querystring("Votos")


		'Traigo los votos actuales que tiene el producto para sumarle los nuevos
		SQL="SELECT * FROM pcm_productos WHERE id_prod = '"&prodID&"' "
		Set Rs = Server.CreateObject("ADODB.Recordset")
		Rs.Open SQL, oConn,3,1

		vact		=	Cint(Rs("total_votos"))
		total		=	vact + Votos
		
		'Sumamos uno a las votaciones
		rating		=	Cint(Rs("votos"))+1
		
		'Ahora que tengo el total que es lo que recibi de la base mas los votos nuevos actualizo la valoracion del producto segun su ID
		
		SQL = "UPDATE pcm_productos Set total_votos = '"&total&"', votos = '"&rating&"' WHERE id_prod = '"&prodID&"' "
		Set RS = oConn.Execute(SQL) 
		
		'Creamos una cookie con el id del producto para que no voten mas de una vez(puro grupo) le damos una semana
		Response.Cookies("valoracion")("prodID")= prodID
		Response.Cookies("valoracion").Expires = Now() + 7
%>
<br>
<br>
<br>
<br>
<table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
  <tr>
    <td><table width="100%" height="140" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF">
        <tr>
          <td class="text"><div align="center"><img src="http://www.pcmod.cl/images/index01.jpg" width="200" height="60"><br>
            Gracias por tu Voto<br>
            <a href="javascript:onClick=window.close()"><br>
            Cerrar Ventana </a><br>
          </div></td>
        </tr>
    </table></td>
  </tr>
</table>

lo demas funciona todo bien hice algunos arreglos como

Código:

<html>
<head>
<title>Productos</title>
</head>
<SCRIPT>
<!--
function openWin(url, width, height) 
{
 var Win = window.open(url,"displayWindow",'width=' + width + ',height=' + height + ',resizable=no,scrollbars=no,menubar=no,status=no' );
}
//-->
</SCRIPT>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("pcmstore.mdb")
Conn.Open strConn

SQL="SELECT * FROM pcm_productos ORDER BY id_prod"
set RS = Conn.Execute(SQL)

Do While Not RS.EOF
%>
<table border="0" width="100%">
  <tr>
    <td width="15%">Producto</td>
    <td width="85%"><% = RS("producto") %></td>
  </tr>
  <tr>
    <td width="15%">Descripción</td>
    <td width="85%"><% = RS("descripcion") %></td>
  </tr>
  <tr>
    <td width="15%">Valoración</td>
    <td width="85%">Clicks: <% = RS("clicks") %>&nbsp;<%
      		
rate = Cint(Rs("total_votos"))/Cint(Rs("votos"))
rate = Round(rate)
		
Response.Write	("Este producto ha recibido "&Rs("votos")&" votos ")
Response.Write	("<img src="""&rate&"_star_rating.gif"" width=""66"" height=""14"" alt="""&rate&" Estrellas"" border=""0"" align=""absmiddle"">")
Response.Write	(" - ")
Response.Write	("<a href=""javascript:openWin('valoracion_producto.asp?prodID=" & rs("id_prod") & "','rate_site')"" style=""font-size:""11px""; font-style: italic;"">votar</>")

%></td>
  </tr>
</table><br><br>
<%
RS.MoveNext
Loop

%>
</body>
</html>

[dobled]

posteate la valoracion_producto.asp

[El_Metallick]

Código:

<%
		prodID		=	Request.Querystring("prodID")
		valoracion 	= 	Request.Cookies("valoracion")("prodID")

%>
<script language="JavaScript">
function Rating(star) {

	if (star != "") self.location.href = "add_valoracion.asp?prodID=<%=prodID%>&Votos=" + star;
	return true;
}
// -->
</script>
<link href="default.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
  <%
		If valoracion = prodID Then
%>
  <br>
  <br>
  <br>
  <br>
  <table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
    <tr>
      <td><table width="100%" height="140" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF">
          <tr>
            <td class="text"><div align="center">Disculpa, pero t&uacute; ya has votado por este producto. Intenta la proxima semana <br>
                    <a href="javascript:onClick=window.close()"><br>
                    <br>
                Cerrar Ventana </a><br>
            </div></td>
          </tr>
      </table></td>
    </tr>
    </table>
  <%else%>
  <br>
  <span class="text2">Valoraci&oacute;n de Productos<br>
  </span>Haz click en las estrellas que crees que<br>
  representan el valor de votos para el<br>
  producto elegido.<br>
  <br>
  <br>
  <table width="215" height="22" border="0" align="center" cellpadding="1" cellspacing="0" bgcolor="#000000">
    <tr>
      <td><table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('0')"><img src="0_star_rating.gif" width="66" height="14" alt="0 Stars" border="0"></a></td>
            <td width="154" class="text">No lo comprar&iacute;a</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('1')"><img src="1_star_rating.gif" width="66" height="14" alt="1 Star" border="0"></a></td>
            <td width="154" class="text">Solo lo ver&iacute;a </td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('2')"><img src="2_star_rating.gif" width="66" height="14" alt="2 Stars" border="0"></a></td>
            <td width="154" class="text">Algo tiene de bueno </td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('3')"><img src="3_star_rating.gif" alt="3 Stars" width="66" height="14" border="0" align="absmiddle"></a></td>
            <td width="154" class="text">OK</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('4')"><img src="4_star_rating.gif" width="66" height="14" alt="4 Stars" border="0"></a></td>
            <td width="154" class="text">Excelente</td>
          </tr>
          <tr>
            <td width="50" class="text"><a href="javascript:Rating('5')"><img src="5_star_rating.gif" width="66" height="14" alt="5 Stars" border="0"></a></td>
            <td width="154" class="text">No puede faltar en el PC </td>
          </tr>
      </table></td>
    </tr>
    </table>
  <%End if%>
</div>

[El_Metallick]

ya te postie el codigo de valoracion_producto.asp dobled