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

El siguiente script permite implementar un simple contador gráfico de visitas para una página web que corra bajo ASP.NET utilizando las funciones gráficas de .NET para crear el contador, es decir que no utiliza, como en otros scripts similares, un archivo de imagen o bitmap ya creado.

Otras características

• 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.

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" />

Código fuente del script 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>