📄 adminmanager.asp

📁 通用考勤系统
💻 ASP
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：ctplr@163.com          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<script language=javascript>
<!--


function checkAll(){
  for(i=0;i<document.admintable.chknum.length;i++){
   document.admintable.chknum[i].checked=true;
}
}
 function uncheckAll(){
 for(i=0;i<document.admintable.chknum.length;i++){
   document.admintable.chknum[i].checked=false;
}
}

function switchAll()
{
 var num=document.admintable.chknum.length;
 if(num>1)
 {
 for(var i=0;i<num;i++) 
     {  
        if(document.admintable.chknum[i].checked==false)
        {
          document.admintable.chknum[i].checked=true;
        }
        else
        {
         document.admintable.chknum[i].checked=false;
        }
     } 
     }
     else
     {
       if(document.admintable.chknum.checked==false)
        {
          document.admintable.chknum.checked=true;
        }
        else
        {
         document.admintable.chknum.checked=false;
        }
     }
}



//-->
</script>
<!--#include file="check.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../webinfo.asp"-->
<link href=left.css rel=stylesheet type="text/css">
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%

if session("qx")<>1 then
response.write "对不起，您没有操作权限！"
else
%><center>
<table background=../images/loginIn2.gif width=100%><tr>
<td align=center><img src=images/adminlist.GIF><br><b>
[<a href=admin_add.asp>添加管理员</a> ]
</td></tr></table>


<p> 

<% 

rs.PageSize=glynum
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from ct_adminboss "
rs.Open sql,cn,1,1
pagenum=rs.PageCount  
if curpage>pagenum then 
curpage=pagenum
end if 
rs.AbsolutePage =curpage
if (rs.eof and rs.bof)  then 
response.write "没有记录"
else


response.write"<form name='admintable' action='admin_do.asp?action=alldel' method=post><table border=1 bordercolor=#3399ff  >"
response.write "<tr><td   align=center  class=tdwhtimg><font color=green>管理员账号</td>"
response.write "<td   align=center width=35% class=tdwhtimg> <font color=green>备注</td>"
response.write "<td   class=tdwhtimg align=center><font color=green>权限</td>"
response.write "<td   class=tdwhtimg align=center><font color=green>操作</td></tr>"
    do while not rs.eof and glynum>0 
back=rs("jl")
pname=rs("username")
qxd=rs("qx")
id=rs("id")
%>
 
<!--#include file="qx.asp"-->

   <tr><td   align=center class=td1><%if session("name")=pname  then  %><font color=red title="你自己">+<b><%=pname %></b>+<%else%><%=pname %><%end if%></td> 
        <td   align=center class=td2><%=back%></td>
        <td   align=center class=td1> <%=qxcn1%></td>
 <% if session("id")=id then%>
       <td   align=center class=td2 title="不能在这里操作自己的账号！">修改 删除</a><input type=checkbox  disabled ></td></tr>
  <%else%>
       <td   align=center class=td2><a   href=admin_xiugai.asp?name=<%=pname%>&id=<%=id%>>修改</a><% if session("qx")=1 then %>  <a href=admin_do.asp?action=admindel&name=<%=pname%>&id=<%=id%>&isdel=1  onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a><input type=checkbox value=<%=id%> name=chknum><%end if%> </td></tr>
   <% end if
 rs.movenext
glynum=glynum-1
loop
%>

<tr><td colspan=4 align=right class=td3>
<input type=button value="全选" onClick="checkAll()" class=bbox>
<input type=button value="全否" onClick="uncheckAll()" class=bbox>
<input type=button value="反选" onClick="switchAll()" class=bbox>
<input type=submit value="删除所选"  class=ibox onclick="{if(confirm('确定要删除这些项目?')){return true;}return false;}">
 </td>
</tr></table>
</form>

<%
end if
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=?page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=?page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if

if curpage<pagenum then
Response.Write "[<b><a name=down href=?page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=?page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close 
set rs=nothing
cn.close
set cn=nothing
%>
  <%
 
end if
%><br><br><br><br><br><br><br><br>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -