核桃的杭州SEO策划博客-何涛SEO自留地

转个帖子过来，作者收集了很多蜘蛛，这个有用的，弄个收藏。
5Ucms的蜘蛛代码函数。显示效果如下：



----------------代码开始----------------

' 蜘蛛机器人
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"