ASP调用WebService转化成JSON数据，附json.min.asp

接触WebService也很久了，但是使用asp调用教程的却不多，还有转成json也不多见，本文全部分享给大家，需要的拿去吧。

首先定义SOAP数据，然后创建HTTP对象，然后使用POST提交，获取状态码为200，就说明调用成功，再进行下一步操作……

看一下具体实现的代码吧

<%Dim strxmlDim str'定义soap消息strxml = strxml = strxml &        strxml = strxml &  strxml = strxml & strxml = strxml & 30000001 '参数1strxml = strxml & ssssss '参数2strxml = strxml & strxml = strxml & strxml = strxml & Set h = createobject( Microsoft.XMLHTTP)'向指定的URL发送Post消息h.open POST, http://www.d*oma*i*n.com/WebService.asmx, Falseh.setRequestHeader Content-Type, text/xml; charset=utf-8h.setRequestHeader Content-Length,LEN(strxml)h.setRequestHeader SOAPAction, http://tem*pu*ri.or*g/GetCategoriesh.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%>

附：json.min.asp