<%if session("username")="" then%> <%end if%> <% if request("action")="del_one" then openconn set rs=server.CreateObject("adodb.recordset") sql="delete from tblAdmin Where idadmin='"&replace(Request.QueryString("nid"),"'","''")&"'" Conn.execute (sql) Response.Redirect("?hbxb=30&Quan-ly-nguoi-dung.html") end if%> <% if request("action")="submit" then names=replace(request("names"),"'","''") email=replace(request("email"),"'","''") mobile=replace(request("mobile"),"'","''") username=replace(request("username"),"'","''") password=sha256(replace(request("password"),"'","''")) openconn set rs=server.CreateObject("adodb.recordset") sql="insert into tblAdmin(name,email,mobile,username,password) values(N'"&names&"','"&email&"',N'"&mobile&"','"&username&"','"&password&"')" 'response.Write(password) ' response.End() conn.execute(sql) response.Redirect("?hbxb=30&Quan-ly-nguoi-dung.html") %> <%end if%>
QUẢN LÝ NGƯỜI DÙNG
Tên truy cập:
Mật khẩu:
Nhập lại mật khẩu:
Họ tên:
Email:
Số điện thoại:
<% openconn set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblAdmin order by idadmin DESC",conn,3,1 If Request.QueryString("page") = "" Then intCurrentPage = 1 Else intCurrentPage = CInt(Request.QueryString("page")) End If RS.PageSize = 10 If rs.PageCount > 0 then rs.AbsolutePage = intCurrentPage Else intCurrentPage = 0 End If j=1 i=1 do while not rs.eof %> <% if j=RS.PageSize then exit do end if j=j+1 i = i + 1 RS.MoveNext loop %>
 HỌ TÊN  EMAIL ĐIỆN THOẠI
QUẢN LÝ
 <%= rs("Name") %>  <%=rs("Email")%>  <%=rs("mobile")%>
Xóa thông tin');">