◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。
南京SEO日志分析,抓取搜索引擎爬行痕迹的代码
Post by seo大包, 8/19/2008, Views:对于我们seo来说分析搜索引擎爬虫的痕迹是必不可少的工作,可以说根据日志的记录分析可以提前预测网站的
搜录是否正常,我们的SEO策略是否正确,优化手段是否过分等等。。我个人喜欢直接查看IIS的日志记录,然而总有
些不太喜欢看那枯燥的IIS日志,下面贴出一段抓取搜索引擎爬行痕迹的ASP代码
<%
Sub robot()
Dim robots:robots="Baiduspider+@Baidu|Googlebot@Google|ia_archiver@Alexa|IAArchiver@Alexa|ASPSeek@ASPSeek|YahooSeeker@Yahoo|SogouBot@sogou|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")
'记录蜘蛛爬行
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
%>
上一篇:SEO项目基本实施步骤
下一篇:百度拆空放在网通机房的服务器硬盘
南京SEO日志分析,抓取搜索引擎爬行痕迹的代码相关文章
Latest Seo Article
- [10/07]google pr清零 你的网站pr还存在吗?
- [09/16]百度统计新功能:网站速度测试,seo参考因素之一
- [09/13]Google Sitemap生成工具【本地安装、本地生成】 堪称sitemap一神器
- [09/10]iis7(Web.config)的301重定向的两种设置方式
- [09/09]权重和相似度双管齐下 解决网站收录问题
- [09/06]怎么打开G级别大小的网站爬虫日志?
- [09/05]关键词分析概念一:什么是长尾词?
- [09/03]基础seo技巧 每个seoer必备知识哦
- [09/03]什么时间?怎么向搜索引擎提交您的网站?
- [09/02]做seo需要掌握多少种技术?
- [09/01]中国制造网淘宝体+HOLD体 “RT-Mart”和“SG”
- [08/30]以中国制造网扬州分公司联系电话页面测试百度快照更新问题
- [08/24]百度明确支持nofollow标签了
- [08/24]百度站长指南推荐的网站结构形式
- [08/18]PHP下的301重定向 ASP下的301重定向 ASP .NET下的301重定向