World ranking numbers using XML technology to get domain names

Source: Internet
Author: User
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)

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.