Download page for the free .net counter code

Download the asp.net counter code and database now
All code is offered as is, with no warranty written or implied. Use at your own risk.

The asp.net free counter code (or download the code and database)
<%@ 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 'set the size of your image Dim aWidth As Integer = 60 Dim aHeight As Integer = 30 'set the background of the image Dim aBgColor As Drawing.Color = Drawing.Color.White 'get the counter number to appear on the image. Dim aText As String atext = hitcounter(queryvalue)' & vbcrlf & "homescoop.com" 'set the font 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 'StringFormat to center the text on the image. 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" 'output the image to the users screen 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 'SET THE PATH TO YOUR DATABASE HERE!! 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 'close connections myReader.Close() myConn.Close() 'now update the database 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() 'set the hitcount value from the function hitcounter = newcount End Function </script>

Once setup, place this code where you want the counter to appear. Add as many counters as you wish per database by creating a new row and using the row id. (id=xx)
<img src="hscounter.aspx?id=12">

The database setup

Word Press Help Desk