


| Thực hành ASP phần 4 |
Thực hành ASP phần 4Chú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
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
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 > |
|---|