asp访问java的webservice

网上asp访问webserivce的介绍很多，但硬是没有找到通用的，于是自己测试出来，代码及说明如下：

<%

   Dim strUrl, strXml, objXML, xmlGet

   strUrl ="http://服务器IP:8080/WebService/services/MyService"

   strXml ="<?xml version=""1.0""?>"

   strXml = strXml&"<SOAP-ENV:Envelope xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"

   strXml = strXml&"<SOAP-ENV:Body>"

   strXml = strXml&"<UserLogin xmlns=""http://service.com"">"

   strXml = strXml&"<UserName>test</UserName>"

   strXml = strXml&"<UserPwd>123456</UserPwd>"

   strXml = strXml&"</UserLogin>"

   strXml = strXml&"</SOAP-ENV:Body>"

   strXml = strXml&"</SOAP-ENV:Envelope>"

   response.write strXml

   Set objXML = server.CreateObject("MSXML2.XMLHTTP") '创建MS的XMLHTTP组件

   objXML.Open "post",strURL,false

   objXML.setrequestheader "content-length ",len(strXml)

   objXML.setrequestheader "content-type", "application/x-www-form-urlencoded"

   objXML.send strXml ' 发送信息到url；

   If objXML.readystate <>4 then

      xmlGet ="xml error"

   Else

      xmlGet = objXML.responseText ' 取得域名服务器返回的信息

   EndIf

   Set objXML =Nothing

   if err.number <>0 then

      xmlGet ="error "

      err.clear

   endIf

   Response.Write xmlGet

%>

SOAP的那两行必须有，否则无法被JAVA识别；xml的编写，需要与http://服务器IP:8080/WebService/services/MyService?wsdl提示的相同。