精品秘无码一区二区三区老师-精品秘一区二三区免费雷安-精品蜜桃秘一区二区三区-精品蜜桃秘一区二区三区粉嫩-精品蜜桃一区二区三区-精品蜜臀国产aⅴ一区二区三区

以下是另一種在 ASP 中解析 JSON 的方法，使用 VBScript 的內置函數和正則表達式來模擬部分 JSON 解析功能：

<%
'假設 JSON 數據
Dim jsonData
jsonData = '{"name":"John","age":30,"hobbies":["reading","coding","gaming"]}'


Function parseJSON(jsonStr)
    Dim obj, pair, key, value
    Set obj = CreateObject("Scripting.Dictionary")
    
    ' 分割鍵值對
    Dim matches
    Set regEx = New RegExp
    regEx.Pattern = """([^""]+)""\s*:\s*(.+?)(?=\s*,\s*""[^""]+""\s*:\s*|$)'
    Set matches = regEx.Execute(jsonStr)
    
    For Each match In matches
        pair = match.SubMatches
        key = pair(0)
        value = pair(1)
        
        ' 處理字符串值
        If Left(value, 1) = """' And Right(value, 1) = """ Then
            value = Mid(value, 2, Len(value) - 2)
        End If
        
        ' 處理數字值
        If IsNumeric(value) Then
            value = CDbl(value)
        End If
        
        ' 處理布爾值
        If value = "true" Then
            value = True
        ElseIf value = "false" Then
            value = False
        End If
        
        ' 處理數組
        If Left(value, 1) = "[" And Right(value, 1) = "]" Then
            value = parseArray(value)
        End If
        
        ' 處理對象
        If Left(value, 1) = "{" And Right(value, 1) = "}" Then
            value = parseJSON(value)
        End If
        
        obj.Add key, value
    Next
    
    Set parseJSON = obj
End Function


Function parseArray(arrStr)
    Dim arr, item
    Set arr = CreateObject("Scripting.Dictionary")
    Dim index = 0
    
    ' 分割數組元素
    Dim matches
    Set regEx = New RegExp
    regEx.Pattern = "\s*(.+?)\s*(?=\s*,\s*|$)"
    Set matches = regEx.Execute(arrStr)
    
    For Each match In matches
        item = match.SubMatches(0)
        
        ' 處理字符串值
        If Left(item, 1) = """' And Right(item, 1) = """ Then
            item = Mid(item, 2, Len(item) - 2)
        End If
        
        ' 處理數字值
        If IsNumeric(item) Then
            item = CDbl(item)
        End If
        
        ' 處理布爾值
        If item = "true" Then
            item = True
        ElseIf item = "false" Then
            item = False
        End If
        
        ' 處理數組
        If Left(item, 1) = "[" And Right(item, 1) = "]" Then
            item = parseArray(item)
        End If
        
        ' 處理對象
        If Left(item, 1) = "{" And Right(item, 1) = "}" Then
            item = parseJSON(item)
        End If
        
        arr.Add index, item
        index = index + 1
    Next
    
    Set parseArray = arr.Items
End Function


' 解析 JSON
Set parsedObj = parseJSON(jsonData)


' 輸出結果
Response.Write("Name: " & parsedObj("name") & "<br>")
Response.Write("Age: " & parsedObj("age") & "<br>")


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


Set parsedObj = Nothing
%>

?這種方法雖然比較繁瑣，但在沒有合適的 JSON 解析庫的情況下，可以作為一種臨時的解決方案。不過，對于復雜的 JSON 數據結構，可能需要進一步優化和擴展這個方法。建議在實際應用中，盡量使用成熟的 JSON 解析庫來提高效率和可靠性。