当前位置：编程学习网 >>asp教程 > 系统相关 > > asp是什么意思_asp版的alexa 查询系统

asp是什么意思_asp版的alexa 查询系统

【www.gdgbn.com--系统相关】

On Error Resume Next
Server.ScriptTimeOut = 9999999

Url = "http://data.alexa.com/data/?cli=10&dat=snba&ver=7.0&url="&Domain
"Url = "http://localhost/alexa.xml"
StrPage = GetBody(Url)
set xmldom=Server.CreateObject("MSXML2.DOMDocument")
xmldom.loadXML(StrPage)

Set RLS = xmldom.documentElement.selectSingleNode("RLS")
Set SD = xmldom.documentElement.selectSingleNode("SD")
Set DMOZ = xmldom.documentElement.selectSingleNode("DMOZ")

SiteRLNum = RLS.ChildNodes.length
For i = 0 To SiteRLNum - 1
ReDim Preserve SiteRL(i),RLHref(i),RLTitle(i),RLDomain(i)
Set SiteRL(i) = RLS.ChildNodes.item(i)
RLHref(i) = SiteRL(i).attributes(0).value
RLTitle(i) = SiteRL(i).attributes(1).value
RLDomain(i) = replace(RLHref(i),"www.","")
RLDomain(i) = replace(RLDomain(i),"/","")
Next

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")
SiteStreet = ADDR.attributes(0).value
SiteCity = ADDR.attributes(1).value
SiteZip = ADDR.attributes(2).value
SiteState = ADDR.attributes(3).value
SiteCountry = ADDR.attributes(4).value
SiteAddr = SiteStreet & SiteCity & SiteZip & SiteState & SiteCountry
SiteDate = CREATED.attributes(0).value
SitePhone = PHONE.attributes(0).value
SiteOwner = OWNER.attributes(0).value
SiteEmail = EMAIL.attributes(0).value
SiteLex = LANG.attributes(0).value
SiteCode = LANG.attributes(1).value
SiteLinksin = LINKSIN.attributes(0).value
SiteLinksin = Comma(SiteLinksin)
SiteSpeedText = SPEED.attributes(0).value
SiteSpeedText = Comma(SiteSpeedText)
SiteSpeedPct = SPEED.attributes(1).value
SiteSpeedPct = Comma(SiteSpeedPct)
SitePopularity = POPULARITY.attributes(1).value
SitePopularity = Comma(SitePopularity)
SiteRank = RANK.attributes(0).value
If instr(SiteRank,"-") > 0 Then
ArrowImg = ""
ElseIf instr(SiteRank,"+") > 0 Then
ArrowImg = ""
Else
ArrowImg = ""
End If
SiteRank = Replace(SiteRank,"+","")
SiteRank = Replace(SiteRank,"-","")
If SiteRank = 0 Then
ArrowImg = ""
End If
SiteRank = Comma(SiteRank)

Set SITE = DMOZ.selectSingleNode("SITE")
Set CATS = SITE.selectSingleNode("CATS")
Set CAT = CATS.selectSingleNode("CAT")
SiteTitle = SITE.attributes(1).value
SiteDesc = SITE.attributes(2).value
SiteCat = CAT.attributes(0).value

Dim fso,f,onames,oonames,otemp,onum
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile( server.MapPath("cache.asp教程"), 1, True)
If f.AtEndOfStream = False Then
onames = 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(onames) or len(trim(onames)) = 0 Then
onames = "|"&Domain
ElseIf instr(onames,"|"&Domain) > 0 Then
onames = replace(onames,"|"&Domain,"")
onames = "|"&Domain&onames
Else
onames = "|"&Domain&onames
End If
oonames = split(onames,"|")
otemp = ""
If UBound(oonames)>19 Then
For i=1 To 20
otemp = otemp&"|"&oonames(i)
Next
onum = 20
Else
otemp = onames
onum = UBound(oonames)
End If
f.write(trim(otemp))
f.close
Set f = Nothing

Dim ynames,yynames,ytemp,ynum
Set ynames = request.cookies("dnames")
If isnull(ynames) or len(trim(ynames)) = 0 Then
ynames = "|"&Domain
ElseIf instr(ynames,"|"&Domain) > 0 Then
ynames = replace(ynames,"|"&Domain,"")
ynames = "|"&Domain&ynames
Else
ynames = "|"&Domain&ynames
End If
yynames = split(ynames,"|")
ytemp = ""
If UBound(yynames) > 9 Then
For i=1 To 10
ytemp = ytemp&"|"&yynames(i)
Next
ynum = 10
Else
ytemp = ynames
ynum = UBound(yynames)
End If
response.cookies("dnames") = trim(ytemp)
response.cookies("dnames").expires = now() + 1

Function iswww(string)
iswww = False
Dim regEx,Matches
Set regEx = New RegExp
regEx.Pattern = "^[A-Za-z0-9]+(-+[A-Za-z0-9]+)*(.[A-Za-z]+)?.[A-Za-z]+$"
regEx.IgnoreCase = True
regEx.Global = True
Set Matches = regEx.Execute(string)
If Matches.Count Then
iswww= True
End If
End Function

Function GetBody(Url)
On Error Resume Next
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
With xmlHttp
  xmlHttp.Open "Get",Url,False,"",""
  xmlHttp.Send
  GetBody = xmlHttp.ResponseText
End With
Set xmlHttp = Nothing
End Function

Function Comma(str)
If Not(IsNumeric(str)) Or 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 fget(str)
str = Trim(str)
Select Case str
  Case ""
   fget = "--"
  Case "-"
   fget = "--"
  Case Else
   fget = str
End Select
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 1
   strTemp = Right(str, Len(str) - InStr(str, start) + 1)
   strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
  Case 2
   strTemp = Right(str, Len(str) - InStr(str, start) + 1)
   strTemp = Left(strTemp, InStr(strTemp, last) - 1)
  Case Else
   strTemp = Right(str, Len(str) - InStr(str, start) - Len(start) + 1)
   strTemp = Left(strTemp, InStr(strTemp, last) + Len(last) - 1)
  End Select
Else
  strTemp = ""
End If
FixStr = strTemp
End Function

Function RegStr(ByVal str, ByVal start, ByVal last, ByVal n)
Dim regEx,Match,Matches,strTemp(),i
i = 0
Set regEx = New RegExp
regEx.Pattern = start & "[^<>/]*" & last
regEx.IgnoreCase = False
regEx.Global = True
Set Matches = regEx.Execute(str)
For Each Match in Matches
  Select Case n
  Case 0
   ReDim Preserve strTemp(i)
   strTemp(i) = Replace(Match.Value,start,"")
   strTemp(i) = Replace(strTemp(i),last,"")
  Case Else
   ReDim Preserve strTemp(i)
   strTemp(i) = Match.Value
  End Select
  i = i + 1
Next
RegStr = strTemp
End Function
%>

alexa网站排名★<%=SiteTitle%>网站排名★<%=domain%>域名的alexa全球排名

css教程" rel="stylesheet" type="text/css" />
<script language="javascript教程" type="text/javascript">
var xmlHttp = false;
try {xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");}
catch (e)
{
try {xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");}
catch (e2) {xmlHttp = false;}
}
if (!xmlHttp && typeof XMLHttpRequest != "undefined")
{
xmlHttp = new XMLHttpRequest();
}

function callServer()
{
var url = "ajaxloading.asp?domain=<%=Domain%>&more=1";
xmlHttp.open("get",url,true,"","");
xmlHttp.onreadystatechange = updatePage;
xmlHttp.send(null);
}

"><script type="text/javascript" language="JavaScript" src="http://xslt.alexa.com/site_stats/js/s/c?url=<%=Domain%>"></script>

     alexa排名查询┊
  网站收录查询┊
  网站自动化宣传机器┊
  提高Alexa网站排名┊
  php教程" title="Google PR查询工具">Google PR查询┊

  广州网站优化教程┊
  欣诚科技服务┊
  收藏本页

友情提示：将查询后的地址为友情链接地址，友情链接名称“alexa排名查询”每次从贵站来访左边就自动第一名，一周内即可形成反向链接！

    网站 www.<%=domain%> 在 Alexa 上综合排名第 <%=fget(SitePopularity)%> 位。
[ alexa排名提升专家┊" >搜索引擎教程收录查询┊免费网站推广 ]




     我们只提供ALEXA排名查询服务，关于如何提高排名和ALEXA排名作弊请勿咨询我们，我们不赞同和鼓励任何作弊行为，有疑问请先
      查看帮助




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

    站点域名:
    ">" ><%=Domain%>
    网站站长:
    "><%=fget(SiteOwner)%>
    电子信箱:
    "><%=fget(SiteEmail)%>


    综合排名:

    排名变化:
    <%=ArrowImg & fget(SiteRank)%>
    收录日期:
    "><%=fget(SiteDate)%>


    所属国家:
    "><%=fget(SiteLex)%>
    编码方式:
    "><%=fget(SiteCode)%>
    访问速度:
     Ms，比 <%=fget(SiteSpeedPct)%>% 的网站访问速度快。"><%=fget(SiteSpeedText) & " Ms / " & fget(SiteSpeedPct) & " 分"%>


    成人内容:
    NO
    反向链接:
    /"><%=fget(SiteLinksin)%> 个
    联系电话:
    "><%=fget(SitePhone)%>


    网站简介:
    "><%=fget(SiteDesc)%>


    详细地址:
    "><%=fget(SiteAddr)%>


    所属目录:
    "><%=fget(SiteCat)%>




      更新缩略图 " target="_blank">提交链接 Alexa网站排名




站长推荐:  Google PR查询工具 ┊ 百度收录查询工具 ┊ 关键字分析工具 ┊ 免费在线刷PV工具

    广告招租↓






本站PR4啦,友情链接招租(40元/月): 858261598 QQ群：21721306 友情提示：查询后的地址为友情地址，来访一次左边自动第一名！

    与网站 www.<%=domain%> 的相关网站
  " >Alexa官方数据┊
  " >搜索引擎收录查询┊
  " >Alexa排名查询工具



    相关网站
    网站名称
    排名情况

  <%
  If RLS.attributes(1).value = 0 Then
  %>

    --
    --
    --

  <%
  Else
   For i = 0 To SiteRLNum - 1
  %>

    " >http://<%=RLHref(i)%>
    <%=RLTitle(i)%>
    " >查看排名

  <%
   Next
  End If
  %>


<script language="javascript" type="text/javascript" src="ajaxloading.asp?domain=<%=Domain%>&more=0"></script>

  最近查询记录


  <%
  For i=1 To onum        "i最后等于onum+1，因为For循环最后要执行一次i++
  %>

    " title="www.<%=oonames(i)%>"><%=oonames(i)%>

  <%
  Next
  %>


  您关注的站点


  <%
  For i=1 To ynum
  %>

    " title="www.<%=yynames(i)%>"><%=yynames(i)%>

  <%
  Next
  %>


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

    网站 www.<%=domain%> 日平均Alexa排名走势图
  [点击时间段查看相应时段曲线]



    六个月平均排名曲线
    三个月平均排名曲线
    一个月平均排名曲线
    半个月平均排名曲线
    一星期平均排名曲线



      如果看不到图片，请单击右键选择 [显示图片]

    中文Alexa排名查询系统使用说明及相关帮助




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




     中文Alexa网站排名数据来自Amazon.com官方，为方便国内站长查询自己网站排名数据，本站已经把所得数据精心整理，
     经过整理后所公布排名数据比Alexa.com上查询所得数据更详细、条理，Alexa世界排名原理对于第一次接触它的人来说，
     有些术语很难理解，为此我们专门整理了一些术语解释放在查询帮助中，看过后你就会发现看懂alexa排名查询系统其实也很简单。Alexa排名查询QQ群：21721306 欢迎加入交流。

    友情链接↓




广州网站优化┊">免费网站推广┊搜索引擎收录查询┊">Alexa排名查询┊今天到期域名查询┊欣诚科技服务┊深圳太阳能公司┊广州华帝专卖店
广州网站制作┊软膜天花┊广州服饰批发┊广州蛋糕DIY制作培训┊番禺太阳能工程┊广州3M净水器┊美的热泵热水器┊广州大金空调┊服装批发

本站PR4啦,友情链接招租(40元/月): 858261598 QQ群：21721306 友情提示：查询后的地址为友情地址，来访一次左边自动第一名！

     查询帮助 ┊
     alexa下载 ┊
     alexa全球排名查询 ┊
                    免费网站推广工具 ┊
        搜索引擎收录查询 ┊
       广州网络营销 ┊
     设为首页 ┊
        加入收藏 ┊




     广州网站优化 _
  欣诚科技服务 _ alexa排名查询系统下载 _ <script src="http://s61.cnzz.com/stat.php?id=1821988&web_id=1821988&show=pic" language="JavaScript" charset="gb2312"></script>

本文来源：http://www.gdgbn.com/aspjiaocheng/23523/

上一篇： [asp.net core]asp.net 简便无刷新文件上传系统

下一篇：完美pvp对战平台_完美php文章分页类

asp是什么意思_asp版的alexa 查询系统

相关推荐

网友关注

热门标签

最新系统相关

系统相关热门文章