posttransaction.asmx

asp入门到精通的源代码

<%@ WebService Language="VB" Class="Bills" %>

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Services

public Class Bills : Inherits WebService
   private objConn As New OleDbConnection("Provider=" & _
      "Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\ASPNET\data\banking.mdb")
   
   <WebMethod()> Public function PostBill(UserID as Integer, strPayee as string, decAmount _
      as Decimal) as String
      dim objAccount as New ASPNETBank.Account(UserID.ToString)
      dim decBalance as Decimal = objAccount.GetBalance
      
      if decAmount <= decBalance then
         objAccount.UpdateBalance(decBalance - decAmount)
         objAccount.AddTransaction(strPayee, decAmount)
         return "Success"   
      else
         return "Insufficient funds"
      end if
   end function
End Class