ASP 调用 web service

最新推荐文章于 2024-07-02 02:40:10 发布

paolei

最新推荐文章于 2024-07-02 02:40:10 发布

阅读量1.3k

点赞数

分类专栏： asp 文章标签： service asp web webservice components string

本文链接：https://blog.csdn.net/paolei/article/details/2611282

版权

asp 专栏收录该内容

10 篇文章 0 订阅

订阅专栏

1.webservice代码部分（vs2005 C#版本）：

using System;

using System.Web;

using System.Web.Services;

using System.Web.Services.Protocols;



[WebService(Namespace = "http://tempuri.org/")]

[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]

public class Service : System.Web.Services.WebService

{

    public Service () {



        //Uncomment the following line if using designed components 

        //InitializeComponent(); 

    }



    [WebMethod]

    public string HelloWorld() {

        return "Hello World";

    }

    [WebMethod(Description = "计算a+b=sum的功能")]

public int Add(int a,int b)

{

return a+b;

} 

[WebMethod(Description="显示问候语的功能")] 

public string Show(string yourname) 

{ 

return "西部E网 www.weste.net"+"欢迎"+yourname;

} 



    

}

2.asp的代码

<%

Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")

Set xmlDOC =Server.CreateObject("MSXML.DOMDocument")

strWebserviceURL = "http://localhost:8080/webservice/Service.asmx/Add"

'设置参数和值

strRequest = "a=35&b=6"

objHTTP.Open "POST", strWebserviceURL, False

'设置Content-Type很重要

objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

objHTTP.Send(strRequest)

bOK = xmlDOC.load(objHTTP.responseXML)

'查看状态值

if objHTTP.Status=200 then

xmlStr = xmlDOC.xml

xmlStr = Replace(xmlStr,"<","<",1,-1,1)

xmlStr = Replace(xmlStr,">",">",1,-1,1)

Response.Write xmlStr

else

Response.Write objHTTP.Statu&"<br>"

Response.Write objHTTP.StatusText

end if

%>