<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
userID=trim(Request("userID"))
|
If isDepartment("060102")=1 Then departmentName=trim(Request("departmentName"))
|
C_ModuleID=trim(request("ModuleID"))
|
if userID="" and departmentName="" then response.redirect "/"
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="用户权限修改完成!!"
|
ElseIf SMT="2" then
|
SystemMessageTXT="请输入正确的员工ID"
|
end if
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
If departmentName<>"" Then
|
sql="select OA_User_ID,OA_User,OA_Name,OA_Power,OA_execLevel from OA_User where OA_execLevel=4 and OA_User='"&departmentName&"_部门'"
|
|
else
|
sql="select OA_User_ID,OA_User,OA_Name,OA_Power,OA_execLevel from OA_User where OA_User_ID="&userID
|
ReturnURL="AdminUser.gds?userID="&userID
|
End if
|
rs.open sql,objConn,1,1
|
if rs.Eof then response.redirect "/AdminUser.gds"
|
userID = rs("OA_User_ID")
|
OA_User_ID= rs("OA_User_ID")
|
OA_User = rs("OA_User")
|
OA_Name = rs("OA_Name")
|
OA_Power = rs("OA_Power")
|
OA_execLevel = rs("OA_execLevel")
|
rs.close()
|
TitleTXT=OA_Name&" 账号"
|
|
'权限证验
|
if (isDepartment("060204")=1 and OA_execLevel<>"4") or (isDepartment("060102")=1 and OA_execLevel="4") Or session("admin_execLevel")="2" then
|
else
|
response.redirect "/"
|
end if
|
URLId="&userID="&userID
|
If OA_execLevel="4" then
|
ReturnURL="AdminUser_Department.gds"
|
else
|
ReturnURL="AdminUser.gds?userID="&userID
|
End if
|
|
|
|
%>
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<!--#INCLUDE FILE="AdminUser_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- messages -->
|
<!-- forms -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5><%=TitleTXT%>权限管理
|
|
</h5>
|
|
<ul class="links">
|
<li><a href="?1=1<%=URLId%>">账号功能</a></li>
|
<%
|
sql="select ModuleID,ModuleName from OA_Module where ModuleLevel=1 order by id"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
B_ModuleID=rs("ModuleID")
|
B_ModuleName=rs("ModuleName")
|
%>
|
<li><a href="?ModuleID=<%=B_ModuleID%><%=URLId%>"><%=B_ModuleName%></a></li>
|
<%rs.movenext
|
loop
|
rs.close()%>
|
<li><a href="/AdminUser.gds?userID=<%=OA_User_ID%>">返回</a></li>
|
</ul>
|
</div>
|
<!-- end box / title -->
|
|
<%
|
if C_ModuleID<>"" Then
|
'权限管理
|
sql="select ModuleID,ModuleName from OA_Module where left(ModuleID,2)='"&C_ModuleID&"' and ModuleLevel=2 order by id"
|
rs.open sql,objConn,1,1
|
if rs.eof then
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
do while not rs.Eof
|
FModuleID = FModuleID&","&rs("ModuleID")
|
FModuleName = FModuleName&","&rs("ModuleName")
|
rs.movenext
|
loop
|
FModuleID=SPLIT(FModuleID,",")
|
FModuleName=SPLIT(FModuleName,",")
|
rs.close()
|
%>
|
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table">
|
<table>
|
<thead>
|
<tr>
|
<th class="left">功能模块1</th>
|
<th>功能权限</th>
|
<th class="last">功能描述</th>
|
</tr>
|
</thead>
|
<tbody>
|
<form name="form1" method="post" action="admin_save.gds">
|
<input name="admin_save" type="hidden" value="8">
|
<input name="userID" type="hidden" value="<%=userID%>">
|
<input name="A_ModuleID" type="hidden" value="<%=C_ModuleID%>">
|
<input name="OA_Power" type="hidden" value="<%=OA_Power%>">
|
<%
|
for i = 1 to UBOUND(FModuleID)
|
sql="select ModuleID,ModuleName,ModuleReadme from OA_Module where left(ModuleID,4)='"&FModuleID(i)&"' and ModuleLevel=3 order by id"
|
rs.open sql,objConn,1,1
|
j=1
|
do while not rs.Eof
|
ModuleID = rs("ModuleID")
|
ModuleName = rs("ModuleName")
|
ModuleReadme = rs("ModuleReadme")
|
|
if j=1 then
|
FName=FModuleName(i)
|
else
|
FName=""
|
end if
|
%>
|
<tr>
|
<td class="category"><%=FName%></td>
|
<td class="T20" style="text-align: left;"><input name="ModuleID" type="checkbox" value="<%=ModuleID%>" id="col<%=i%>"<%if InStr(OA_Power,","&ModuleID&",")>0 then Response.Write " checked"%>>
|
<%=ModuleName%></td>
|
<td class="T20 last"><%=ModuleReadme%></td>
|
</tr>
|
<%j=j+1
|
rs.movenext
|
loop
|
rs.close()
|
next%>
|
<tr>
|
<td> </td>
|
<td><input type="submit" name="submit" value="提交" class="ui-button ui-widget ui-state-default ui-corner-all" role="button" aria-disabled="false"></td>
|
<td class="last"> </td>
|
</tr>
|
</form>
|
<%if i<18 then
|
for j=i to 18%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next
|
end if%>
|
</tbody>
|
</table>
|
</div>
|
<%Else
|
'管理查看
|
sql="select ModuleID,ModuleName from OA_Module where ModuleLevel=2 order by id"
|
rs.open sql,objConn,1,1
|
if rs.eof then
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
do while not rs.Eof
|
FModuleID = FModuleID&","&rs("ModuleID")
|
FModuleName = FModuleName&","&rs("ModuleName")
|
rs.movenext
|
loop
|
FModuleID=SPLIT(FModuleID,",")
|
FModuleName=SPLIT(FModuleName,",")
|
rs.close()
|
%>
|
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<form action="admin_save.gds" method="post">
|
<input name="admin_save" type="hidden" value="8_1">
|
<input name="userID" type="hidden" value="<%=userID%>">
|
<div style="padding: 0 20px;font-size: 13px;">员工ID:<input type="text" id="OldOAID" name="OldOAID" value="" style="width: 40px;"> <input type="submit" name="submit" value="权限导入"><span> (注意:员工权限会被完全替换)</span></div>
|
</form>
|
<div class="table">
|
<table>
|
<thead>
|
<tr>
|
<th class="left">功能模块</th>
|
<th>功能权限</th>
|
<th class="last">功能描述</th>
|
</tr>
|
</thead>
|
<tbody>
|
<%
|
for i = 1 to UBOUND(FModuleID)
|
sql="select ModuleID,ModuleName,ModuleReadme from OA_Module where left(ModuleID,4)='"&FModuleID(i)&"' and ModuleLevel=3 order by id"
|
rs.open sql,objConn,1,1
|
j=1
|
do while not rs.Eof
|
ModuleID = rs("ModuleID")
|
ModuleName = rs("ModuleName")
|
ModuleReadme = rs("ModuleReadme")
|
|
If InStr(OA_Power,","&ModuleID&",")>0 then
|
if j=1 then
|
FName=FModuleName(i)
|
else
|
FName=""
|
end if
|
%>
|
<tr>
|
<td class="category"><%=FName%></td>
|
<td class="T20" style="text-align: left;"><%=ModuleName%></td>
|
<td class="T20 last"><%=ModuleReadme%></td>
|
</tr>
|
<%j=j+1
|
End if
|
rs.movenext
|
loop
|
rs.close()
|
next%>
|
<%if i<8 then
|
for j=i to 8%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td class="last"> </td>
|
</tr>
|
<%next
|
end if%>
|
</tbody>
|
</table>
|
</div>
|
|
<%end if%>
|
|
</div>
|
<!-- end forms -->
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
