用asp程序读取网站的alexa世界排名
来源:ALXEA8 发布时间:2008-11-23 20:43:00
标签:alexa,排名,xmlhttp
平时每逢alexa排名更新时,我都需要将所有相关的同类网站的排名整理一下,看一下这些对手网站的排名更新情况。做的多了,也就烦了,虽然也才30多个网站,但一个个看下来也有点累。因此,想能不能用程序来读取他的排名数据。
以前记得在什么网址大全的网站上,一个网站名称后面还有这个网站的世界排名,相信肯定是用程序读取的,不然要是一个个查非累死不可。但是浏览遍了alexa的网站,也没有找到能够直接得到排名数据的方法。虽然它提供了一些代码,如:,但是图片的数字就没办法读取到了。
后来想要不用xmlhttp读它页面,然后截取出那段数字?麻烦是麻烦点,也许可以一试。于是开始查看显示排名的那两页,
以下为引用的内容:
http://www.alexa.com/data/details/@url=www.itlearner.com 和 http://www.alexa.com/data/details/traffic_details@q=!amp;url=www.itlearner.com,查看源文件,搜索"traffic rank for",搜到我网站的排名是这样一段代码:<ti><bbip><traffic><today>4</today></traffic></bbip></ti>5<tprp><pyp><page views rank:><pyp>,</pyp></page views rank:></pyp></tprp><today>7</today><page views per user:><tq3re@rexef.com><today>6</today></tq3re@rexef.com></page views per user:><budf@opif.org><traffic rank for>1</traffic rank for>/budf@opif.org
看得这段代码都大了找了一下,看到在显示traffic rank:today 1 wk. avg. 3 mos. avg. 3 mos. change那边,前面today和1wk都是用上面那种形式表示的,而到了3 mos也就是最关键的数据那边,确是直接用数字显示的,太好了!
分析了一下前后的代码,发现数据后面的</td><td class="bodybold" align="center" bgcolor="#ffffff"><img这段代码是唯一的,于是开始编程工作。
下面的源代码示例,供大家参考:
以下为引用的内容:
<% private function bytes2bstr(vin)
dim i, thischrcode, nextchrcode strreturn = "" for i = 1 to lenb(vin)
thischrcode = ascb(midb(vin, i, 1))
if thischrcode < !amp;h80 then strreturn = strreturn !amp; chr(thischrcode)
else nextchrcode = ascb(midb(vin, i + 1, 1))
strreturn = strreturn !amp; chr(clng(thischrcode) * !amp;h100 + cint(nextchrcode))
i = i + 1 end if next bytes2bstr = strreturn end function function geturl(url)
set retrieval = server.createobject("microsoft.xmlhttp")
with retrieval。open "get", url, false, "", ""。send geturl = .responsetext geturl = bytes2bstr(。responsebody)
end with set retrieval = nothing end function
以上是使用xmlhttp读取页面代码的通用代码
function getalexarank(url)
on error resume next dim tempstr,trueurl,x,keystr
trueurl = "http://www.alexa.com/data/details/traffic_details@q=!amp;url=" !amp; url tempstr=geturl(trueurl)
keystr = "</td><td class=""bodybold"" align=""center"" bgcolor=""#ffffff""><img" tempstr = split(tempstr,keystr)(0)
x = instrrev(tempstr,">") + 1 tempstr = mid(tempstr,x)
if err then getalexarank=err.description err.clear else getalexarank=tempstr end if end function
以上是读取alexa网站页面,对代码进行分析然后得到排名的数据
以下为引用的内容:
dim url url="www.itlearner.com" 要查询的网址,不要加http:// response.write(getalexarank2(url)) 输出排名数据
%>
嘿嘿,以后公司的相关网站排名,就不用再一个一个去查了,只需要把那些网站依此放在程序里,就可以让程序一个一个的读出来了。
0
投稿
猜你喜欢
- 这里说的“相对路径”是相对于“主调文件”所在的文件夹。#include file #include file后面跟的是文件的“相对路径”,不
- 欣赏上一篇:用画为5.12地震受灾同胞们祈福 今年我们的祖国多灾多难 雪灾的阴影还没散去又发生了地震。中国插画 * 举办5.12地震祈幅绘画活
- 看了OReilly.JavaScript.The.Definitive.Guide.5th.Edition.Aug.2006里的cookie
- 在Flash播放器运行时,将不同来源的资源划分到独立的沙箱(sandbox)内,不同沙箱之间不能彼此操作数据(除非目标沙箱做过一些设置,授权
- 今年我们的祖国多灾多难 雪灾的阴影还没散去又发生了地震。让我们用手中的画笔为5.12地震受灾同胞们祈福并号召大家为灾区人民捐款!中国插画网祈
- 图片外框特征参数: ①dashed:虚线②dotted:点虚线③solid:实线④double:双线⑤groove:沟
- <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") s
- 1.linux下启动mysql的命令:mysqladmin start/ect/init.d/mysql start (前面为mysql的安
- 如何使用Office Chart 9.0 制作图表?代码如下:chart90.asp<HTML><HEAD><
- 在团队意见PK中,运用对方的知识背景说服对方,这就是技术性击倒。这样通常能把对方驳得哑口无言,我经常被这样击倒,甚至觉得怎么那么多牛逼的设计
- 我们在使用ASP 内置的ADO组件进行数据库编程时,通常是在脚本的开头打开一个连接,并在脚本的最后关闭它,但是就较大脚本而言,在多数情况下连
- 在access中进行时间的比较sql语句很简单,如select * from table where thetime>#\"
- 如何在ADO中使用存储查询?对于使用参数存贮查询,我们可用下面的代码进行示例:Private cn As Ne
- 原文地址:30 Days of Mootools 1.2 Tutorials - Day 11 - Using Fx.Morph, Fx O
- CacheControl 属性设置是否可缓存由 ASP 生成的输出。默认地,代理服务器不会保持缓存副本。语法:response.CacheC
- 最近群里好多人讨论oracle安全问题,今天找了些资料学习了下 获取Oracle当前会话的一些属性 (对于sql注射的环境判断很有用哦) S
- 2003年以来,网页的平均尺寸已经增长3倍。从2003到2008,网页的平均尺寸从93.7K增至312K,增幅233%。同时,在这5年之内,
- Q: 不知xml和html有什么区别?它们不同在哪? A: 关于XML和HTML区别请参考: http://www.w3c.org/Mark
- 这篇论坛文章着重介绍了Access数据库出现0x80004005问题的解决方法,更多内容请参考下文:项目做了三个月了,终于也差不多完成了,昨
- 格式为: SCRENC [/s] [/f] [/xl] [/l defLanguage ] [/e de