来源：IT专家网

　　在JavaScript中调用WebService

　　＜script language="javascript"＞
　　function PostRequestData(URL,data){
　　var xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
　　xmlhttp.Open("POST",URL, false);
　　xmlhttp.SetRequestHeader ("Content-Type","text/xml; charset=utf-8");
　　xmlhttp.SetRequestHeader ("SOAPAction","http://tempuri.org/myService/test/isNumner");
　　try {
　　xmlhttp.Send(data);
　　var result = xmlhttp.status;
　　}
　　catch(ex) {
　　return("0" + ex.description + "|" + ex.number);
　　}
　　if(result==200) {
　　return("1" + xmlhttp.responseText);
　　}
　　xmlhttp = null;
　　}
　　function loadit(value){
　　var url = 'http://localhost/myService/test.asmx';
　　var data ;
　　var r;
　　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 + '＜isNumner xmlns="http://tempuri.org/myService/test"＞';
　　data = data + '＜str＞'+value+'＜/str＞';
　　data = data + '＜/isNumner＞';
　　data = data + '＜/soap:Body＞';
　　data = data + '＜/soap:Envelope＞';
　　r=PostRequestData(url,data);
　　document.write(r);
　　}
　　loadit('5');
　　＜/script＞

　　2. 在Asp中

　　＜ %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%＞
　　＜%
　　Dim strxml
　　Dim str
　　'定义soap消息
　　strxml = "＜?xml version='1.0' encoding='tf-8'?＞"
　　strxml = strxml & "＜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/'＞"
　　strxml = strxml & "＜soap:Body＞ "
　　strxml = strxml & "＜isNumner xmlns='http://tempuri.org/myService/test'＞"
　　strxml = strxml & "＜str＞4＜ /str＞"
　　strxml = strxml & "＜/isNumner＞"
　　strxml = strxml & "＜/soap:Body＞"
　　strxml = strxml & "＜/soap:Envelope＞"
　　'定义一个XML的文档对象，将手写的或者接受的XML内容转换成XML对象
　　'set x = createobject("Microsoft.DOMDocument")
　　'初始化XML对象
　　'将手写的SOAP字符串转换为XML对象
　　' x.loadXML strxml
　　'初始化http对象
　　Set h = createobject( "Microsoft.XMLHTTP")
　　'向指定的URL发送Post消息
　　h.open "POST", "http://localhost/myService/test.asmx", False
　　h.setRequestHeader "Content-Type", "text/xml"
　　h.setRequestHeader "SOAPAction", "http://tempuri.org/myService/test/isNumner"
　　h.send (strxml)
　　While h.readyState ＜ ＞ 4
　　Wend
　　'显示返回的XML信息
　　str = h.responseText
　　'将返回的XML信息解析并且显示返回值
　　'Set x = createobject("MSXML2.DOMDocument")
　　' x.loadXML str
　　'str = x.childNodes(1).Text
　　response.write(str)
　　%＞

　　3.在.net中

　　在.net中调用WebService就方便多了，没有必要自己写soap消息了，以上都是用XMLHTTP来发送WebService请求的，在.net只要添加了web引用，会自动为你创建一个代理类。然后使用代理类就像用自己定义的类一样方便。