[InvalidOperationException: 请求格式无法识别。]System.Web.Services.Protocols.WebServiceHandlerFactory.CoreGetHandler(Type type, HttpContext context, HttpRequest request, HttpResponse response) +388System.Web.Services.Protocols.WebServiceHandlerFactory.GetHandler(HttpContext context, String verb, String url, String filePath) +94System.Web.HttpApplication.MapHttpHandler(HttpContext context, String requestType, String path, String pathTranslated, Boolean useAppConfig) +699System.Web.MapHandlerExecutionStep.System.Web.HttpApplication+IExecutionStep.Execute() +95System.Web.HttpApplication.ExecuteStep(IExecutionStep step, Boolean& completedSynchronously) +173

<%@ WebService Language="vb" Class="Vegetables.Vegservice"%>

imports system
imports system.web.services
imports system.web.services.protocols
imports system.xml

namespace Vegetables


    <webservice(namespace:="http://hx66.com/net")>public class Vegservice
        inherits system.web.services.webservice

    public enum Appearance
        Round
        Bendy
        Odd
    end enum

    Public structure Vegetable
        public VegName as string
        public VegColor as string
        public VegLooks as Appearance
        public NumberInStock as integer
    end structure
        <webmethod()>Public function GetVegetable(byval vegetablename as string) as Vegetable
            'Context.request.saveas("c:\VegServiceRequest.htm",false)
            dim result as Vegetable

            select Case vegetablename.tolower()
                case "cucumber"
                    result.VegName="Cucumber"
                    result.VegColor="Green"
                    result.VegLooks= Appearance.Bendy
                    result.NumberInStock=10
                case "sweetcorn"
                    result.VegName="Sweetcorn"
                    result.VegColor="Yellow"
                    result.VegLooks= Appearance.Odd
                    result.NumberInStock=2
                case "potato"
                    result.VegName="Potato"
                    result.VegColor="Brown"
                    result.VegLooks= Appearance.Round
                    result.NumberInStock=55
                case else
                    dim code as xmlqualifiedname
                    code=new xmlqualifiedname("Sender","http://schemas.xmlsoap.org/soap/envelope")
                    dim doc as xmldocument
                    doc=new xmldocument()
                    dim detail as xmlelement
                    detail=doc.createelement("detail")
                    dim veg as xmlelement
                    veg=doc.createelement("vegFault","vegetableName","http://www.hx66.com/net/vegservice/faults")
                    veg.innertext=vegetablename
                    detail.Appendchild(veg)
                    doc.appendchild(detail)
                    throw new soapexception("Unknown vegetable.",code,"http://www.hx66.com/net/vegservice",doc)
            end select
            return result
        end function

        <webmethod()>public function GetVegetables(byval vegetablenames as string()) as Vegetable()
            'context.request.Saveas("c:\VegServiceRequest.htm",false)
            dim results() as Vegetable
            results= new Vegetable(vegetablenames.length){}

            dim resultNum as integer
            for resultNum = 0 to results.length - 1 step resultNum + 1
                results(resultNum)=GetVegetable(vegetablenames(resultNum))
            next

            return results
        end function
    end class
end namespace