蜘蛛来访爬取链接详情导出TXT文件（php脚本）

<?php
$useragent = addslashes(strtolower($_SERVER['HTTP_USER_AGENT']));
if (strpos($useragent, 'msn')!== false){$bot = 'msn';}
elseif (strpos($useragent,'baiduspider') !== false){$bot = 'Baidu';}
elseif (strpos($useragent,'sogou spider') !== false){$bot = 'Sogou';}
elseif (strpos($useragent,'sogou web') !== false){$bot = 'Sogou web';}
elseif (strpos($agent,'Bytespider') !== false){$bot = 'Bytespider';}
elseif (strpos($useragent,'YisouSpider') !== false){$bot = 'YisouSpider';}
elseif (strpos($useragent,'360Spider') !== false){$bot = '360Spider';}
elseif (strpos($useragent,'bot') !== false){$bot = '其它蜘蛛';}
if(isset($bot)){
$fp = @fopen( $_SERVER['DOCUMENT_ROOT']."/bot.txt",'a');
fwrite($fp,date('Y-m-d H:i:s')."\t".$_SERVER["REMOTE_ADDR"]."\t".$bot."\t".'http://'.$_SERVER['SERVER_NAME'].$_SERVER["REQUEST_URI"]."\r\n");
fclose($fp);
}
?>