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

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

看一下具体实现的代码吧

<%
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%>
 
 

附：json.min.asp