[asp]阿里西西的alexa采集效果代码
2018-09-05 23:39
  我想这个系统现在在网上或源码站几乎是没有可用的程序。提供下载的都是以前的老版本,ALEXA官方在他们的页面做了混淆代码防采集后,那些以前的ALEXA排名查询系统都已经无法再使用了。网上除了一些知名(有钱的主)能提供(通过收费接口)的排名查询和我看到的费接口的查询功能系统外,个人站长基本没几个再能提供ALEXA排名查询服务。 
开源发布的这个版本经过我一段时间的使用和完善,已经做到无错,速度相对也比较快。为了这个系统,也曾有黑客威胁过自己,并招来两天猛烈的DDOS攻击。 
<% 
Dimdomain,Url,Url1,strPage,StrPage1 
Dimxmldom,SD,SITE,dimg 
domain=request.QueryString(url) 
IfNotis
response.write<script>alert(您输入的网址无效,请重新输入!)</script> 
domain=jb51.net 
Endif 
host=jb51.net 
ifleft(domain,7)=
domain=right(domain,len(domain)-7) 
endif 
ifinstr(domain,/)<>0then 
domain=left(domain,instr(domain,/)-1) 
endif 
onerrorresumeNext 
Functioniswww(strng) 
iswww=false 
DimregEx,Match 
SetregEx=NewRegExp 
regEx.Pattern=^\w+((-\w+)(\.\w+))*[A-Za-z0-9]+((\.-)[A-Za-z0-9]+)*\.[A-Za-z]+$ 
regEx.IgnoreCase=True 
SetMatch=regEx.Execute(strng) 
EndFunction 
FunctionGetPage(Path) 
t=GetBody(Path) 
GetPage=BytesToBstr(t,UTF-8) 
Endfunction 
FunctionGetPage2(Path) 
t=GetBody(Path) 
GetPage2=BytesToBstr(t,GB2312) 
Endfunction 
FunctionGetBody(url) 
onerrorresumenext 
SetRetrieval=CreateObject(Microsoft.XMLHTTP) 
WithRetrieval 
.OpenGet,url,False,, 
.Send 
GetBody=.ResponseBody 
EndWith 
SetRetrieval=Nothing 
EndFunction 
functionfget(str) 
selectcasetrim(str) 
case 
fget=-- 
caseelse 
fget=str 
endselect 
endfunction 
FunctionBytesToBstr(body,Cset) 
dimobjstream 
setobjstream=Server.CreateObject(adodb.stream) 
objstream.Type=1 
objstream.Mode=3 
objstream.Open 
objstream.Writebody 
objstream.Position=0 
objstream.Type=2 
objstream.Charset=Cset 
BytesToBstr=objstream.ReadText 
objstream.Close 
setobjstream=nothing 
EndFunction 
FunctionFixStr(ByValstr,ByValstart,ByVallast,ByValn) 
DimstrTemp 
OnErrorResumeNext 
IfInStr(str,start)>0Then 
SelectCasen 
Case0 
strTemp=Right(str,Len(str)-InStr(str,start)-Len(start)+1) 
strTemp=Left(strTemp,InStr(strTemp,last)-1) 
CaseElse 
strTemp=Right(str,Len(str)-InStr(str,start)+1) 
strTemp=Left(strTemp,InStr(strTemp,last)+Len(last)-1) 
EndSelect 
Else 
strTemp= 
EndIf 
FixStr=strTemp 
EndFunction 
FunctionComma(str) 
IfNot(IsNumeric(str))Orstr=0Then 
Result=0 
ElseIfLen(Fix(str))<4Then 
Result=str 
Else 
Pos=Instr(1,str,.) 
IfPos>0Then 
Dec=Mid(str,Pos) 
Endif 
Res=StrReverse(Fix(str)) 
LoopCount=1 
WhileLoopCount<=Len(Res) 
TempResult=TempResult+Mid(Res,LoopCount,3) 
LoopCount=LoopCount+3 
IfLoopCount<=Len(Res)Then 
TempResult=TempResult+, 
EndIf 
Wend 
Result=StrReverse(TempResult)+Dec 
EndIf 
Comma=Result 
EndFunction 
Functionlens(txt,length) 
Dimx,y,ii 
txt=Trim(txt) 
x=Len(txt) 
y=0 
Ifx>=1Then 
Forii=1Tox 
IfAsc(Mid(txt,ii,1))<0OrAsc(Mid(txt,ii,1))>255Then 
y=y+2 
Else 
y=y+1 
EndIf 
Ify>=lengthThen 
txt=Left(Trim(txt),ii-3)&... 
ExitFor 
EndIf 
Next 
lens=txt 
Else 
lens= 
EndIf 
EndFunction 
Url=
strPage=GetPage(Url) 
setxmldom=server.createobject(MSXML2.DOMDocument) 
xmldom.loadXML(strPage) 
SetSD=xmldom.documentElement.selectSingleNode(SD) 
SetSITE=xmldom.documentElement.selectSingleNode(DMOZ) 
DimADDR 
DimCREATED 
DimPHONE 
DimOWNER 
DimEMAIL 
DimLANG 
DimLINKSIN 
DimSPEED 
DimPOPULARITY 
DimRANK 
DimCHILD 
DimREACH 
SetADDR=SD.selectSingleNode(ADDR) 
SetCREATED=SD.selectSingleNode(CREATED) 
SetPHONE=SD.selectSingleNode(PHONE) 
SetOWNER=SD.selectSingleNode(OWNER) 
SetEMAIL=SD.selectSingleNode(EMAIL) 
SetLANG=SD.selectSingleNode(LANG) 
SetLINKSIN=SD.selectSingleNode(LINKSIN) 
SetSPEED=SD.selectSingleNode(SPEED) 
SetPOPULARITY=SD.selectSingleNode(POPULARITY) 
SetRANK=SD.selectSingleNode(RANK) 
SetCHILD=SD.selectSingleNode(CHILD) 
SetREACH=SD.selectSingleNode(REACH) 
DimSITEINFO 
DimCATS 
DimSiteTitle 
DimSiteDesc 
DimCat 
SetSITEINFO=SITE.selectSingleNode(SITE) 
SetCATS=SITEINFO.selectSingleNode(CATS).selectSingleNode(CAT) 
SiteTitle=SITEINFO.attributes(1).value 
SiteDesc=SITEINFO.attributes(2).value 
Cat=CATS.attributes(1).value 
DimCOUNTRY 
DimZIP 
DimSTATE 
DimCITY 
DimSTREET 
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 
DimxDate 
DimxPhone 
DimxOwner 
DimxEmail 
DimxLex 
DimxCode 
DimxLinksin 
DimxSpeed 
DimxPct 
DimxPopularity 
DimxRank 
DimxChild 
DimxReach 
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 
ifinstr(xRank,-)>0then 
dimg=<imgsrc=skin/up_arrow.gifalign=absmiddlewidth=18height=16/> 
else 
dimg=<imgsrc=skin/down_arrow.gifalign=absmiddlewidth=18height=16/> 
endif 
xRank=replace(xRank,+,) 
xRank=replace(xRank,-,) 
xRank=Comma(xRank) 
xChild=CHILD.attributes(0).value 
xReach=REACH.attributes(0).value 
PublicFunctionRemoveHtml(byvalstrContent) 
DimobjReg,strTmp 
IfstrContent=ORISNull(strContent)ThenExitFunction 
SetobjReg=newRegExp 
objReg.IgnoreCase=True 
objReg.Global=True 
objReg.Pattern=<(.[^>]*)> 
strTmp=objReg.Replace(strContent,) 
SetobjReg=Nothing 
RemoveHtml=strTmp 
strTmp= 
EndFunction 
DimSitePic 
Dimpm6,pm3,pm1,pday15,pday7 
Dimtmp1 
Dimt_arr 
Dimt_day,t_wk1,t_m3,t_m3_change 
pm6=
pm3=
pm1=
pday15=
pday7=
settnames=request.cookies(dnames) 
ifisnull(tnames)orlen(trim(tnames))=0then 
tnames=domain& 
else 
ifinstr(tnames,domain)>0then 
names=replace(tnames,domain&,) 
else 
tnames=domain&&tnames 
endif 
endIf 
ttnames=split(tnames,) 
tmpncontent= 
ifubound(ttnames)>5then 
fortat=0to4 
tmpncontent=tmpncontent&ttnames(tat)& 
next 
else 
tmpncontent=tnames 
endIf 
response.cookies(dnames)=trim(tmpncontent) 
response.cookies(dnames).expires=now()+1 
%> 
<html> 
<head> 
<title>脚本之家alexa查询系统,alexa排名查询,alexa网站排名查询,全球alexa排名查询,alexa世界排名查询,alexa排名,alexa工具条,alexatrafficrank,<%=SiteTitle%>,<%=domain%>的Alexa排名查询</title> 
<METAhttp-equiv=Content-Typecontent=text/html;charset=gb2312> 
<METAhttp-equiv=Content-Languagecontent=gb2312> 
<metahttp-equiv=Keywordscontent=脚本之家Alexa排名查询,Alexa作弊,Alexa排名,Alexa查询,Alexa信息,排名,流量,访问量,页面浏览量,搜索引擎,<%=SiteTitle%>的Alexa排名信息,<%=domain%>> 
<metaname=descriptioncontent=脚本之家alexa查询,alexa排名,alexa排名查询,alexa世界排名查询,alexa网站排名查询,alexa网站排名,全球alexa排名查询,alexa排名查询,网站alexa排名查询,alexa工具条,alexa中文排名查询,alexatrafficrank,alexa查询,alexa排名/> 
<linkhref=skin/style.cssrel=stylesheettype=text/css/> 
<scriptlanguage=JavaScriptsrc=js/scroll.js></script> 
</head> 
<body> 
<DIVid=lovexin1class=bodystyle=Z-INDEX:10;LEFT:6px;POSITION:absolute;TOP:117px;width:108;><divstyle=background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;onClick=javascript:window.hide()>最近查询记录</div> 
<div><ul><% 
Setfso=CreateObject(Scripting.FileSystemObject) 
Setf=fso.OpenTextFile(server.MapPath(cache.asp),1,True) 
iff.AtEndOfStream=falsethen 
content=f.readline() 
endif 
f.close 
iffso.fileexists(server.MapPath(cache.asp))=truethen 
fso.deletefile(server.MapPath(cache.asp)) 
endif 
Setf=fso.OpenTextFile(server.MapPath(cache.asp),8,True) 
ifisnull(content)orlen(trim(content))=0then 
content=domain& 
else 
ifinstr(content,domain)>0then 
setcontent=replace(content,domain&,) 
else 
content=domain&&content 
endif 
endif 
names=split(content,) 
tmpcontent= 
fortt=0toubound(names)-1 
iftt<15then 
tmpcontent=tmpcontent&names(tt)& 
endif 
%> 
<li><ahref=Index.asp?url=<%=names(tt)%>title=
<% 
next 
f.write(trim(tmpcontent)) 
f.close 
setf=nothing 
%> 
</ul></DIV> 
</DIV> 
<DIVid=lovexin2class=bodystyle=Z-INDEX:10;LEFT:888px;POSITION:absolute;TOP:117px;width:108;><divstyle=background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;onClick=javascript:window.hide()>您关注的站点</div> 
<div> 
<ul> 
<% 
forttt=0toubound(ttnames)-1 
%> 
<li><ahref=index.asp?url=<%=ttnames(ttt)%>title=
<% 
next 
%> 
</ul> 
</div> 
</DIV> 
<divclass=bodystyle=padding:5px;margin-top:8px;background-color:#E8F5FE;> 
<formaction=method=getstyle=padding:0;margin:0;> 
Alexa排名查询的网址:
<inputname=urltype=textstyle=width:300pxvalue=<%=domain%>> 
<inputtype=submitvalue=查询> 
</form> 
</div> 
<divclass=th>网站<%=domain%>的Alexa排名综合信息</div> 
<divclass=bodystyle=padding-top:10px;height:190px;> 
<divstyle=float:left;width:230;text-align:center;> 
<!--GOOGLEADS--> 
<divstyle=margin-top:8px;> 
<ahref=更新缩略图</a><ahref=修改信息</a><ahref=提交链接</a></div> 
<!--GOOGLEADS--> 
</div> 
<divstyle=float:right;width:520;text-align:left;> 
<divid=siteinfo> 
<tablewidth=100%cellpadding=1cellspacing=1> 
<TR> 
<TDwidth=85align=rightnoWrapbgColor=#f3f8fc>站点名称:</TD> 
<TDwidth=178title=<%=SiteTitle%>><ahref=
<TDwidth=79align=rightnowrapbgColor=#f3f8fc>网站域名:</TD> 
<TDwidth=163title=<%=domain%>><strong><%=domain%></strong></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fctitle=alexa综合排名>综合排名:</TD> 
<TDtitle=<%=xPopularity%>><Atitle=查看Alexa官方信息href=
<TDalign=rightnowrapbgColor=#f3f8fctitle=三个月的排名变化趋势>排名变化:</TD> 
<TDid=NextRanktitle=三个月的排名变化趋势><%=dimg&fget(xRank)%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>所属国家:</TD> 
<TDtitle=<%=COUNTRY%>><%=fget(COUNTRY)%></TD> 
<TDalign=rightnowrapbgColor=#f3f8fc>编码方式:</TD> 
<TDtitle=<%=xCode%>><%=fget(xCode)%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>网站站长:</TD> 
<TDtitle=<%=xOwner%>><%=fget(xOwner)%></TD> 
<TDalign=rightnowrapbgColor=#f3f8fc>电子信箱:</TD> 
<TDtitle=<%=xEmail%>><%=fget(xEmail)%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>访问速度:</TD> 
<TDnowraptitle=<%=xSpeed%>Ms/<%=xPct%>分><%=fget(xSpeed)%>Ms/<%=fget(xPct)%>分</TD> 
<TDalign=rightnowrapbgColor=#f3f8fc>反向链接:</TD> 
<TDnowraptitle=<%=xLinksin%>><Ahref=个</TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>收录日期:</TD> 
<TDnowraptitle=<%=xDate%>><%=fget(xDate)%></TD> 
<TDalign=rightnowrapbgColor=#f3f8fc>联系电话:</TD> 
<TDtitle=<%=xPhone%>noWrap><%=fget(xPhone)%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>详细地址:</TD> 
<TDtitle=<%=STREET%><%=CITY%>colSpan=3><%=fget(lens(STREET&CITY,65))%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>网站简介:</TD> 
<TDtitle=<%=SiteDesc%>colSpan=3><%=fget(lens(SiteDesc,69))%></TD> 
</TR> 
<TR> 
<TDalign=rightnowrapbgColor=#f3f8fc>所属目录:</TD> 
<TDtitle=<%=Cat%>colSpan=3><%=fget(Cat)%></TD> 
</TR> 
</table><fontcolor=red>站长推荐:<scripttype=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> 
<scripttype=text/javascriptsrc=
</script></font></a> 
</div> 
</div> 
</div> 
<divclass=th>站点<%=SiteTitle%>的Alexa排名查询结果</div> 
<divclass=body1> 
<divclass=xbg2>流量排名数据信息:TrafficRankfor<%=domain%></div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px>昨日排名</div> 
<divclass=titlestyle=width:152px>一周平均</div> 
<divclass=titlestyle=width:152px>三月平均</div> 
<divclass=titlestyle=width:152px>三月变化趋势</div> 
<divclass=title2style=width:152px>综合排名变化</div> 
</div> 
<divclass=mainbar2> 
<divid=RankTodayclass=titlestyle=width:150px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=RankwkAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=RankmosAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=AllRankclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=RankmosChangeclass=title2style=width:150px><%=dimg&fget(xRank)%></div> 
</div> 
<divclass=xbg2>每百万人中访问数:Reachfor<%=domain%></div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px>昨日数据</div> 
<divclass=titlestyle=width:152px>一周平均</div> 
<divclass=titlestyle=width:152px>三月平均</div> 
<divclass=titlestyle=width:152px>三月变化趋势</div> 
<divclass=title2style=width:152px>综合排名变化</div> 
</div> 
<divclass=mainbar2> 
<divid=ReachTodayclass=titlestyle=width:150px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ReachwkAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ReachmosAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ReachmosChangeclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ReachAllChangeclass=title2style=width:150px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
</div> 
<divclass=xbg2>每访问者浏览页数:PageViewsperuserfor<%=domain%></div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px>昨日数据</div> 
<divclass=titlestyle=width:152px>一周平均</div> 
<divclass=titlestyle=width:152px>三月平均</div> 
<divclass=titlestyle=width:152px>三月变化趋势</div> 
<divclass=title2style=width:152px>综合排名变化</div> 
</div> 
<divclass=mainbar2> 
<divid=ViewsTodayclass=titlestyle=width:150px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ViewswkAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ViewsmosAvgclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ViewsmosChangeclass=titlestyle=width:152px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
<divid=ViewsAllChangeclass=title2style=width:150px><imgsrc=skin/loading.gifwidth=16height=16border=0></div> 
</div> 
</div> 
<divclass=th><%=SiteTitle%>其它相关Alexa排名的信息统计</div> 
<divclass=body1> 
<divclass=xbg2><%=SiteTitle%>下属站点被访问比例</div> 
<divclass=mainbar> 
<divclass=titlestyle=width:374px>子域名</div> 
<divclass=title2style=width:374px>访问比例</div> 
</div> 
<spanid=more><imgsrc=skin/loading.gifwidth=16height=16border=0></span> 
</div> 
<divclass=th>网站日平均排名走势图[点击时间段查看相应时段曲线]</div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px><astyle=CURSOR:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=CURSOR:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=CURSOR:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=CURSOR:handonClick=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> 
<divclass=title2style=width:150px><astyle=CURSOR:handonClick=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> 
<divclass=mainbar2style=padding:100100;height:300px> 
<divid=rank1><imgsrc=
<divid=rank2style=display:none><imgsrc=
<divid=rank3style=display:none><imgsrc=
<divid=rank4style=display:none><imgsrc=
<divid=rank5style=display:none><imgsrc=
</div> 
<divclass=th>日平均访问人数走势图[点击时间段查看相应时段曲线]</div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=title2style=width:150px><astyle=cursor:handonClick=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> 
<divclass=mainbar2style=padding:100100;height:300px> 
<divid=reachs1><imgsrc=
<divid=reachs2style=display:none><imgsrc=
<divid=reachs3style=display:none><imgsrc=
<divid=reachs4style=display:none><imgsrc=
<divid=reachs5style=display:none><imgsrc=
</div> 
<divclass=th>日页面浏览量走势图[点击时间段查看相应时段曲线]</div> 
<divclass=mainbar> 
<divclass=titlestyle=width:150px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=titlestyle=width:152px><astyle=cursor:handonClick=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> 
<divclass=title2style=width:150px><astyle=cursor:handonClick=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> 
<divclass=mainbar2style=padding:100100;height:300px> 
<divid=pageviews1><imgsrc=
<divid=pageviews2style=display:none><imgsrc=
<divid=pageviews3style=display:none><imgsrc=
<divid=pageviews4style=display:none><imgsrc=
<divid=pageviews5style=display:none><imgsrc=
</div> 
<divstyle=margin-top:12px> 
<!--copyright--> 
<%timer2=timer 
thetime=cstr(int(((timer2-timer1)*10000)+0.5)/10) 
response.write本页执行共用了&thetime&毫秒 
%> 
<br> 
Copyright©2006<ahref=版权所有·脚本之家 
<!--copyright--> 
</div> 
<scriptlanguage=javascripttype=text/javascriptsrc=ajaxloading.asp?url=<%=domain%>&dayrank=<%=xRank%>></script> 
</body> 
</html> 
上一篇:收集asp的常用函数
文章标题:[asp]阿里西西的alexa采集效果代码
文章链接:http://soscw.com/index.php/essay/8473.html