网页爬虫识别与屏蔽代码

<center>  //区域标记 
<% 
function Getbot()      // function方法定义函数     ，Getbot函数名称 
dim s_agent                //定义变量 
GetBot=""                  //定义变量 
s_agent=Request.ServerVariables("HTTP_USER_AGENT")    
  
//正常访问时的信息 Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0) 
//Baiduspider+(+http://www.baidu.com/search/spider.htm)百度的蜘蛛 
//Mozilla/5.0 (compatible; iaskspider/1.0; MSIE 6.0)新浪的蜘蛛
//Mozilla/5.0 (compatible; Yahoo! Slurp; http://help.yahoo.com/help/us/ysearch/slurp) 
//Mozilla/5.0 (compatible; Yahoo! Slurp China; http://misc.yahoo.com.cn/help.html) 
Mozilla/5.0 (compatible; Googlebot/2.1; +http://www.google.com/bot.html)  google机器人 
if instr(1,s_agent,"googlebot",1) > 0 then  
//判断获取的信息中是否包含google机器人的名字 
GetBot="google"                              
//如果包含，将变量GetBot 赋值为google 
end if 
 if instr(1,s_agent,"baiduspider",1) > 0 then     
//判断获取的信息中是否包含baidu机器人的名字
GetBot="baidu"                           //如果包含，将变量GetBot 赋值为baidu 
end if 
end function                                 //函数结束 
  
if GetBot="baidu" or GetBot="google" then      //判断是不是蜘蛛来访 
        Response.Write “<a href=’http://www.xp.com’>xp下载中心</a> 
<a href=’http://www.xp.com’>xp下载中心</a> 
<a href=’http://www.xp.com’>xp下载中心</a>” 
else                               //如果是正常客户访问 
              Response.Write"   客户你来的正好"