[asp]阿里西西的alexa采集效果代码-巨人网络通讯

[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=10dat=snbaver=7.0url="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=700h=280r=6my=tu="Domain
pm3 = "http://traffic.alexa.com/graph?w=700h=280r=3my=tu="Domain
pm1 = "http://traffic.alexa.com/graph?w=700h=280r=1my=tu="Domain
pday15 = "http://traffic.alexa.com/graph?w=700h=280r=15.0my=tu="Domain
pday7 = "http://traffic.alexa.com/graph?w=700h=280r=7.0my=tu="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 = tmpncontentttnames(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 tt15 then
          tmpcontent = tmpcontentnames(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=rlurl=%=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="三个月的排名变化趋势">%=dimgfget(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(STREETCITY,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">%=dimgfget(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>
  div class="mainbar2">
    div id="ViewsToday" class="title" style="width:150px">img src="skin/loading.gif" width="16" height="16" border="0">/div>
    div id="ViewswkAvg" class="title" style="width:152px">img src="skin/loading.gif" width="16" height="16" border="0">/div>
    div id="ViewsmosAvg" class="title" style="width:152px">img src="skin/loading.gif" width="16" height="16" border="0">/div>
    div id="ViewsmosChange" class="title" style="width:152px">img src="skin/loading.gif" width="16" height="16" border="0">/div>
    div id="ViewsAllChange" class="title2" style="width:150px">img src="skin/loading.gif" width="16" height="16" border="0">/div>
  /div>

/div>

div class="th"> %=SiteTitle%> 其它相关Alexa排名的信息统计/div>
div class="body1">
  div class="x bg2"> %=SiteTitle%> 下属站点被访问比例/div>
  div class="mainbar">
    div class="title" style="width:374px">子域名/div>
    div class="title2" style="width:374px">访问比例/div>
  /div>
  span id="more">img src="skin/loading.gif" width="16" height="16" border="0">/span>
/div>

div class="th">网站日平均排名走势图 [点击时间段查看相应时段曲线]/div>
div class="mainbar">
  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 class="mainbar2" style="padding:10 0 10 0;height:300px">
  div id=rank1>img src="http://traffic.alexa.com/graph?w=750h=280r=6my=tu=%=domain%>">/div>
  div id=rank2 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=3my=tu=%=domain%>">/div>
  div id=rank3 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=1my=tu=%=domain%>">/div>
  div id=rank4 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=15.0my=tu=%=domain%>">/div>
  div id=rank5 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=7.0y=tu=%=domain%>">/div>
/div>
div class="th">日平均访问人数走势图 [点击时间段查看相应时段曲线]/div>
div class="mainbar">
  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 class="mainbar2" style="padding:10 0 10 0;height:300px">
  div id=reachs1>img src="http://traffic.alexa.com/graph?w=750h=280r=6my=ru=%=domain%>">/div>
  div id=reachs2 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=3my=ru=%=domain%>">/div>
  div id=reachs3 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=1my=ru=%=domain%>">/div>
  div id=reachs4 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=15.0my=ru=%=domain%>">/div>
  div id=reachs5 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=7.0my=ru=%=domain%>">/div>
/div>
div class="th">日页面浏览量走势图 [点击时间段查看相应时段曲线]/div>
div class="mainbar">
  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 class="mainbar2" style="padding:10 0 10 0;height:300px">
  div id=pageviews1>img src="http://traffic.alexa.com/graph?w=750h=280r=6my=pu=%=domain%>">/div>
  div id=pageviews2 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=3my=pu=%=domain%>">/div>
  div id=pageviews3 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=1my=pu=%=domain%>">/div>
  div id=pageviews4 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=15.0my=pu=%=domain%>">/div>
  div id=pageviews5 style="display: none">img src="http://traffic.alexa.com/graph?w=750h=280r=7.0my=pu=%=domain%>">/div>
/div>
div style="margin-top:12px">
  !--copyright-->
  %timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write "本页执行共用了"thetime"毫秒"
%>
  br>
  Copyrightcopy;2006 a href="http://www.jb51net" target="_blank">jb51.Net/a> All Rights Reserved 版权所有·脚本之家
  !--copyright-->
/div>
script language="javascript" type="text/javascript" src="ajaxloading.asp?url=%=domain%>dayrank=%=xRank%>">/script>
/body>
/html>

上一篇：使用ODBC数据库管理Serv-U的FTP用户及相关ASP编程[附源码示例下载]
下一篇：isnumeric检测是否为数字类型的asp代码