我想这个系统现在在网上或源码站几乎是没有可用的程序。 提供下载的都是以前的老版本，ALEXA官方在他们的页面做了混淆代码防采集后，那些以前的ALEXA排名查询系统都已经无法再使用了。 网上除了一些知名（有钱的主）能提供（通过收费接口）的排名查询和我看到的webmasterhome.cn免费接口的查询功能系统外，个人站长基本没几个再能提供ALEXA排名查询服务。

       开源发布的这个版本经过我一段时间的使用和完善，已经做到无错，速度相对也比较快。为了这个系统，也曾有黑客威胁过自己，并招来两天猛烈的DDOS攻击。

<%

Dim domain,Url,Url1,strPage,StrPage1
Dim xmldom,SD,SITE,dimg
domain = request.QueryString(“url”)
if domain = “” then domain = “jb51.net”
If Not iswww(domain) Then
response.write “alert(‘您输入的网址无效，请重新输入！’)”
domain = “jb51.net”
End if
host = “jb51.net”
if left(domain,7)=”http://” then
    domain=right(domain,len(domain)-7)
end if
if instr(domain,”/”)0 then
    domain=left(domain,instr(domain,”/”)-1)
end if
on error resume Next
Function iswww(strng)
    iswww = false
    Dim regEx, Match
    Set regEx = New RegExp
    regEx.Pattern = “^\w+((-\w+)|(\.\w+))*[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z]+$” 
    regEx.IgnoreCase = True
    Set Match = regEx.Execute(strng)
    if match.count then iswww= true
End Function

Function GetPage(Path)
        t = GetBody(Path)
        GetPage=BytesToBstr(t,”UTF-8″)
End function

Function GetPage2(Path)
        t = GetBody(Path)
        GetPage2=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 fget(str)
select case trim(str)
    case “”
    fget = “–”
    case else
    fget = str
end select
end function
Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject(“adodb.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 FixStr(ByVal str, ByVal start, ByVal last, ByVal n)
Dim strTemp
On Error Resume Next
If InStr(str, start) > 0 Then
Select Case n
Case 0
strTemp = Right(str, Len(str) – InStr(str, start) – Len(start) + 1)
strTemp = Left(strTemp, InStr(strTemp, last) – 1)
Case Else
strTemp = Right(str, Len(str) – InStr(str, start) + 1)
strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) – 1)
End Select
Else
strTemp = “”
End If
FixStr = strTemp
End Function
Function Comma(str) 
If Not(IsNumeric(str)) Or str = 0 Then 
Result = 0 
ElseIf Len(Fix(str)) < 4 Then 
Result = str 
Else 
Pos = Instr(1,str,”.”) 
If Pos > 0 Then 
Dec = Mid(str,Pos) 
End if 
Res = StrReverse(Fix(str)) 
LoopCount = 1 
While LoopCount <= Len(Res) 

TempResult = TempResult + Mid(Res,LoopCount,3) 
LoopCount = LoopCount + 3 
If LoopCount <= Len(Res) Then 
TempResult = TempResult + “,” 
End If 
Wend 
Result = StrReverse(TempResult) + Dec 
End If 
Comma = Result 
End Function 

Function lens(txt, length)
        Dim x, y, ii
        txt = Trim(txt)
        x = Len(txt)
        y = 0
        If x >= 1 Then
            For ii = 1 To x
                If Asc(Mid(txt, ii, 1))  255 Then
                    y = y + 2
                Else
                    y = y + 1
                End If
                If y >= length Then
                    txt = Left(Trim(txt), ii-3) & “…”
                    Exit For
                End If
            Next
            lens = txt
        Else
            lens = “”
        End If
End Function


Url = “http://data.alexa.com/data/?cli=10&dat=snba&ver=7.0&url=”&Domain
strPage = GetPage(Url)
set xmldom=server.createobject(“MSXML2.DOMDocument”)   
xmldom.loadXML(strPage)
Set SD = xmldom.documentElement.selectSingleNode(“SD”)
Set SITE = xmldom.documentElement.selectSingleNode(“DMOZ”)
Dim ADDR
Dim CREATED
Dim PHONE
Dim OWNER
Dim EMAIL
Dim LANG
Dim LINKSIN
Dim SPEED
Dim POPULARITY
Dim RANK
Dim CHILD
Dim REACH
Set ADDR = SD.selectSingleNode(“ADDR”)
Set CREATED = SD.selectSingleNode(“CREATED”)
Set PHONE = SD.selectSingleNode(“PHONE”)
Set OWNER = SD.selectSingleNode(“OWNER”)
Set EMAIL = SD.selectSingleNode(“EMAIL”)
Set LANG = SD.selectSingleNode(“LANG”)
Set LINKSIN = SD.selectSingleNode(“LINKSIN”)
Set SPEED = SD.selectSingleNode(“SPEED”)
Set POPULARITY = SD.selectSingleNode(“POPULARITY”)
Set RANK = SD.selectSingleNode(“RANK”)
Set CHILD = SD.selectSingleNode(“CHILD”)
Set REACH = SD.selectSingleNode(“REACH”)

Dim SITEINFO
Dim CATS
Dim SiteTitle
Dim    SiteDesc
Dim Cat
Set SITEINFO = SITE.selectSingleNode(“SITE”)
Set CATS = SITEINFO.selectSingleNode(“CATS”).selectSingleNode(“CAT”)
SiteTitle = SITEINFO.attributes(1).value
SiteDesc = SITEINFO.attributes(2).value
Cat = CATS.attributes(1).value

Dim COUNTRY
Dim ZIP
Dim STATE
Dim CITY
Dim STREET
STREET = ADDR.attributes(0).value
CITY = ADDR.attributes(1).value
ZIP = ADDR.attributes(2).value
STATE = ADDR.attributes(3).value
COUNTRY = ADDR.attributes(4).value

Dim    xDate
Dim    xPhone
Dim    xOwner
Dim    xEmail
Dim    xLex
Dim    xCode
Dim    xLinksin
Dim    xSpeed
Dim    xPct
Dim    xPopularity
Dim    xRank
Dim    xChild
Dim    xReach        
xDate = CREATED.attributes(0).value
xPhone = PHONE.attributes(0).value
xOwner = OWNER.attributes(0).value
xEmail     = EMAIL.attributes(0).value
xLex     = LANG.attributes(0).value
xCode = LANG.attributes(1).value
xLinksin = LINKSIN.attributes(0).value
xSpeed     = SPEED.attributes(0).value
xPct     = SPEED.attributes(1).value
xPopularity = POPULARITY.attributes(1).value
xPopularity = Comma(xPopularity)
xRank = RANK.attributes(0).value
if instr(xRank,”-“)>0 then
dimg = “”
else
dimg = “”
end if
xRank = replace(xRank,”+”,””)
xRank = replace(xRank,”-“,””)
xRank = Comma(xRank)

xChild = CHILD.attributes(0).value
xReach = REACH.attributes(0).value        

Public Function RemoveHtml(byval strContent)
    Dim objReg ,strTmp
    If strContent=”” OR ISNull(strContent) Then Exit Function

    Set objReg=new RegExp
    objReg.IgnoreCase =True
    objReg.Global=True
    objReg.Pattern=”]*)>”
    strTmp=objReg.Replace(strContent, “”)
    Set objReg=Nothing
    RemoveHtml=strTmp
    strTmp=””
End Function

Dim SitePic
Dim pm6,pm3,pm1,pday15,pday7
Dim tmp1
Dim t_arr
Dim t_day,t_wk1,t_m3,t_m3_change

pm6 = “http://traffic.alexa.com/graph?w=700&h=280&r=6m&y=t&u=”&Domain
pm3 = “http://traffic.alexa.com/graph?w=700&h=280&r=3m&y=t&u=”&Domain
pm1 = “http://traffic.alexa.com/graph?w=700&h=280&r=1m&y=t&u=”&Domain
pday15 = “http://traffic.alexa.com/graph?w=700&h=280&r=15.0m&y=t&u=”&Domain
pday7 = “http://traffic.alexa.com/graph?w=700&h=280&r=7.0m&y=t&u=”&Domain

set tnames = request.cookies(“dnames”)
if isnull(tnames) or len(trim(tnames))=0 then
    tnames = domain&”|”
else
    if instr(tnames,domain)>0 then
        names = replace(tnames,domain&”|”,””)
    else
        tnames = domain&”|”&tnames
    end if
end If

ttnames = split(tnames,”|”)
tmpncontent = “”

if ubound(ttnames)>5 then
    for tat=0 to 4
        tmpncontent = tmpncontent&ttnames(tat)&”|”
    next
else
    tmpncontent=tnames
end If

response.cookies(“dnames”) = trim(tmpncontent)
response.cookies(“dnames”).expires = now()+1

%>



脚本之家alexa查询系统,alexa排名查询,alexa网站排名查询,全球alexa排名查询,alexa世界排名查询,alexa排名,alexa工具条,alexa traffic rank,，的Alexa排名查询


<meta http-equiv="Keywords" content="脚本之家Alexa排名查询,Alexa作弊,Alexa排名,Alexa查询,Alexa信息,排名,流量,访问量,页面浏览量,搜索引擎,的Alexa排名信息,”>




最近查询记录

        <%
            Set fso = CreateObject(“Scripting.FileSystemObject”)
          Set f = fso.OpenTextFile( server.MapPath(“cache.asp”), 1, True)
          if f.AtEndOfStream=false then
              content = f.readline()
          end if
          f.close
          if fso.fileexists(server.MapPath(“cache.asp”))=true then
              fso.deletefile(server.MapPath(“cache.asp”))
          end if
          Set f = fso.OpenTextFile( server.MapPath(“cache.asp”), 8, True)
          if isnull(content) or len(trim(content))=0 then
              content = domain&”|”
          else
              if instr(content,domain)>0 then
                  set content = replace(content,domain&”|”,””)
              else
                  content = domain&”|”&content
              end if
          end if
          names = split(content,”|”)
          tmpcontent = “”
          for tt=0 to ubound(names)-1
          if tt<15 then
              tmpcontent = tmpcontent&names(tt)&”|”
          end if
          %>
          

  • <a href="Index.asp?url=” title=”www.”>


    •       <%
            next
            f.write(trim(tmpcontent))
            f.close
            set f = nothing
        %>    



您关注的站点


    <%
            for ttt=0 to ubound(ttnames)-1
            %>
            

  • <a href="index.asp?url=” title=”www.”>


    •         <%
            next
    %>





  
    Alexa排名查询的网址：http://
    <input name="url" type="text" style="width:300px" value="”>
     
  

网站  的Alexa排名综合信息

  
    

    
    <a href="http://thumbnails.alexa.com/update_thumbnail?url=” target=”_blank”>更新缩略图 | <a href="http://www.alexa.com/data/details/contact_info?url=” target=”_blank”>修改信息 | <a href="http://www.alexa.com/data/details/editor?type=rl&url=” target=”_blank”>提交链接
    
  
  
    
      


        
          
          <TD width="178" title="”><a href="http://” target=_blank>
          
          <TD width="163" title="”>
        
        
          
          <TD title="”><A title="查看Alexa官方信息" href="http://www.alexa.com/data/details/traffic_details?q=&url=” target=”_blank”>
          
          
        
        
          
          <TD title="”>
          
          <TD title="”>
        
        
          
          <TD title="”>
          
          <TD title="”>
        
        
          
          <TD nowrap title="Ms/分”>Ms/分
          
          <TD nowrap title="”><A href="http://www.alexa.com/data/ds/linksin?q=link:/&url=” target=”_blank”> 个
        
        
          
          <TD nowrap title="”>
          
          <TD title="” noWrap>
        
        
          
          <TD title=" ” colSpan=”3″>
        
        
          
          <TD title="” colSpan=”3″>
        
        
          
          <TD title="” colSpan=”3″>
        
      
站点名称: 网站域名:
综合排名: 排名变化:
所属国家: 编码方式:
网站站长: 电子信箱:
访问速度: 反向链接:
收录日期: 联系电话:
详细地址:
网站简介:
所属目录:

站长推荐:<!–
google_ad_client = “pub-6261914751398528”;
google_ad_output = “textlink”;
google_ad_format = “ref_text”;
google_cpa_choice = “CAAQyam1_wEaCDco8PXFlDjWKJ2R4YcBMAA”;
google_ad_channel = “4401526228”;
//–>



    
  

站点  的 Alexa 排名查询结果

  流量排名数据信息：Traffic Rank for 
  
    昨日排名
    一周平均
    三月平均
    三月变化趋势
    综合排名变化
  
  
    
    
    
    
    
  


  每百万人中访问数：Reach for 
  
    昨日数据
    一周平均
    三月平均
    三月变化趋势
    综合排名变化
  
  
    
    
    
    
    
  

  每访问者浏览页数：Page Views per user for 
  
    昨日数据
    一周平均
    三月平均
    三月变化趋势
    综合排名变化
  
  
    
    
    
    
    
  

  其它相关Alexa排名的信息统计

    下属站点被访问比例
  
    子域名
    访问比例
  
  

网站日平均排名走势图 [点击时间段查看相应时段曲线]

  六个月数据
  三个月数据
  一个月数据
  半个月数据
  一星期数据


  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=6m&y=t&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=t&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=t&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=t&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0&y=t&u=” />

日平均访问人数走势图 [点击时间段查看相应时段曲线]

  六个月数据
  三个月数据
  一个月数据
  半个月数据
  一星期数据


  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=6m&y=r&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=r&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=r&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=r&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0m&y=r&u=” />

日页面浏览量走势图 [点击时间段查看相应时段曲线]

  六个月数据
  三个月数据
  一个月数据
  半个月数据
  一星期数据


  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=6m&y=p&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=p&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=p&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=p&u=” />
  <img class="aligncenter" src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0m&y=p&u=” />


  
  <%timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write “本页执行共用了”&thetime&”毫秒”
%>
  

  Copyright©2006 jb51.Net All Rights Reserved 版权所有·脚本之家
  

<script language="javascript" type="text/javascript" src="ajaxloading.asp?url=&dayrank=”>