user2.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 objDatabase as new Database 
         objDatabase.ConnectionString = "Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb"
         
         dim objReader as OleDbDataReader
         objReader = objDatabase.SelectSQL _
            ("SELECT UserID FROM tblUsers WHERE " & _
            "UserName = '" & UserName & "' AND " & _
            "Password = '" & Password & "'")
      
         do while objReader.Read
            return objReader.GetInt32(0).ToString
         loop
      end function
      
      public function GetDetails(UserID as integer) as _
         UserDetails
         
         dim objDatabase as new Database
         objDatabase.ConnectionString = "Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banking.mdb"
   
         dim objReader as OleDbDataReader
         objReader = objDatabase.SelectSQL _
            ("SELECT FirstName, LastName, UserName, " & _
            "Password FROM tblUsers WHERE UserID = " & _
            UserID)
         
         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 objDatabase as new Database
         objDatabase.ConnectionString = "Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=H:\ASPNET\data\banking.mdb"
         
         objDatabase.ExecuteNonQuery("UPDATE tblUsers SET " & _
            "FirstName = '" & objDetails.FirstName & "', " & _
            "LastName = '" & objDetails.LastName & "', " & _
            "UserName = '" & objDetails.UserName & "', " & _
            "[Password] = '" & objDetails.Password & "' " & _
            "WHERE UserID = " & intUserID)
         
         return true
      end function
   End Class

End Namespace