worm") > 0 then Bot = "iearthworm"  
 if instr(agent, "jyxobot/1") > 0 then Bot = "Jyxobot/1"  
 if instr(agent, "larbin") > 0 then Bot = "Larbin"  
 if instr(agent, "lanshanbot") > 0 then Bot = "lanshanbot"  
if instr(agent, "lycos_spider_(t-rex)") > 0 then Bot = "Lycos"  
 if instr(agent, "markmonitor robots") > 0 then Bot = "MarkMonitor Robots"  
 if instr(agent, "mj12bot/v1.2.1") > 0 then Bot = "MJ12bot/v1.2.1"  
 if instr(agent, "mj12bot/v1.2.2") > 0 then Bot = "MJ12bot/v1.2.2"  
 if instr(agent, "mj12bot/v1.2.3") > 0 then Bot = "MJ12bot/v1.2.3"  
 if instr(agent, "mj12bot/v1.2.4") > 0 then Bot = "MJ12bot/v1.2.4"  
 if instr(agent, "mj12bot/v1.2.5") > 0 then Bot = "MJ12bot/v1.2.5"  
 if instr(agent, "naverbot/1.0") > 0 then Bot = "NaverBot/1.0"  
 if instr(agent, "netcraftsurveyagent/1.0") > 0 then Bot = "NetcraftSurveyAgent/1.0"  
 if instr(agent, "netcraft web server survey") > 0 then Bot = "Netcraft Web Server Survey"  
 if instr(agent, "page2rss/0.5") > 0 then Bot = "Page2RSS/0.5"  
 if instr(agent, "panscient.com") > 0 then Bot = "panscient.com"'恶意爬虫   
 if instr(agent, "pku student spider") > 0 then Bot = "PKU Student Spider"  
 if instr(agent, "psbot/0.1") > 0 then Bot = "psbot/0.1"  
 if instr(agent, "scooter") > 0 then Bot = "Altavista"  
 if instr(agent, "servage robot") > 0 then Bot = "Servage Robot"  
 if instr(agent, "snapbot") > 0 then Bot = "Snapbot"  
 if instr(agent, "spinn3r") > 0 then Bot = "Spinn3r"  
 if instr(agent, "sqworm") > 0 then Bot = "AOL"  
 if instr(agent, "stealer") > 0 then Bot = "Stealer"  
 if instr(agent, "tagoobot/3.0") > 0 then Bot = "Tagoobot/3.0"  
 if instr(agent, "twingly recon") > 0 then Bot = "Twingly Recon"  
 if instr(agent, "urlfan-bot/1.0") > 0 then Bot = "urlfan-bot/1.0"  
 if instr(agent, "webalta") > 0 then Bot = "WebAlta"  
 if instr(agent, "yandex/1.01.001") > 0 then Bot = "Yandex/1.01.001"  
 if instr(agent, "yeti/1.0") > 0 then Bot = "Yeti/1.0"  
    
 'if instr(agent, "compatible") > 0 then bot = "测试"   
 '本地测试时把上句前单引号去掉，即可在本地看到测试结果   
 '以上蜘蛛数据统计于2009.8.30，如果大家还有其他蜘蛛名称，可以按照上面形式自行添加   
 if len(Bot) > 0 then   
  dim rs: set rs = db("select [Botname],[LastDate] From [{pre}Bots] Where [Botname]='" & Bot & "'", 3)   
  if rs.eof then rs.addnew: rs(0) = Bot   
  rs(1) = now(): rs.update: rs.close: set rs = nothing   
 end if   
end function  

可以看到其他搜索引擎蜘蛛的来仿情况，不建议全用，根据需要来吧，多了增加服务器负担

修改方式是，在inc目录下找到function.asp，然后找function spiderbot()，把这段function替换掉
 

本文来自无忧论坛，发表作者：Rainany