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=20146
Printed Date: 29 March 2026 at 10:53am
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: 01 June 2006 at 6:24pm
|
hello !!
I don't see an option in the control panel to turn off the member list and statistics. How to let this otption enableb only for admin ? or how to hide member list?
thanks
JCI
|
Replies:
Posted By: Ali Bilgrami
Date Posted: 02 June 2006 at 3:36pm
| if u want to hide memberlist at top navigatin u'll have to edit the navigation_buttons_inc.asp in the forum/includes directory..delete or comment the code showing the link... |
Posted By: Ali Bilgrami
Date Posted: 02 June 2006 at 3:38pm
|
i think its at line 79 this code
Response.Write (" <a href=""members.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "members_list.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMembersList & """ />" & strTxtMemberlist & "</a>")%></div></td><%
do not delete the asp code container in red Dont forget to backup your file first
|
Posted By: Digzor
Date Posted: 02 June 2006 at 8:46pm
|
Awesome - now does anyone know where the statistics code is? (the stuff at the bottom of the front page)
------------- --I like to ostrichsize people. hunt them down, enlarge them, and make them flightless |
Posted By: dpyers
Date Posted: 02 June 2006 at 11:45pm
|
You should also rename or remove members.asp or else anyone who id's your forum as a wwf forum can figure out what to type to get to it.
------------- 
Lead me not into temptation... I know the short cut, follow me. |
Posted By: Ali Bilgrami
Date Posted: 03 June 2006 at 1:42pm
|
zactly and for stats u'll have to edit default.asp
in a fresh file at line 740-821
comment these lines
do not forget to backup yer file
p.s. why exactly do u want to disappear these two options? :S
|
Posted By: Digzor
Date Posted: 03 June 2006 at 5:24pm
|
Believe me, it's not MY idea to hide them :) We are doing an internal forum for some of our business units and the thought is that too much information is going to scare them. ------------- --I like to ostrichsize people. hunt them down, enlarge them, and make them flightless |
Posted By: phospho
Date Posted: 03 June 2006 at 9:45pm
|
hello all, thanks for your help. i want hide thid functions because member dont need to know how many people are in forum and who are on . I hink only administrator need it. so i will try to do with your information but i'm not a programmer -:((
i will tell you
regards
|
Posted By: phospho
Date Posted: 05 June 2006 at 9:41am
|
hi again, so i follow your comments and it work.
But is there a way to set the member button only when you are connected in admin mode or when you enter in forum with admin rigts. It will be great for admin to have member list.
thanks again
JCI
|
Posted By: jckruger
Date Posted: 07 June 2006 at 6:17am
|
Try this at about line 746. Only add the bits in RED to default.asp
-------------------------------------------------------%>---------------------------------
'Loop back round for next category
Loop End If If blnModerator OR blnAdmin Then
%>
<br /> <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 %> -------------------------------------------------------%>---------------------------------
This should make the statistics available to ADMINS or MODS. You could change it dor ADMINS only too.
To change the Members button to be viewable only to admins you could add this in RED to navigation_buttons_inc.asp at about line 70
-------------------------------------------------------%>---------------------------------
'Display the other common buttons
If blnModerator OR blnAdmin Then Response.Write (" <a href=""active_topics.asp" & strQsSID1 & """ class=""nav"" accesskey=""2""><img src=""" & strImagePath & "active_topics.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtActiveTopics & """ />" & strTxtActiveTopics & "</a>") If blnAdmin Then Response.Write (" <a href=""members.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "members_list.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtMembersList & """ />" & strTxtMemberlist & "</a>") If blnCalendar Then Response.Write (" <a href=""calendar.asp" & strQsSID1 & """ class=""nav""><img src=""" & strImagePath & "calendar.gif"" border=""0"" align=""absmiddle"" alt=""" & strTxtCalendar & """ />" & strTxtCalendar & "</a>") Response.Write (" <a href=""search_form.asp?FID=" & intForumID & strQsSID2 & """ class=""nav"" accesskey=""4""><img src=""" & strImagePath & "search.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtSearchTheForum & """ />" & strTxtSearch & "</a>") Response.Write (" <a href=""help.asp" & strQsSID1 & """ class=""nav"" accesskey=""5""><img src=""" & strImagePath & "help_icon1.gif"" align=""absmiddle"" border=""0"" alt=""" & strTxtHelp & """ />" & strTxtHelp & "</a>") -------------------------------------------------------%>--------------------------------- I haven't checked the code so backup first.
Cheers
Justin
|