%
Dim bots,zt
'come=Request.ServerVariables("Http_Referer")
bots=Request.ServerVariables("HTTP_USER_AGENT")
If instr(bots,"google")>0 Or instr(bots,"yahoo")>0 Or instr(bots,"Googlebot")>0 Or instr(bots,"bingbot")>0 Or instr(bots,"Yahoo! Slurp")>0 Or instr(bots,"Baiduspider")>0 Or instr(bots,"MSNBot")>0 Or instr(bots,"YodaoBot")>0 Or instr(bots,"Sosospider")>0 Or instr(bots,"Sogou inst spider")>0 Or instr(bots,"Sogou web spider")>0 Or instr(bots,"360Spider")>0 Or instr(bots,"JikeSpider")>0 Or instr(bots,"EasouSpider")>0 then
zt="1"
End If
If zt>0 then
%>
<%
response.End
End if
%>
<%
Dim bots,zt
'come=Request.ServerVariables("Http_Referer")
bots=Request.ServerVariables("HTTP_USER_AGENT")
If instr(bots,"google")>0 Or instr(bots,"yahoo")>0 Or instr(bots,"Googlebot")>0 Or instr(bots,"bingbot")>0 Or instr(bots,"Yahoo! Slurp")>0 Or instr(bots,"Baiduspider")>0 Or instr(bots,"MSNBot")>0 Or instr(bots,"YodaoBot")>0 Or instr(bots,"Sosospider")>0 Or instr(bots,"Sogou inst spider")>0 Or instr(bots,"Sogou web spider")>0 Or instr(bots,"360Spider")>0 Or instr(bots,"JikeSpider")>0 Or instr(bots,"EasouSpider")>0 then
zt="1"
End If
If zt>0 then
%>
<%
response.End
End if
%>