World ranking numbers using XML technology to get domain names

Using the following code, you can return the world ranking number of domain names from the WWW.ALEXA.COM Web site, which is believed to be useful.
Before always see the website of the United States ping site navigation inside, every site can show the world ranking number, do not know how to get. After a constant effort, I finally got the number by using a simple Asp+xml method. Surprise, also take out and share it! Believe that smart you by modifying this code will play its function to the extreme! Here I have a small request, if you change out of what good dongdong, also send me a copy, OK?
<%
'=========================================================
' File: alexarank.asp
' Function: Returns the world ranking number of the domain name
' Time: 2004-06-24
' Author: guidy
' Copyright: Ixuer Studio
'=========================================================
' Copyright (C) 2004-2006 114XP. CN All rights reserved.
' Official website: HTTP://www.114xp.cn
' Technology Forum: HTTP://bbs.114xp.cn
' Email: guidy@qq.com.guidy@psysch.com
'=========================================================
server.scripttimeout=120
On Error Resume Next
Dim URL
URL = "www.114xp.cn"
Response.Write (Alexarank (URL))
Response.End ()
'==========================================================
Function Alexarank (URL)
' Filtering useless information, only remaining world rankings
' This method is based on the author's careful analysis of the web code, so it is not guaranteed to be permanently valid
' If you have any better way, may wish to tell me, together discuss ~ ~
Dim Alexaurl,rpstr,tempstr
Dim X,n
Rpstr = "</td><td class=" "Bodybold" "align=" "Center" "bgcolor=" "#ffffff" ">Alexaurl = "http://www.alexa.com/data/details/traffic_details?q=&url=" & URL
TempStr = Gethttppage (Alexaurl)
n = InStr (tempstr,rpstr)-1
TempStr = Left (tempstr,n)
TempStr = StrReverse (TEMPSTR)
x = InStr (TempStr, ">")-1
TempStr = Left (tempstr,x)
TempStr = StrReverse (TEMPSTR)