bananaconnect.asmx

asp入门到精通的源代码

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

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

Public Class Authenticator : Inherits SoapHeader
   Public Username as string
   Public Password as string
End Class
      
public Class BananaConnect : Inherits WebService
   public sHeader as Authenticator
   private objConn As New OleDbConnection("Provider=" & _
      "Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=C:\ASPNET\data\banana.mdb")

   <WebMethod(), SoapHeader("sHeader")> Public sub UpdateData(UserID as Integer, Mileage as Double, MaxSpeed as Double, Throttle as Double)
      if sHeader is Nothing then
         throw new ArgumentNullException()
      end if
         
      if Authenticate(sHeader.UserName, sHeader.Password) then
         Dim objCmd As New OleDbCommand("spBananaConnect", objConn)
         objCmd.CommandType = CommandType.StoredProcedure

         Dim objParam As New OleDbParameter("@UserID", OleDbType.Integer)
         objParam.Value = UserID
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Mileage", OleDbType.Double)
         objParam.Value = Mileage
         objCmd.Parameters.Add(objParam)
            
         objParam = New OleDbParameter("@MaxSpeed", OleDbType.Double)
         objParam.Value = MaxSpeed
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Throttle", OleDbType.Double)
         objParam.Value = Throttle
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Date", OleDbType.Date)
         objParam.Value = DateTime.Now.ToString
         objCmd.Parameters.Add(objParam)
            
         Try
            objConn.Open
            objCmd.ExecuteNonQuery
            objConn.Close
         Catch e As Exception
            throw e
         End Try   
      end if
   End sub
      
   private function Authenticate(strUser as string, strPass as string) as boolean
      try
         dim intID as integer = 0
         dim objCmd as new OleDbCommand("spLoginUser", objConn)
         
         Dim objParam As New OleDbParameter("@Username", OleDbType.Integer)
         objParam.Value = strUser
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Password", OleDbType.Integer)
         objParam.Value = strPass
         objCmd.Parameters.Add(objParam)
         
         objConn.Open
         intID = CType(objCmd.ExecuteScalar, Integer)
         objConn.Close
            
         if intID.ToString = "" then
            return false
         end if
         return true
      catch ex as OleDbException
         return false
      end try
   end function
End Class