Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Adding Search Robots to Active Users		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 April 2008 :  15:24:13  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I am trying to figure out how to add Search Robots to the active_users.asp page. I found the functions for when it determines the users browser and tried to add this below, but I can't get it to work.

'##### Spider Bot Test #####
if instr(UAgent, "Googlebot") then
strBrowser = "Search Robot"
if instr(UAgent, "ZyBorg") then
strBrowser = "Search Robot"
if instr(UAgent, "slurp") then
strBrowser = "Search Robot"
if instr(UAgent, "Scooter") then
strBrowser = "Search Robot"
if instr(UAgent, "Robozilla") then
strBrowser = "Search Robot"
if instr(UAgent, "Ask Jeeves") then
strBrowser = "Search Robot"
if instr(UAgent, "Ask+Jeeves") then
strBrowser = "Search Robot"
if instr(UAgent, "lycos") then
strBrowser = "Search Robot"
if instr(UAgent, "ArchitextSpider") then
strBrowser = "Search Robot"
if instr(UAgent, "Gulliver") then
strBrowser = "Search Robot"
if instr(UAgent, "crawler@fast") then
strBrowser = "Search Robot"
if instr(UAgent, "TurnitinBot") then
strBrowser = "Search Robot"
if instr(UAgent, "internetseer") then
strBrowser = "Search Robot"
if instr(UAgent, "nameprotect") then
strBrowser = "Search Robot"
if instr(UAgent, "PhpDig") then
strBrowser = "Search Robot"
if instr(UAgent, "StackRambler") then
strBrowser = "Search Robot"
if instr(UAgent, "UbiCrawler") then
strBrowser = "Search Robot"
if instr(UAgent, "Speedy+Spider") then
strBrowser = "Search Robot"
if instr(UAgent, "ia_archiver") then
strBrowser = "Search Robot"
if instr(UAgent, "msnbot") then
strBrowser = "Search Robot"
if instr(UAgent, "arianna.libero.it") then
strBrowser = "Search Robot"
end if
'##### Spider Bot Test #####

How should this appear and where exactly should I insert it in active_users.asp?<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 April 2008 :  15:34:12  Show Profile  Visit leatherlips's Homepage  Reply with Quote
Actually I think I figured it out. Still testing but it seems to be working. I added it to the OS section instead. Once I test it out further I'll post here.<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 28 April 2008 :  15:52:40  Show Profile  Visit leatherlips's Homepage  Reply with Quote
OK. I think this is working. If you would like your active users page to show the "bots" instead of "unknown" then you can do this:

In active_users.asp look for:

else
strBrowser = fLang(strLangMOD_Ls3kAU_01150)
end if

Below that add:
'##### Spider Bots #####
if instr(UAgent, "Googlebot") then
strSystem = "Search Robot - Googlebot"
elseif instr(UAgent, "ZyBorg") then
strSystem = "Search Robot - Zyborg"
elseif instr(UAgent, "slurp") then
strSystem = "Search Robot - Slurp"
elseif instr(UAgent, "Scooter") then
strSystem = "Search Robot - Scooter"
elseif instr(UAgent, "Robozilla") then
strSystem = "Search Robot - Robozilla"
elseif instr(UAgent, "Ask Jeeves") then
strSystem = "Search Robot - Ask Jeeves"
elseif instr(UAgent, "Ask+Jeeves") then
strSystem = "Search Robot - Ask Jeeves"
elseif instr(UAgent, "lycos") then
strSystem = "Search Robot - Lycos"
elseif instr(UAgent, "ArchitextSpider") then
strSystem = "Search Robot - ArchitextSpider"
elseif instr(UAgent, "Gulliver") then
strSystem = "Search Robot - Gulliver"
elseif instr(UAgent, "crawler@fast") then
strSystem = "Search Robot - CrawlerFast"
elseif instr(UAgent, "TurnitinBot") then
strSystem = "Search Robot- TurnitinBot"
elseif instr(UAgent, "internetseer") then
strSystem = "Search Robot - InernetSeer"
elseif instr(UAgent, "nameprotect") then
strSystem = "Search Robot - NameProtect"
elseif instr(UAgent, "PhpDig") then
strSystem = "Search Robot - PhpDig"
elseif instr(UAgent, "StackRambler") then
strSystem = "Search Robot - StackRambler"
elseif instr(UAgent, "UbiCrawler") then
strSystem = "Search Robot - UbiCrawler"
elseif instr(UAgent, "Speedy+Spider") then
strSystem = "Search Robot - SpeedySpider"
elseif instr(UAgent, "ia_archiver") then
strSystem = "Search Robot IA Archiver"
elseif instr(UAgent, "msnbot") then
strSystem = "Search Robot - MSN Bot"
elseif instr(UAgent, "arianna.libero.it") then
strSystem = "Search Robot - Arianna Libero"
'##### Spider Bots #####

The next line starts with an if. Change it to elseif.<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Edited by - leatherlips on 28 April 2008 15:52:57
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 29 April 2008 :  10:55:45  Show Profile  Visit leatherlips's Homepage  Reply with Quote
It looks like there is a better version of this on this thread:

http://forum.snitz.com/forum/topic.asp?whichpage=0.64&TOPIC_ID=65805#378549

It not only includes some of the more popular spider bots but also more browser information.<
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.13 seconds. Powered By: Snitz Forums 2000 Version 3.4.07