Free NET counter - Simple contador de visitas para páginas ASP.NET ( páginas ASPX) .

El siguiente script permite implementar un simple contador gráfico de visitas para una página web que corra bajo ASP.NET.

Este, a diferencia de otros scripts PHP similares, funciona utilizando las funciones gráficas de .NET para crear el contador, es decir que no utiliza un archivo de imagen o bitmap ya creado y almacenado en una carpeta de nuestro servidor.

A continuación puedes ver mas información sobre el código fuente y como implementarlo en tu página o sitio web.

Indice - Contenido.

1. Características principales del script.
2. Nota importante sobre la instalación del contador.
3. Código fuente del contador ASP.NET.
4. Captura de pantalla del contador dentro de la página.

1 - Características principales del script.

• Utiliza una base de datos Microsoft Access para llevar el registro de las visitas.
• Es muy simple insertar el código en la página para poder comenzar a utilizarlo.
• Pemite definir el ancho y alto de la imagen del contador.
• Establecer el color de fondo para que sea igual al de la página.
• Establecer el tipo de fuente.

2 - Nota importante sobre la instalación del contador.

Importante. En el código fuente deberás modificar la ruta a la base de datos, y para desplegar el contador desde cualquier página deberás introducir lo siguiente:

<img src="hscounter.aspx?id=12" />

3 - Código fuente del contador ASP.NET.

Nota en el archivo de descarga encontrarás dos ficheros, este mismo código para la página aspx ( archivo hscounter.aspx ) y el otro archivo es el de la base de datos ( hs_counter.mdb )

<%@ Page Language="vb" Debug=false %> <%@ import Namespace="System.Data.OLEDB" %> <%@ import Namespace="System.Drawing.Imaging" %> <%@ import Namespace="System.Drawing.Text" %> <script runat="server" language="vb"> Sub Page_Load(sender As Object, e As EventArgs) Dim queryvalue = Request.QueryString("id") If (IsNumeric(queryvalue)) then ' Establecer el tamaño de la imagen, ancho y alto Dim aWidth As Integer = 60 Dim aHeight As Integer = 30 ' Establecer el color de fondo Dim aBgColor As Drawing.Color = Drawing.Color.White 'obtener el número del contador a aparecer en la imagen Dim aText As String atext = hitcounter(queryvalue)' & vbcrlf & "homescoop.com" 'Definir el tipo y estilo de fuente, color etc .. Dim aFont As New Drawing.Font("Arial", 18, Drawing.FontStyle.Regular, Drawing.GraphicsUnit.Pixel) Dim aFontColor As Drawing.Color = Drawing.Color.Black Dim b As New Drawing.Bitmap(aWidth, aHeight, Drawing.Imaging.PixelFormat.Format24bppRgb) Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(b) g.Clear(aBgColor) g.SmoothingMode = Drawing.Drawing2D.SmoothingMode.AntiAlias ' Para centrar el texto en la imagen Dim SFormat As New Drawing.StringFormat SFormat.Alignment = Drawing.StringAlignment.Center g.DrawString(aText, aFont, New Drawing.SolidBrush(aFontColor), b.Width / 2, 5, SFormat) Response.Clear() Response.ContentType = "Image/Gif" ' Generar la imagen del contador b.Save(Response.OutputStream, Drawing.Imaging.ImageFormat.Gif) 'clean up b.Dispose() Response.Flush() Response.End() End If end sub Function hitcounter(ByVal queryvalue As Integer) dim datapath as String ' Aqui se establece el path de la base de datos datapath = Server.MapPath("/allscoop/hs_counter.mdb") Dim query As String = "Select cvalue from hscounter where id = " & queryvalue & ";" Dim myConn As New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & datapath) Dim myCmd As OleDbCommand = New OleDbCommand(query, myConn) myConn.Open() Dim myReader As OleDbDataReader = myCmd.ExecuteReader() Dim newcount As Integer While myReader.Read() newcount = (myReader("cvalue")) End While ' Cerrar conexiones abiertas a la base de datos myReader.Close() myConn.Close() ' Actualizar la base de datos con la nueva visita Dim newcountadd As Integer = (newcount + 1) Dim updatequery As String = "UPDATE hscounter SET cvalue = " & newcountadd & " where id = " & queryvalue & ";" Dim myCommand As New OleDbCommand(updatequery, myConn) myCommand.Connection.Open() myCommand.ExecuteNonQuery() myConn.Close() ' Incrementar el contador hitcounter = newcount End Function </script>

4 - Captura de pantalla del contador dentro de la página.

Lenaguaje: ASP.NET.

Base de datos: Microsoft Access.

No hay videos disponibles para mostrar.