ASP 调用 webservie

    技术2022-05-11  86

     

    using  System; using  System.Web; using  System.Collections; using  System.Web.Services; using  System.Web.Services.Protocols; using  System.Data; /// <summary>/// Summary description for Users/// </summary> [WebService(Namespace  =   " http://tempuri.org/ " )][WebServiceBinding(ConformsTo  =  WsiProfiles.BasicProfile1_1)] public   class  Users : System.Web.Services.WebService  {    public Users () {        //Uncomment the following line if using designed components         //InitializeComponent();     }    [WebMethod]    public string HelloWorld() {        return "Hello World";    }    [WebMethod]    public int UserLog(string UserName,string Pwd)    {        return 1;    }    [WebMethod(Description="名称检测")]    public int UserChk(string UserName)    {        return 0;    }    [WebMethod(Description = "获取类路径")]    public string GetType()    {        return typeof(Users).Namespace;    }    [WebMethod]    public DataSet ProList(out int n)    {        DataSet ds = new DataSet();        DataTable dt = new DataTable();        dt.Columns.Add("ID"typeof(int));        dt.Columns.Add("Name"typeof(string));        DataRow dr = dt.NewRow();        dr["ID"= 1;        dr["name"= "Wangguofu";        dt.Rows.Add(dr);        DataRow dr2 = dt.NewRow();        dr2["ID"= 1;        dr2["name"= "zhangweiwei";        dt.Rows.Add(dr2);        ds.Tables.Add(dt);        n=3;        return ds;    }}

    <%@ LANGUAGE = VBScript %><!--webservie调用示例作者:王国富时间:3/1/07 9:46 PM07/1/3--><HTML><HEAD><TITLE>webservie演示</TITLE></HEAD><BODY>

    <%Const WSDL_URL = "http://webservice.localhost.com/Users.asmx?WSDL" //Dim soapClient3

    set soapclient3 = CreateObject("MSSOAP.SoapClient30") soapclient3.ClientProperty("ServerHTTPRequest") = TrueCall SoapClient3.mssoapinit(WSDL_URL,"","","")

    dim Rst  //返回字符串dim Ds  //返回XMLdim n //返回参数Rst=  SoapClient3.HelloWorld()set Ds = SoapClient3.ProList(n)

    Set xmlDOC =CreateObject("MSXML2.DOMDocument.4.0")    xmlDOC.loadXML(Ds.item(1).xml)

        for each node in xmlDOC.firstChild.firstChild.childNodes        for each inode in node.childNodes            response.Write inode.text&"  "        next        response.Write "<br>"    nextresponse.Write("输出参数:"&n&"<br>")if err <> 0 then  Response.Write(err.description)  err.clear()end if

    %><h1>webservie演示</h1><B>Result:<%=Rst%></B> <P><P></BODY></HTML>

     

    WebService

     


    最新回复(0)