service1.asmx.vb

Visual Basic.NET控件时尚编程百例

Imports Store
Imports System.Web.Services
Imports StoreCommon.Services

<WebService(Namespace := "http://tempuri.org/")> _
Public Class Service1
    Inherits System.Web.Services.WebService

#Region " Web 服务设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Web 服务设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加您自己的初始化代码

    End Sub

    'Web 服务设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意：以下过程是 Web 服务设计器所必需的
    '可以使用 Web 服务设计器修改此过程。
    '不要使用代码编辑器修改它。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        'CODEGEN: 此过程是 Web 服务设计器所必需的
        '不要使用代码编辑器修改它。
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

#End Region

    ' Web 服务示例
    ' HelloWorld() 示例服务返回字符串 Hello World。
    ' 若要生成项目，请取消注释以下行，然后保存并生成项目。
    ' 若要测试此 Web 服务，请确保 .asmx 文件为起始页
    ' 并按 F5 键。
    '
    '<WebMethod()> Public Function HelloWorld() As String
    '	HelloWorld = "Hello World"
    ' End Function

    <WebMethod()> Public Function InstantOrder(ByVal productID As String, _
    ByVal Quantity As Integer, ByVal strCartID As String) As OrderDetails
        Dim myCart As New StoreCommon.Services.ShoppingCart()
        If strCartID.Trim <> "" Then
            '将商品添加到购物车中
            myCart.AddItem(strCartID, productID, Quantity)
            '实例化一个订单处理器
            Dim myOrder As New OrderProcessor()
            '在订单中插入一条记录
            Dim orderID As String = myOrder.InsertOrders("111")
            '在定单中插入一条订单的详细记录
            myOrder.InsertOrderItem(orderID, productID, Quantity)
            '返回订单的详细信息
            Return myOrder.GetOrderDetails(orderID)
        End If
    End Function

    <WebMethod()> Public Function CheckStatus( _
    ByVal intOrderID As String) As OrderDetails
        '实例化一个订单处理器
        Dim myOrderProcessor As New OrderProcessor()
        '返回订单的详细信息
        Return myOrderProcessor.GetOrderDetails(intOrderID)

    End Function

End Class