以下是一个用 ASP（Active Server Pages）解析 JSON 的示例代码：

在这个示例中，使用了  ScriptControl  对象来执行 JScript 代码，通过调用  JSON.parse  方法来解析 JSON 数据。然后可以访问解析后的对象的属性来获取数据。

请注意，这种方法依赖于服务器上安装了适当的脚本引擎，并且在使用时要确保 JSON 数据的格式正确。如果 JSON 数据比较复杂或者需要进行更高级的操作，可以考虑使用专门的 JSON 解析库。

<%
'假设 JSON 数据
Dim jsonData
jsonData = '{"name":"John","age":30,"city":"New York"}'


'创建一个 ScriptControl 对象
Set scriptControl = Server.CreateObject("ScriptControl")
scriptControl.Language = "JScript"


'执行 JSON.parse 方法来解析 JSON 数据
Set jsonObject = scriptControl.Eval("JSON.parse('" & jsonData & "')")


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


Set scriptControl = Nothing
%>