怎樣用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教程：