<% '------------------------------------------------------------- 'StatCounteX 3.2 'http://www.2enetworx.com/dev/projects/statcountex.asp 'File: reportpathdd.asp 'Description: Daily Report 'Initiated by Hakan Eskici on Nov 18, 2000 'See credits.txt for the list of contributors 'You may use the code for any purpose 'But re-publishing is discouraged. 'See License.txt for additional information '------------------------------------------------------------- 'Change Log: '------------------------------------------------------------- '# Rami Kattan, http://www.kattanweb.com/webdev 'Support for reporting WinME and Netscape 6.x '"All" link to Top10 referers and views '# Feb 5, 2001 by Kevin Yochum 'Added links for graphical reports and visitor ip paths 'Added showing url's as active links '------------------------------------------------------------- %> StatCounteX 3.2
 Kefk Network :  Security |  About  |  Wiki Changelog | Index | Inhalt | Site Map | Suchen.

  Angriffe | Computersicherheit | Forensik | Grundlagen | Labor | Malware | Netzwerksicherheit | Physikalische Sicherheit | Praxis | Prozesse | Ressourcen | Sicherheitskonzept | Sicherheitsrichtlinien | Tools | Verschlüsselung | Zertifizierungen | Ziele.

 

StatCounteX 3.2 Reports

» 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 %> <% 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 %> <% next response.write "" response.write "" rs.movenext loop response.write "
» <%=sTitle%>
<%=fld.name%>
<%=sFieldName%>
" 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.