Quản Lí User Asp (VB.NET + access Database)

Tue Feb 26, 2013 5:30 pm

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 thêm user cũng tương tự như module Registration

Quản Lí User Asp (VB.NET + access Database) 4

Các phần còn lại gồm các trang sau:

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 đó.
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

Trang ListMember.asp

Code::  <%'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

Code::  <%'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

Code::  <%'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  <%'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!

Quản Lí User Asp (VB.NET + access Database) 5

SinhvienIT

Smile