Contar Hits en un sistema de noticias y escribirlos en la pagina?

[basty]

Contar Hits en un sistema de noticias y escribirlos en la pagina?

Osea:

'Esta nota fue leida xxx veces'


Estube leyendo todos los mensajes sobre el tema, pero nnguno esta respondido....solo explican como insertar los hits en una bdd q es lo que ya se......

Ahora, como los escribo en la pag xxnot.asp?id=2 ¿¿¿¿¿¿¿


Saluditos

[brujita]

Puedes agregar un campo en la base de datos para esto y cada que alguien ingrese a la página que sume 1 mas a cantidad que tienes en la base de datos....

Para publicar simplemente llamar el dato que tienes en la base de datos con un recorset y lo imprimes en pantalla

[basty]

Pasa q no hace mucho que empece con esto, y lo que me contas es chino para mi......

Recien estoy empezando, y logre hacer varias cosas interesantes, por eso qiero seguir sumando este tipo de detalles que rellenan mi web.......

Asi q plis!,,,,,,una descripcion mas copada!!


Gracias!

[rickoe]

Hola

Según te entiendo tienes una pagina que funciona así: nota.asp?id=1

Donde lo puedes hacer mas o menos asi:

nota=Request.QueryString("id")

' Primero lees el contador anterior

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
my_Conn.Open (conn_string)
StrSql = "SELECT * FROM datos where nota = '" & nota & "';"
rs.Open strSql, my_conn, 1, 1
counternota = rs("counter")
my_conn.Close
set my_conn = nothing

' le sumas uno al contador

counternota = counternota + 1

' actualizas el contador

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
my_conn.Open (conn_string)
strSql = "UPDATE datos SET counter =" & counternota & " WHERE nota = '" & nota & "';"
my_conn.Execute (strSql)
my_conn.Close
set my_conn = nothing

Bueno eso dices que ya lo sabes hacer, ahora para leer el dato seria así

nota=1
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base.mdb")
set my_conn= Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
my_Conn.Open (conn_string)
StrSql = "SELECT * FROM datos WHERE nota = '" & nota & "';"
rs.Open strSql, my_conn, 1, 1
Response.write "Esta nota fue leida " & rs("counter") & "veces"
my_conn.Close
set my_conn = nothing

Esto seria tomando en cuenta que en base.mdb tienes una tabla llamada "datos" con los campos "nota" y "counter"

Espero esto te sirva

Saludos

Rickoe

[webpedaler]

Si re100 estas empezando en esto, entonces revisate este sistema gratis de noticias , tambien tiene comentarios de noticias y todo eso.

http://www.webwizguide.com/asp/sampl...ews_script.asp


espero te sirba de algo