最近碰到的一个问题，需要在
ASP和客户端调用.NET的webservice，也就是说需要用
vbscript或javascript来调用webservice。
在网上看了看，大多数方案都是利用
SOAP Toolkit，但是因为SOAP Toolkit在今年就会被停止后续的支持了，并且要使用soapclient需要专门安装SOAP Toolkit，这对客户端来说不具有通用性，因此想到了使用XMLhttp，利用XMLhttp来和webservice交互。
客户端代码如下：
改为
服务器端的ASP代码为：
<%
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
Set XMLDOC =Server.CreateObject("MSXML.DOMDocument")
strWebserviceURL = "http://localhost/possible/Service1.asmx/add"
'设置参数及其值
strRequest = "x=2&y=3"
objHTTP.Open "POST", strWebserviceURL, False
'设置这个Content-Type很重要
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send(strRequest)
bOK = XMLDOC.load(objHTTP.responseXML)
'看看状态值
if objHTTP.Status=200 then
XMLStr = XMLDOC.XML
XMLStr = Replace(XMLStr,"<","<",1,-1,1)
XMLStr = Replace(XMLStr,">",">",1,-1,1)
Response.Write XMLStr
else
Response.Write objHTTP.Statu&"
"
Response.Write objHTTP.StatusText
end if
%>
以上代码在本地测试都没有问题（在部署webservice的本地机器上测试的），然而把strWebserviceURL = "http://localhost/possible/Service1.asmx/add"改为部署在其他机器上的webservice时，却出了问题，结果一直是返回500错误，即objHTTP.Status一直都为500。
原因在于.Net Framework1.1默认不支持HttpGet和HttpPost。如果修改webservice里的web.config增加
后，上代码就可以调用远程机器上的webservice了。
而利用SOAP发送在默认情况下即可得到.Net Framework1.1的支持，因此用构造Soap请求的XML字符串给XMLhttp对象来send的方法就对远程服务器的web.config没有要求了，于是根据local显示的例子构造了一个soapRequest的string,发送给了即将部署的远程主机,结果返回了200的status code,并且可以顺利取得responseXML.类似代码如下：
客户端代码如下：
改为服务器端的ASP代码为：
<%
Dim url,XMLhttp,dom,node,XMLDOC
'根据webservice的测试页不同的方法构造不同的soap request
SoapRequest = ""& _
"
"XMLns:xsd="&CHR(34)&"http://www.w3.org/2001/XMLSchema"&CHR(34)&" "& _
"XMLns:soap="&CHR(34)&"http://schemas.XMLsoap.org/soap/envelope/"&CHR(34)&">"& _
"
"& _
""& _
"3"& _
"4"& _
""& _
""& _
""
url = "http://www.xxxx.com/Service1.asmx?methodname=Add"
Set XMLDOC =server.CreateObject("MSXML.DOMDocument")
XMLDOC.loadXML(SoapRequest)
Set XMLhttp = server.CreateObject("MsXML2.XMLHTTP")
XMLhttp.Open "POST",url,false
XMLhttp.setRequestHeader "Content-Type", "text/XML;charset=utf-8"
XMLhttp.setRequestHeader "SOAPAction", "http://localhost/add"
XMLhttp.setRequestHeader "Content-Length",LEN(SoapRequest)
XMLhttp.Send(XMLDOC)
If XMLhttp.Status = 200 Then
XMLDOC.load(XMLhttp.responseXML)
Response.Write XMLhttp.Status&"
"
Response.Write XMLhttp.StatusText&"
执行结果为："
Response.Write XMLDOC.getElementsByTagName("addResult")(0).text
else
Response.Write XMLhttp.Status&"
"
Response.Write XMLhttp.StatusText
end if
%>
以上用的都是vbscript的，对于javascript基本上都是一样的，只需要做一些小的改动，具体代码这里就省略了。
///////////////////////////////////////////////////////////////////////////////////////////////////////
