📄 userqx.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%
Call Admin_header()
if ChkAdmin(999)=False then
call message("您没有 管理员管理 权限","back")
call endexit()
end if
uid=request.QueryString("id")
sql="select Adminflag from oa_Admin 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="../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"> </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=4>管理员权限管理(请选择相应的权限分配给管理员)</th>
</tr>
<input type=hidden name=id value="<%=Request("id")%>">
<tr align="left">
<td colspan=4 bgcolor="#CC6600" ><strong> <span class="style1">时间&任务</span></strong></td>
</tr>
<tr align="left" bgcolor="#F2F2F2">
<td ><span class="tablerow1">
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_adddxx" <%If InStr(Adminflag, "oa_allwork") <> 0 Then Response.Write "checked"%>>
发送短消息</span></td>
<td ><span class="tablerow1">
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_deldxx" <%If InStr(Adminflag, "oa_deldxx") <> 0 Then Response.Write "checked"%>>
删除短消息</span></td>
<td ><span class="tablerow1">
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_delblog" <%If InStr(Adminflag, "oa_delblog") <> 0 Then Response.Write "checked"%>>
删除日记</span></td>
<td ><span class="tablerow1">
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_allworkplane" <%If InStr(Adminflag, "oa_allworkplane") <> 0 Then Response.Write "checked"%>>
所有工作计划</span></td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" ><strong> <span class="style1">时间&任务</span></strong></td>
</tr>
<tr>
<td width="26%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_allwork" <%If InStr(Adminflag, "oa_allwork") <> 0 Then Response.Write "checked"%>>
所有任务</td>
<td width="25%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_addwork" <%If InStr(Adminflag, "oa_addwork") <> 0 Then Response.Write "checked"%>>
安排任务</td>
<td width="23%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_delwork" <%If InStr(Adminflag, "oa_delwork") <> 0 Then Response.Write "checked"%>>
删除任务</td>
<td width="26%" class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_delworkplan" <%If InStr(Adminflag, "oa_delworkplan") <> 0 Then Response.Write "checked"%>>
删除工作计划</td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style3">信息发布</span></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_notice" <%If InStr(Adminflag, "oa_notice") <> 0 Then Response.Write "checked"%>>
公告管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_tongzhi" <%If InStr(Adminflag, "oa_tongzhi") <> 0 Then Response.Write "checked"%>>
通知管理</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_djs" <%If InStr(Adminflag, "oa_djs") <> 0 Then Response.Write "checked"%>>
大记事管理</td>
<td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_bbsclass" <%If InStr(Adminflag, "oa_bbsclass") <> 0 Then Response.Write "checked"%>>
论坛版块设置</td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>下载中心</strong></span></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_adddown" <%If InStr(Adminflag, "oa_adddown") <> 0 Then Response.Write "checked"%>>
添加下载 </td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_managedown" <%If InStr(Adminflag, "oa_managedown") <> 0 Then Response.Write "checked"%>>
管理下载</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_viewdown" <%If InStr(Adminflag, "oa_viewdown") <> 0 Then Response.Write "checked"%>>
查看下载</td>
<td class=tablerow1> </td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>规章制度</strong></span></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_addzhidu" <%If InStr(Adminflag, "oa_addzhidu") <> 0 Then Response.Write "checked"%>>
添加制度</td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_managezhidu" <%If InStr(Adminflag, "oa_managezhidu") <> 0 Then Response.Write "checked"%>>
管理制度 </td>
<td class=tablerow1> </td>
<td class=tablerow1> </td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>综合行政</strong></span></td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_kq" <%If InStr(Adminflag, "oa_kq") <> 0 Then Response.Write "checked"%>>
考勤管理 </td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_meeting" <%If InStr(Adminflag, "oa_meeting") <> 0 Then Response.Write "checked"%>>
会议管理 </td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_car" <%If InStr(Adminflag, "oa_car") <> 0 Then Response.Write "checked"%>>
车辆管理 </td>
<td class=tablerow1> </td>
</tr>
<tr>
<td >
<input type="checkbox" name="Adminflag" id="Adminflag" value="oa_book" <%If InStr(Adminflag, "oa_book") <> 0 Then Response.Write "checked"%>>
图书管理 </td>
<td >
<input type="checkbox" name="Adminflag" id="Adminflag" value="oa_zhichan" <%If InStr(Adminflag, "oa_zhichan") <> 0 Then Response.Write "checked"%>>
固定资产 </td>
<td >
<input type="checkbox" name="Adminflag" id="Adminflag" value="oa_office" <%If InStr(Adminflag, "oa_office") <> 0 Then Response.Write "checked"%>>
办公用品 </td>
<td > </td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>人力资源</strong></span> </td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" id="Adminflag" name="Adminflag" value="oa_depart" <%If InStr(Adminflag, "oa_depart") <> 0 Then Response.Write "checked"%>>
部门设置 </td>
<td class=tablerow1><input type="checkbox" id="Adminflag" name="Adminflag" value="oa_danan" <%If InStr(Adminflag, "oa_danan") <> 0 Then Response.Write "checked"%>>
档案管理 </td>
<td class=tablerow1><input type="checkbox" id="Adminflag" name="Adminflag" value="oa_hrpeixun" <%If InStr(Adminflag, "oa_hrpeixun") <> 0 Then Response.Write "checked"%>>
培训记录 </td>
<td class=tablerow1> </td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_hetong" <%If InStr(Adminflag, "oa_hetong") <> 0 Then Response.Write "checked"%>>
人事合同 </td>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_hrjc" <%If InStr(Adminflag, "oa_hrjc") <> 0 Then Response.Write "checked"%>>
奖惩记录 </td>
<td class=tablerow1> </td>
<td class=tablerow1> </td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>客户管理</strong></span> </td>
</tr>
<tr align="left" bgcolor="#F2F2F2">
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_addcus" <%If InStr(Adminflag, "oa_addcus") <> 0 Then Response.Write "checked"%>>
添加客户</td>
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_managecus" <%If InStr(Adminflag, "oa_managecus") <> 0 Then Response.Write "checked"%>>
管理客户
</td>
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_allcus" <%If InStr(Adminflag, "oa_allcus") <> 0 Then Response.Write "checked"%>>
查看全部客户</td>
<td > </td>
</tr>
<tr align="left" bgcolor="#F2F2F2">
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_addproject" <%If InStr(Adminflag, "oa_addproject") <> 0 Then Response.Write "checked"%>>
添加项目
</td>
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_manageproject" <%If InStr(Adminflag, "oa_manageproject") <> 0 Then Response.Write "checked"%>>
管理项目
</td>
<td >
<input name="Adminflag" type="checkbox" id="Adminflag" value="oa_addcusht" <%If InStr(Adminflag, "oa_addcusht") <> 0 Then Response.Write "checked"%>>
添加合同</td>
<td > </td>
</tr>
<tr align="left" bgcolor="#F2F2F2">
<td ><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_cusgendan" <%If InStr(Adminflag, "oa_cusgendan") <> 0 Then Response.Write "checked"%>>
项目根单</td>
<td ><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_manageht" <%If InStr(Adminflag, "oa_manageht") <> 0 Then Response.Write "checked"%>>
管理合同 </td>
<td > </td>
<td > </td>
</tr>
<tr align="left">
<td colspan=4 bgcolor="#CC6600" > <span class="style1"><strong>系统管理</strong></span> </td>
</tr>
<tr>
<td class=tablerow1><input type="checkbox" name="Adminflag" id="Adminflag" value="oa_user" <%If InStr(Adminflag, "oa_user") <> 0 Then Response.Write "checked"%>>
用户帐号</td>
<td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_configsms" <%If InStr(Adminflag, "oa_configsms") <> 0 Then Response.Write "checked"%>>
短信配置</td>
<td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_sendsms" <%If InStr(Adminflag, "oa_sendsms") <> 0 Then Response.Write "checked"%>>
发送短信</td>
<td class=tablerow1><input name="Adminflag" type="checkbox" id="Adminflag" value="oa_adminlog" <%If InStr(Adminflag, "oa_adminlog") <> 0 Then Response.Write "checked"%>>
登陆日志</td>
</tr>
<tr>
<td colspan=4 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_Admin WHERE id=" & Request("id")
Rs.Open SQL, conn, 1, 3
If Not (Rs.EOF And Rs.BOF) Then
Rs("Adminflag") = 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 + -