一起爱 - 1172.cn - 代码
type: channel
link: https://www.1172.cn/tag/%E4%BB%A3%E7%A0%81/
items: 统计蜘蛛来访数据代码

统计蜘蛛来访数据代码
type: item
date: 2010-10-16T12:15:00+08:00
description: 收集的统计蜘蛛来访数据代码，以备后用！' 蜘蛛机器人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(…