Classic ASP
TikTok Shop Get Authorized Shops

An example showing how to get the authorized shops in the TikTok Shops API.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set http = Server.CreateObject("Chilkat.Http")

' It is assumed we previously obtained an OAuth2 access token.
' This example loads the JSON access token file 
' saved by this example: Get TikTok Shop OAuth2 Access Token
' or refrehsed by this example: Get TikTok Shop Refresh OAuth2 Access Token
set jsonToken = Server.CreateObject("Chilkat.JsonObject")
success = jsonToken.LoadFile("qa_data/tokens/tiktok-shops.json")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to load tiktok-shops.json") & "</pre>"
    Response.End
End If

set queryParams = Server.CreateObject("Chilkat.JsonObject")
success = queryParams.UpdateString("app_key","APP_KEY")
set dt = Server.CreateObject("Chilkat.CkDateTime")
success = queryParams.UpdateString("timestamp",dt.GetAsUnixTimeStr(0))
success = queryParams.UpdateInt("version",202309)

' Sort the JSON members by member name, in ascending order (A-Z), case sensitive..
ascending = 1
caseSensitive = 1
queryParams.Sort ascending,caseSensitive

appSecret = "APP_SECRET"
path = "/authorization/202309/shops"

' Build the StringToSign
set sb = Server.CreateObject("Chilkat.StringBuilder")
success = sb.Append(appSecret)
success = sb.Append(path)
numParams = queryParams.Size
i = 0
Do While i < numParams
    success = sb.Append(queryParams.NameAt(i))
    success = sb.Append(queryParams.StringAt(i))
    i = i + 1
Loop
success = sb.Append(appSecret)

set crypt = Server.CreateObject("Chilkat.Crypt2")
crypt.HashAlgorithm = "SHA256"
crypt.MacAlgorithm = "HMAC"
crypt.EncodingMode = "hex_lower"
success = crypt.SetMacKeyString(appSecret)

sig = crypt.MacStringENC(sb.GetAsString())

success = queryParams.UpdateString("access_token",jsonToken.StringOf("data.access_token"))
success = queryParams.UpdateString("sign",sig)

http.SetRequestHeader "x-tts-access-token",jsonToken.StringOf("data.access_token")
http.SetRequestHeader "content-type","application/json"

set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpParams("GET","https://open-api.tiktokglobalshop.com/authorization/202309/shops",queryParams,resp)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

set json = Server.CreateObject("Chilkat.JsonObject")
success = resp.GetBodyJson(json)

Response.Write "<pre>" & Server.HTMLEncode( resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>"

' Sample JSON response...
' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' {
'   "code": 0,
'   "data": {
'     "shops": [
'       {
'         "cipher": "GCP_XF90igAAAABh00qsWgtvOiGFNqyubMt3",
'         "code": "CNGBCBA4LLU8",
'         "id": "7000714532876273420",
'         "name": "Maomao beauty shop",
'         "region": "GB",
'         "seller_type": "CROSS_BORDER"
'       }
'     ]
'   },
'   "message": "Success",
'   "request_id": "202203070749000101890810281E8C70B7"
' }

code = json.IntOf("code")
message = json.StringOf("message")
request_id = json.StringOf("request_id")
i = 0
count_i = json.SizeOfArray("data.shops")
Do While i < count_i
    json.I = i
    cipher = json.StringOf("data.shops[i].cipher")
    code_str = json.StringOf("data.shops[i].code")
    id = json.StringOf("data.shops[i].id")
    name = json.StringOf("data.shops[i].name")
    region = json.StringOf("data.shops[i].region")
    seller_type = json.StringOf("data.shops[i].seller_type")
    i = i + 1
Loop

%>
</body>
</html>