INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 2 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 2 Khách viếng thăm

Không

View the whole list


Go down
Quản Gia
Quản Gia
Admin
Admin
Tổng số bài gửi : 86
Được Cảm Ơn : 17
Join date : 04/11/2012

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

Mon Mar 11, 2013 8:48 pm
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):

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

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

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

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.

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

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:

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

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

Smile Surprised
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết