收集的统计蜘蛛来访数据代码，以备后用！' 蜘蛛机器人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，如果大家还有其他蜘蛛名称，可以按照上面形式自行添加