建站代码网

热门标签

asp实现webservice接口查询对接

Function CheckIsInstall(aaaa,pwd,ip)
     Dim strWebserviceURL,strRequest,bOK,objHTTP,host,xmlDOC,xmlStr
  Set objHTTP=Server.CreateObject("MSXML2.XMLHTTP")
  Set xmlDOC=Server.CreateObject("Microsoft.XmlDom")
  strWebserviceURL="http://219.147.134.7:9089/hljctWebService/services/FlowPlanQueryService"
  strRequest = "<?xml version='1.0' encoding='utf-8'?><soap:Envelope xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/' xmlns:soapenc='http://schemas.xmlsoap.org/soap/encoding/' xmlns:tns='http://.hub.com' xmlns:types='http://.hub.com/encodedTypes' xmlns:xsi='http://.hub.com"
  objHTTP.Send(strRequest)
  bOK   =   xmlDOC.load(objHTTP.responseXML)
  If   objHTTP.Status=200   then
  
   xmlDOC.load(objHTTP.responseXML)
   xmlStr = xmlDOC.xml
   'Response.Write xmlStr
   xmlStr   =   Replace(xmlStr,"<"," <",1,-1,1)
   xmlStr   =   Replace(xmlStr,">",">",1,-1,1)
   
   CheckIsInstall=xmlstr
  Else
   Response.Write  objHTTP.Status&" <br>"
   Response.Write  objHTTP.StatusText
  End   If
End Function
X