VB.Net - Web编程

eb 2012 选择新的网站，打开新建网站对话框。 选择模板列表中的WCF服务模板： 从Web位置下拉列表中选择文件系统。 提供WCF服务的名称和位置，然后单击“确定”。 创建一个新的WCF服务。 创建服务合同并定义操作 服务契约定义服务执行的操作。 在WCF服务应用程序中，您会发现在解决方案资源管理器中的App_Code文件夹中自动创建两个文件 IService.vb - 这将有服务合同; 在简单的话，它将有服务的接口，与服务将提供的方法的定义，您将在您的服务中实现。 Service.vb - 这将实现服务合同。 用给定的代码替换IService.vb文件的代码： Public Interface IService <OperationContract()> Function GetPrice(ByVal symbol As String) As Double <OperationContract()> Function GetName(ByVal symbol As String) As StringEnd Interface 实施合同 在Service.vb文件中，您将找到一个名为Service的类，它将实现在IService接口中定义的服务契约。使用以下代码替换IService.vb的代码： ' NOTE: You can use the "Rename" command on the context menu to change the class name "Service" in code, svc and config file together.Public Class Service Implements IService Public Sub New() End Sub Dim stocks As String(,) = { {"RELIND", "Reliance Industries", "1060.15"}, {"ICICI", "ICICI Bank", "911.55"}, {"JSW", "JSW Steel", "1201.25"}, {"WIPRO", "Wipro Limited", "1194.65"}, {"SATYAM", "Satyam Computers", "91.10"} } Public Function GetPrice(ByVal symbol As String) As Double _ Implements IService.GetPrice Dim i As Integer 'it takes the symbol as parameter and returns price For i = 0 To i = stocks.GetLength(0) - 1 If (String.Compare(symbol, stocks(i, 0)) = 0) Then Return Convert.ToDouble(stocks(i, 2)) End If Next i Return 0 End Function Public Function GetName(ByVal symbol As String) As String _ Implements IService.GetName ' It takes the symbol as parameter and ' returns name of the stock Dim i As Integer For i = 0 To i = stocks.GetLength(0) - 1 If (String.Compare(symbol, stocks(i, 0)) = 0) Then Return stocks(i, 1) End If Next i Return "Stock Not Found" End FunctionEnd Class 测试服务 要运行如此创建的WCF服务，请从菜单栏中选择Debug-> Start Debugging选项。 输出将是： 要测试服务操作，请从左窗格的树中双击操作的名称。 新的选项卡将显示在右窗格中。在右窗格的“请求”区域中输入参数值，然后单击“调用”按钮。下图显示了测试GetPrice操作的结果： 下图显示了测试GetName操作的结果： 使用服务 让我们在同一个解决方案中添加一个默认页面，一个ASP.NET Web窗体，我们将使用我们刚刚创建的WCF服务。执行以下步骤： 右键单击解决方案资源管理器中的解决方案名称，并向解决方案添加新的Web表单。 它将被命名为Default.aspx。 在表单上添加两个标签，一个文本框和一个按钮。 我们需要添加一个服务引用到我们刚刚创建的WCF服务。 右键单击解决方案资源管理器中的网站，然后选择添加服务引用选项。 这将打开“添加服务引用”对话框。在地址文本框中输入服务的URL（位置），然后单击执行按钮。 它使用默认名称ServiceReference1创建服务引用。 单击确定按钮。 添加引用为您的项目做了两个作业： 在web.config文件中为服务创建地址和绑定。 创建代理类以访问服务。双击表单中的“获取价格”按钮，在其Click事件上输入以下代码段：Partial Class _Default Inherits System.Web.UI.Page Protected Sub Button1_Click(sender As Object, e As EventArgs) _ Handles Button1.Click Dim ser As ServiceReference1.ServiceClient = _ New ServiceReference1.ServiceClient Label2.Text = ser.GetPrice(TextBox1.Text).ToString() End SubEnd Class当使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码时，浏览器中将打开以下页面： 输入符号并单击获取价格按钮以获得硬编码的价格：