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.
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?<
'##### 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?<
نوشته شده در
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.<
نوشته شده در
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:
The next line starts with an if. Change it to elseif.<
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 #####
نوشته شده در
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.<
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.<