WebService的几种调用方法

<SCRIPT language="vbscript">
Function CallService(a, b)
Dim url, xmlhttp, xmlDOC

'
SoapRequest = "<?xml version='1.0' encoding='utf-8'?>" & _
"<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
"<soap:Body>" & _
"<Add xmlns='http://localhost/IVRTest/WebServices/'>" & _
"<a>" & a & "</a>" & _
"<b>" & b & "</b>" & _
"</Add>" & _
"</soap:Body>" & _
"</soap:Envelope>"
Set xmlDOC =CreateObject("MSXML.DOMDocument")
xmlDOC.loadXML(SoapRequest)

url = "http://localhost/PlusMethod/PlusTest.asmx"
Set xmlhttp = CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST", url, false
xmlhttp.setRequestHeader "Content-Type", "text/xml;charset=utf-8"

xmlhttp.setRequestHeader "SOAPAction", "http://localhost/IVRTest/WebServices/Add"
xmlhttp.setRequestHeader "Content-Length", LEN(SoapRequest)
xmlhttp.Send(xmlDOC)

If xmlhttp.Status = 200 Then
xmlDOC.load(xmlhttp.responseXML)
CallService = xmlDOC.getElementsByTagName("AddResult")(0).text

else
CallService = 0
end if
End Function
dim result, a, b
a = 20
b= 40
result = CallService(a, b)
document.write(a & " + " & b & " = " & result & "<br/>")
</SCRIPT>

<mce:script language="javascript"><!--
function PostRequestData(URL, data)
{
var xmlhttp = new ActiveXObject("Msxml2.XMLHTTP");
xmlhttp.Open("POST", URL, false);
xmlhttp.SetRequestHeader("Content-Type", "text/xml; charset=utf-8");
xmlhttp.SetRequestHeader("SOAPAction", "http://localhost/IVRTest/WebServices/Add");
xmlhttp.setRequestHeader("Content-Length", data.length);
try{
xmlhttp.Send(data);
var result = xmlhttp.status;
}
catch(ex){
return("0" + ex.description + "|" + ex.number);
}
if (result == 200)
{
return(xmlhttp.responseText);
}
xmlhttp = null;
}
function ServiceCall(a, b)
{
var r;
var data;
var url = 'http://localhost/PlusMethod/PlusTest.asmx';
data = "<?xml version='1.0' encoding='utf-8'?>";
data = data + "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>";
data = data + "<soap:Body>";
data = data + "<Add xmlns='http://localhost/IVRTest/WebServices/'>";
data = data + "<a>" + a.toString() + "</a>";
data = data + "<b>" + b.toString() + "</b>";
data = data + "</Add>";
data = data + "</soap:Body>";
data = data + "</soap:Envelope>";
r = PostRequestData(url, data);
document.write(a.toString() + " + " + b.toString() + " = " + r);
}
//
ServiceCall(20, 99);
// --></mce:script>