我要投稿
  • 您当前的位置:57365.com -> 技术教程 -> 网站建设教程 -> 源码精华 -> 教程内容
  • [ 收藏本页教程 ]
  • 用ASP程序调用Alexa世界排名的代码源码精华教程

    教程作者:佚名    教程来源:不详   教程栏目:源码精华    收藏本页
    <%
    Private Function bytes2BSTR(vIn)
    Dim i, ThischrCode, NextchrCode
    strReturn = ""
    For i = 1 To LenB(vIn)
    ThischrCode = AscB(MidB(vIn, i, 1))
    If ThischrCode < &H80 Then
    strReturn = strReturn & Chr(ThischrCode)
    Else
    NextchrCode = AscB(MidB(vIn, i + 1, 1))
    strReturn = strReturn & Chr(CLng(ThischrCode) * &H100 + CInt(NextchrCode))
    i = i + 1
    End If
    Next
    bytes2BSTR = strReturn
    End Function
    Function GetURL(url)
    Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
    With Retrieval
    .Open "GET", url, False, "", ""
    .Send
    GetURL = .ResponseText
    GetURL = bytes2BSTR(.Responsebody)
    End With
    Set Retrieval = Nothing
    End Function


    '以上是使用xmlhttp读取页面代码的通用代码


    Function GetAlexaRank(url)
    on error resume next
    Dim tempstr,trueurl,x,keystr


    trueurl = "/jishu513556http://www.alexa.com/data/details/traffic_details?q=&url=" & url
    tempstr=GetURL(trueurl)


    keystr = "</td><td class=""bodyBold"" align=""center"" bgcolor=""#ffffff""><img"
    TempStr = split(TempStr,keystr)(0)


    x = InstrRev(TempStr,">") + 1
    TempStr = mid(TempStr,x)
    if err then
    GetAlexaRank=err.description
    err.clear
    else
    GetAlexaRank=TempStr
    end if
    End Function


    '以上是读取Alexa网站页面,对代码进行分析然后得到排名的数据


    Dim url
    url="www.lepoo.com" '要查询的网址,不要加http://'>http://
    Response.write(GetAlexaRank2(url)) '输出排名数据


    %>

    (出处:

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.hxswjs.com All Rights Reserved.57365.com 版权所有