ASP调用WebService转化成JSON数据，附json.min.asp-中华考试网

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

2017-4-30编辑:ljnbset

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 & ""

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

"code" class="vb"> 

Set xmlDOC = nothingElse Response.Write h.Status &" " Response.Write h.StatusTextEnd if%>

附：json.min.asp

ASP中解决“对象关闭时,不允许操作。”的诡异问题……