Tự học guitar, lập trình, khiêu vũ, tennis - Tu hoc guitar, lap trinh, khieu vu, tennis

Saturday
May 26th
Text size
  • Increase font size
  • Default font size
  • Decrease font size

Trang chủ arrow Lập trình arrow ASP arrow Thực hành ASP phần 4
Thực hành ASP phần 4

Thực hành ASP phần 4

Chúng ta sẽ làm một ứng dụng nhỏ nhưng thiết thực, đó là quản lý User. Có thể đó là user của một Forum, hay user của một web nghe nhạc, web bán hàng trực tuyến...

Quản lý user bao gồm

  • Liệt kê danh sách user
  • Thêm user
  • Sửa user
  • Xóa user

Phần Liệt kê tương tự như chúng ta đã làm, tuy nhiên sẽ kết hợp với các thẻ HTML để diện mạo dễ nhìn hơn
Phần Thêm user cũng tương tự như phần thực hành trước.
Hai phần Sửa và Xóa thực sự cũng gần như phần thêm user mà thôi. Thay vì Insert thì ta sẽ dùng Update hay Delete

Tóm lại ứng dụng của chúng ta sẽ gồm những trang như sau

  • LoginForm.htm: Form login
  • LoginProcess.asp: xử lý form login, nếu login thành công thi redirect tới trang
    ListMember.asp,nếu không thì quay lại form login.
  • Logout.asp: Trang xử lý logout bằng cách hủy session
  • RegistrationForm.htm: Là một form HTML mà thôi, sau khi bạn điền thông tin và click nút Submit, dữ liệu sẽ được chuyển qua trang RegistrationProcess.asp
  • Connection.asp: Trang này có nhiệm vụ kết nối với Database, tương tự như ví dụ trước. Tuy nhiên chúng ta có một chút thay đổi. Đây là trang quan trọng, bạn nên sử dụng tách biệt và sẽ được sử dụng đi sử dụng lại mỗi khi chúng ta cần connect với Database.
  • RegistrationProcess.asp: Trang này sau khi nhận dữ liệu từ RegistrationForm.htm sẽ Insert dữ liệu đó vào bảng tblUser
  • ListMember.asp: Liệt kê danh sách thành viên, với mỗi thành viên có các liên kết cho phép sửa và xóa thành viên đó. Trang này chỉ dành cho member đã login bằng cách kiểm tra biến session, nếu biến này rỗng (chưa login) thì từ chối truy cập và redirect đến form login. Bạn có thể thay đổi code để chỉ Adminitrator Login vào mà thôi
  • EditMemberForm.asp: form sửa thành viên, hiển thị các thông tin hiện tại của thành viên để người dùng có thể sửa.
  • EditMemberProcess.asp: xử lý form sửa thành viên, update lại thành viên vào DB
  • DeleteMember.asp: xóa thành viên

Chúng ta sẽ không nhắc lại 6 file đầu. Bạn coi lại phần trước

Trang ListMember.asp

<!--#include file ="Connection.asp"-->
<%'if session("username")="" then response.redirect "LoginForm.html"%>
<% openConn
set rs = server.createobject("ADODB.Recordset")
rs.open "select * from tblUser", conn%>
<table border="1" width="200">
<tr><td>ID</td><td>Username</td><td>Address</td><td>Edit</
td><td>Delete</td></tr>
<% do while not rs.EOF
link1 = "EditMemberForm.asp?id=" & rs("id")
link2 = "DeleteMember.asp?id=" & rs("id")%>
<tr>
<td><%=rs("id")%></td>
<td><%=rs("username")%></td>
<td><%=rs("address")%></td>
<td><a href="<%=link1%>">Edit</a></td>
<td><a href="<%=link2%>">Delete</a></td>
</tr>
<% rs.movenext
loop
rs.close
destroyConn%>
</table>

Trang EditMemberForm.asp

<!--#include file ="Connection.asp"-->
<%'if session("username")="" then response.redirect "LoginForm.html"%>
<%id=request.queryString("id")
'validate id
openConn
set rs = server.createobject("ADODB.Recordset")
rs.open "select * from tblUser where id="&id,conn%>
<form method="POST" action="EditMemberProcess.asp">
<p>UserName <input type="text" name="username"
value="<%=rs("username")%>"></p>
<p>Password <input type="password" name="password"></p>
<p>Confirm Password <input type="password"
name="confirmPassword"></p>
<p>Address <input type="text" name="address"
value="<%=rs("address")%>"></p>
<input type="hidden" name="id" value="<%=id%>">
<p><input type="submit" value="Submit" name="B1"></p>
</form>
<% rs.close
destroyConn%>

Trang EditMemberProcess.asp

<!--#include file ="Connection.asp"-->
<%'if session("username")="" then response.redirect "LoginForm.html"%>
<%id=request.form("id")
username=request.form("username")
password=request.form("password")
confirmPassword=request.form("confirmPassword")
address=request.form("address")
'validate if username is exist in the tblUsers?,password and confirmPassword
are ‘matched?, address
openConn
sql="UPDATE tblUser SET [username]='" &username&
"',[password]='"&password&"',[address]='"&address& "' WHERE id ="&id
conn.execute sql
destroyConn%>
User <%=username%> has been Edited!

Trang DeleteMember.asp

<!--#include file ="Connection.asp"-->
<%'if session("username")="" then response.redirect "LoginForm.html"%>
<%
openConn
id=request.queryString("id")
'validate id
conn.execute "Delete from tblUser where id="&id
destroyConn
%>
User has been Deleted!


Sau khi upload lên Server, bạn chạy file ListMember.asp để xem danh sách thành viên. Trong bảng danh sách có cách Link để bạn có thể Xóa hay Sửa đổi. Bạn cần phải Login để vào trang ListMember.asp



 
< Trước   Tiếp >