Thanh Nguyên
Admin
Tổng số bài gửi : 526
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 26
Đến từ : Bà Rịa-Vũng Tàu
 |  Tiêu đề: Xây Dựng Trang Login & Logout (VB.NET + Access database)  Tue Feb 26, 2013 5:21 pm | |
|  | |  |  | Trong website có thể có những nơi chỉ dành cho các thành viên đã đăng ký mà không dành cho khách vãng lai, để truy cập những nơi này buộc thành viên phải đăng nhập vào website (login), các thành viên đã login sau đó có thể thoát (logout) .Việc ghi nhớ một thành viên đã login được lưu trong một biến kiểu session. Khi thành viên này logout chúng ta chỉ việc xóa biến session này. Module này gồm form login, file xử lý form login, file xử lý logout, database là table tblUser đã mô tả trong module Registration. LoginForm.htm: Form login LoginProcess.asp: xử lý form login, nếu login thành công thi redirect tới trangIndex.asp,nếu không thì quay lại form login. Index.asp: Trang chủ chỉ dành cho member đã login bằng cách kiểm tra biếnsession, nếu biến này rỗng (chưa login) thì từ chối truy cập và redirect đến form login Logout.asp: Trang xử lý logout bằng cách hủy session Trang LoginForm.html- Code:
<html> <head> <title>Login</title> </head> <body> <form method="POST" action="LoginProcess.asp"> <p> Username: <input type="text" name="username"></p> <p> Password: <input type="password" name="password"></p> <p><input type="submit" value="Submit" name=“submit"></p> </form> </body> </html>
Trang LoginProcess.asp- Code:
<!--#include file ="Connection.asp"-->
<%
username=request.form("username")
password=request.form("password")
openConn
sql="select * from tblUser where username='"&username&"' and
password='"&password&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn
if not rs.eof then ‘login thành công
session("username")=rs("username")
rs.close
destroyConn
response.redirect "index.asp"
else ‘login thất bại
session("username")=""
rs.close
destroyConn
response.redirect "LoginForm.html"
end if
%>
Trang Index.asp- Code:
<html> <head> <title>Home page for Member only</title> </head> <body> <% if session("username")="" then ‘kiểm tra người dùng đã login chưa? response.redirect "LoginForm.html" end if%> Welcome to <%=session("username")%>. This page is for Member only! <a href="Logout.asp"> Logout</a> </body> </html>
Trang Logout.asp- Code:
<%session.abandon ‘hủy session 'session("username")="“ %> <a href="LoginForm.html">Login</a>
SinhvienIT   | |  | |  |
_________________ Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ [You must be registered and logged in to see this link.] |
|
hlong1994
Friend
Tổng số bài gửi : 1
Được Cảm Ơn : 0
Join date : 08/12/2014
Age : 24
| | Tiêu đề: Re: Xây Dựng Trang Login & Logout (VB.NET + Access database) Mon Dec 08, 2014 9:25 pm | |
| |
|
