📄 userlevelbj.asp

📁 学校智能办公系统 1、系统包含成绩学籍管理、公文管理、电子备课、教职工管理、照片管理、课件管理等学校办公的多个方面。 2、实行集中管理

💻 ASP

字号:

<!--#include file="asp/sqlstr.asp"-->
<!--#include file="opendb.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/funct.asp"-->

<%level=request("level")
if level="" then
level="来宾"
end if
%>

<%if request("editsub")="提交" then

conditiona=""
for each idnoa in (request("cda"))
conditiona=conditiona+"["&idnoa&"]"
next

conditionb=""
for each idnob in (request("cdb"))
conditionb=conditionb+"["&idnob&"]"
next

set rs=server.createobject("adodb.recordset")
rs.open "update userlevel set qxlb='"&sqlstr(conditiona&conditionb)&"' where userlevel='"&sqlstr(level)&"'",conn,1,3

end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css">
<script language="javascript1.2" src="js/openwin.js"></script>
<title><%=session("xxglxxmc")%>智能办公系统</title>
</head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="5">
<%
call bghead()
%>
<b>部门权限管理[<font color="#ff0000"><%=level%></font>]</b>
<%
call bgmid()
%>
<table border="1"  cellspacing="0" cellpadding="0" width="100%">
<form method="post" action="userlevelbj.asp?level=<%=level%>">
<%
set rs1=server.createobject("adodb.recordset")
sql="select * from menu where cdc1='0' and cdc2='0'"
rs1.open sql,conn,1
do while not rs1.eof
%>
<tr>
<td>
<b><%=rs1("cdmc")%></b></td></tr><tr><td>
<%i=1
set rs2=server.createobject("adodb.recordset")
sql="select * from menu where cdc1='"&rs1("cdc3")&"' and cdc2='0'"
rs2.open sql,conn,1
do while not rs2.eof
%>
&nbsp;&nbsp;<%if instr(rs2("cdlj"),"?bs=")>0 then%>
<%set rs21=server.createobject("adodb.recordset")
sql="select * from userlevel where userlevel='"&level&"' and qxlb like '%"&rs2("cdid")&trim(rs2("cddm"))&"%'"
rs21.open sql,conn,1%>
<input name="cda" type="checkbox" value="<%=rs2("cdid")&rs2("cddm")%>" <%if not rs21.eof then%>checked<%end if%>><%end if%><%=rs2("cdmc")%>
<%j=1
set rs3=server.createobject("adodb.recordset")
sql="select * from menu where cdc1='"&rs1("cdc3")&"' and cdc2='"&rs2("cdc3")&"'"
rs3.open sql,conn,1
if not rs3.eof then%>
</td></tr><tr><td>&nbsp;&nbsp;&nbsp;&nbsp;
<%end if
do while not rs3.eof
%>
<%if instr(rs3("cdlj"),"?bs=")>0 then%>
<%set rs31=server.createobject("adodb.recordset")
sql="select * from userlevel where userlevel='"&level&"' and qxlb like '%"&rs3("cdid")&trim(rs3("cddm"))&"%'"
rs31.open sql,conn,1%>
<input name="cdb" type="checkbox" value="<%=rs3("cdid")&rs3("cddm")%>" <%if not rs31.eof then%>checked<%end if%>><%end if%><%=rs3("cdmc")%>
<%j=j+1
rs3.movenext
loop
%></td></tr><tr><td>
<%i=i+1
rs2.movenext
loop
%>

</td>
</tr>
<%
rs1.movenext
loop
%>
<tr><td align="center"><input name="editsub" type="submit" value="提交"></td></tr>
</form>
</table>
<%
call bgback()
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -