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 ' 取得域名服务器返回的信息 
End If 
Set objXML = Nothing 
if err.number <> 0 then 
  xmlGet = "error " 
  err.clear 
end If 
Response.Write xmlGet 
%>

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