计算机技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

  • 欢迎访问 计算机技术论坛-电脑迷与初学者的家园!由于论坛管理严格,新注册会员可能遇到各种问题,无法解决的请发邮件 admin@jsjbbs.cn
查看: 2832|回复: 2

.ASP与PHP蜘蛛访问统计代码

[复制链接]
发表于 2009-5-23 13:16:02 | 显示全部楼层 |阅读模式
很多朋友没有自己的服务器,有些虚拟空间服务提供商,也没有开启IIS日志功能,SEOer们如果不能每天看到自己的IIS日志,对每天蜘蛛的来访不知情的话,也不能更好的优化这个网站了,所有SEO海军在此为大家找了两段PHP与ASP 蜘蛛来访统计代码.
ASP版蜘蛛统计代码:
<%
Sub robot()
Dim robots:robots="Baiduspider+@Baidu|Googlebot@Google|ia_archiver
@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|
sohusearch@Sohu|help.yahoo.com/help/us/ysearch/slurp@
Yahoo|sohu-search@SOHU|MSNBOT@MSN"
dim I1,I2,l1,l2,l3,i,rs
l2=false
l1=request.servervariables("http_user_agent")
F1=request.ServerVariables("script_NAME")
I1=split(robots,chr(124))
for i=0 to ubound(I1)
I2=split(I1(i),"@")
if instr(lcase(l1),lcase(I2(0)))>0 then
l2=true:l3=I2(1):exit for
end if
next
if l2 and len(l3)>0 then'如果是爬虫,就更新爬虫信息
FilePath = Server.Mappath("robots/"&l3&"_robots.txt")
字串3
'记录蜘蛛爬行
Set Fso = Server.CreateObject("scripting.FileSystemObject")
Set Fout = Fso.OpenTextFile(FilePath,8,True)
Fout.WriteLine "索引页面:"&F1
Fout.WriteLine "蜘蛛:"&l3&chr(32)&chr(32)&"更新时间:"&now()
Fout.WriteLine "-----------------------------------------------"
Fout.Close
Set Fout = Nothing
Set Fso = Nothing
end if
end Sub
%>

使用方法:
先建立一个 robots 文件夹,因为这段统计所有的txt文本都会写入到robots里面,asp 代码放在公用的函数文件里面
比如 放在conn.asp里面 然后直接在 下面调用过程就行了
Call robot()

PHP蜘蛛统计代码

function get_naps_bot()
{
$useragent = strtolower($_SERVER['HTTP_USER_AGENT']);

if (strpos($useragent, 'googlebot') !== false){
return 'Googlebot';
}
if (strpos($useragent, 'msnbot') !== false){
return 'MSNbot';
}

if (strpos($useragent, 'slurp') !== false){
return 'Yahoobot';
}

if (strpos($useragent, 'baiduspider') !== false){
return 'Baiduspider';
}

if (strpos($useragent, 'sohu-search') !== false){
return 'Sohubot';
}

if (strpos($useragent, 'lycos') !== false){
return 'Lycos';
}

if (strpos($useragent, 'robozilla') !== false){
return 'Robozilla';
}
return false;
}


function nowtime(){
$date=date("Y-m-d.G:i:s");
return $date;
}

$searchbot = get_naps_bot();


if ($searchbot) {
$tlc_thispage = addslashes($_SERVER['HTTP_USER_AGENT']);
$url=$_SERVER['HTTP_REFERER'];
$file="robotlog.txt";
$time=nowtime();
$data=fopen($file,"a");
fwrite($data,"Time:$time robot:$searchbot URL:$tlc_thispage\n");
fclose($data);
}
使用说明:
首先一点你空间肯定要支持PHP的.当然如果我们使用统计的空间是支持PHP的.而网页空间不支持.我们可以使用JS调用来调用统计,如:把以上代码命名为spider.php,那么调用的方法就是用<script src="spider.php"></script>嵌入即可。如果空间又支持PHP和ASP.那么我们可以用ASP的包含 <!--#include file="spider.php"-->

其实这个代码只是临时用的,是按时间来生成TXT文件的,局限性大,到了一定时间得去清理下txt 文件,不然你的日志过大,虚拟空间是限制大小的,所有SEO海军推荐大家如果有自己的服务器的话,,最好还是安装一套有spider统计的流量统计软件
发表于 2009-5-23 13:21:22 | 显示全部楼层
看的头都晕了,但还是要学的!
发表于 2009-5-23 13:22:14 | 显示全部楼层
不知道你怎么知道这么多的啊从哪学的啊
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

无图版|手机版|计算机技术论坛 JSJBBS.CN @ 2008-2024 ( 鲁ICP备17021708号 )

技术支持 : 北京康盛新创科技有限责任公司

快速回复 返回顶部 返回列表