<%session.CodePage=65001%> <%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 tblgiapha SET positions=" & CInt(arrBlockOrder(i)) & " WHERE idmodule=" & 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 tblgiapha Where idmodule='"&replace(Request.QueryString("nid"),"'","''")&"'" Conn.execute (sql) %> <%end if%>
QUẢN LÝ GIA PHẢ
Xem theo đời thứ : <% openconn set rsdoi= server.CreateObject("adodb.recordset") rsdoi.open "select * from tbldoi order by iddoi asc", conn if rsdoi.eof then %> <% else do while not rsdoi.EOF %> " title="<%= rsdoi("name") %>"><%= rsdoi("name") %>  |   <% rsdoi.movenext loop end if rsdoi.close %>
<% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %>  BẠN ĐANG XEM ĐỜI THỨ <%=rs2("name")%> <% end if %>
<% openconn sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs=server.CreateObject("adodb.recordset") rs.open"Select * from tblgiapha where iddoi="&sessionpage&" order by idmodule ASC",conn,3,1 If Request.QueryString("page") = "" Then intCurrentPage = 1 Else intCurrentPage = CInt(Request.QueryString("page")) End If RS.PageSize = 50 If rs.PageCount > 0 then rs.AbsolutePage = intCurrentPage Else intCurrentPage = 0 End If j=1 i=1 do while not rs.eof %> <% openconn set rs1= server.CreateObject("adodb.recordset") rs1.open "select * from tblgiapha where idparrent="&rs("idmodule")&" ", conn,3,1 if not rs1.eof then do while not rs1.eof %> <% rs1.movenext loop end if %> <% if j=RS.PageSize then exit do end if j=j+1 i = i + 1 RS.MoveNext loop %>
<% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %>  ĐỜI THỨ <%=rs2("name")%> <% end if %> <% openconn sessionpage=request("sessionpage") 'sessionpage = formatSQLInput(Request.QueryString("sessionpage")) sessionpage=replace(request.QueryString("sessionpage"),"'","''") set rs2= server.CreateObject("adodb.recordset") rs2.open "SELECT * FROM tbldoi where iddoi="&sessionpage&" ", conn if not rs2.eof then %>  CON CỦA ĐỜI THỨ <%=rs2("name")%> <% end if %>  CON THỨ
QUẢN LÝ
 <%= rs("name") %> ">
Xóa thông tinbà <%else%>ông <%end if%> <%=rs("name")%>" style="cursor:hand " onClick="del_one('<%= rs("idmodule") %>');">
<%= rs1("name") %>
bà <%else%>ông <%end if%> <%=rs1("name")%>" width="24" style="cursor:hand" onClick="del_one('<%= rs1("idmodule") %>');">
<% 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 "
Trang " & intCurrentPage & " / " & rs.PageCount %>