The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
Here's one that's easy & quick.
Visitor Map Mod
1) Go to: http://www.ipligence.com/webmaps/; fill in your forum server name & your email address.
2) It will create a string of numbers & letters in the middle of the generated code (don't worry, the two strings are identical). Copy that string.
3) In the following, there are two instances of "?u=< >" (without quotation marks). They're depicted in bold red. Replace the < > (including the brackets) with the string from step 2. Save as admin_visitormap.asp
4) Add yourself a link in admin_home.asp; appx line 135, add the following:
All done.
Download at SnitzBitz.<
Visitor Map Mod
1) Go to: http://www.ipligence.com/webmaps/; fill in your forum server name & your email address.
2) It will create a string of numbers & letters in the middle of the generated code (don't worry, the two strings are identical). Copy that string.
3) In the following, there are two instances of "?u=< >" (without quotation marks). They're depicted in bold red. Replace the < > (including the brackets) with the string from step 2. Save as admin_visitormap.asp
4) Add yourself a link in admin_home.asp; appx line 135, add the following:
Code:
" <LI><span class=""spnMessageText""><a href=""admin_visitormap.asp"">Visitor Map</a></span></LI>" & vbNewLine & _All done.
Code:
<%
'##################################################################################################
'## Snitz Forums 2000 v3.4.06
'##################################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'##################################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<%
if mLev < 3 then
Err_Msg = "<li>Access is restricted to Moderators and Administrators</li>"
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Visitor Map</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Access restricted to Moderators and Administrators!</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Back to Forum</a></font></p>" & vbNewLine & _
" <br />" & vbNewLine
WriteFooter
Response.End
end if
Response.Write " <table border=""1"" cellspacing=""2"" cellpadding=""2"" align=""center"">" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td width=""100%"" align=""center"" bgcolor=""" & strHeaderColor & """><b><font face=""" & strHeaderFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeaderFontColor & """>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td width=""100%"" align=""center"" bgColor=""" & CColor & """>" & vbNewLine & _
" <a href=""http://www.ipligence.com/webmaps/s/?u=< >&color=1&a=week""><img src=""http://www.ipligence.com/webmaps/m/?u=< >&size=large&color=1&a=week"" alt=""ip-location"" border=""1""></a>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>"
WriteFooter
Response.End
%>Download at SnitzBitz.<
نوشته شده در
Since the host site has the ability to depict your visitors in daily, weekly, monthly, or yearly displays; I added the ability to choose. I have no plans to modify this further. Enjoy.<
نوشته شده در
Just to clarify for non-programmers like me, copy the string right before &color in the first instance and before &size in the second instance. In other words, you don't copy/paste the whole generated code.<