Alexa data Query Program

Last Update:2017-01-13 Source: Internet

Author: User

Tags versions

Developer on Alibaba Coud: Build your first app with APIs, SDKs, and tutorials on the Alibaba Cloud. Read more ＞

, Alexa Rank, help the webmaster correct understanding and optimize their own website. There are many versions of this program online, due to the theft of the program, resulting in some of the original web site revision error or inefficient, slow query. This version is in the collection of numerous versions of the network after the integrated integration, while adding something new, version in time to update, if you can not use to

<%
If Request ("d") = "" Then
Response.Redirect "Myalexa.asp?d=lply.com"
End If
On Error Resume Next
' Remote intercept function started
server.scripttimeout=9999999
Function Gethttppage (Path)
t = GetBody (Path)
Gethttppage=bytestobstr (T, "GB2312")
End Function

Function getbody (URL)
On Error Resume Next
Set retrieval = CreateObject ("Microsoft.XMLHTTP")
With retrieval
. Open "Get", url, False, "", ""
. Send
GetBody =. Responsebody
End With
Set retrieval = Nothing
End Function

Function Bytestobstr (Body,cset)
Dim objstream
Set objstream = Server.CreateObject ("ADO" & "Db.stream")
Objstream. Type = 1
Objstream. Mode =3
Objstream. Open
Objstream. Write body
Objstream. Position = 0
Objstream. Type = 2
Objstream. Charset = Cset
Bytestobstr = objstream. ReadText
Objstream. Close
Set objstream = Nothing
End Function
Function newstring (WSTR,STRNG)
Newstring=instr (LCase (WSTR), LCase (STRNG))
If Newstring<=0 then Newstring=len (WSTR)
End Function

Function del (str)
Str=replace (str, "<reach rank=" "", "")
Str=replace (str, "" "/>", "")
Str=replace (str, "", "")
Del=str
End Function
Dim wd
Wd=request ("D")
' Intercept web site
Url= "Http://data.alexa.com/data/?cli=10&dat=snba&ver=7.0&url=" &wd
Wstr=gethttppage (URL)

%>
<title><%=request ("D")%> Alexa comprehensive rankings query results </title>
<meta name= "Robots" content= "Noindex,nofollow"/>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 "/>
<meta http-equiv= "Pragma" content= "No-cache"/>
<style type= "Text/css" >
body{
margin:0px; COLOR: #529252; font-size:11px; Font-weight:bold; Text-decoration:none; font-family: "Georgia", "Arial";}
a:link,a:visited {COLOR: #0066CC; font-size:12px; Font-weight:bold; Text-decoration:underline;}
A:active,a:hover{color: #FF3300; font-size:12px; Font-weight:bold; Text-decoration:underline;}
a.alexarank:link,a.alexarank:visited {COLOR: #529252; font-size:11px; Font-weight:bold; Text-decoration:none; font-family: "Georgia", "Arial";}
a.alexarank:hover,a.alexarank:active {COLOR: #FF3300; font-size:11px; Font-weight:bold; Text-decoration:none; font-family: "Georgia", "Arial";}
</style>
<body leftmargin=0 topmargin=0>
<div align= "center" >
<a href= "http://www.alexa.com/siteinfo/<%=wd%>" Target=_blank class=alexarank>
<%
' Intercept data
Set Reg=new Regexp
Reg. Multiline=true
Reg. Global=flase
Reg. Ignorecase=true
Reg. Pattern= "<reach rank= (. | N) *?) > "
Set matches = Reg.execute (WSTR)
For each match1 in matches
Bodypage=del (match1. Value)
Next
Set matches = Nothing
Set reg = Nothing
Response.Write Bodypage
%>
</a>
</div></body>

This article is an English version of an article which is originally in the Chinese language on aliyun.com and is provided for information purposes only. This website makes no representation or warranty of any kind, either expressed or implied, as to the accuracy, completeness ownership or reliability of the article or any translations thereof. If you have any concerns or complaints relating to the article, please send an email, providing a detailed description of the concern or complaint, to info-contact@alibabacloud.com. A staff member will contact you within 5 working days. Once verified, infringing content will be removed immediately.

A Free Trial That Lets You Build Big!

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

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

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

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More