<%if session("username")="" then%> <%end if%> <% If Request.Form("btnUpdate")<>"" then arrBlockOrder = Split(Request.Form("cbBlockOrder"),",") intBlockID = Split(Request.Form("txtBlockID"),",") For i=0 to Ubound(intBlockID) openconn set rs=server.CreateObject("adodb.recordset") strSQL = "UPDATE tblnhansu SET thutu=" & CInt(arrBlockOrder(i)) & " WHERE idnhansu=" & CInt(intBlockID(i)) Conn.Execute(strSQL) Next %> <%end if%> <% if request("action")="del_one" then openconn set rs=server.CreateObject("adodb.recordset") sql="delete from tblnhansu Where idnhansu='"&replace(Request.QueryString("nid"),"'","''")&"'" Conn.execute (sql) Response.Redirect("?saoviet=5&Quan-ly-nhan-su.html") end if%>

QUẢN LÝ NHÂN SỰ

<% openconn set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblnhansu order by thutu ASC",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	CHỨC VỤ	THỨ TỰ	QUẢN LÝ
<%=rs("hoten")%> ">	<%=rs("chucvu")%>		">	');">
<% If rs.PageCount > 1 then 'Print Previous Page if required If intCurrentPage <> 1 then Response.Write "Trang trước" Else Response.Write "Trang trước" End If 'Print direct access page numbers. For intCount = 1 to rs.PageCount If intCount = 1 then Response.Write " \| " End If If intCount = intCurrentPage then Response.Write ""&intCount & " \| " Else Response.Write "" & intCount & " \| " End If Next 'Print Next Page if required If intCurrentPage <> rs.PageCount then Response.Write "Trang sau" Else Response.Write "Trang sau" End If End If Response.Write " Bạn đang xem trang " & intCurrentPage & " / " & rs.PageCount %>