<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
FModuleID=request("ModuleID")
|
FModuleLevel=request("ModuleLevel")
|
|
'各种返回信息
|
SystemMessageType=trim(Request("SystemMessageType"))
|
SMT=trim(Request("SMT"))
|
if SystemMessageType<>"" then
|
if SMT="1" then
|
SystemMessageTXT="添加权限模块完成!!"
|
elseif SMT="2" then
|
SystemMessageTXT="修改权限模块完成!!"
|
elseif SMT="3" then
|
SystemMessageTXT="删除权限模块完成!!"
|
end if
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
%>
|
<!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="Admin_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- messages -->
|
<!-- forms -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5>模块管理
|
<%for i = 1 to FModuleLevel
|
if i=1 then
|
ModulePath="ModuleID=left('"&FModuleID&"',2)"
|
else
|
ModulePath=ModulePath&" or ModuleID=left('"&FModuleID&"',"&i*2&")"
|
end if
|
next
|
sql="select ModuleID,ModuleName,ModuleLevel from OA_Module where "&ModulePath&" order by len(ModuleID)"
|
rs.open sql,objConn,1,1
|
do while not rs.Eof
|
if rs("ModuleLevel")>1 then Response.Write ">> "
|
Response.Write "<a href=""Admin_Module.gds?ModuleID="&rs("ModuleID")&"&ModuleLevel="&rs("ModuleLevel")&"&h_menu1_1=1"" style=""color: #ffffff;"">"&rs("ModuleName")&"</a> "
|
rs.movenext
|
loop
|
rs.close()%>
|
</h5>
|
<ul class="links">
|
<%
|
if PositionURLID="1" then PositionURLID=11
|
ReturnURL=session("PositionURL"&PositionURLID-1)
|
if InStr(ReturnURL,"?")<1 then
|
ReturnURL=ReturnURL&"?ReturnURLID="&(PositionURLID-1)
|
else
|
ReturnURL=ReturnURL&"&ReturnURLID="&(PositionURLID-1)
|
end if
|
%>
|
<li><a href="<%=ReturnURL%>">返回</a></li>
|
</ul>
|
</div>
|
<!-- end box / title -->
|
<%
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 24
|
acc2=0
|
acc3=0
|
%>
|
|
<%
|
|
|
sql="select b.ModuleID,b.ModuleName,b.ModuleReadme,b.ModuleLevel,SumModule=(select count(id)-1 from OA_Module as a where left(a.ModuleID,len(b.ModuleID))=b.ModuleID) from OA_Module as b where left(b.ModuleID,"&FModuleLevel*2&")='"&FModuleID&"' and b.ModuleLevel="&FModuleLevel+1&" order by b.id"
|
rs.open sql,objConn,1,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
else
|
SystemMessageType=2
|
SystemMessageTXT="数据库中相关无数据！"
|
end if
|
%>
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table">
|
<table>
|
<thead>
|
<tr>
|
<th class="left">模块ID</th>
|
<th>模块名称</th>
|
<th>模块描述</th>
|
<th>确定操作</th>
|
<th class="selected last"><input type="checkbox" class="checkall" /></th>
|
</tr>
|
</thead>
|
<tbody>
|
|
<%
|
i=0
|
do while not rs.Eof
|
ModuleID = rs("ModuleID")
|
ModuleName = rs("ModuleName")
|
ModuleLevel = rs("ModuleLevel")
|
ModuleReadme = rs("ModuleReadme")
|
SumModule = cint(rs("SumModule"))
|
i=i+1
|
%>
|
<form name="form1" method="post" action="admin_save.gds">
|
<input name="admin_save" type="hidden" value="6">
|
<input name="ModuleID" type="hidden" value="<%=ModuleID%>">
|
<input name="ModuleLevel" type="hidden" value="<%=ModuleLevel%>">
|
<tr>
|
<td class="category"><%=ModuleID%></td>
|
<td class="T20"><input name="ModuleName" type="text" size="20" value="<%=ModuleName%>"></td>
|
<td class="T20"><input name="ModuleReadme" type="text" size="30" value="<%=ModuleReadme%>"></td>
|
<td class="T30"><%if ModuleLevel<=2 then%> <input type=button value="详细权限<%Response.Write "("&SumModule&")"%>" onclick="JavaScript:window.location.href='Admin_Module.gds?ModuleLevel=<%=ModuleLevel%>&ModuleID=<%=ModuleID%>&h_menu1_1=1';"><%end if%>
|
<input type="submit" name="Submit" value="修改" >
|
<input type=button value="删除" onclick="javascript:if(confirm('本操作同时删除<<<%=ModuleName%>>>下的所有权限设定\n 确定删除？')){window.location.href='admin_save.gds?admin_save=7&ModuleLevel=<%=ModuleLevel%>&ModuleID=<%=ModuleID%>'};">
|
<%if ModuleLevel>2 then%>
|
<input type=button value="相关员工" onclick="JavaScript:window.location.href='AdminUser_List.gds?departmentID=0&searchTXT=ModuleID|<%=ModuleID%>&h_menu1_1=1';">
|
<input type=button value="添加权限" onclick="JavaScript:window.location.href='AdminUser_List.gds?departmentID=0&searchTXT=ModuleIDApp|<%=ModuleID%>&h_menu1_1=1';">
|
<%end if%>
|
</td>
|
<td class="selected last"><input type="checkbox" /></td>
|
</tr>
|
</form>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
<%if i<13 then
|
for j=i to 13%>
|
<tr>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td> </td>
|
<td class="selected last"> </td>
|
</tr>
|
<%next
|
end if%>
|
</tbody>
|
</table>
|
</div>
|
</div>
|
<div class="box">
|
<!-- New -->
|
<div class="title">
|
<h5>添加模块</h5>
|
</div>
|
<div class="table">
|
<table>
|
<thead>
|
<tr>
|
<th class="left">模块ID</th>
|
<th>模块名称</th>
|
<th>模块描述</th>
|
<th class="selected last">确定操作</th>
|
</tr>
|
</thead>
|
<tbody>
|
|
<%if len(ModuleID)>0 then
|
newID=cint(mid(ModuleID,FModuleLevel*2+1))+1
|
if len(newID)<2 then newID="0"&newID
|
else
|
newID="01"
|
end if
|
newID=FModuleID&newID
|
%>
|
<form name="form1" method="post" action="admin_save.gds">
|
<input name="admin_save" type="hidden" value="5">
|
<input name="ModuleLevel" type="hidden" value="<%=FModuleLevel+1%>">
|
<input name="ModuleID" type="hidden" value="<%=newID%>">
|
<tr>
|
<td class="T10"><%=newID%></td>
|
<td class="T20"><input name="ModuleName" type="text" size="20" value=""></td>
|
<td class="T20"><input name="ModuleReadme" type="text" size="30" value=""></td>
|
<td class="T0 last"><input type="submit" name="Submit" value="添加"></td>
|
</tr>
|
</form>
|
</tbody>
|
</table>
|
</div>
|
<!-- end New -->
|
</div>
|
<!-- end forms -->
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
