Please note: This is a Beta and therefore not meant to be installed on a live forum!
Title: Page Rank and Search Engine Positioning Protection MOD
Version: v1.0 Beta 1 for Snitz Forums v3.4
Author: AspWiz
Last Update: July 28, 2003
Description:
Prevents forums from accidentally linking to 'bad neighborhoods'
and consequently seriously damaging their page rank and search
engine positioning.
For more info regarding this, see this article:-
Are your Search Engine Rankings at Risk?
Features:-
erm... well, it re-formats links so the above cannot happen.
Possible future features :-
Ability to turn this functionality on/off in the admin options.
Installation Instructions
Open up inc_func_common.asp in a text editor (Not Front Page)
and replace the existing FormatStr function with this one:-function FormatStr(fString)
on Error resume next
fString = Replace(fString, CHR(13), "")
'fString = Replace(fString, CHR(10) & CHR(10), "<br /><br />")
fString = Replace(fString, CHR(10), "<br />")
if strBadWordFilter = 1 or strBadWordFilter = "1" then
fString = ChkBadWords(fString)
end if
if strAllowForumCode = "1" then
fString = ReplaceURLs(fString)
fString = ReplaceCodeTags(fString)
if strIMGInPosts = "1" then
fString = ReplaceImageTags(fString)
end if
end if
fString = ChkURLs(fString, "http://", 1)
fString = ChkURLs(fString, "https://", 2)
fString = ChkURLs(fString, "www.", 3)
fString = ChkMail(fString)
fString = ChkURLs(fString, "ftp://", 5)
fString = ChkURLs(fString, "file:///", 6)
if strIcons = "1" then
fString = smile(fString)
end if
if strAllowForumCode = "1" then
fString = extratags(fString)
end if
fString = Replace(fstring,"<a href=""http://","<a href=""javascript:openWindowLink('redirect.asp?url=http://")
fString = Replace(fstring,"<a href=""https://","<a href=""javascript:openWindowLink('redirect.asp?url=https://")
fString = Replace(fstring,"<a href=""www.","<a href=""javascript:openWindowLink('redirect.asp?url=www.//")
fString = Replace(fstring,"<a href=""ftp://","<a href=""javascript:openWindowLink('redirect.asp?url=ftp://")
fString = Replace(fstring,"<a href=""file://","<a href=""javascript:openWindowLink('redirect.asp?url=file://")
fString = Replace(fstring,""" target=""_blank"">","')"">")
FormatStr = fString
on Error goto 0
end function Next step is to open up the inc_header.asp file
and find this code:- "function openWindowHelp(url) {" & vbNewLine & _
" popupWin = window.open(url,'new_page','width=470,height=200,scrollbars=yes')" & vbNewLine & _
"}" & vbNewLine & _and insert this code immediately under it:- "function openWindowLink(url) {" & vbNewLine & _
" popupWin = window.open(url)" & vbNewLine & _
"}" & vbNewLine & _Next, just create a file called redirect.asp and insert this code:-<% response.redirect request.querystring("url")%>
and thats it...
Support:
Reply to this thread..
Demo:-
Sorry.... nothing at this time.
What needs to be done:
Testing with all types of links.
Feedback
Suggestions, comments, questions and bug reports are greatly appreciated! 
onewaymule: I 'borrowed' you posting style for this mod as I was hurried!! 
Topic Locked
Posted - 28 July 2003 : 18:38:52
