APS调用WEBservice方法详解

<%
1、定义WEBservice的地址。
url = "http://110.10.9.135:8889/Service.asmx" 
2、获得网址传过来的数据组
bkh=Request.QueryString("bkh")
num=Request.QueryString("num")
types=Request.QueryString("type")
3、这里需要根据webservice里的内容进行填写。
SoaPRequest="<?xml version="&CHR(34)&"1.0"&CHR(34)&" encoding="&CHR(34)&"utf-8"&CHR(34)&"?>"&"<soap:Envelope xmlns:xsi="&CHR(34)&"http://www.w3.org/2001/XMLSchema-instance"&CHR(34)&" "&"xmlns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "&"xmlns:soap="&CHR(34)&"http://schemas.xmlsoap.org/soap/envelope/"&CHR(34)&">"&"<soap:Body>"&"<GetImg xmlns="&CHR(34)&"http://myservice/"&CHR(34)&">"&"<bkh>"&bkh&"</bkh>"&"<num>"&num&"</num>"&"<type>"&types&"</type>"&"</GetImg>"&"</soap:Body>"& "</soap:Envelope>"

4、创建一个XML的接收器
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
5、这个有没有都可以，与4相同。
Set   xmlDOC   =Server.CreateObject( "MSXML.DOMDocument") 
6、通过Msxml2.XMLHTTP打开
xmlhttp.Open "POST",url,false
7、需要根据webservice里的内容进行填写。
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.setRequestHeader "HOST","110.10.9.135"
xmlhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
xmlhttp.setRequestHeader "SOAPAction", "http://myservice/GetImg" 
8、发送
xmlhttp.Send(SoapRequest)
9、如果没有5，这个也没有
bOK   =   xmlDOC.load(xmlhttp.responseXML) 
10、判断状态200是通过，500是没有通过
if   xmlhttp.Status=200   then 
xmlStr   =   xmlDOC.xml 
Response.Write "A1:"  & xmlhttp.Status & " <br> " 
Response.Write  "A2:"  & xmlhttp.StatusText  & " <br> "