当前位置:SEO自学网 > 网站搭建 > Web网站开发 > 在ASP程序中调用Web Service

在ASP程序中调用Web Service

admin2022年04月27日 14:09:15Web网站开发319

微软投入了大量资金来推销其.NET的各种优点,其中.NET最大的优点之一就是微软始创的XML Web Services。XML Web Services可以将你的程序和以前定制的DLL和COM/DCOM组建分离(避免陷入DLL陷阱),然后将这些功能设计成为XML Web Services,让其他应用程序也可以访问和调用这些功能(比如:网站、分布式程序)(关于怎样在.NET中建立和使用XML Web Services,请参考这篇文章:http://aspnet.4guysfromrolla.com/articles/062602-1.aspx)。那么,当你考虑提升现有ASP程序性能的时候,怎样将其与已经开发的XML Web Services结合呢?

本文的目的就是演示怎样将最新的XML Web Services和现有ASP程序结合起来。通过将一些具体的业务功能写成XML Web Services并且将这些XML Web Services与ASP程序完美结合,现有的ASP程序就可以象ASP.NET程序一样共同“分享”XML Web Services的好处了。当你需要提升现有ASP程序的性能并且和已经开发的ASP.NET同步,但是有没有时间和精力将这些程序完全修改为ASP.NET程序的时候,我们就可以考虑将ASP和XML Web Services结合使用。

本文将要用到的例子是基于以下现实需要的:在B2B电子商务中,对于一些比较固定的客户,我们可能对他们有一些特殊的折扣。下文中我们将建立一Web Services,这个 Web Services的功能就是针对特殊的客户按照一定规则计算折扣,然后,我们将其与一个简单的ASP程序结合起来应用。

数据库

我们在这里使用微软Access中自带的NorthWind数据库,当然,我们不会照盘全收,我们需要对数据库的“Products”数据表表结构作一些小小的修改:增加一个保存商品实际价格的“CostPrice”字段(我们将填入一些随机数据)(这个数据库可以在这里下载到:http://www.4guysfromrolla.com/webtech/code/asptonet.zip)

Web Service

在文章“Creating and Consuming a Web Service”中已经讨论过,我们可以使用文本编辑器来建立Web Services,比如:WEB Matrix Projext或者VS.NET等工具。文中我们将试验使用VS.NET来建立Web Service。

首先,在VS.NET中建立一个新的ASP.NET工程,然后,删除程序建立的Web Form,增加一个新的Web Service文件(命名为:eCommerce.asmx),在这个Web Service中,将默认的名字空间修改为ClassicASP_nDotNET.eCommerce,并且增加一个名为CalculateDiscountCompanyX的方法。

WEB方法CalculateDiscountCompanyX是一个用于计算公司CompanyX折扣的简单函数(当然,更为健壮的解决方法是写一个通用的函数比如:CalculateDiscount(CompanyID),在这个函数中CompanyID专门用于定义特定的公司编号,然后,程序根据公司编号查找数据库得到具体的公司名称,并对其做出折扣计算。我们这里主要的目的在于演示XML Web Services和ASP程序的结合使用,因此,只用需要一些简单函数。)

在我们的应用中,假设对公司CompanyX的最小折扣为10%,公司最低纯利润为7.5%,这些具体的折扣和利润都是固化写在程序中的。

WEB方法CalculateDiscountCompanyX相当简单,将用到以下一些参数:

1、UnitPrice:建议零售价格,数据类型为Double;

2、CostPrice:商品的实际价格,也就是进货价格,数据类型为Double;

3、AccessCode:该Web Services的安全密码,数据类型为String;

如果函数计算出现错误,将返回-1,以下是函数源代码:

<WebMethod()> _

Public Function CalculateDiscountCompanyX(ByVal UnitPrice As Double, _

ByVal CostPrice As Double, _

ByVal AccessCode As String) As Double

Dim dblDiscount As Double, _

dblMarkup As Double, _

dblMinMarkup As Double, _

dblMinClientDiscount As Double

dblMarkup = (1.3) '期望利润

dblMinMarkup = (1.075) ' 最低利润

' 对客户的期望最低折扣

dblMinClientDiscount = (0.1)

Try

If AccessCode = "p455w0rd" Then

' 根据利润计算折扣

dblDiscount = FormatNumber(((UnitPrice - (CostPrice * dblMarkup))), 2)

' 检查折扣是否合适na

If dblDiscount + 0 <= (UnitPrice * dblMinClientDiscount) Then

dblDiscount = FormatNumber((UnitPrice * dblMinClientDiscount), 2)

End If

' 检查是否有最低利润

If (UnitPrice - dblDiscount) <= (CostPrice * dblMinMarkup) Then

dblDiscount = FormatNumber((UnitPrice - (CostPrice * dblMinMarkup)), 2)

End If

Return dblDiscount

Else

Return -1 '密码错误

End If

Catch ex As Exception

Return -1

End Try

End Function

将Web Services和ASP程序结合起来

为了使ASP和Web Services相互通讯变得相对简单,需要首先下载安装MS SOAP Toolkit 2.0(地址为:http://msdn.microsoft.com/SOAP/),这样,就可以使用SOAP来实现ASP和Web Services的通讯,这将使ASP程序和Web Services通讯与使用其他方法相比变得简单。事实上,在4Guys网站有一篇文章专门介绍SOAP的使用,这篇文章就是:Creating Web Services using ASP(地址:http://www.4guysfromrolla.com/webtech/070401-1.shtml)。

这样,ASP页面就可以使用刚才我们建立的Web Service计算公司CompanyX的商品折扣,为了使程序看上去更加简单和条例,我们将SOAP调用从主程序移出来,专门写一个自己的函数:CalculateDiscount。由于使用了SOAP,所以这个函数调用Web Service比较简单,只有几行代码,程序代码如下:

Public Function CalculateDiscount(UnitPrice, CostPrice)

SET objSoapClient = Server.CreateObject("MSSOAP.SoapClient")

objSoapClient.ClientProperty("ServerHTTPRequest") = True

' 下面的链接需要修改为我们具体网站的链接

Call objSoapClient.mssoapinit("http://localhost/ClassicASP_n_DotNET/" & _

"eCommerce.asmx?WSDL", "eCommerce")

' 使用SOAP对象调用Web Service函数

CalculateDiscount = objSoapClient.CalculateDiscountCompanyX(UnitPrice, _

CostPrice, "p455w0rd")

End Function

以上的程序相当的明了,首先mssoapinit方法用WSDL为调用Web Service作准备,然后真正计算折扣的函数CalculateDiscountCompanyX被调用,将折扣计算出来并且返回给函数CalculateDiscount。

在我们提供的源代码下载包里面,意思的函数都可以在companyx_products.asp页面找到,ASP页面将遍历整个“Products”数据表,在现实每条记录的时候都将调用“CalculateDiscount”函数来计算公司CompanyX的折扣。

结论

文章介绍了怎样用ASP来和Web Service通讯,另外,我们可以知道,将一些功能模块设计成为Web Service可以让ASP象ASP.NET一样调用这些模块。

喻凯(编译)

来源:月光博客


扫描二维码推送至手机访问。

版权声明:本文由SEO自学网发布,如需转载请注明出处。

本文链接:http://www.seozixuewang.com/post/2665.html

标签: ASP

“在ASP程序中调用Web Service” 的相关文章

使用ASP产生安装向导的主页2022年04月27日 14:07:05
防止ASP Session丢失的方法2022年04月27日 14:08:44
在Linux上使用ASP2022年04月27日 14:10:19
利用ASP开发Web应用2022年04月27日 14:12:42