日期：2016-7-15（原创文章,禁止转载）
2008-11-06 13:12
来源：ALXEA8
编辑：Googler【纠错】人评论
A-A+
怎样开淘宝店 站优化方法 创业如何取得投资
小米note顶配版评测
最新LOL活动
平时每逢alexa排名更新时，我都需要将所有相干的同类站的排名整理一下，看一下这些对手站的排名更新情况。做的多了，也就烦了，虽然也才30多个站，但一个个看下来也有点累。因此，想能不能用程序来读取他的排名数据。
之前记得在甚么址大全的站上，一个站名称后面还有这个站的世界排名，相信肯定是用程序读取的，不然要是一个个查非累死不可。但是阅读遍了alexa的站，也没有找到能够直接得到排名数据的方法。虽然它提供了一些代码，如：，但是图片的数字就没办法读取到了。
后来想要不用xml读它页面，然后截取出那段数字？麻烦是麻烦点，或许可以1试。因而开始查看显示排名的那两页，
以下为援用的内容：
://.alexa/data/details/@url=.itlearner 和 ://.alexa/data/details/traffic_details@q=！amp；url=.itlearner，查看源文件，搜索traffic rank for，搜到我站的排名是这样一段代码：tibbiptraffictoday4/today/traffic/bbip/ti5tprppyppage views rank：pyp，/pyp/page views rank：/pyp/tprptoday7/todaypage views per user：tq3re@rexeftoday6/today/tq3re@rexef/page views per user：budf@affic rank for1/traffic rank for/budf@opif.，扑通，看得这段代码都大了，再找了一下，看到在显示traffic rank：today 1 wk. avg. 3 mos. avg. 3 mos. change那边，前面today和1wk都是用上面那种情势表示的，而到了3 mos也就是最关键的数据那边，确是直接用数字显示的，太好了！
分析了一下前后的代码，发现数据后面的/tdtd class=bodybold align=center bgcolor=#ffffffimg这段代码是唯一的，因而开始编程工作。
下面的源代码示例，供大家参考：
以下为援用的内容：
% 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 = eateobject（l）
with retrieval。open get， url， false， 治癫痫偏方大全， 。send geturl = .responsetext geturl = bytes2bstr（。responsebody）
end with set retrieval = nothing end function
以上是使用xml读取页面代码的通用代码
function getalexarank（url）
on error resume next dim tempstr，trueurl，x，keystr
trueurl = ://.alexa/data/details/traffic_details@q=！amp；url= ！amp； url tempstr=geturl（trueurl）
keystr = /tdtd class=bodybold align=center bgcolor=#ffffffimg tempstr = split（tempstr，keystr）（0）
x = instrrev（tempstr，） + 1 tempstr = mid（tempstr，x）
if err then getalexarank=scription ear else getalexarank=tempstr end if end function
以上是读取alexa站页面，对代码进行分析然后得到排名的数据
以下为援用的内容：
dim url url=.itlearner 要查询的址，不要加:// ite（getalexarank2（url）） 输出排名数据
%
嘿嘿癫痫如何诊断，以后公司的相干站排名，就不用再一个一个去查了，只需要把那些站依此放在程序里，就可以让程序一个一个的读出来了。
查看更多类似文章
