| Contador de Clicks |
|
|
|
| Un muy sistema de contador de clicks. Ideal para poder manejar cantidad de descargas, sistemas de publicidad entre otras aplicaciones. |
Si tenemos un sistema de download en nuestro sitio, o tenemos publicidad tambien en nuestro sitio, y queremos contar los "clicks" que se hacen a determinado enlace, esta es nuestra solucion: un muy buen gestor de clicks. En este caso, esta pensado para determinar cuantos clicks se hacen en un banner con publicidad desde nuestro sitio.
Lo que hace simplemente, es recibir datos desde una variable proveniente del QueryString. En este caso, las variables son: sitio (que es la direccion enlace de nuestra banner de propaganda) e imagen (el nombre de nuestro banner. O tambien uds. podrían ponerle un identificativo al banner..ahí uds.). Luego va chequeando lo sgte:
1. Si no coincide el campo "imagen" con la variable "imagen", se crea un nuevo registro, agregandole la informacion de la variable "imagen", y además se le asigna un "1" al campo clicks (el 1 proviene de la variable "click_de_cero").
2. Si los datos de la variable "imagen" coinciden en la base de datos, entonces lo único que se hace es actualizar el registro "clicks" (que corresponda a "imagen". De lo contrario, actualizaría toda la base de datos). Para actualizarlo, se toma el valor del campo "clicks", y se le suma "1".
Bueno, este es el código completo. Cópienlo y utilicenlo.
<%
sitio = request.querystring("sitio")
imagen = request.querystring("imagen")
click_de_cero= "1"
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("tubasededatos.mdb")
sql="SELECT * FROM contador WHERE imagen ='"&imagen&"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
If RS.EOF = True Then
oConn.execute "INSERT INTO contador(imagen,clicks) VALUES('"&imagen&"','"&click_de_cero&"')"
Response.Redirect sitio
End If
If Not RS.EOF = True Then
oConn.Execute "UPDATE contador SET clicks = "&RS("clicks")+1&" WHERE imagen ='"&imagen&"'"
Response.Redirect sitio
Rs.Requery
End If
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
Visita ya www.fusionwebredes.3a2.com! |
|
| |
| Terminos de Uso |
|
1 - Copiar o Descargarse este contenido implica aceptar los terminos aqui detallados.
2 - Usted puede utilizar este contenido en sus propios programas y puede compilarlo en un programa y modificarlo a su gusto.
3 - Usted NO PUEDE redistribuir este contenido tal como se presenta aqui sin el permiso del autor original del mismo.
4 - Usted seguirá cualquier restricción adicional del copyright que el autor pudo haber puesto en la descripción del contenido.
|
|
|
|
|
