|
| |
» Reports » Yearly Report
» ">Monthly Report
» &month=<%=request("month")%>">Daily Report
<%
sub SQLTable(sTitle, sSQL)
rs.Open sSQL, , , adCmdTable
if err <> 0 then response.end
ON ERROR RESUME NEXT
%>
|
<%
for each fld in rs.fields
iFieldCount = iFieldCount + 1
if iFieldCount = 1 then
iWidth = 450
sAlign="left"
else
iWidth = 50
sAlign="right"
end if
%>
<%=fld.name%> |
<%
next
response.write " | "
response.write " "
do while not rs.eof
response.write ""
response.write " | "
iFieldCount = 0
for each fld in rs.fields
iFieldCount = iFieldCount + 1
if iFieldCount = 1 then
iWidth=450
sAlign = "left"
else
iWidth=50
sAlign="right"
end if
sFieldName = ""
If bShowLinks And InStr( rs(fld.name), "http://" ) > 0 Then
sFieldName = "" & rs(fld.name) & ""
Else
sFieldName = rs(fld.name)
end if
%>
<%=sFieldName%> |
<%
next
response.write " | "
response.write " "
rs.movenext
loop
response.write " "
rs.close
end sub
OpenDB sConnStats
sYear = request("year")
sMonth = request("month")
sDay = request("day")
Select Case sConnType
Case "Access"
sDate = "#" & sMonth & "/" & sDay & "/" & sYear & "#"
Case "SQLServer"
sDate = "'" & sMonth & "/" & sDay & "/" & sYear & "'"
End Select
response.write "Statistics for " & MonthName(sMonth) & " " & sDay & ", " & sYear & "
"
qstring = request.servervariables("query_string")
if request.querystring("rall") <> "" or request.querystring("pall") <> "" then
qstring = left (qstring, instrrev(qstring, "&") - 1)
end if
if request.querystring("pall") <> "yes" then pTop10 = "TOP 10 "
'Access 2000
SQLTable "Top 10 Pages All Pages", "SELECT " & pTop10 & " PathName, COUNT(PathName) AS Total FROM Stats LEFT JOIN Paths ON (Stats.PathID=Paths.PathID) WHERE Date = " & sDate & " AND (Pathname LIKE '%" + dparam + "%') GROUP BY PathName ORDER BY COUNT(PathName) DESC"
'SQL Server 2000
'SQLTable "Top 10 Pages All Pages", "SELECT " & pTop10 & " PathName, COUNT(PathName) AS Total FROM Stats LEFT JOIN Paths ON (Stats.PathID=Paths.PathID) WHERE (Date = " & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY PathName ORDER BY COUNT(PathName) DESC"
if request.querystring("rall") <> "yes" then rTop10 = "TOP 10 "
'Access 2000
SQLTable "Top 10 Internal Referers All Internal Referers", "SELECT " & rTop10 & " Refs.RefName, Count(Refs.RefName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Refs ON Stats.RefID = Refs.RefID) ON Paths.PathID = Stats.PathID WHERE (((Refs.RefName) Like 'http://" & sOwnSiteName & "%') AND ((Stats.Date)=" & sDate & ") AND ((Paths.PathName) Like '%" + dparam + "%')) GROUP BY Refs.RefName ORDER BY Count(Refs.RefName) DESC"
'SQL Server 2000
'SQLTable "Top 10 Internal Referers All Internal Referers", "SELECT " & rTop10 & " RefName, COUNT(RefName) AS Total FROM Stats LEFT JOIN Refs ON (Stats.RefID=Refs.RefID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE RefName LIKE 'http://" & sOwnSiteName & "%' AND (Date = " & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY RefName ORDER BY COUNT(RefName) DESC"
'Access 2000
if request.querystring("exrall") <> "yes" then exrTop10 = "TOP 10"
'Access 2000
SQLTable "Top 10 Extern Referers All Extern Referers", "SELECT " & exrTop10 & " Refs.RefName, Count(Refs.RefName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Refs ON Stats.RefID = Refs.RefID) ON Paths.PathID = Stats.PathID WHERE (((Refs.RefName) NOT Like 'http://" & sOwnSiteName & "%') AND ((Stats.Date)=" & sDate & ") AND ((Paths.PathName) Like '%" + dparam + "%')) GROUP BY Refs.RefName ORDER BY Count(Refs.RefName) DESC"
'SQL Server 2000
'SQLTable "Top 10 Extern Referers All Extern Referers", "SELECT " & exrTop10 & " RefName, COUNT(RefName) AS Total FROM Stats LEFT JOIN Refs ON (Stats.RefID=Refs.RefID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE RefName NOT LIKE 'http://" & sOwnSiteName & "%' AND Date = " & sDate & " AND (Pathname LIKE '%" + dparam + "%') GROUP BY RefName ORDER BY COUNT(RefName) DESC"
'Access 2000
SQLTable "Browsers", "SELECT Browsers.BrowserName, Count(Browsers.BrowserName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Browsers ON Stats.BrowserID = Browsers.BrowserID) ON Paths.PathID = Stats.PathID WHERE (((Stats.Date)= " & sDate & ") AND ((Paths.PathName) Like '%" + dparam + "%')) GROUP BY Browsers.BrowserName ORDER BY Count(Browsers.BrowserName) DESC"
SQLTable "Resolutions", "SELECT Resolutions.ResName, COUNT(Resolutions.ResName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Resolutions ON Stats.ResID = Resolutions.ResID) ON Paths.PathID = Stats.PathID WHERE (((Stats.Date)= " & sDate & ") AND ((Paths.Pathname) LIKE '%" + dparam + "%')) GROUP BY Resolutions.ResName ORDER BY COUNT(Resolutions.ResName) DESC"
SQLTable "Colors", "SELECT Colors.ColorName, COUNT(Colors.ColorName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Colors ON Stats.ColorID = Colors.ColorID) ON Paths.PathID = Stats.PathID WHERE (((Stats.Date)= " & sDate & ") AND ((Paths.Pathname) LIKE '%" + dparam + "%')) GROUP BY Colors.ColorName ORDER BY COUNT(Colors.ColorName) DESC"
SQLTable "Operating Systems", "SELECT OSes.OsName, COUNT(OSes.OsName) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN OSes ON Stats.OsID = OSes.OsID) ON Paths.PathID = Stats.PathID WHERE (((Stats.Date)= " & sDate & ") AND ((Paths.Pathname) LIKE '%" + dparam + "%')) GROUP BY OSes.OsName ORDER BY COUNT(OSes.OsName) DESC"
SQLTable "Languages", "SELECT Languages.Lang, COUNT(Languages.Lang) AS Total FROM Paths RIGHT JOIN (Stats LEFT JOIN Languages ON Stats.LangID = Languages.LangID) ON Paths.PathID = Stats.PathID WHERE (((Stats.Date)= " & sDate & ") AND ((Paths.Pathname) LIKE '%" + dparam + "%')) GROUP BY Languages.Lang ORDER BY COUNT(Languages.Lang) DESC"
'SQL Server 2000
'SQLTable "Browsers", "SELECT BrowserName, COUNT(BrowserName) AS Total FROM Stats LEFT JOIN Browsers ON (Stats.BrowserID=Browsers.BrowserID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE (Date = " & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY BrowserName ORDER BY COUNT(BrowserName) DESC"
'SQLTable "Resolutions", "SELECT ResName, COUNT(ResName) AS Total FROM Stats LEFT JOIN Resolutions ON (Stats.ResID=Resolutions.ResID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE Date = (" & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY ResName ORDER BY COUNT(ResName) DESC"
'SQLTable "Colors", "SELECT ColorName, COUNT(ColorName) AS Total FROM Stats LEFT JOIN Colors ON (Stats.ColorID=Colors.ColorID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE Date = (" & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY ColorName ORDER BY COUNT(ColorName) DESC"
'SQLTable "Operating Systems", "SELECT OsName, COUNT(OsName) AS Total FROM Stats LEFT JOIN OSes ON (Stats.OsID=OSes.OsID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE Date = (" & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY OsName ORDER BY COUNT(OsName) DESC"
'SQLTable "Languages", "SELECT Lang, COUNT(Lang) AS Total FROM Stats LEFT JOIN Languages ON (Stats.LangID=Languages.LangID) RIGHT JOIN Paths ON Stats.PathID = Paths.PathID WHERE Date = (" & sDate & ") AND (Pathname LIKE '%" + dparam + "%') GROUP BY Lang ORDER BY COUNT(Lang) DESC"
conn.close
set rs=nothing
set conn=nothing
%>
Detailed Statistics
» View click paths (IP addresses).
Graphs (<%=MonthName(sMonth) & " " & sDay & ", " & sYear%>)
» View Page Views and Visitors by Hour.
|
