Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringAdding Search Robots to Active Users

Adding Search Robots to Active Users

Printed from: Snitz™ Forums 2000
URL: https://forum.snitz.com/forumTopic/Posts/66958?pagenum=1
Printed on: 05 November 2025, 16:44

Topic

Author : leatherlips
Subject : Adding Search Robots to Active Users
Posted : 28 April 2008, 15:24
Message :

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?<

Replies ...

Reply Author: leatherlips
Replied on: 28 April 2008, 15:34
Message:

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.<

Reply Author: leatherlips
Replied on: 28 April 2008, 15:52
Message:

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:

Code:

'##### 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.<

Reply Author: leatherlips
Replied on: 29 April 2008, 10:55
Message:

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.<