Print Page | Close Window

Statistics

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=28945
Printed Date: 28 March 2026 at 9:03am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: Statistics
Posted By: yandr
Subject: Statistics
Date Posted: 04 November 2010 at 1:06pm
I have posted this before, as a MOD requirement.

However it is better to post it here as a suggestion.

The statistics provided are really week.

It would be great if you could add a public or admin-only page with complete statistics such as:
  • No of messages
  • No of topics
  • No of users
  • messages/day
  • topics/day
  • new users/day
  • messages/topic
  • popular topics by views
  • popular topics by replies
  • a break down of the number of messages and views each month
  • top posters
  • user registrations per month
  • etc


 


Replies:
Posted By: dld-nordic
Date Posted: 20 November 2010 at 6:54pm
You could integrate this ASP stats page into the forum....
 
http://www.asp-stats.com/" rel="nofollow - http://www.asp-stats.com/
 
I have done it on http://www.vagbiler.dk" rel="nofollow - www.vagbiler.dk and it works very well. It doesnt do the stats you want, but is more like AWstats in the way it works. Though not so advanced..... but very simple to setup and use.

Posted By: yandr
Date Posted: 09 December 2010 at 1:59pm
Originally posted by dld-nordic dld-nordic wrote:

It doesnt do the stats you want
Exactly. I am using Google Analytics for the stats you posted.

I am looking for forum stats, as the ones I described above.

Posted By: yandr
Date Posted: 29 August 2011 at 10:16am
I just wanted to say that I have built a webpage for some stats which you can use.

You will have to do a little translating though.


<!-- METADATA TYPE="TypeLib" FILE="C:\Program Files\Common Files\System\ado\msado15.dll" -->
<% @ LANGUAGE=VBScript CODEPAGE=1252 %>
<% Option Explicit %>
<!--#include file="common.asp" -->
<!--#include file="functions/functions_date_time_format.asp" -->
<!--#include file="language_files/calendar_language_file_inc.asp" -->
<!--#include file="language_files/language_s2h.asp" -->
<% 
on error resume next
Response.Buffer = true 
%>

<!-- #include file="includes/browser_page_encoding_inc.asp" -->

<title></title>
<link href="<% = strCSSfile %>default_style.css" rel="stylesheet" type="text/css" />
<meta name="description" content="" />
<meta name="keywords" content="" />
<!-- #include file="includes/header.asp" -->

<%

Dim antal_1
Dim antal_2
Dim antal_7
Dim antal_14
Dim antal_30
Dim antal_90

Dim post_1
Dim post_2
Dim post_7
Dim post_14
Dim post_30
Dim post_90

Dim postYmax, postYmaxName, postYminName, postYmin, postMmax, postMmin, postMmaxName, postMminName

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -1;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_1 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -2;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_2 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -7;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_7 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -14;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_14 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -30;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_30 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(Author_ID) AS Antal FROM yandr.tblAuthor WHERE Last_visit > getdate() -90;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Antal_90 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -1;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_1 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -2;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_2 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -7;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_7 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -14;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_14 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -30;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_30 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close

strSQL = "SELECT COUNT(DISTINCT(Author_ID)) AS Antal FROM yandr.tblThread WHERE Message_date > getdate() -90;"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then Post_90 = CLng(rsCommon.Fields("Antal"))
rsCommon.Close


Dim strActiveUsers
strSQL = "SELECT TOP 20 Username, (SELECT COUNT(*) FROM yandr.tblThread WHERE Message_date > getdate() -30 AND tblThread.Author_ID = tblAuthor.Author_ID) AS beskeder FROM yandr.tblAuthor 

ORDER BY beskeder DESC"
set rsCommon = server.createobject("ADODB.Recordset")
rsCommon.Open strSQL, adoCon, adOpenForwardOnly, adLockReadOnly, adCmdText
rsCommon.movenext
while not rsCommon.EOF
strActiveUsers = strActiveUsers & vbCrLf & vbTab & vbTab & "<tr><td>" & rsCommon.Fields("Username") & "</td><td><center>" & rsCommon.Fields("Beskeder") & "</center></td><td><img 

src=http://images.ellinikos-stratos.com/stat.gif height=7 border=1 width=" & rsCommon.Fields("Beskeder")/1.2 & "></td></tr>"
rsCommon.movenext
wend
rsCommon.close


Dim strBeskedGraf
strSQL = "SELECT YEAR(Message_date) AS [aar], MONTH(Message_date) AS [maaned], DATENAME(m,Message_date) AS [maaned2], COUNT(*) AS [antal], (COUNT(*)/30) AS [gAntal] FROM yandr.tblThread 

where Message_date>= getdate() - 1200  GROUP BY YEAR(Message_date), MONTH(Message_date), DATENAME(m,Message_date) ORDER BY [aar] DESC,[maaned] DESC"
set rsCommon = server.createobject("ADODB.Recordset")
rsCommon.Open strSQL, adoCon, adOpenForwardOnly, adLockReadOnly, adCmdText
postMmax=0
postMmin=10000000000
while not rsCommon.EOF
if (rsCommon.Fields("Antal")>postMmax) then 
postMmax = rsCommon.Fields("Antal")
postMmaxName =  replace(getMonthName(cint(rsCommon.Fields("maaned"))) & " του " & rsCommon.Fields("aar"),"ς","")
end if
if (rsCommon.Fields("Antal")<postMmin) then 
postMmin = rsCommon.Fields("Antal")
postMminName =  replace(getMonthName(cint(rsCommon.Fields("maaned"))) & " του " & rsCommon.Fields("aar"),"ς","")
end if
strBeskedGraf = strBeskedGraf & vbCrLf & vbTab & vbTab & "<tr><td class=smText>" & rsCommon.Fields("aar") & " - " & getMonthName(cint(rsCommon.Fields("

Posted By: WebWiz-Bruce
Date Posted: 29 August 2011 at 10:58am
Thanks yandr, have moved this to the Web Wiz Forums Mod Forum.


-------------
https://www.webwiz.net/web-wiz-forums/forum-hosting.htm" rel="nofollow - Web Wiz Forums Hosting
https://www.webwiz.net/web-hosting/windows-web-hosting.htm" rel="nofollow - ASP.NET Web Hosting

Posted By: MadDog
Date Posted: 31 August 2011 at 1:32am
CODE tags would be nice :)

-------------
http://www.iportalx.net" rel="nofollow">


Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.08 - https://www.webwizforums.com
Copyright ©2001-2026 Web Wiz Ltd. - https://www.webwiz.net