微软投入了大量资金来推销其.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”中已经讨论过( http://aspnet.4guysfromrolla.com/articles/062602-1.aspx ),我们可以使用文本编辑器来建立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(关于WSDL,请参考: http://samples.gotdotnet.com/quickstart/aspplus/doc/webservicesintro.aspx )为调用Web Service作准备,然后真正计算折扣的函数CalculateDiscountCompanyX被调用,将折扣计算出来并且返回给函数CalculateDiscount。
在我们提供的源代码下载包里面,意思的函数都可以在companyx_products.asp页面找到,ASP页面将遍历整个“Products”数据表,在现实每条记录的时候都将调用“CalculateDiscount”函数来计算公司CompanyX的折扣。
本文的目的就是演示怎样将最新的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”中已经讨论过( http://aspnet.4guysfromrolla.com/articles/062602-1.aspx ),我们可以使用文本编辑器来建立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(关于WSDL,请参考: http://samples.gotdotnet.com/quickstart/aspplus/doc/webservicesintro.aspx )为调用Web Service作准备,然后真正计算折扣的函数CalculateDiscountCompanyX被调用,将折扣计算出来并且返回给函数CalculateDiscount。
在我们提供的源代码下载包里面,意思的函数都可以在companyx_products.asp页面找到,ASP页面将遍历整个“Products”数据表,在现实每条记录的时候都将调用“CalculateDiscount”函数来计算公司CompanyX的折扣。