ASP 프로그램을 사용하여 웹 사이트의 Alexa World 순위를 읽는 방법

http://www.alexa.com/data/data/details/@url=www.itlearner.com 및 http://www.alexa.com/data/details/traffic_details@q=! 앰프; url = www.itlearner.com, 소스 파일보기, 트래픽 순위 검색, 내 웹 사이트의 순위는 다음과 같습니다. rank :> </pyp> </tprp> <tod> 7 </today> <사용자 당 페이지보기 :> <[email protected]> <today> 6 </today> </[email protected]> </page views </page views <[email protected]> <트래픽 순위에 대한 트래픽 순위> </[email protected]>, plop>, plop. 나는 그것을 다시 찾아서 트래픽 순위가 표시되는 것을 보았습니다 : 오늘 1 주. avg. 3 MOS. avg. 3 MOS. 변화. 오늘과 1wk는 이전 형식의 양식으로 위의 형태로 표시됩니다. 가장 중요한 데이터 인 3 MOS에 관해서는 실제로 숫자로 직접 표시됩니다. 그거 대단해!

<% private function bytes2bstr (vin)

Dim I, Thischrcode, Nextchrcode strreturn = i = 1 to lenb (vin)

thischrcode = ASCB (Midb (Vin, I, 1))

Thischrcode <! amp; h80 그런 다음 strreturn = strreturn! 앰프; chr (thischrcode)

else nextchrcode = ascb (midb (vin, i 1, 1))

strreturn = streturn! 앰프; chr (clng (thischrcode) *! amp; h100 cint (nextchrcode))

i = i 1 다음 BYTES2BSTR = strreturn end function function geturl (url)

set retrieval = server.createobject (microsoft.xmlhttp)

검색과 함께. 열기, url, false ,,. getUrl = .ResponsetExt getUrl = bytes2bstr (.responsebody) 보내기

세트 검색 = 아무것도 끝 기능으로 끝납니다

위는 xmlhttp를 사용하여 페이지 코드를 읽는 일반 코드입니다.

기능 getalexarank (URL)

오류가 다시 시작됩니다. 다음 DIM TEMPSTR, TRUEURL, X, KEYSTR

trueurl = http://www.alexa.com/data/details/traffic_details@q=! amp; url =! 앰프; url tempstr = geturl (trueurl)

keystr = </td> <td class = bodybold elign = center bgcolor =#ffffff> <img tempstr = split (tempstr, keystr) (0)

x = instrev (tempstr,>) 1 tempst = mid (tempstr, x)

err eR eR getAlexArank = err.description err. clear else getAlexArank = tempStr end If end function

dim url url = www.itlearner.com query to query, http : //response.write (getalexarank2 (url))를 추가하지 마십시오.

%>