ASP：判断访问是否来自搜索引擎的函数

判断访问是否来自搜索引擎的函数，有兴趣的可以试试！

<%
检查当前用户是否是蜘蛛人
function check(user_agent)
    allow_agent=split("baiduspider,scooter,ia_archiver,googlebot,fast-webcrawler,msnbot,slurp",",")
    check_agent=false
    for agenti=lbound(allow_agent) to ubound(allow_agent)
        if instr(user_agent,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")
check(user_agent)=true则判定访问为蜘蛛人
%>

注：本函数来源于网上，是否可用有待验证！