在ASP程序中调用Web Service
在ASP程序中调用Web Service
微软投入了大量资金来推销其.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的折扣。
结论
文章介绍了怎样用ASP来和Web
Service通讯,另外,我们可以知道,将一些功能模块设计成为Web Service可以让ASP象ASP.NET一样调用这些模块。
祝编程快乐,下载以上程序代码(注意下载解压以后是MSI格式文件)。
- 1Web服务内幕,第7部分:WSFL和递归组合
- 2两种对立标准联姻 微软IBM规范Web服务
- 3如何认识和实施石家庄OA信息化系统的集成(BY AMT 夏敬华)
- 4绝对妙语:重塑企业流程、组织和文化
- 5IBM推新工具包助用户跨平台开发Web服务
- 6如何使用Visual Studio .NET和Office XP创建和部署XML Web Service
- 7Generating a Strongly-Typed DataSet from a Web Service
- 8Licensee Requirements from Dev, Test, and Ops
- 9Web服务设计师,第4部分:基于付费Web服务:术语
- 10协同办公OA软件对系统登陆的安全设置
- 11Web服务面临的课题:安全和标准化
- 12IBM WebSphere以最快速度部署开放的Web服务
- 13对于石家庄OA信息化的几种不同理解(BY AMT 夏敬华)
- 14泛普软件石家庄OA信息化系统集成方案
- 15再次跨越障碍--重新审视XML中的语义透明性
- 16将应用程序的功能封装成为Web Services
- 17SOAP技术与B2B应用集成--SOAP消息中的类型/值的编序方法和示例
- 18分析家:安全仍是Web服务普及最大障碍
- 19ADO vs. ADO.NET Webservice
- 20用SLA保证Web服务
- 21XML Web Services Security
- 22微软将于10月采取订阅销售模式
- 23XML Web Service-Enabled Office Documents
- 24由知识螺旋看知识创新(BY AMT 夏敬华 编译)
- 25石家庄OA信息化项目的“做”与“不做”(BY AMT 夏敬华)
- 26第五项修炼简要目录
- 27管理结构性的、半结构性的以及非结构性的数据类型(by AMT 邢华编译)
- 28[原创]浅谈KM的知识源采集和技术实现
- 29鼓励创新的文化的十个规则
- 30Using ASP.NET/WebServices For UPS Shipping Quotes
成都公司:成都市成华区建设南路160号1层9号
重庆公司:重庆市江北区红旗河沟华创商务大厦18楼