专业虚拟主机提供商! 正规合法诚信公司、拥有ICP/ISP双经营许可证
域名空间实时开通立即使用,几分钟即可完成
安全方便的网上支付,超强的域名空间管理程序
我要购买空间,请点这里
我要注册域名,请点这里
我要建设网站,请点这里
我要续费域名,请点这里
我要续费空间,请点这里
我要在线支付,请点这里
首 页 特惠套餐 域名注册 虚拟主机 托管租用 FTP空间 数据库 企业邮局 网站建设 联系我们 付款方式
 | 网站首页 | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 | 
您现在的位置: IDC资讯网 >> 网络编程 >> ASP编程 >> 正文
用asp程序读取网站的alexa世界排名         ★★★
用asp程序读取网站的alexa世界排名
点击数: 更新时间:2009-8-12 16:27:11

平时每逢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)) 输出排名数据

  %>

嘿嘿,以后公司的相关网站排名,就不用再一个一个去查了,只需要把那些网站依此放在程序里,就可以让程序一个一个的读出来了。

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
    最新推荐  更多内容
    最新热门  更多内容
    资讯中心首页
    | 虚拟主机资讯 | 域名注册资讯 | 托管租用资讯 | 网络编程 | 网站备案 | 系统安全 | 源码下载 |
    关于我们 | 联系我们 | 产品价格 | 代理加盟 | 咨询反馈 | 诚聘英才 | 在线对话系统 | ASP技术网 | 帮助中心 | 网站地图
    ICP/ISP证B2-20050322
    ICP/ISP经营许可证编号:粤ICP证B2-20050322 网站备案号:粤B2-20050322号
    客服热线:0755-26499456 0755-26499435 [共8线] 24小时值班:0755-21852765 [更多]
    客服QQ:
    [ 63103 ]
    [ 959260 ]
    代理咨询:
    [ 519065 ]
    [更多]
    客户服务中心:深圳市南山区桃园路前海金岸金丰阁706  邮编:518052
    本站推广词:动态空间 | 网站空间 | 虚拟主机 | 深圳网站建设 | 空间购买 | 域名空间 | ASP空间申请购买
    服务范围:广州·深圳·东莞·珠海·汕头·惠州·中山·佛山·上海·重庆等全国其它地区
    广东省深圳市稳速网络科技有限公司版权所有 严禁以任何形式进行复制、抄袭