在 ASP 中处理复杂的 JSON 数据结构可以考虑以下几种方法：

方法一：使用第三方 JSON 解析库

如果服务器环境允许，可以引入第三方的 JSON 解析库。比如可以使用 JSON for VBScript。

安装后，使用示例如下：

<%
' 假设 JSON 数据
Dim jsonData
jsonData = '{"person":{"name":"John","age":30,"address":{"city":"New York","street":"Main St"}},"hobbies":["reading","coding","gaming"]}'


' 引入 JSON 解析库
Set jsonObject = JSON.parse(jsonData)


' 输出结果
Response.Write("Name: " & jsonObject.person.name & "<br>")
Response.Write("Age: " & jsonObject.person.age & "<br>")
Response.Write("City: " & jsonObject.person.address.city & "<br>")


Dim hobby
For Each hobby In jsonObject.hobbies
    Response.Write("Hobby: " & hobby & "<br>")
Next
%>

方法二：使用递归函数处理嵌套结构

如果不能使用第三方库，可以使用自定义的函数来处理复杂的 JSON 数据结构。例如：

<%
' 假设 JSON 数据
Dim jsonData
jsonData = '{"person":{"name":"John","age":30,"address":{"city":"New York","street":"Main St"}},"hobbies":["reading","coding","gaming"]}'


Function processJSON(obj)
    Dim key, value
    For Each key In obj
        Set value = obj(key)
        If IsObject(value) Then
            ' 如果是对象，递归处理
            Response.Write(key & " is an object:<br>")
            processJSON(value)
        ElseIf IsArray(value) Then
            ' 如果是数组，遍历处理
            Response.Write(key & " is an array:<br>")
            Dim item
            For Each item In value
                Response.Write(" - " & item & "<br>")
            Next
        Else
            ' 如果是普通值，直接输出
            Response.Write(key & ": " & value & "<br>")
        End If
    Next
End Function


Set jsonObject = Server.CreateObject("ScriptControl")
jsonObject.Language = "JScript"
Set parsedObj = jsonObject.Eval("(" + jsonData + ")")


processJSON(parsedObj)
%>

​这种方法通过递归函数来处理嵌套的对象和数组，以适应复杂的 JSON 数据结构。但这种方法相对比较繁琐，并且可能在处理非常复杂的结构时效率不高。