📄 userqx.asp

📁 网络办公系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../config.asp"-->
<!--#include file="checklogin.asp"-->
<%
if  ChkAdmin(999)=False then
   call message("您没有 管理员管理 权限","back")
   call endexit()
end if

uid=request.QueryString("id")
sql="select adminlevel from oa_systemadmin where id="&cint(uid)
set rs=conn.execute(sql)
if not rs.eof then
	Adminflag=rs(0)
end if
rs.close
set rs=nothing

if request.QueryString("act")="mod" then
	Call UpdateFlag
end if

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../oaadmin/img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style3 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body>
<form name="form1" method="post" action="userqx.asp?act=mod">
<table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
  <tr align="right">
    <td height="25" bgcolor="#CC0000">&nbsp;</td>
  </tr>
  <tr bgcolor="#F9F9F9">
    <td height="25" align="left" bgcolor="#F2F2F2"> 员工权限管理</td>
    </tr>
  <tr>
    <td height="25" align="center"><table width="99%" border=0 align=center cellpadding=3 cellspacing=1 class=tabel1>
      <tr>
        <th colspan=5>管理员权限管理(请选择相应的权限分配给管理员)</th>
      </tr>
      <input type=hidden name=id value="<%=Request("id")%>">
      <tr align="left">
        <td colspan=5 bgcolor="#CC6600" >&nbsp; <span class="style1"><strong>客户管理</strong></span> </td>
      </tr>
      <tr align="left" bgcolor="#F2F2F2">
        <td width="16%" >
          <input name="Adminflag" type="checkbox" id="Adminflag" value="oa_addcompany" <%If InStr(Adminflag, "oa_addcompany") <> 0 Then Response.Write "checked"%>>
添加客户</td>
        <td width="13%" >
          <input name="Adminflag" type="checkbox" id="Adminflag" value="oa_managecompany" <%If InStr(Adminflag, "oa_managecompany") <> 0 Then Response.Write "checked"%>>
管理客户
          </td>
        <td width="15%" >
          <input name="Adminflag" type="checkbox" id="Adminflag" value="sys_delcompany" <%If InStr(Adminflag, "sys_delcompany") <> 0 Then Response.Write "checked"%>>
删除客户</td>
        <td colspan="2" >&nbsp;</td>
      </tr>
      <tr align="left">
        <td colspan=5 bgcolor="#CC6600" >&nbsp; <span class="style1"><strong>系统管理</strong></span> </td>
      </tr>
      <tr>
        <td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="sys_admin" <%If InStr(Adminflag, "sys_admin") <> 0 Then Response.Write "checked"%>>
            用户帐号</td>
        <td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="sys_phoneconfig" <%If InStr(Adminflag, "sys_phoneconfig") <> 0 Then Response.Write "checked"%>> 
          短信配置</td>
        <td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="sys_sendsms" <%If InStr(Adminflag, "sys_sendsms") <> 0 Then Response.Write "checked"%>>
发送短信</td>
        <td width="14%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="sys_notice" <%If InStr(Adminflag, "sys_notice") <> 0 Then Response.Write "checked"%>>
系统公告</td>
        <td width="42%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="BackupData" <%If InStr(Adminflag, "BackupData") <> 0 Then Response.Write "checked"%>>
数据管理</td>
      </tr>
      <tr>
        <td  colspan=5 align=center>
          <input   type="checkbox"   name="all"   value="1"   onclick=selectall(this)>
          <input type="submit" name="Submit2" value="更新管理员权限" class=button>

          </td>
      </tr>
    </table></td>
  </tr>
</table>
</form>
</body>
</html>
<%

Private Sub UpdateFlag()
	Set Rs = Server.CreateObject("adodb.recordset")
	SQL = "SELECT * FROM oa_systemadmin WHERE id=" & Request("id")
	Rs.Open SQL, conn, 1, 3
	If Not (Rs.EOF And Rs.BOF) Then
		Rs("adminlevel") = Replace(Replace(Request("Adminflag"), "'", ""), " ", "")
		Rs.update
	End If
	Rs.Close
	Set Rs = Nothing
		 Call Message ( "管理员更新成功，请记住更新信息。","back")
		 Call EndExit()
end sub		 
%>
  <script>   
  function   selectall(check)   {   
          var   length   =   100;   
          document.form1.all.checked   =   check.checked;   
    
          if   (length   ==   0   )   return;   
          if   (length   ==1   )   document.form1.Adminflag.checked=document.form1.Adminflag.checked   ;   
          if   (length>1)   {   
              for   (var   i   =   0;   i   <   length;   i++)   {   
                  document.form1.Adminflag[i].checked=document.form1.all.checked;                     
              }   
        }   
  }   
</script>
⌨️ 快捷键说明

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