接触WebService也很久了，但是使用asp调用教程的却不多，还有转成json也不多见，本文全部分享给大家，需要的拿去吧。
首先定义SOAP数据，然后创建HTTP对象，然后使用POST提交，获取状态码为200，就说明调用成功，再进行下一步操作……
看一下具体实现的代码吧
<!--#Include virtual="/Include/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.Le<b style="color:transparent">来源gao@dai!ma.com搞$代^码网</b>ngth - 1 '集合 Response.Write(CStr(categories.get(i).Labels.get(j).LabelName)) next next <pre class="vb"> Set xmlDOC = nothingElse Response.Write h.Status &" " Response.Write h.StatusTextEnd if%>
附：json.min.asp
以上就是ASP调用WebService转化成JSON数据，附json.min.asp的详细内容，更多请关注gaodaima搞代码网其它相关文章！
搞代码网（gaodaima.com）提供的所有资源部分来自互联网，如果有侵犯您的版权或其他权益，请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected]，我们会在看到邮件的第一时间内为您处理，或直接联系QQ：872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接：ASP调用WebService转化成JSON数据，附json.min.asp
转载请注明原文链接：ASP调用WebService转化成JSON数据，附json.min.asp
