setright.asp
来自「投资管理系统, asp+ mssql server」· ASP 代码 · 共 120 行
ASP
120 行
<!--#include file="../inc/conn.inc"-->
<!--#include file="../inc/commfunc.asp"-->
<!--#include file="../inc/permission.asp"-->
<%
chkright "权限管理",2
chkright "权限管理",3
%>
<%
id = request("id")
if id <> "" then
sql = "select fullname,briefname from [user] where userid=" & id
set rs = conn.execute(sql)
if not rs.eof then
fullname = trim(rs("fullname"))
briefname = trim(rs("briefname"))
end if
set rs = nothing
end if
if request("b_subset") <> "" then
strRead= replace(request("chk00")," " ,"")
strWrite= replace(request("chk01")," " ,"")
strEdit= replace(request("chk02")," " ,"")
strDelete= replace(request("chk03")," " ,"")
strhdchk= replace(request("hdchk")," " ,"")
sql = "sp_UpdateModuleRight " & id & ",'" & strRead & "','" & strWrite &"','" & strEdit & "','" & strDelete & "','"& strhdchk &"'"
'Response.Write strRead
conn.execute (sql)
end if
dim PageCount,CurrentPage,RecordCount,PageSize,ResArr
%>
<script type="text/JavaScript" src="/inc/plusminus0.js"></script>
<html>
<head>
<title>设置权限</title>
<meta http-equiv="目录类型" content="文本/html;字符集=gb2312">
<%if session("briefname") <> "" then %>
<link rel="stylesheet" href="../css/<%=session("briefname")%>.css">
<%else%>
<link rel="stylesheet" href="../css/style.css">
<%end if%>
<script language="JavaScript" src="../css/CommFunc.js"></script>
</head>
<body bgcolor="#FFFFFF" leftmargin="2" topmargin="2">
<form action="" name="frm" method="POST">
<table width="100%" class="mytable" border="1" cellspacing="0" cellpadding="3" bordercolorlight="#6699FF" bordercolordark="#FFFFFF" align="center">
<tr><td colspan=5><font class=title>权限设置</font>(用户名：<font color=red><%=fullname%></font> 简称：<font color=red><%=briefname%></font>)</td></tr>
<%
sql = "select b.personalrightid,a.[name],b.readright,b.writeright,b.editright,b.deleteright ,a.moduleid from module a left join personalright b on a.moduleid = b.moduleid and b.userid=" & id & " order by [name]"
'response.write sql
'dim PageCount,CurrentPage,RecordCount,PageSize,ResArr
'SuccessFlag=SetPages(5,sql,conn,trim(request("page")))
SuccessFlag=SetPages(session("RecNumOth"),sql,conn,trim(request("page")))
if SuccessFlag then
response.write("<tr><td colspan=5><input type=hidden name=id value="& id &"></td></tr>")
response.write("<tr><td colspan=5 align=right>")
response.write GetPages("")
response.write("</td></tr>")
response.write("<tr>")
response.write("<td class=""mytd"" >模块名称</td>")
response.write("<td class=""mytd"" >查询权限</td>")
response.write("<td class=""mytd"" >录入权限</td>")
response.write("<td class=""mytd"" >修改权限</td>")
response.write("<td class=""mytd"" >删除权限</td>")
response.write("</tr>")
dim count0
count0 = 0
for i =lbound(resarr,2) to ubound(resarr,2)
response.write("<tr><td><input type=hidden name=moduleid value="& resarr(6,i) &">")
response.write(resarr(1,i) & " </td>")
response.write("<input type=hidden name=hdchk value="& resarr(6,i) &"></td>")
if resarr(2,i) then
response.write("<td><input type='checkbox' name=chk00 CHECKED value="& resarr(6,i) &"></input></td>")
else
response.write("<td><input type='checkbox' name=chk00 value="& resarr(6,i)&"></input></td>")
end if
if resarr(3,i) then
response.write("<td><input type='checkbox' name=chk01 checked value="& resarr(6,i) &"></input></td>")
else
response.write("<td><input type='checkbox' name=chk01 value="& resarr(6,i)&" ></input></td>")
end if
if resarr(4,i) then
response.write("<td><input type='checkbox' name=chk02 value="& resarr(6,i)&" checked></input></td>")
else
response.write("<td><input type='checkbox' name=chk02 value="& resarr(6,i)&"></input></td>")
end if
if resarr(5,i) then
response.write("<td><input type='checkbox' name=chk03 value="& resarr(6,i)&" checked></input>")
else
response.write("<td><input type='checkbox' name=chk03 value="& resarr(6,i)&"></input>")
end if
response.write("<input type=hidden name=hd"& trim(resarr(0,i)) &" value="& resarr(0,i) &"></td></tr>")
count0 = count0 + 1
next
response.write("<tr><td>选择</td><td><input name=chk_cx type=checkbox onclick=CheckAll('frm','chk00','chk_cx')>全部选中查询</td><td><input name=chk_lr type=checkbox onclick=CheckAll('frm','chk01','chk_lr')>全部选中录入</td><td><input name=chk_xg type=checkbox onclick=CheckAll('frm','chk02','chk_xg')>全部选中修改</td><td><input name=chk_sc type=checkbox onclick=CheckAll('frm','chk03','chk_sc')>全部选中删除</td></tr>")
response.write("<tr><td colspan=5></td></tr>")
response.write("<tr ><input type=hidden name=count0 value="& count0 &"><td colspan=5 align=center><input type=submit name=b_subset value=确认设置 class=buttoncss></input><input type=reset value=重置设置 class=buttoncss></input><input type=button value=关闭窗口 class=buttoncss onclick='javascript:window.close();'></input></td></tr>")
response.write("<tr><td colspan=5 align=right>")
PutPageUpDown "frm","","","","","",""
response.write("</td></tr>")
else
response.write("没有符合条件的纪录！")
end if
%>
</table>
</form>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript">
<!--
function subalert()
{
frm.submit();
}
//-->
</SCRIPT>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?