Page Hit Counter System Page 2
Download the authoritative guide: Data Center Guide: Optimizing Your Data Center Strategy
Download the authoritative guide: Cloud Computing: Using the Cloud for Competitive AdvantageThe logic behind the include file
- First get the page name of the current page, using servervariables
- Find the page in counts table
- If the page does not already exist in the database, insert the page with its hits set to 1
- If the page does exist in the database
Check the hit_date compared to today to see if we need to roll totals or just add to the
- Update the counts table.
The code behind the include file
Set count = Server.CreateObject("ADODB.Connection")
Set count_rs = Server.CreateObject("ADODB.RecordSet")
count.open "web_odbc" 'our dsn is called web_obdc
my_page =UCase( Request.ServerVariables("Path_info")) 'get the page name from server var
'convert to upper case for consistancy
sql = "Select * FROM Hits where page_name = '" & my_page
count_rs.Open sql, count, 3, 3, 1
If count_rs.recordcount < 1 then ' none selected first hit on this
sql = "INSERT INTO Hits ("
sql = sql & " page_name, total_hits, day_hits, month_hits, hit_date) VALUES "
sql = sql & "'" & my_page &"', 1, 1, 1, '" & Now() & "')"
count.execute(sql) 'do an insert into the table for this page
t_hits = CLng(count_rs.fields("total_hits"))
d_hits = CLng(count_rs.fields("day_hits")) ' retrieve hits
m_hits = CLng(count_rs.fields("month_hits"))
last_dt = count_rs.fields("hit_date")
td_dt = Now()
if Abs(DateDiff("d", last_dt, td_dt) <> 0 THEN 'if the hit_date doesnt match
d_hits = 0 ' todays date, reset day_hits to 0
if Abs(DateDiff("m",last_dt, td_dt) <> 0 then ' same for month
m_hits = 0
t_hits = t_hits + 1
d_hits = d_hits + 1 ' add 1 to all hits
m_hits = m_hits + 1
count_rs.fields("total_hits") = t_hits
count_rs.fields("day_hits") = d_hits ' update the recordset
count_rs.fields("month_hits") = m_hits
count_rs.fields("hit_date") = Now() ' update hit_date with todays date
count_rs.Update 'store back to DB
count_rs.Close ' clean up work
Set count_rs = nothing
Set count = nothing
Now we just include this file in any page we want the hits tracked
IT Solutions Builder TOP IT RESOURCES TO MOVE YOUR BUSINESS FORWARD
Which topic are you interested in?
What is your company size?
What is your job title?
What is your job function?
Searching our resource database to find your matches...