Categorias

ASP: Gere Relatórios de visitas do site com estatísticas

Sistema em asp que gera um relatório com estatística de acessos em todas as suas páginas asp onde estiver o arquivo count.asp na forma “include file”.

Muito rico em detalhes e está pronto para o uso bastanto o usuário incluir onde quer que ele gere o relatório.

Roda com um banco de dados access

Insira o comando  onde você vai que rer que o script rode.

<%

	sToday = month(date) & "/" & day(date) & "/" & year(date)
	'Fixed by Don
	dtYesterday =  DateAdd("d", -1, now)
	sYesterday = month(dtYesterday) & "/" & day(dtYesterday) & "/" & year(dtYesterday)
	
	OpenDB sConnStats

	'Total PageViews
	sSQL = "SELECT COUNT(StatID) AS Total FROM Stats"
	rs.Open sSQL,,,adCmdTable
	lPageViewsTotal = rs("Total")
	rs.close
	
	sSQL = "SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #" & sToday & "#"
	rs.Open sSQL,,,adCmdTable
	lPageViewsToday = rs("Total")
	rs.close

	sSQL = "SELECT COUNT(StatID) AS Total FROM Stats WHERE Date = #" & sYesterday & "#"
	rs.Open sSQL,,,adCmdTable
	lPageViewsYesterday = rs("Total")
	rs.close

	sSQL = "SELECT IP FROM Stats GROUP BY IP"
	rs.Open sSQL,,,adCmdTable
	lVisitorsTotal = rs.recordcount
	rs.close

	sSQL = "SELECT IP FROM Stats WHERE Date = #" & sToday & "# GROUP BY IP"
	rs.Open sSQL,,,adCmdTable
	lVisitorsToday = rs.recordcount
	rs.close

	sSQL = "SELECT IP FROM Stats WHERE Date = #" & sYesterday & "# GROUP BY IP"
	rs.Open sSQL,,,adCmdTable
	lVisitorsYesterday = rs.recordcount
	rs.close

	sSQL = "SELECT TOP 1 * FROM TopPageViewsPerDay"
	rs.Open sSQL,,,adCmdTable
   If Not Rs.eof Then
	   rs.MoveFirst
	   lTopViews = rs( "Total" )
	   sTopViewsDay = rs("Date")
	End If
	rs.close

	sSQL = "SELECT TOP 1 * FROM TopIpsPerDay"
	rs.Open sSQL,,,adCmdTable
	If Not Rs.Eof Then
	   rs.MoveFirst
	   lTopVisitors = rs( "Total" )
	   sTopVisitorsDay = rs("Date")
	End If
	rs.close

	sPageViewsToday = formatnumber(lPageViewsToday, 0)
	sPageViewsYesterday = formatnumber(lPageViewsYesterday, 0)
	sPageViewsTotal = formatnumber(lPageViewsTotal, 0)

	sVisitorsToday = formatnumber(lVisitorsToday, 0)
	sVisitorsYesterday = formatnumber(lVisitorsYesterday, 0)
	sVisitorsTotal = formatnumber(lVisitorsTotal, 0)

   sTopViews = formatnumber( lTopViews, 0 )
   sTopVisitors = formatnumber( lTopVisitors, 0 )
%>

Sumário

<% 'Fixed by Don %>
Páginas visualizadas Visitantes
Hoje <%=sPageViewsToday%> <%=sVisitorsToday%>
Ontem <%=sPageViewsYesterday%> <%=sVisitorsYesterday%>
Tudo do dia <%=sTopViews%> em (<%=sTopViewsDay%>) <%=sTopVisitors%> em (<%=sTopVisitorsDay%>)
Total <%=sPageViewsTotal%> <%=sVisitorsTotal%>

Arquivos para Download:

relatório de visitas em asp.zip