收集的统计蜘蛛来访数据代码,以备后用!

' 蜘蛛机器人
function spiderbot()
dim agent: agent = lcase(request.servervariables("http_user_agent"))
dim Bot: Bot = ""
'百度
if instr(agent, "baiduspider") > 0 then Bot = "Baiduspider"
if instr(agent, "baiducustomer") > 0 then Bot = "BaiduCustomer"
if instr(agent, "baidu-thumbnail") > 0 then Bot = "Baidu-Thumbnail"
if instr(agent, "baiduspider-mobile-gate") > 0 then Bot = "Baiduspider-Mobile-Gate"
if instr(agent, "baidu-transcoder/1.0.6.0") > 0 then Bot = "Baidu-Transcoder/1.0.6.0"
'谷歌google
if instr(agent, "googlebot/2.1") > 0 then Bot = "Googlebot/2.1"
if instr(agent, "googlebot-image/1.0") > 0 then Bot = "Googlebot-Image/1.0"
if instr(agent, "feedfetcher-google") > 0 then Bot = "Feedfetcher-Google"
if instr(agent, "mediapartners-google") > 0 then Bot = "Google Adsense"
if instr(agent, "adsbot-google") > 0 then Bot = "Google AdWords"
if instr(agent, "googlebot-mobile/2.1") > 0 then Bot = "Googlebot-Mobile/2.1"
if instr(agent, "googlefriendconnect/1.0") > 0 then Bot = "GoogleFriendConnect/1.0"
'雅虎yahoo
if instr(agent, "yahoo! slurp;") > 0 then Bot = "Yahoo! Slurp"
if instr(agent, "yahoo! slurp/3.0") > 0 then Bot = "Yahoo! Slurp/3.0"
if instr(agent, "yahoo! slurp china") > 0 then Bot = "Yahoo! Slurp China"
if instr(agent, "yahoofeedseeker/2.0") > 0 then Bot = "YahooFeedSeeker/2.0"
if instr(agent, "yahoo-blogs") > 0 then Bot = "Yahoo Blogs"
if instr(agent, "yahoo-mmcrawler") > 0 then Bot = "Yahoo Image"
if instr(agent, "yahoo contentmatch crawler") > 0 then Bot = "Yahoo AD"
'微软bing
if instr(agent, "msnbot/1.1") > 0 then Bot = "msnbot/1.1"
if instr(agent, "msnbot/2.0b") > 0 then Bot = "msnbot/2.0b"
if instr(agent, "msrabot/2.0/1.0") > 0 then Bot = "msrabot/2.0/1.0"
if instr(agent, "msnbot-media/1.0") > 0 then Bot = "msnbot-media/1.0"
if instr(agent, "msnbot-products") > 0 then Bot = "MSNBot-Products"
if instr(agent, "msnbot-academic") > 0 then Bot = "MSNBot-Academic"
if instr(agent, "msnbot-newsblogs") > 0 then Bot = "MSNBot-NewsBlogs"
'腾讯搜搜soso
if instr(agent, "sosospider") > 0 then Bot = "Sosospider"
if instr(agent, "sosoblogspider") > 0 then Bot = "Sosoblogspider"
if instr(agent, "sosoimagespider") > 0 then Bot = "Sosoimagespider"
'网易有道
if instr(agent, "youdaobot/1.0") > 0 then Bot = "YoudaoBot/1.0"
if instr(agent, "yodaobot-image/1.0") > 0 then Bot = "YodaoBot Image/1.0"
if instr(agent, "yodaobot-reader/1.0") > 0 then Bot = "YodaoBot-Reader/1.0"
'搜狐搜狗
if instr(agent, "sogou web robot") > 0 then bot = "Sogou web robot"
if instr(agent, "sogou web spider/3.0") > 0 then Bot = "Sogou web spider/3.0"
if instr(agent, "sogou web spider/4.0") > 0 then Bot = "Sogou web spider/4.0"
if instr(agent, "sogou head spider/3.0") > 0 then Bot = "Sogou head spider/3.0"
if instr(agent, "sogou-test-spider/4.0") > 0 then Bot = "Sogou-Test-Spider/4.0"
if instr(agent, "sogou orion spider/4.0") > 0 then Bot = "Sogou Orion spider/4.0"
'Alexa
if instr(agent, "ia_archiver") > 0 then Bot = "Ia_archiver"
if instr(agent, "iaarchiver") > 0 then Bot = "Iaarchiver"
'Cuil
if instr(agent, "twiceler-0.9") > 0 then Bot = "Twiceler-0.9"
'奇虎
if instr(agent, "qihoo") > 0 then Bot = "Qihoo"
'ASK.com
if instr(agent, "ask jeeves/teoma") > 0 then Bot = "Ask Jeeves/Teoma"
if instr(agent, "50.nu/0.01") > 0 then Bot = "50.nu/0.01"
if instr(agent, "aspseek") > 0 then Bot = "ASPSeek"
if instr(agent, "betabot") > 0 then Bot = "betaBot"
if instr(agent, "blogpulselive") > 0 then Bot = "BlogPulseLive"
if instr(agent, "blogpulse (isspider-3.0)") > 0 then Bot = "BlogPulse (ISSpider-3.0)"
if instr(agent, "blogvibebot-v1.1") > 0 then Bot = "BlogVibeBot-v1.1"
if instr(agent, "blogsearch/2") > 0 then Bot = "BlogSearch/2"
if instr(agent, "builtwith/0.3") > 0 then Bot = "BuiltWith/0.3"
if instr(agent, "buzzbot/1.0") > 0 then Bot = "BuzzBot/1.0"
if instr(agent, "daumoa/2.0") > 0 then Bot = "Daumoa/2.0"
if instr(agent, "domaintools") > 0 then Bot = "DomainTools"
if instr(agent, "dotbot/1.1") > 0 then Bot = "DotBot/1.1"
if instr(agent, "eapollobot") > 0 then Bot = "eApolloBot"
if instr(agent, "exabot") > 0 then Bot = "Exabot"
if instr(agent, "fast-webcrawler") > 0 then Bot = "Alltheweb"
if instr(agent, "feedburner/1.0") > 0 then Bot = "FeedBurner/1.0"
if instr(agent, "followsite bot") > 0 then Bot = "FollowSite Bot"
if instr(agent, "gaisbot/3.0") > 0 then Bot = "Gaisbot/3.0"
if instr(agent, "gigabot") > 0 then Bot = "Gigabot"
if instr(agent, "gingercrawler/1.0") > 0 then Bot = "GingerCrawler/1.0"
if instr(agent, "hitcrawler_0.1") > 0 then Bot = "hitcrawler_0.1"
if instr(agent, "iaskspider/1.0") > 0 then Bot = "iaskspider/1.0"
if instr(agent, "iaskspider/2.0") > 0 then Bot = "iaskspider/2.0"
if instr(agent, "iearthworm") > 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 = "测试"
'本地测试时把上句前单引号去掉,即可在本地看到测试结果
'以上蜘蛛数据统计于209.8.30,如果大家还有其他蜘蛛名称,可以按照上面形式自行添加

如您觉得这个家庭博客还可以,可随意赞助,情怀再多,也改变不了服务器得花钱这事,挣钱养博客。