设为首页 - 加入收藏 ASP站长网(Aspzz.Cn)- 科技、建站、经验、云计算、5G、大数据,站长网!
热搜: 创业者 数据 手机
当前位置: 首页 > 站长学院 > Asp教程 > 正文

ASP辨别搜索引擎蜘蛛的代码 谷歌 百度 雅虎 搜狐 MSN

发布时间:2022-01-08 16:00 所属栏目:120 来源:互联网
导读:
导读:ASP识别搜索引擎蜘蛛(谷歌、百度、雅虎、搜狐、MSN)代码如下: % function GetBot() 查询蜘蛛 dim s_agent GetBot= s_agent=Request.ServerVariables(HTTP_USER_AGENT) 关键判断语句 if instr(1,s_agent,googlebot,1) 0 then GetBot=google end if if instr(1
ASP识别搜索引擎蜘蛛(谷歌、百度、雅虎、搜狐、MSN)代码如下:
 
<%
function GetBot()
'查询蜘蛛
dim s_agent
GetBot=""
s_agent=Request.ServerVariables("HTTP_USER_AGENT") ‘关键判断语句
if instr(1,s_agent,"googlebot",1) >0 then
GetBot="google"
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,"baiduspider",1) >0 then
GetBot="baidu"
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="baidu" then
'给百度定制的内容
elseif GetBot="google" then
'给google 定制的内容
end if
%>
 

(编辑:ASP站长网)

    网友评论
    推荐文章
      热点阅读