user.vb

asp入门到精通的源代码

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

Namespace TYASPNET
   
   Public Class UserDetails
      public FirstName as string
      public LastName as string
      public UserName as string
      public Password as string
      public UserID as string
   End Class
   
   Public Class User
      public function Login(UserName as string, Password as _
         string) as string
         dim intId as string = "0"
         dim Conn as new OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb")
   
         dim objCmd as OleDbCommand = new OleDbCommand _
            ("SELECT UserID FROM tblUsers WHERE " & _
            "UserName = '" & UserName & "' AND " & _
            "Password = '" & Password & "'", Conn)
         dim objReader as OleDbDataReader
      
         try
            objCmd.Connection.Open()
            objReader = objCmd.ExecuteReader
         
            do while objReader.Read
               intId = objReader.GetInt32(0).ToString
            loop
         catch ex as OleDbException
            throw ex
         end try
         
         return intID
      end function
      
      public function GetDetails(UserID as integer) as _
         UserDetails
         dim Conn as new OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb")
   
         dim objCmd as OleDbCommand = new OleDbCommand _
            ("SELECT FirstName, LastName, UserName, " & _
            "Password FROM tblUsers WHERE UserID = " & _
            UserID, Conn)
         dim objReader as OleDbDataReader
      
         try
            objCmd.Connection.Open()
            objReader = objCmd.ExecuteReader
         catch ex as OleDbException
            throw ex
         end try
         
         dim objDetails as new UserDetails
         
         while objReader.Read()
            objDetails.FirstName = objReader.GetString(0) 
            objDetails.LastName = objReader.GetString(1)
            objDetails.UserName = objReader.GetString(2)
            objDetails.Password = objReader.GetString(3)
            objDetails.UserID = UserID.ToString
         end while
         objReader.Close
         
         return objDetails
      end function
      
      public function Update(objDetails as UserDetails, _
         intUserID as integer) as boolean
         dim objOldDetails as new UserDetails
         objOldDetails = GetDetails(intUserID)
         
         with objDetails
            if .FirstName = "" then
               .FirstName = objOldDetails.FirstName
            end if
            if .LastName = "" then
               .LastName = objOldDetails.LastName
            end if
            if .Username = "" then
               .UserName = objOldDetails.UserName
            end if
            if .Password = "" then
               .Password = objOldDetails.Password
            end if
         end with
            
         dim Conn as new OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb")
   
         dim strSQL as string = "UPDATE tblUsers SET " & _
            "FirstName = '" & objDetails.FirstName & "', " & _
            "LastName = '" & objDetails.LastName & "', " & _
            "UserName = '" & objDetails.UserName & "', " & _
            "[Password] = '" & objDetails.Password & "' " & _
            "WHERE UserID = " & intUserID
         dim objCmd as OleDbCommand = new OleDbCommand _
            (strSQL, Conn)
         
         try
            objCmd.Connection.Open()
            objCmd.ExecuteNonQuery
         catch ex as OleDbException
            throw ex
         finally
            objCmd.Connection.Close
         end try
         
         return true
      end function
   End Class

End Namespace