Code Trang Đăng Ký sử Dụng biến Session (VB+Access)

Hôm nay diễn đàn INTECH xin hướng dẫn các bạn tạo trang Đăng Ký và đăng nhập sử dụng biến Session.

Các bạn mở VS 2008 -> file -> new website -> đặt tên cho website là dangky.aspx và chọn masterpages nếu có.

Các bạn thiết kế giao diện trang đăng kí như sau (có thể tùy chỉnh theo nhu cầu và ý thích):


chúng ta có file CSDL.mdb tương ứng lưu trong App_data như sau:


Từ mục Solution (Phía tay phải, bên trên Properties) các bạn click phải vào tên website -> chọn add new item... -> Global.asax, sau đó phía dưới mục Session start (trong phần code của file Global) các bạn gõ đoạn code sau:

Code:

Session.Timeout = 1
        Session("LOGIN_OK") = False

Lưu Ý: Session.Timeout các bạn có thể chỉnh giá trị khác cũng được, đây là giá trị thời gian hiệu lực của biến Session.


Click double vào nút đăng ký (btdangky), trong phần code của trang dangky.aspx.vb ta xóa toàn bộ code có sẵn và dán đoạn code sau.

Code:

Imports System.Data.OleDb
Imports System.Data
Partial Class dang_ky
    Inherits System.Web.UI.Page

    Protected Sub btdang_ky_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btdang_ky.Click
        Dim ket_noi As New OleDbConnection("provider=microsoft.Jet.oledb.4.0;Data source = " & _
        Server.MapPath("App_Data/csdl.mdb"))
        Dim sql1, sql2 As String
        Dim kt As Integer = 0
        sql1 = "select * from thanhvien"
        sql2 = "insert into thanhvien(tentv,matkhau,hoten,ngaysinh,gioitinh) values ('" & tentv.Text & "','" & matkhau.Text & "', '" & hoten.Text & "', '" & ngaysinh.Text & "'," & rdgioitinh.Checked & ")"
        Dim con As OleDbConnection = ket_noi
        Dim cmd1 As New OleDbCommand(sql1, con)
        Dim cmd2 As New OleDbCommand(sql2, con)
        Dim reader As OleDbDataReader
        con.Open()
        reader = cmd1.ExecuteReader
        While reader.Read
            If tentv.Text = reader("tentv") Then
                kt = 1
                Exit While
            End If
        End While
        If kt = 1 Then
            LBTB.text = "Thanh Vien Nay Da Ton Tai"
        Else
            cmd2.ExecuteNonQuery()
            LBTB.text = "Dang Ky Thanh Cong"
        End If
        con.Close()

    End Sub
End Class

Lưu Ý: LBTB là Label dùng để thông báo.

Cuối cùng nhấn F5 để chạy thử nghiệm, ta được kết quả như sau:


Chúc các bạn thành công.