Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Adding Search Robots to Active Users

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
leatherlips Posted - 28 April 2008 : 15:24:13
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?<
3   L A T E S T    R E P L I E S    (Newest First)
leatherlips Posted - 29 April 2008 : 10:55:45
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.<
leatherlips Posted - 28 April 2008 : 15:52:40
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.<
leatherlips Posted - 28 April 2008 : 15:34:12
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.<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.03 seconds. Powered By: Snitz Forums 2000 Version 3.4.07