【下载文档:  asp调用WebService转化成JSON数据，附json.min.asp.txt 】

---

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