Jump to content
Xtreme .Net Talk

Recommended Posts

Posted

when you see those free counters that tell you to put in some javascript into your website and then that tracks the number of hits etc...

 

what is that javascript doing? its normally an include file on their server, so i cant see it

 

is it posting the data somewhere? or is it just putting in a small gif or something that is on their server, so they can process the info then from their logs of that file?

Posted
I'd guess that the script it points to writes an IFRAME on your page which inserts the counter and handles the counting. I'd never use one, who knows what else they could be putting in that IFRAME...pop-ups to sponsored links, spyware, ActiveX exploits, etc. Those type of things could get you to lose any potential visitors pretty quick. I'd spend the 10 minutes make my own if you were thinking of going that route. A counter is a very simple thing, anybody who just doesn't want to give you the code all together but instead wants you to put in javascript that points to their site probably has some alterior motive.
Posted
Again they are probably using an IFRAME and on the server doing some browser sniffing, ip tracking and tracking the time and stuff. It's pretty elementary.
Posted

It is EASY to do your own counter.

 

Create a simple Access database called 'Counter' and put it in a folder called 'db' or 'data' or something on your web site.

 

The table in the database for this example is called 'PageHits', and it has three fields:

 

Hits - Numberic

Page - Numeric

Date -Date

 

Public Sub CountHits(ByVal sPage As String, ByVal sServer As String)
       If sIP <> "xxx.xxx.xxx.xxx" Then
           Try
               Dim sNumber As String
               Dim sDate As String = DateString
               Dim oConn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sServer & ";")
               oConn.Open()
               Dim sSQL As String = "SELECT [Hits] FROM [PageHits] WHERE Page='" & sPage & "' " & _
                   "AND Date=datevalue('" & sDate & "')"
               Dim MyCommand As New OleDb.OleDbCommand(sSQL, oConn)
               Dim MyReader As OleDb.OleDbDataReader = MyCommand.ExecuteReader()
               If MyReader.Read Then
                   sNumber = MyReader(0).ToString
                   Dim lNumber As Long = Val(sNumber + 1)
                   sNumber = CStr(lNumber)
                   MyReader.Close()
                   Dim sUpDate As String = "UPDATE [PageHits] SET [Hits] = " & sNumber & " WHERE Page='" & sPage & "' " & _
                       "AND Date=DateValue('" & sDate & "')"
                   MyCommand = New OleDb.OleDbCommand(sUpDate, oConn)
                   MyCommand.ExecuteNonQuery()
               Else
                   'need to make the enty
                   Dim sInsert As String = "Insert Into [PageHits] ([Page], [Hits], [Date])" & _
                   "Values('" & sPage & "', 1, '" & DateValue(sDate) & "')"
                   MyReader.Close()
                   Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sInsert, oConn)
                   cmd.ExecuteNonQuery()
                   cmd.Dispose()
               End If
               MyCommand.Dispose()
               oConn.Close()
               MyCommand.Dispose()
           Catch ex As Exception

           End Try
       End If
   End Sub

 

And then invoke it like this:

CountHits("Index", Server.MapPath("database/Counter.mdb"))

 

The xxx.xxx.xxx.xxx is your own IP, so it doesn't count your hits when you surf your own page

Read the Fovean Chronicles

Because you just can't spend your whole day programming!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...