ESTATISTICAS

ESTATISTICAS <% Dim Conn Dim RSrich Dim TotalVisited Dim ImgSequence Dim CharToReplace Dim Query Dim rich_count Dim count dim msie6_0 dim msie5_5 dim msie5_0 dim win95 dim win98 dim winnt dim high_visit(20,2) dim browser_type(20,2) dim refer(20,2) dim page_view(20,2) dim c1 dim c2 dim temp Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "provider=microsoft.jet.oledb.4.0;data Source=D:\web\localuser\uniartrelogios\www\db\hit_counter.mdb;" & "" Set RSrich = Server.CreateObject("ADODB.Recordset") 'Count all visits in the database RSrich.Open "SELECT COUNT (*) AS TotalVisits FROM Hits", conn, 3, 3 If Not RSrich.Eof and NOT RSrich.Bof Then 'Store the total number of visits in TotalVisited Varable TotalVisits = RSrich("TotalVisits") RSrich.Close response.write "

Total de visitas no site: " & TotalVisits & "

" ' response.write "Total de visitas por dia / Total visitas por hora
" End If 'Count all by most often visit Query = "SELECT * FROM Hits" RSrich.Open Query, conn, 3, 3 If Not RSrich.Eof and NOT RSrich.Bof Then alldata=RSrich.getrows RSrich.Close numcols=ubound(alldata,1) numrows=ubound(alldata,2) hit_date=1 hit_time=2 hit_ip=3 hit_referer=4 hit_agent=5 ' if you want to show table change to true table nice for trouble shooting show_full = false if show_full = true then response.write "" & vbcrlf 'Put Headings On The Table of Field Names for each whatever in RSrich.fields response.write "" & vbcrlf next response.write "" & vbcrlf FOR rowcounter= 0 TO numrows response.write "" & vbcrlf FOR colcounter=0 to numcols thisfield=alldata(colcounter,rowcounter) if isnull(thisfield) then thisfield=shownull end if if trim(thisfield)="" then thisfield=showblank end if response.write "" & vbcrlf NEXT response.write "" & vbcrlf NEXT response.write "

" & whatever.name & "

" response.write thisfield response.write "

" end if for rowcounter= 0 TO numrows chage_to = "none" if left(alldata(hit_agent,rowcounter),25) = "Mozilla/4.0 (compatible; " then alldata(hit_agent,rowcounter) = "Mozilla/4.0;" & right(alldata(hit_agent,rowcounter),len(alldata(hit_agent,rowcounter))-25) end if if left(alldata(hit_agent,rowcounter),17) = "Mozilla/4.0;MSIE " then alldata(hit_agent,rowcounter) = left(alldata(hit_agent,rowcounter),21) & right(alldata(hit_agent,rowcounter),len(alldata(hit_agent,rowcounter))-22) end if if left(alldata(hit_agent,rowcounter),17) = "Mozilla/4.0;MSIE " then if InStr(23,alldata(hit_agent,rowcounter),";") > 0 then alldata(hit_agent,rowcounter) = left(alldata(hit_agent,rowcounter),InStr(23,alldata(hit_agent,rowcounter),";")-1) end if end if if left(alldata(hit_agent,rowcounter),8) = "Mozilla/" then if InStr(1,alldata(hit_agent,rowcounter),")") > 0 then alldata(hit_agent,rowcounter) = left(alldata(hit_agent,rowcounter),InStr(1,alldata(hit_agent,rowcounter),")")-1) end if end if if InStr(1,alldata(hit_agent,rowcounter),"MSIE 6.0") > 0 then ' count brower types msie6_0 = msie6_0 + 1 end if if InStr(1,alldata(hit_agent,rowcounter),"MSIE 5.5") > 0 then msie5_5 = msie5_5 + 1 end if if InStr(1,alldata(hit_agent,rowcounter),"MSIE 5.0") > 0 then msie5_0 = msie5_0 + 1 end if if InStr(1,alldata(hit_agent,rowcounter),"Windows NT") > 0 then 'count operating system types chage_to = "Windows NT/2000/XP" end if if InStr(1,alldata(hit_agent,rowcounter),"Windows 98") > 0 then chage_to = "Windows 98" end if if InStr(1,alldata(hit_agent,rowcounter),"Win98") > 0 then chage_to = "Windows 98" end if if InStr(1,alldata(hit_agent,rowcounter),"Windows 95") > 0 then chage_to = "Windows 95" end if if InStr(1,alldata(hit_agent,rowcounter),"Win95") > 0 then chage_to = "Windows 95" end if if InStr(1,alldata(hit_agent,rowcounter),"Win 9x") > 0 then chage_to = "Windows 95" end if if InStr(1,alldata(hit_agent,rowcounter),"Macintosh") > 0 then chage_to = "Macintosh" end if if chage_to <> "none" then alldata(hit_agent,rowcounter) = chage_to end if next ' take out htto:// and www if exists. for rowcounter= 0 TO numrows if alldata(hit_referer,rowcounter) = "" then alldata(hit_referer,rowcounter) = "Referęncia direta" end if if left(alldata(hit_referer,rowcounter),7) = "http://" then alldata(hit_referer,rowcounter) = right(alldata(hit_referer,rowcounter),len(alldata(hit_referer,rowcounter))-7) end if if left(alldata(hit_referer,rowcounter),4) = "www." then alldata(hit_referer,rowcounter) = right(alldata(hit_referer,rowcounter),len(alldata(hit_referer,rowcounter))-4) end if if InStr(1,alldata(hit_referer,rowcounter),"/") > 0 then alldata(hit_referer,rowcounter) = left(alldata(hit_referer,rowcounter),InStr(1,alldata(hit_referer,rowcounter),"/")-1) end if next ' if you want to show table change to true table nice for trouble shooting ' shows modified table show_full = false if show_full = true then response.write "" & vbcrlf 'Put Headings On The Table of Field Names for each whatever in RSrich.fields response.write "" & vbcrlf next response.write "" & vbcrlf FOR rowcounter= 0 TO numrows response.write "" & vbcrlf FOR colcounter=0 to numcols thisfield=alldata(colcounter,rowcounter) if isnull(thisfield) then thisfield=shownull end if if trim(thisfield)="" then thisfield=showblank end if response.write "" & vbcrlf NEXT response.write "" & vbcrlf NEXT response.write "

" & whatever.name & "

" response.write thisfield response.write "

" end if ' top 20 return visitors for c1 = 0 to 20 high_visit(c1,2) = 0 high_visit(c1,1) = 0 next for rowcounter= 0 TO numrows count = 1 if alldata(hit_ip,rowcounter) <> "nenhum" then for rowcounter2 = rowcounter+1 to numrows if alldata(hit_ip,rowcounter) = alldata(hit_ip,rowcounter2) then count = count + 1 alldata(hit_ip,rowcounter2) = "nenhum" end if next end if if alldata(hit_ip,rowcounter) <> "nenhum" then ' Uncoment this to display all visitors count ' response.write alldata(hit_ip,rowcounter) & " total hits " & count & "
" for c1 = 0 to 20 if count > high_visit(c1,2) then t1a = alldata(hit_agent,rowcounter) t1 = alldata(hit_ip,rowcounter) t2 = count for c2 = c1 to 20 t3a = high_visit(c2,0) t3 = high_visit(c2,1) t4 = high_visit(c2,2) high_visit(c2,1) = t1 high_visit(c2,2) = t2 high_visit(c2,0) = t1a t1a = t3a t1 = t3 t2 = t4 next c1 = 20 end if next end if next response.write "

Visitantes por IP

" response.write "" & vbcrlf response.write "" response.write "" for c1 = 0 to 19 if high_visit(c1,2) > 0 then response.write "" response.write "" response.write "" response.write "" response.write "" end if next response.write "

Visitantes por IP	Tipo de Browser de visitas	Visitas	Gráfico	Porcentagem
" & high_visit(c1,1) & "	" & high_visit(c1,0) & "	" & high_visit(c1,2) & "	" for x = 1 to fix(CInt(high_visit(c1,2)/Totalvisits*100)) response.write "" next response.write "	" & fix(CInt(high_visit(c1,2)/Totalvisits*100)) & "%

" response.write "

Últimas 20 visitas através de ip

" response.write "" & vbcrlf response.write "" response.write "" for c1 = 1 to 20 if (TotalVisits - c1) > 0 then response.write "" response.write "" end if next response.write "

Data	Tempo	Visitas por IP	Agente de referencia	Agente
" & alldata(1,TotalVisits - c1) & "	" & alldata(2,TotalVisits - c1) & "	" & alldata(3,TotalVisits - c1) & "	" & alldata(4,TotalVisits - c1) & "	" & alldata(5,TotalVisits - c1) & "

" for c1 = 0 to 20 browser_type(c1,2) = 0 browser_type(c1,1) = 0 next for rowcounter= 0 TO numrows count = 1 if alldata(hit_agent,rowcounter) <> "nenhum" then for rowcounter2 = rowcounter+1 to numrows if alldata(hit_agent,rowcounter) = alldata(hit_agent,rowcounter2) then count = count + 1 alldata(hit_agent,rowcounter2) = "nenhum" end if next end if ' unhide these to show all browers ' if alldata(hit_agent,rowcounter) <> "none" then ' response.write alldata(hit_agent,rowcounter) & " total hits " & count & "
" ' end if if alldata(hit_agent,rowcounter) <> "none" then ' Uncoment this to display all visitors count ' response.write alldata(hit_ip,rowcounter) & " total hits " & count & "
" for c1 = 0 to 20 if count > browser_type(c1,2) then t1a = alldata(hit_agent,rowcounter) t2 = count for c2 = c1 to 20 t3a = browser_type(c2,0) t4 = browser_type(c2,2) browser_type(c2,2) = t2 browser_type(c2,0) = t1a t1a = t3a t1 = t3 t2 = t4 next c1 = 20 end if next end if next response.write "

Os 20 Tipos de browser

" response.write "" & vbcrlf response.write "" response.write "" for c1 = 0 to 19 if browser_type(c1,2) > 0 then response.write "" response.write "" response.write "" response.write "" response.write "" end if next response.write "

Visitantes por Browser	Visitas	Gráfico	percentagem
" & browser_type(c1,0) & "	" & browser_type(c1,2) & "	" for x = 1 to fix(CInt(browser_type(c1,2)/Totalvisits*100)) response.write "" next response.write "	" & fix(CInt(browser_type(c1,2)/Totalvisits*100)) & "%

" for c1 = 0 to 20 refer(c1,2) = 0 refer(c1,1) = 0 next for rowcounter= 0 TO numrows count = 1 if alldata(hit_referer,rowcounter) <> "nenhum" then for rowcounter2 = rowcounter+1 to numrows if alldata(hit_referer,rowcounter) = alldata(hit_referer,rowcounter2) then count = count + 1 alldata(hit_referer,rowcounter2) = "nenhum" end if next end if ' un comment if you want to see all refers listed ' if alldata(hit_referer,rowcounter) <> "none" then ' response.write alldata(hit_referer,rowcounter) & " total hits " & count & "
" ' end if if alldata(hit_referer,rowcounter) <> "nenhum" then for c1 = 0 to 20 if count > refer(c1,2) then t1a = alldata(hit_referer,rowcounter) t2 = count for c2 = c1 to 20 t3a = refer(c2,0) t4 = refer(c2,2) refer(c2,2) = t2 refer(c2,0) = t1a t1a = t3a t2 = t4 next c1 = 20 end if next end if next response.write "

Os 20 tipos de sites referentes

" response.write "" & vbcrlf for c1 = 0 to 19 if refer(c1,2) > 0 then response.write "" response.write "" response.write "" response.write "" response.write "" end if next response.write "

" & refer(c1,0) & "

" & refer(c1,2) & "

" for x = 1 to fix(CInt(refer(c1,2)/Totalvisits*100)) response.write "

" next response.write "

" & fix(CInt(refer(c1,2)/Totalvisits*100)) & "%

" End If 'end of the if not bof or eof set RSrich=nothing Conn.close set Conn=nothing 'count total page views Set connect = Server.CreateObject("ADODB.Connection") connect.Open "provider=microsoft.jet.oledb.4.0;data Source=D:\web\localuser\uniartrelogios\www\db\hit_counter.mdb;" & "" Set RS_page = Server.CreateObject("ADODB.Recordset") 'Count all visits in the database RS_page.Open "SELECT COUNT (*) AS TotalVisits FROM page", connect, 3, 3 If Not RS_page.Eof and NOT RS_page.Bof Then 'Store the total number of visits in TotalVisited Varable TotalVisits = RS_page("TotalVisits") RS_page.Close response.write "

Total visitas na pagina: " & TotalVisits & "

" End If Query = "SELECT * FROM page" RS_page.Open Query, connect, 3, 3 If Not RS_page.Eof and NOT RS_page.Bof Then alldata=RS_page.getrows End If 'end of the if not bof or eof numcols=ubound(alldata,1) numrows=ubound(alldata,2) hit_date=1 hit_time=2 page_v=3 ip=4 browser=5 refer_page=6 ' if you want to show table change to true table nice for trouble shooting show_full = false if show_full = true then response.write "" & vbcrlf 'Put Headings On The Table of Field Names for each whatever in RS_page.fields response.write "" & vbcrlf next response.write "" & vbcrlf FOR rowcounter= 0 TO numrows response.write "" & vbcrlf FOR colcounter=0 to numcols thisfield=alldata(colcounter,rowcounter) if isnull(thisfield) then thisfield=shownull end if if trim(thisfield)="" then thisfield=showblank end if response.write "" & vbcrlf NEXT response.write "" & vbcrlf NEXT response.write "

" & whatever.name & "

" response.write thisfield response.write "

" end if for c1 = 0 to 20 page_view(c1,2) = 0 page_view(c1,1) = 0 next for rowcounter= 0 TO numrows count = 1 if alldata(hit_agent,rowcounter) <> "nenhum" then for rowcounter2 = rowcounter+1 to numrows if alldata(page_v,rowcounter) = alldata(page_v,rowcounter2) then count = count + 1 alldata(page_v,rowcounter2) = "nenhum" end if next end if ' unhide these to show all browers ' if alldata(hit_agent,rowcounter) <> "none" then ' response.write alldata(hit_agent,rowcounter) & " total hits " & count & "
" ' end if if alldata(page_v,rowcounter) <> "nenhum" then ' Uncoment this to display all visitors count ' response.write alldata(page_v,rowcounter) & " total hits " & count & "
" for c1 = 0 to 20 if count > page_view(c1,2) then t1a = alldata(page_v,rowcounter) t2 = count for c2 = c1 to 20 t3a = page_view(c2,0) t4 = page_view(c2,2) page_view(c2,2) = t2 page_view(c2,0) = t1a t1a = t3a t2 = t4 next c1 = 20 end if next end if next response.write "

As 20 paginas mais vistas

" response.write "" & vbcrlf for c1 = 0 to 19 if page_view(c1,2) > 0 then response.write "" response.write "" response.write "" response.write "" response.write "" end if next response.write "

" & page_view(c1,0) & "

" & page_view(c1,2) & "

" for x = 1 to fix(CInt(page_view(c1,2)/Totalvisits*100)) response.write "

" next response.write "

" & fix(CInt(page_view(c1,2)/Totalvisits*100)) & "%

" for c1 = 0 to 20 page_view(c1,2) = 0 page_view(c1,1) = 0 next for rowcounter= 0 TO numrows count = 1 if alldata(hit_date,rowcounter) <> "nenhum" then for rowcounter2 = rowcounter+1 to numrows if alldata(hit_date,rowcounter) = alldata(hit_date,rowcounter2) then count = count + 1 alldata(hit_date,rowcounter2) = "nenhum" end if next end if ' unhide these to show all hit_date ' if alldata(hit_date,rowcounter) <> "none" then ' response.write alldata(hit_date,rowcounter) & " total hits " & count & "
" ' end if if alldata(hit_date,rowcounter) <> "nenhum" then ' Uncoment this to display all visitors count ' response.write alldata(page_v,rowcounter) & " total hits " & count & "
" for c1 = 0 to 20 if count > page_view(c1,2) then t1a = alldata(hit_date,rowcounter) t2 = count for c2 = c1 to 20 t3a = page_view(c2,0) t4 = page_view(c2,2) page_view(c2,2) = t2 page_view(c2,0) = t1a t1a = t3a t2 = t4 next c1 = 20 end if next end if next response.write "

As 20 paginas através da data

" response.write "" & vbcrlf for c1 = 0 to 19 if page_view(c1,2) > 0 then response.write "" response.write "" response.write "" response.write "" response.write "" end if next response.write "

" & page_view(c1,0) & "

" & page_view(c1,2) & "

" for x = 1 to fix(CInt(page_view(c1,2)/Totalvisits*100)) response.write "

" next response.write "

" & fix(CInt(page_view(c1,2)/Totalvisits*100)) & "%

" set RS_page=nothing connect.close set connect=nothing %>