user.vb

asp入门到精通的源代码

Imports System
Imports System.Data
Imports System.Data.OleDb

Namespace BananaMobile
   
   Public Class UserDetails
      public UserID as Integer
      public Username as string
      public Password as string
      public FirstName as string
      public LastName as string
      public City as string
      public State as string
      public ZIP as string
      public Address as string
      public Phone as string
      public Email as string
   End Class
   
   Public Class User
      private objConn As New OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banana.mdb")
         
      public function Login(strUsername as String, _
         strPassword as String) as Integer
         dim intId as Integer
         
         Dim objCmd As New OleDbCommand("spLoginUser", objConn)
         objCmd.CommandType = CommandType.StoredProcedure

         Dim objParam As New OleDbParameter("@Username", OleDbType.Char)
         objParam.Value = strUsername
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Password", OleDbType.Char)
         objParam.Value = strPassword
         objCmd.Parameters.Add(objParam)

         Try 
            objConn.Open
            intID = CType(objCmd.ExecuteScalar, Integer)
            objConn.Close
         Catch e As Exception
            throw e
         End Try
         
         if intID.ToString = "" then
            return 0
         end if
         return intID
      end function
      
      public sub AddUser(objUser as UserDetails)
         Dim intID as Integer
         Dim objReader as OleDbDataReader
         Dim objCmdID As New OleDbCommand("SELECT MAX(UserID) FROM tblUsers", objConn)
         Dim objCmd As New OleDbCommand("spAddUser", objConn)
         objCmd.CommandType = CommandType.StoredProcedure

         Dim objParam As New OleDbParameter("@Username", OleDbType.Char)
         objParam.Value = objUser.Username
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Password", OleDbType.Char)
         objParam.Value = objUser.Password
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@FirstName", OleDbType.Char)
         objParam.Value = objUser.FirstName
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@LastName", OleDbType.Char)
         objParam.Value = objUser.LastName
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Address", OleDbType.Char)
         objParam.Value = objUser.Address
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@City", OleDbType.Char)
         objParam.Value = objUser.City
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@State", OleDbType.Char)
         objParam.Value = objUser.State
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@ZIP", OleDbType.Char)
         objParam.Value = objUser.ZIP
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Phone", OleDbType.Char)
         objParam.Value = objUser.Phone
         objCmd.Parameters.Add(objParam)
         
         objParam = New OleDbParameter("@Email", OleDbType.Char)
         objParam.Value = objUser.Email
         objCmd.Parameters.Add(objParam)
         
         Try 
            objConn.Open
            objUser.UserID = CType(objCmdID.ExecuteScalar, Integer)
            objCmd.ExecuteNonQuery
            objConn.Close
         Catch e As Exception
            throw e
         End Try
         
         if objUser.UserID.ToString = "" then
            objUser.UserID = 0
         end if
      end sub
   End Class
End Namespace