, 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>