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)
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.