判断能否为搜索引擎蜘蛛的asp代码以下:

<%  
function GetBot()  
'查询蜘蛛  
dim s_agent  
GetBot=""  
s_agent=Request.ServerVariables("HTTP_USER_AGENT") ‘关键判断语句  
if instr(1,s_agent,"谷歌bot",1) >0 then  
GetBot="谷歌"  
end if  
if instr(1,s_agent,"msnbot",1) >0 then  
GetBot="MSN"  
end if  
if instr(1,s_agent,"slurp",1) >0 then  
GetBot="Yahoo"  
end if  
if instr(1,s_agent,"百度spider",1) >0 then  
GetBot="百度"  
end if  
if instr(1,s_agent,"sohu-search",1) >0 then  
GetBot="Sohu"  
end if  
if instr(1,s_agent,"lycos",1) >0 then  
GetBot="Lycos"  
end if  
if instr(1,s_agent,"robozilla",1) >0 then  
GetBot="Robozilla"  
end if  
end function  
if GetBot="百度" then  
'给百度定制的内容  
elseif GetBot="谷歌" then  
'给谷歌 定制的内容  
end if  
%>