以下是一個(gè)用 ASP（Active Server Pages）解析 JSON 的示例代碼：

在這個(gè)示例中，使用了  ScriptControl  對象來執(zhí)行 JScript 代碼，通過調(diào)用  JSON.parse  方法來解析 JSON 數(shù)據(jù)。然后可以訪問解析后的對象的屬性來獲取數(shù)據(jù)。

請注意，這種方法依賴于服務(wù)器上安裝了適當(dāng)?shù)哪_本引擎，并且在使用時(shí)要確保 JSON 數(shù)據(jù)的格式正確。如果 JSON 數(shù)據(jù)比較復(fù)雜或者需要進(jìn)行更高級的操作，可以考慮使用專門的 JSON 解析庫。

<%
'假設(shè) JSON 數(shù)據(jù)
Dim jsonData
jsonData = '{"name":"John","age":30,"city":"New York"}'


'創(chuàng)建一個(gè) ScriptControl 對象
Set scriptControl = Server.CreateObject("ScriptControl")
scriptControl.Language = "JScript"


'執(zhí)行 JSON.parse 方法來解析 JSON 數(shù)據(jù)
Set jsonObject = scriptControl.Eval("JSON.parse('" & jsonData & "')")


'輸出解析后的結(jié)果
Response.Write("Name: " & jsonObject.name & "<br>")
Response.Write("Age: " & jsonObject.age & "<br>")
Response.Write("City: " & jsonObject.city & "<br>")


Set scriptControl = Nothing
%>