ASPプログラムを使用してWebサイトのAlexa Worldランキングを読む方法

http://www.alexa.com/data/details/@url=www.itlearner.comおよびhttp://www.alexa.com/data/details/traffic_details@q =！アンプ; url = www.itlearner.com、ソースファイルを表示、トラフィックランクの検索、私のウェブサイトのランキングは次のとおりです。ランク：> </pyp> </tprp> <thone> 7 </today> <ページビューユーザーごと：> <[email protected]> <thone> 6 </today> </[email protected]> </ページビューごとのビュー：> <[email protected]> <トラフィックランク> 1 </budf@opif.もう一度調べてみて、交通ランクが表示されていることがわかりました。今日は1週間です。平均。 3か月。平均。 3か月。変化。今日と前の形式の1WKは、どちらも上記の形式で表されています。最も重要なデータである3か月になると、実際に数字で直接表示されます。それは素晴らしいことです！

<％プライベート関数bytes2bstr（vin）

dim i、thischrcode、nextchrcode strreturn = i = 1 to lenb（vin）

thischrcode = ascb（midb（vin、i、1））

thischrcode <！の場合amp; h80 then strreturn = strreturn！アンプ; chr（thischrcode）

else nextchrcode = ascb（midb（vin、i 1、1））

Strreturn = Strreturn！アンプ; chr（clng（thischrcode） *！amp; h100 cint（nextchrcode））

i = i 1 end次のbytes2bstr = strreturn end関数関数geturl（url）

set retireval = server.createObject（microsoft.xmlhttp）

検索付き。 get get、url、false 、、、。 geturl = .responsetext geturl = bytes2bstr（.responsebody）を送信

SETの取得で終了します= Nothing End関数

上記は、xmlhttpを使用してページコードを読むための一般的なコードです

関数getalexarank（url）

エラー上、次のDimpstr、Trueurl、x、keystrを再開します

trueurl = http://www.alexa.com/data/details/traffic_details@q=！ amp; url =！アンプ; 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）

ERRの場合、getAlexArank = err.description err.clear else getalexarank = tempstr end end function

dim url url = www.itlearner.comクエリするURL、http：//response.write（getalexarank2（url））を追加しないでください。ランキングデータを出力します

％>