Print Page | Close Window

hide member list and 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=20987
Printed Date: 29 March 2026 at 7:40pm
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com


Topic: hide member list and statistics.
Posted By: phospho
Subject: hide member list and statistics.
Date Posted: 10 August 2006 at 11:03pm
hi , i would like to know how to hide member list and statistics for normal members. Only administrator can see this option.
 
thanks a lot for your help


Replies:
Posted By: dfrancis
Date Posted: 10 August 2006 at 11:53pm
There is a mod running around for 7.x that I'm sure you could modify. I call it the "anti-stalking" mod and I was able to make it work great.

Posted By: phospho
Date Posted: 13 August 2006 at 12:04am
hello, could you tell me where is thid script ? i have try troughg the search engine, but no results
 
yhanks

Posted By: dfrancis
Date Posted: 13 August 2006 at 2:43pm
I can't find it either... that's odd.
 
I'd like to help but I have way too much on my plate right now. Just review the nav buttons include and you might be able to see how boRg hides information from unauthorized users.
 
Again... I'm sorry. I wish I could help.

Posted By: jckruger
Date Posted: 18 August 2006 at 4:58am

How about adding in default.asp down the bottom. Changes in RED



</table>
<br /><%
     
 'Loop back round for next category
 Loop
End If
If intGroupID = 1 Then


%>


<table cellspacing="1" cellpadding="3" class="tableBorder" align="center">
 <tr class="tableLedger">
  <td colspan="2"><% = strTxtWhatsGoingOn %></td>
 </tr>
 <tr class="tableSubLedger">
  <td colspan="2"><% = strTxtForumStatistics %></td>
 </tr>
 <tr class="tableRow">
  <td width="4%" align="center"><img src="<% = strImagePath %>stats_bar.gif" alt="<% = strTxtForumStatistics %>" /></td>
  <td width="96%" nowrap><%


Response.Write(strTxtOurUserHavePosted & " " & FormatNumber(lngTotalNumberOfPosts, 0) & " " & strTxtPostsIn & " " & FormatNumber(lngTotalNumberOfTopics, 0) & " " & strTxtTopicsIn & " " & intNumberofForums & " " & strTxtForums & _
"<br />" & strTxtLastPost & "; " & DateFormat(dtmLastEntryDateAllForums) & " " & strTxtAt & " " & TimeFormat(dtmLastEntryDateAllForums) & " " & strTxtBy & " <a href=""member_profile.asp?PF=" & lngLastEntryUserIDAllForums & strQsSID2 & """>" & strLastEntryUserAllForums & "</a>")


'Display some statistics for the members
If lngNoOfMembers > 0 Then


Response.Write("<br />" & strTxtWeHave & " " & FormatNumber(lngNoOfMembers, 0) & " " & strTxtForumMembers & _
"<br />" & strTxtTheNewestForumMember & " <a href=""member_profile.asp?PF=" & saryMemebrStats(1,0) & strQsSID2 & """>" & saryMemebrStats(0, 0) & "</a>")


End If


%></td>
 </tr><%



'Get the number of active users if enabled
If blnActiveUsers Then
 
 %>
 <tr class="tableSubLedger">
  <td colspan="2"><a href="active_users.asp<% = strQsSID1 %>"><% = strTxtActiveUsers %></a></td>
 </tr>
 <tr class="tableRow">
  <td width="4%" align="center"><a href="active_users.asp<% = strQsSID1 %>"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" border="0" /></a></td>
  <td width="96%"><%
 
 'Get the active users online
 For intArrayPass = 1 To UBound(saryActiveUsers, 2)
 
  'If this is a guest user then increment the number of active guests veriable
  If saryActiveUsers(1, intArrayPass) = 2 Then 
   
   intActiveGuests = intActiveGuests + 1
  
  'Else add the name of the members name of the active users to the members online string
  ElseIf CBool(saryActiveUsers(8, intArrayPass)) = false Then 
   If strMembersOnline <> "" Then strMembersOnline = strMembersOnline & ", "
   strMembersOnline = strMembersOnline & "<a href=""member_profile.asp?PF=" & saryActiveUsers(1, intArrayPass) & strQsSID2 & """>" & saryActiveUsers(2, intArrayPass) & "</a>"
  End If
  
 Next 


 'Calculate the number of members online and total people online
 intActiveUsers = UBound(saryActiveUsers, 2)
 intActiveMembers = intActiveUsers - intActiveGuests
 
 'Response.Write(strTxtInTotalThereAre & " " & intActiveUsers & " <a href=""active_users.asp" & strQsSID1 & """>" & strTxtActiveUsers & "</a> " & strTxtOnLine & ", " & intActiveGuests & " " & strTxtGuestsAnd & " " & intActiveMembers & " " & strTxtMembers)
 If strMembersOnline <> "" Then Response.Write(vbCrLf & "   <br />" & strTxtMembers & " " & strTxtOnLine & ": " & strMembersOnline)
End If
End If '  addition End IF for If statement above


%>
  </td>
 </tr>
 
Also in navigation_buttons_inc.asp you could do this
 


If intGroupID = 1 Then Response.Write ("&nbsp;&nbsp;<a href=""members.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "members_list.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMembersList & """ />" & strTxtMemberlist & "</a>")


 
The navigation_buttons_inc.asp code shouldn't need a trailing End If.
 

Posted By: phospho
Date Posted: 30 August 2006 at 2:46pm
thanks for all it works perfectlly


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