怎樣用asp程序讀取網站的alexa世界排名_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:怎樣做到一個網站空間多個域名訪問
      一個網站空間,但是卻可以實現多個域名的訪問的一段ASP代碼: 以下為引用的內容: % if Request.ServerVariables(SERVER_NAME)=&q

      平時每逢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)) 輸出排名數據

        %>

      嘿嘿,以后公司的相關網站排名,就不用再一個一個去查了,只需要把那些網站依此放在程序里,就可以讓程序一個一個的讀出來了。

      分享:怎樣隱藏圖片的真實地址
      一般情況下,網站的圖片代碼是這樣的。 以下為引用的內容: img src=./attachments/test.jpg />

      來源:模板無憂//所屬分類:ASP教程/更新時間:2009-05-25
      相關ASP教程