1. 在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>
还可以使用微软的htc组件来实现,可以到这里下载:
http://msdn.microsoft.com/workshop/author/webservice/webservice.htc
<script language="javascript">
function timer(){
service.useService("http://localhost/myService/test.asmx?WSDL","test");
service.test.callService(callback,"isNumner",'gdh');
}
function callback(res){
if (!res.error)
time.innerText=res.value;
}
</script>
<div id="service" style="behavior:url(webservice.htc)"></div>
<span id="time"></span>
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对象