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

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

阅读量：6478 次

发布时间：2019-06-23

本文共 1389 字，大约阅读时间需要 4 分钟。

首先定义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.domain.com/WebService.asmx", Falseh.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%>