[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 = "glzy8.com"

　　If Not iswww(domain) Then

　　response.write "<script>alert('您输入的网址无效，请重新输入！')</script>"

　　domain = "glzy8.com"

　　End if

　　host = "glzy8.com"

　　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

　　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)&"|"

　　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="Keywords" content="管理资源吧Alexa排名查询,Alexa作弊,Alexa排名,Alexa查询,Alexa信息,排名,流量,访问量,页面浏览量,搜索引擎,<%=SiteTitle%>的Alexa排名信息,<%=domain%>">

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

　　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>

　　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>

　　</ul>

　　</div>

　　</DIV>

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

　　</form>

　　</div>

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

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

　　</div>

　　<TR>

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

　　</TR>

　　<TR>

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

　　</TR>

　　<TR>

　　</TR>

　　<TR>

　　</TR>

　　<TR>

　　<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 title="<%=xPhone%>" noWrap><%=fget(xPhone)%></TD>

　　</TR>

　　<TR>

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

　　</TR>

　　<TR>

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

　　</TR>

　　<TR>

　　<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></font></a>

　　</div>

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

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

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

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

　　</div>

　　</div>

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

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

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

　　</div>

　　</div>

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

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

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

　　</div>

　　</div>

　　<div class="th"> <%=SiteTitle%> 其它相关Alexa排名的信息统计</div>

　　<div class="x bg2"> <%=SiteTitle%> 下属站点被访问比例</div>

　　</div>

　　</div>

　　<div class="th">网站日平均排名走势图 [点击时间段查看相应时段曲线]</div>

　　<div class="title" style="width:150px"><a style="CURSOR: hand" onClick="document.all.rank1.style.display='';document.all.rank2.style.display='none';document.all.rank3.style.display='none';document.all.rank4.style.display='none';document.all.rank5.style.display='none';">六个月数据</a></div>

　　<div class="title" style="width:152px"><a style="CURSOR: hand" onClick="document.all.rank1.style.display='none';document.all.rank2.style.display='';document.all.rank3.style.display='none';document.all.rank4.style.display='none';document.all.rank5.style.display='none';">三个月数据</a></div>

　　<div class="title" style="width:152px"><a style="CURSOR: hand" onClick="document.all.rank1.style.display='none';document.all.rank2.style.display='none';document.all.rank3.style.display='';document.all.rank4.style.display='none';document.all.rank5.style.display='none';">一个月数据</a></div>

　　<div class="title" style="width:152px"><a style="CURSOR: hand" onClick="document.all.rank1.style.display='none';document.all.rank2.style.display='none';document.all.rank3.style.display='none';document.all.rank4.style.display='';document.all.rank5.style.display='none';">半个月数据</a></div>

　　<div class="title2" style="width:150px"><a style="CURSOR: hand" onClick="document.all.rank1.style.display='none';document.all.rank2.style.display='none';document.all.rank3.style.display='none';document.all.rank4.style.display='none';document.all.rank5.style.display='';">一星期数据</a></div>

　　</div>

　　</div>

　　<div class="th">日平均访问人数走势图 [点击时间段查看相应时段曲线]</div>

　　<div class="title" style="width:150px"><a style="cursor: hand" onClick="document.all.reachs1.style.display='';document.all.reachs2.style.display='none';document.all.reachs3.style.display='none';document.all.reachs4.style.display='none';document.all.reachs5.style.display='none';">六个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.reachs1.style.display='none';document.all.reachs2.style.display='';document.all.reachs3.style.display='none';document.all.reachs4.style.display='none';document.all.reachs5.style.display='none';">三个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.reachs1.style.display='none';document.all.reachs2.style.display='none';document.all.reachs3.style.display='';document.all.reachs4.style.display='none';document.all.reachs5.style.display='none';">一个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.reachs1.style.display='none';document.all.reachs2.style.display='none';document.all.reachs3.style.display='none';document.all.reachs4.style.display='';document.all.reachs5.style.display='none';">半个月数据</a></div>

　　<div class="title2" style="width:150px"><a style="cursor: hand" onClick="document.all.reachs1.style.display='none';document.all.reachs2.style.display='none';document.all.reachs3.style.display='none';document.all.reachs4.style.display='none';document.all.reachs5.style.display='';">一星期数据</a></div>

　　</div>

　　</div>

　　<div class="th">日页面浏览量走势图 [点击时间段查看相应时段曲线]</div>

　　<div class="title" style="width:150px"><a style="cursor: hand" onClick="document.all.pageviews1.style.display='';document.all.pageviews2.style.display='none';document.all.pageviews3.style.display='none';document.all.pageviews4.style.display='none';document.all.pageviews5.style.display='none';">六个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.pageviews1.style.display='none';document.all.pageviews2.style.display='';document.all.pageviews3.style.display='none';document.all.pageviews4.style.display='none';document.all.pageviews5.style.display='none';">三个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.pageviews1.style.display='none';document.all.pageviews2.style.display='none';document.all.pageviews3.style.display='';document.all.pageviews4.style.display='none';document.all.pageviews5.style.display='none';">一个月数据</a></div>

　　<div class="title" style="width:152px"><a style="cursor: hand" onClick="document.all.pageviews1.style.display='none';document.all.pageviews2.style.display='none';document.all.pageviews3.style.display='none';document.all.pageviews4.style.display='';document.all.pageviews5.style.display='none';">半个月数据</a></div>

　　<div class="title2" style="width:150px"><a style="cursor: hand" onClick="document.all.pageviews1.style.display='none';document.all.pageviews2.style.display='none';document.all.pageviews3.style.display='none';document.all.pageviews4.style.display='none';document.all.pageviews5.style.display='';">一星期数据</a></div>

　　</div>

　　</div>

　　<%timer2 = timer

　　thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)

　　response.write "本页执行共用了"&thetime&"毫秒"

　　<br>

　　</div>

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

　　</body>

　　</html>

教程首页更多教程