ASP调用WebService转化成JSON数据，附json.min.asp_应用技巧_

<% Dim strxml Dim str '定义soap消息 strxml = "" strxml = strxml & "" strxml = strxml & " " strxml = strxml & "" strxml = strxml & "30000001" '参数1 strxml = strxml & "ssssss" '参数2 strxml = strxml & "" strxml = strxml & "" strxml = strxml & "" Set h = createobject( "Microsoft.XMLHTTP") '向指定的URL发送Post消息 h.open "POST", "http://www.domain.com/WebService.asmx", False h.setRequestHeader "Content-Type", "text/xml; charset=utf-8" h.setRequestHeader "Content-Length",LEN(strxml) h.setRequestHeader "SOAPAction", "http://tempuri.org/GetCategories" h.send (strxml) '显示返回的XML信息 If h.Status = 200 Then Set xmlDOC = server.CreateObject("MSXML.DOMDocument") xmlDOC.load(h.responseXML) jsonText = xmlDOC.childNodes(1).Text '转换成JSON，调用json.min.asp Set categories = JSON.parse(jsonText) for i = 0 to categories.Length -1 　　Response.Write(CStr(categories.get(i).CategoryName)) '属性 　　for j = 0 to categories.get(i).Labels.Length - 1 '集合 　　Response.Write(CStr(categories.get(i).Labels.get(j).LabelName)) 　　next next 
 Set xmlDOC = nothingElse Response.Write h.Status &" " Response.Write h.StatusTextEnd if%>