大虾进来,帮忙看看webservice代码错在那里.
大虾进来,帮忙看看webservice代码错在那里.
<%@Language="VBScript"%>
<%
Const WSDL_Path="http://localhost/AspService/WebApplication1/CmpplexType/TransXmlNodeList.wsdl"
Dim xmlDoc
Set xmlDoc=Server.CreateObject("MSXML2.DOMDocument")
xmlDoc.loadXML("<Data><Name>Susan</Name><BirthDay>2006/05/06</BirthDay><Tel>2563987</Tel></Data>")
Dim SoapClient
Set SoapClient=Server.CreateObject("MSSOAP.SoapClient")
SoapClient.ClientProperty("ServerHttpRequest") =True
SoapClient.mssoapinit WSDL_Path
Dim xmlList
Set xmlList=SoapClient.EchoPerson(xmlDoc.documentElement.childNodes)
Dim strPerson
strPerson="The source is Name: " & xmlList.Item(0).text & vbCrlf _
& "the BirthDay: " & xmlList.Item(1).text & vbCrlf _
& "the Tel: " & xmlList.Item(2).text
Response.Write strPerson
%>
当程序运行到"SoapClient.ClientProperty("ServerHttpRequest") =True"
就弹"(0x80020009)
发生意外。"
帮忙指点一下.