WEB优化网-SEO学习网

检查当前用户是否是搜索引擎蜘蛛

函数代码：
<%
Function check(user_agent) 
    allow_agent=split("Baiduspider,Scooter,ia_archiver,Googlebot,bingbot,FAST-WebCrawler,MSNBOT,Slurp,YoudaoBot,Sogou+web+spider",",") 
    check_agent=false 
    For agenti=lbound(allow_agent) to ubound(allow_agent) 
        If instr(lcase(user_agent),lcase(allow_agent(agenti)))>0 then 
            check_agent=true 
            exit for 
        end if 
    Next 
    check=check_agent 
End function
%>
 
使用方法：
<%
user_agent=Request.ServerVariables("HTTP_USER_AGENT") 
if check(user_agent)=true then 
response.write("This is a search engine spider!&#65279;") 
end if
%>