asp alexa查询程序代码

<%
'******************************

'******************************
Dim domain,Url,Url1,strPage,StrPage1
Dim xmldom,SD,SITE,dimg
domain = request.QueryString("url")
if domain = "" then domain = "111cn.net"
If Not iswww(domain) Then
response.write "<script>alert('您输入的网址无效，请重新输入！')</script>"
domain = "111cn.net"
End if
host = "http://www.111cn.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>中国WEB第一站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="中国WEB第一站Alexa排名查询,Alexa作弊,Alexa排名,Alexa查询,Alexa信息,排名,流量,访问量,页面浏览量,搜索引擎,<%=SiteTitle%>的Alexa排名信息,<%=domain%>">
<meta name="description" content="www.111cn.net,中国WEB第一站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;overflow:hidden'><div style="background:#E8F5FE;height:18px;font-size:12px;font-weight:bold;" onClick='javascript:window.hide()'>最近查询记录</div>
<div><ul> <%
  on error resume next
  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)%>的alexa排名查询结果"><%=Left(Replace(names(tt),"www.",""),14)%></a></li>
   <%
  next
  f.write(trim(tmpcontent))
  f.close
  Set fso = Nothing
  set f = Nothing
 %> 
</ul></DIV>
</DIV>
<DIV id=lovexin2 class="body" style='Z-INDEX: 10; right: 2px; POSITION: absolute; TOP: 117px; width: 108;;overflow:hidden'><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)%>的alexa世界排名查询结果"><%=Left(Replace(ttnames(ttt),"www.",""),14)%></a></li>
  <%
  next
%>

</ul>
</div>
</DIV>

<div class="body1" style="padding-top:10px;text-align:right;"><span style="float:left;"><a href="http://www.111cn.net">中国WEB第一站</a> · <a href="http://www.111cn.net/web/">文章</a> · <a href="http://down.111cn.net/">下载</a> · <a href="http://js.111cn.net/">特效</a> · <a href="http://mb.111cn.net/">模板</a> · <a href="http://cool.111cn.net/">酷站</a> · <a href="http://tool.111cn.net/">工具</a> | <a href="#" onClick="window.external.AddFavorite(document.location.href,document.title)">收藏</a> · <a href="javascript:clipboardData.setData('Text','http://<%=host%>/?url=<%=domain%>');alert('已将 http://<%=host%>/?url=<%=domain%> 复制到剪切板')" title="拷贝该地址">复制地址</a> | <a href="http://www.111cn.net/my/reg.asp">注册</a><span style="float:left;margin-top:12px;"><b><a style="color:green;" href="http://<%=host%>/?url=<%=domain%>">http://<%=host%>/?url=<%=domain%></a></b></span></span><a href="http://www.111cn.net"></a></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="查 询"> &nbsp;<a href="http://down.111cn.net/a/2008121992307.shtml" style="color:red;" target="_blank">本程序下载地址</a>
  </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>站长推荐:&nbsp;&nbsp;<a href="http://spcode.baidu.com/spcode/spClick?tn=alixixi_sp&ctn=0&styleid=1638&tourl=http://baidu.down.duba.net/index_db2008.php?prodid=15">金山毒霸下载</a> | <a href="http://down5.flashget.com/flashget_1678_1.exe">网际快车下载</a> | <a href="http://zcomcdl.zcominc.com/union/ZcomMagSubscribe-200-1678.exe">电子书免费订阅</a> | <a href="http://neirong.funshion.com/software/download.php?id=4148&f=FunshionInstall1.5.3.25Beta.exe">风行网络电影下载</a></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>
  <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=750&h=280&r=6m&y=t&u=<%=domain%>"></div>
  <div id=rank2 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=t&u=<%=domain%>"></div>
  <div id=rank3 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=t&u=<%=domain%>"></div>
  <div id=rank4 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=t&u=<%=domain%>"></div>
  <div id=rank5 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0&y=t&u=<%=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=750&h=280&r=6m&y=r&u=<%=domain%>"></div>
  <div id=reachs2 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=r&u=<%=domain%>"></div>
  <div id=reachs3 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=r&u=<%=domain%>"></div>
  <div id=reachs4 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=r&u=<%=domain%>"></div>
  <div id=reachs5 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0m&y=r&u=<%=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=750&h=280&r=6m&y=p&u=<%=domain%>"></div>
  <div id=pageviews2 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=3m&y=p&u=<%=domain%>"></div>
  <div id=pageviews3 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=1m&y=p&u=<%=domain%>"></div>
  <div id=pageviews4 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=15.0m&y=p&u=<%=domain%>"></div>
  <div id=pageviews5 style="display: none"><img src="http://traffic.alexa.com/graph?w=750&h=280&r=7.0m&y=p&u=<%=domain%>"></div>
</div>
<div style="margin-top:12px">
  <!--copyright-->
  <%timer2 = timer
thetime=cstr(int(((timer2-timer1)*10000 )+0.5)/10)
response.write "本页执行共用了"&thetime&"毫秒"
%>
  <br>
  <!--copyright-->
</div>
<script language="javascript" type="text/javascript" src="ajaxloading.asp?url=<%=domain%>&dayrank=<%=xRank%>"></script>
</body>
</html>

时间： 2024-08-30 09:36:49

asp alexa查询程序代码的相关文章

asp alexa查询小偷程序_小偷/采集

<% '为了支持原创,请保留该处注释,谢谢! '作者:草上飞 '获取主域名 Function getDomainUrl(url)     tempurl=replace(url,"http://","")     if instr(tempurl,"/")>0 then         tempurl=left(tempurl,instr(tempurl,"/")-1)     end If     getDoma

asp alexa查询小偷程序

<% '为了支持原创,请保留该处注释,谢谢! '作者:草上飞 '获取主域名 Function getDomainUrl(url)     tempurl=replace(url,"http://","")     if instr(tempurl,"/")>0 then         tempurl=left(tempurl,instr(tempurl,"/")-1)     end If     getDoma

asp google pr查询程序代码

<% response.expires = -1 response.addheader "cache-control","no-cache" Response.AddHeader "Pragma","no-cache" wd=Request("d") If Request("s")="googles" Then   GoogleUrl="http://

asp+初体验---用c#写的asp+域名查询程序

asp+|程序 终于有时间可以学点新东西了,今天大略看了一下有关asp+的资料,并且写了个域名查询的页面,感觉很不错,asp+比起asp来进步实在是太大了,尽管用asp+组件也能实现域名查询的功能,并且前几天我用vc写过这么个组件,但用asp+简单方便多了.好了,废话少提,看源码吧. <% @Page Language="C#" %><% @Assembly Name="System.Net" %><% @Import Namespac

用c#写的asp+域名查询程序

asp+|程序 终于有时间可以学点新东西了,今天大略看了一下有关asp+的资料,并且写了个域名查询的页面,感觉很不错,asp+比起asp来进步实在是太大了,尽管用asp+组件也能实现域名查询的功能,并且前几天我用vc写过这么个组件,但用asp+简单方便多了.好了,废话少提,看源码吧. <% @Page Language="C#" %><% @Assembly Name="System.Net" %><% @Import Namespac

PHP手机号归属地查询程序代码

先来看一个调用第三方法网站的一个程序 主要使用curl实现,需要开启php对curl的支持. 如果你是windows系统在你的的php.ini文件的设置,找到php_curl.dll,并取消前面的分号注释就行了,如下所示: //取消下在的注释 extension=php_curl.dll 如果您是在Linux下面,那么,您需要重新编译您的PHP了,编辑时,您需要打开编译参数,在configure命令上加上"–with-curl"参数. 然后重启apache  代码如下 复制代码 <

bootstrap+flask+mysql实现网站查询程序代码

一.需求 通过 bootstrap(ajax) + flask + mysql 实现一个简单的web查询页面.当输出身份ID信息后,可以查询到相应的结果.最终效果图如下: flask_mysql_query 二.创建库与表 这里我们先根据需要求创建一个数据库,内容如下: #建库 CREATE DATABASE `web12306`  DEFAULT CHARACTER SET utf8; #建表 web12306 | CREATE TABLE `web12306` (   `user_email

asp 天气查询系统代码

 代码如下 复制代码 <!--#include file=Function.asp--> <% Dim Url,Html,time time=Request("time") Url="http://weather.cncn.com/get_weather.php?action=get_city&time='"&time&"'"// 读取cncn上的天气信息 Html = getHTTPPage(Url)

多图片上传asp.net实现程序代码

前台代码如下:  代码如下 复制代码 <% @ Page Language="C#" CodeFile="UploadImg.aspx.cs" Inherits="NetAdmin_APicture_UploadImg" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xh