[asp]阿里西西的alexa采集效果代码

[asp]阿里西西的alexa采集效果代码

简介

本篇攻略主要介绍如何使用阿里西西的alexa采集效果代码来获取Alexa排名数据。使用该代码可以方便地获取网站的国内和全球排名数据，且不需要使用Alexa API或第三方库。

准备工作

在使用该代码前，需要完善以下几个步骤：

1. 首先需要申请上线的API Key，可以在阿里西西官网上进行申请：https://www.alixixi.com/

2. 在申请成功后，需要将API Key填写在代码中。

Dim authorization
authorization = "APPCODE " & "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

开始采集

使用该代码可以方便地获取指定网站的Alexa排名数据，以下是查询示例：

Dim url, xmlhttp, alexaData, chineseRank, worldRank
url = "https://alexa.market.alicloudapi.com/api/v2/history?domain=example.com"
Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP.6.0")
xmlhttp.Open "GET", url, False
xmlhttp.setRequestHeader "Authorization", authorization
xmlhttp.setRequestHeader "Content-Type", "application/json"
xmlhttp.Send
alexaData = xmlhttp.responseText
Set json = JsonConverter.ParseJson(alexaData)

chineseRank = json.Item("chineseRank")
worldRank = json.Item("worldRank")

Response.Write "Alexa国内排名：" & chineseRank & "<br>"
Response.Write "Alexa全球排名：" & worldRank & "<br>"

以上代码可以获取一个网站的国内和全球排名数据。其中，example.com代表需要查询的网站，需要替换为实际需要查询的网站域名。

示例说明

以下是两个使用阿里西西的alexa采集效果代码的示例说明：

示例1：获取多个网站的排名数据

Dim url, xmlhttp, alexaData, rankList, chineseRank, worldRank, domain
Dim domains
domains = Array("baidu.com", "qq.com", "taobao.com", "tmall.com", "jd.com")
For Each domain In domains
    url = "https://alexa.market.alicloudapi.com/api/v2/history?domain=" & domain
    Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP.6.0")
    xmlhttp.Open "GET", url, False
    xmlhttp.setRequestHeader "Authorization", authorization
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.Send
    alexaData = xmlhttp.responseText
    Set json = JsonConverter.ParseJson(alexaData)
    chineseRank = json.Item("chineseRank")
    worldRank = json.Item("worldRank")
    rankList = rankList & "<tr><td>" & domain & "</td><td>" & chineseRank & "</td><td>" & worldRank & "</td></tr>"
Next
Response.Write "<table><tr><th>网站</th><th>国内排名</th><th>全球排名</th></tr>" & rankList & "</table>"

以上代码可以同时查询多个网站的Alexa排名数据，并将数据以表格形式展示。需要注意的是，在实际使用中，应该根据业务需求进行相应的调整。

示例2：获取指定时间段内网站的排名数据

Dim url, xmlhttp, alexaData, rankList, chineseRank, worldRank, domain
Dim beginDate, endDate, currentDate
Dim domains
beginDate = "20220101"
endDate = "20220201"
currentDate = beginDate
domains = Array("baidu.com", "qq.com", "taobao.com", "tmall.com", "jd.com")
For Each domain In domains
    While currentDate <= endDate
        url = "https://alexa.market.alicloudapi.com/api/v2/history?domain=" & domain & "&date=" & currentDate
        Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP.6.0")
        xmlhttp.Open "GET", url, False
        xmlhttp.setRequestHeader "Authorization", authorization
        xmlhttp.setRequestHeader "Content-Type", "application/json"
        xmlhttp.Send
        alexaData = xmlhttp.responseText
        Set json = JsonConverter.ParseJson(alexaData)
        chineseRank = json.Item("chineseRank")
        worldRank = json.Item("worldRank")
        rankList = rankList & "<tr><td>" & domain & "</td><td>" & currentDate & "</td><td>" & chineseRank & "</td><td>" & worldRank & "</td></tr>"
        currentDate = Format(DateAdd("d", 1, CDate(currentDate)), "yyyymmdd")
    Wend
    currentDate = beginDate
Next
Response.Write "<table><tr><th>网站</th><th>日期</th><th>国内排名</th><th>全球排名</th></tr>" & rankList & "</table>"

以上代码可以获取指定时间段内多个网站的Alexa排名数据，并将数据以表格形式展示。需要注意的是，在实际使用中，需要根据具体的业务需求进行调整。