经典 ASP - 解析 JSON XMLHTTP 返回

【问题标题】：Classic ASP - Parse JSON XMLHTTP Return经典 ASP - 解析 JSON XMLHTTP 返回
【发布时间】：2014-12-09 09:01:20
【问题描述】：

我无法找到解析从 XMLHTTP 获得的返回的好方法。返回是 JSON。

用于获取 JSON 的 ASP 代码：

<%@ Language=VBScript %>
<%
Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
xmlhttp.open "GET", "http://someip:8080/Publisher/Titles/Paging/0,0,tc?output=json", 0
xmlhttp.send ""
Response.AddHeader "Content-Type", "application/json;charset=UTF-8"
Response.Charset = "UTF-8"
pageReturn = xmlhttp.responseText

Set xmlhttp = Nothing 
response.write pageReturn
%>

返回的 JSON

{
 "Titles": {
  "resultCount": 37886,
  "moreResources": true
 }
}

我只需要在屏幕上显示“resultCount”的值。任何帮助将不胜感激。

【问题讨论】：

标签： json asp-classic xmlhttprequest

【解决方案1】：

您可以查看 aspjson 以使用 VBScript 处理 JSON

http://code.google.com/p/aspjson/

您还可以使用 Javascript 作为您的经典 asp 服务器端脚本语言，这将涉及您用 Javascript 重写您的服务器 http 请求，但它会使页面的 json 部分更容易。

你甚至可以在同一个页面中使用VBS和JS，例如

<%@ Language=javascript %>

<script language="VBScript" runat="server">
Set xmlhttp = CreateObject("Msxml2.ServerXMLHTTP.6.0")
xmlhttp.open "GET", "http://someip:8080/Publisher/Titles/Paging/0,0,tc?output=json", 0
xmlhttp.send ""
Response.AddHeader "Content-Type", "application/json;charset=UTF-8"
Response.Charset = "UTF-8"
pageReturn = xmlhttp.responseText    
Set xmlhttp = Nothing     
</script>

<% var resultcount = pageReturn.Titles.resultCount;
   var moreresources = pageReturn.Titles.moreResources;
%>


<html>
<body>

<%=resultcount%>, <%=moreresources%>
</body>
</html>

【讨论】：