[asp]阿里西西的alexa采集效果代码

我想这个系统现在在网上或源码站几乎是没有可用的程序。 提供下载的都是以前的老版本，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 "<script>alert('您输入的网址无效，请重新输入！')</script>"

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)) < 0 Or 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 = "<img src=""skin/up_arrow.gif"" align=absmiddle width=18 height=16 />"

else

dimg = "<img src=""skin/down_arrow.gif"" align=absmiddle width=18 height=16 />"

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

%>

<html>

<head>

<title>脚本之家alexa查询系统,alexa排名查询,alexa网站排名查询,全球alexa排名查询,alexa世界排名查询,alexa排名,alexa工具条,alexa traffic rank,<%=SiteTitle%>，<%=domain%>的Alexa排名查询</title>

<META http-equiv="Content-Type" content="text/html; charset=gb2312">

<META http-equiv="Content-Language" content="gb2312">

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

<meta name="description" content="www.alixixi.com,脚本之家alexa查询,alexa排名,alexa排名查询,alexa世界排名查询,alexa 网站排名查询,alexa网站排名,全球alexa排名查询,alexa排名查询,网站alexa排名查询,alexa工具条,alexa中文排名查询,alexa traffic rank,alexa查询,alexa排名" />

<link href="skin/style.css" rel="stylesheet" type="text/css" />

<script language=JavaScript src="js/scroll.js"></script>

</head>

<body>

<DIV id=lovexin1 class="body" style='Z-INDEX: 10; LEFT: 6px; POSITION: absolute; TOP: 117px; width: 108;'><div style="background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;" onClick='javascript:window.hide()'>最近查询记录</div>

<div><ul>    <%

        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

      %>

      <li><a href="Index.asp?url=<%=names(tt)%>" title="www.<%=names(tt)%>"><%=names(tt)%></a></li>

      <%

        next

        f.write(trim(tmpcontent))

        f.close

        set f = nothing

    %>    

</ul></DIV>

</DIV>

<DIV id=lovexin2 class="body" style='Z-INDEX: 10; LEFT: 888px; POSITION: absolute; TOP: 117px; width: 108;'><div style="background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;" onClick='javascript:window.hide()'>您关注的站点</div>

<div>

<ul>

<%

        for ttt=0 to ubound(ttnames)-1

        %>

        <li><a href="index.asp?url=<%=ttnames(ttt)%>" title="www.<%=ttnames(ttt)%>"><%=ttnames(ttt)%></a></li>

        <%

        next

%>

</ul>

</div>

</DIV>

<div class="body" style="padding:5px;margin-top:8px;background-color:#E8F5FE;">

  <form action="" method="get" style="padding:0;margin:0;">

    Alexa排名查询的网址：http://

    <input name="url" type="text" style="width:300px" value="<%=domain%>">

    <input type="submit" value="查 询"> 

  </form>

</div>

<div class="th">网站 <%=domain%> 的Alexa排名综合信息</div>

<div class="body" style="padding-top:10px;height:190px;">

  <div style="float:left;width:230;text-align:center;">

    <!--GOOGLE ADS-->

<div style="margin-top:8px;">

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

    <!--GOOGLE ADS-->

  </div>

  <div style="float:right;width:520;text-align:left;">

    <div id="siteinfo">

      <table width="100%" cellpadding="1" cellspacing="1">

        <TR>

          <TD width="85" align="right" noWrap bgColor="#f3f8fc">站点名称:</TD>

          <TD width="178" title="<%=SiteTitle%>"><a href="http://<%=domain%>" target=_blank><%=SiteTitle%></a></TD>

          <TD width="79" align="right" nowrap bgColor="#f3f8fc">网站域名:</TD>

          <TD width="163" title="<%=domain%>"><strong><%=domain%></strong></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc" title="alexa综合排名">综合排名:</TD>

          <TD title="<%=xPopularity%>"><A title="查看Alexa官方信息" href="http://www.alexa.com/data/details/traffic_details?q=&url=<%=domain%>" target="_blank"><%=fget(xPopularity)%></A></TD>

          <TD align="right" nowrap bgColor="#f3f8fc" title="三个月的排名变化趋势">排名变化:</TD>

          <TD id="NextRank" title="三个月的排名变化趋势"><%=dimg&fget(xRank)%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">所属国家:</TD>

          <TD title="<%=COUNTRY%>"><%=fget(COUNTRY)%></TD>

          <TD align="right" nowrap bgColor="#f3f8fc">编码方式:</TD>

          <TD title="<%=xCode%>"><%=fget(xCode)%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">网站站长:</TD>

          <TD title="<%=xOwner%>"><%=fget(xOwner)%></TD>

          <TD align="right" nowrap bgColor="#f3f8fc">电子信箱:</TD>

          <TD title="<%=xEmail%>"><%=fget(xEmail)%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">访问速度:</TD>

          <TD nowrap title="<%=xSpeed%>Ms/<%=xPct%>分"><%=fget(xSpeed)%>Ms/<%=fget(xPct)%>分</TD>

          <TD align="right" nowrap bgColor="#f3f8fc">反向链接:</TD>

          <TD nowrap title="<%=xLinksin%>"><A href="http://www.alexa.com/data/ds/linksin?q=link:<%=domain%>/&url=<%=domain%>" target="_blank"><%=fget(xLinksin)%></A> 个</TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">收录日期:</TD>

          <TD nowrap title="<%=xDate%>"><%=fget(xDate)%></TD>

          <TD align="right" nowrap bgColor="#f3f8fc">联系电话:</TD>

          <TD title="<%=xPhone%>" noWrap><%=fget(xPhone)%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">详细地址:</TD>

          <TD title="<%=STREET%> <%=CITY%>" colSpan="3"><%=fget(lens(STREET&CITY,65))%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">网站简介:</TD>

          <TD title="<%=SiteDesc%>" colSpan="3"><%=fget(lens(SiteDesc,69))%></TD>

        </TR>

        <TR>

          <TD align="right" nowrap bgColor="#f3f8fc">所属目录:</TD>

          <TD title="<%=Cat%>" colSpan="3"><%=fget(Cat)%></TD>

        </TR>

      </table><font color=red>站长推荐:<script type="text/javascript"><!--

google_ad_client = "pub-6261914751398528";

google_ad_output = "textlink";

google_ad_format = "ref_text";

google_cpa_choice = "CAAQyam1_wEaCDco8PXFlDjWKJ2R4YcBMAA";

google_ad_channel = "4401526228";

//-->

</script>

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script></font></a>

    </div>

  </div>

</div>

<div class="th">站点 <%=SiteTitle%> 的 Alexa 排名查询结果</div>

<div class="body1">

  <div class="x bg2">流量排名数据信息：Traffic Rank for <%=domain%></div>

  <div class="mainbar">

    <div class="title" style="width:150px">昨日排名</div>

    <div class="title" style="width:152px">一周平均</div>

    <div class="title" style="width:152px">三月平均</div>

    <div class="title" style="width:152px">三月变化趋势</div>

    <div class="title2" style="width:152px">综合排名变化</div>

  </div>

  <div class="mainbar2">

    <div id="RankToday" class="title" style="width:150px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="RankwkAvg" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="RankmosAvg" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="AllRank" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="RankmosChange" class="title2" style="width:150px"><%=dimg&fget(xRank)%></div>

  </div>

<div class="x bg2">每百万人中访问数：Reach for <%=domain%></div>

  <div class="mainbar">

    <div class="title" style="width:150px">昨日数据</div>

    <div class="title" style="width:152px">一周平均</div>

    <div class="title" style="width:152px">三月平均</div>

    <div class="title" style="width:152px">三月变化趋势</div>

    <div class="title2" style="width:152px">综合排名变化</div>

  </div>

  <div class="mainbar2">

    <div id="ReachToday" class="title" style="width:150px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="ReachwkAvg" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="ReachmosAvg" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="ReachmosChange" class="title" style="width:152px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

    <div id="ReachAllChange" class="title2" style="width:150px"><img src="skin/loading.gif" width="16" height="16" border="0"></div>

  </div>

<div class="x bg2">每访问者浏览页数：Page Views per user for <%=domain%></div>

  <div class="mainbar">

    <div class="title" style="width:150px">昨日数据</div>

    <div class="title" style="width:152px">一周平均</div>

    <div class="title" style="width:152px">三月平均</div>

    <div class="title" style="width:152px">三月变化趋势</div>

    <div class="title2" style="width:152px">综合排名变化</div>

  </div>

时间： 2024-07-31 04:57:06

[asp]阿里西西的alexa采集效果代码的相关文章

[asp]阿里西西的alexa采集效果代码_小偷/采集

我想这个系统现在在网上或源码站几乎是没有可用的程序. 提供下载的都是以前的老版本,ALEXA官方在他们的页面做了混淆代码防采集后,那些以前的ALEXA排名查询系统都已经无法再使用了. 网上除了一些知名(有钱的主)能提供(通过收费接口)的排名查询和我看到的webmasterhome.cn免费接口的查询功能系统外,个人站长基本没几个再能提供ALEXA排名查询服务.        开源发布的这个版本经过我一段时间的使用和完善,已经做到无错,速度相对也比较快.为了这个系统,也曾有黑客威胁过自己,并招来两

阿里西西原创-asp封装dll教程

阿里西西|教程|原创|asp封装 阿里西西原创视频教程下载地址:http://www.alixixi.com/Down/eBook/vb/2007/2007122192320.html 由本人第一次尝试制作的录像视频教程,由于电脑速度较慢,播放时间较慢,请谅解. 本录像讲解最基础的VB封装ASP代码生成DLL的制作教程,适合初级学习者参考.也是本人学习VB制作ASP组件的第一个尝试,录像基本成功. 用vb编写asp组件(dll)示例 下面,将演示如何使用vb制作asp的dll组件... 1. 启

asp下实现 重新排序数字数组的代码_应用技巧

<% '****************************** '函数:NewOrder(ArrStr) '参数:Rstr,以逗号做分隔的数字数组 '作者:阿里西西 '日期:2007/7/13 '描述:重排序数字数组 '示例:<%=NewOrder("34,53,13,22,38,86,111,23,65")%> '****************************** Function NewOrder(ArrStr) For i = 0 To Ubou

asp 下产生任意位数随机密码的代码_应用技巧

<% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

alexa查询代码

alexa查询代码 <% If request("d")="" Then Response.Redirect "myalexa.asp?d=111cn.net" End If on error resume next '远程截取函数开始 Server.ScriptTimeOut=9999999 Function getHTTPPage(Path)         t = GetBody(Path)         getHTTPPage=B

asp 下产生任意位数随机密码的代码

<% '****************************** '函数:MakePassword(byval maxlen) '参数:maxlen,要生成的密码位数长度 '作者:阿里西西 '日期:2007/7/12 '描述:产生任意位数随机密码 '示例:<%=MakePassword(8)%>  '****************************** function MakePassword(byval maxlen)  dim strnewpass  dim whats

ASP.NET：了解WEB窗体的代码模型

asp.net|web 一个ASP.NET页面由两部分组成:一是使用静态文本和服务器控件的用户界面定义,二是用户界面行为和服务器端代码形式的Web应用程序逻辑的实现. ASP．NET提供了全新的代码模型,使得网页开发者和开发工具能够更清晰.更容易地把代码与表示分开.对比ASP来说,这个特征是一个重要的改进,ASP需要代码遍布在整个页面的静态内容之中.ASP.NET代码模型使得开发和设计团队中的分工更加容易,并增加了代码和内容的可读性和可维护性. 这个全新的代码模型通常使用两种形式之一.第一种形式

asp实现无限级目录数的关键代码部分

asp实现无限目录数的关键代码部分 <% set conn=server.createobject("ADODB.CONNECTION") connstr="DBQ="+server.mappath("db1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" conn.open connstr function menu(id) set rs=s

asp内置函数formatdatetime使用示例代码

asp内置函数formatdatetime使用示例代码 formatdatetime(now(),0) '则返回2004-10-18 11:45:53   formatdatetime(now(),1) '则返回2004年10月18日   formatdatetime(now(),2) '则返回2004-10-18   formatdatetime(now(),3) '则返回11:47:12   formatdatetime(now(),4) '则返回11:47   weekDayName(we