备案临时关站代码,蜘蛛照常抓取(asp代码)

<%
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
if instr(1,s_agent,"Sosospider",1) >0 then
GetBot="soso"
end if
if instr(1,s_agent,"Sogou+web+spider",1) >0 then
GetBot="Sogou"
end if
if instr(1,s_agent,"YodaoBot",1) >0 then
GetBot="Yodao"
end if
end function
%>

<%
if GetBot<>"" then
%>

加载你的网页代码

<%else%>

网站备案中。。。 - seo80.com

<%end if%>

标签：