📄 adminbanjipoweredit.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
powerid=request("powerid")
sql="select * from tbpaper order by kcid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
sql1="select * from tbpower where id="&cint(powerid)
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
sql2="select * from tbnianji where nianjiid="&cint(rs1("nianjiid"))
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
sql3="select * from tbbanji where banjiid="&cint(rs1("banjiid"))
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
power=rs1("power")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系统管理 | 综合管理 | 班级权限管理 | 权限添加/修改</title>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<div align="center">
<center>
<table cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber2" border="1">
<form method="POST" action="adminbanjipowersave.asp"><tr class="trh">
<td width="100%" height="25" bgcolor="#6699CC">
<p align="center"><b> <font color="#FFFFFF">班级权限添加/修改</font></b></td>
</tr>
<tr>
<td width="100%" height="160" bgcolor="#FFFDE8" bordercolor="#799AE1">
<p align="center"> </p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="108">
<tr>
<td width="32%" height="36">
<p align="right">年 级：</td>
<td width="89%" height="36">
<input name="nianji" size="40" value="<%=rs2("nianji")%>" readonly class="inputnormal" style="float: left"> </td>
</tr>
<tr>
<td width="32%" height="36">
<p align="right">班 级：</td>
<td width="89%" height="36"><p align="right">
<input name="banji" size="40" value="<%=rs3("banji")%>" readonly onblur="this.className='inputnormal'" class="inputnormal" style="float: left"></td>
</tr>
<tr>
<td width="32%" height="36">
<p align="right"> 权 限：</td>
<td width="89%" height="36"><%
kcm1=""
do while not rs.eof
sqlkc="select * from tbkc where kcid="&rs("kcid")
set rskc=server.createobject("adodb.recordset")
rskc.open sqlkc,conn,3,2
kcm=rskc("kcm")
if kcm<>kcm1 then
response.write "<br><br><b>科目：<font color=red>"&kcm&"</font><br></b>"
end if
%><li>
<input type="checkbox" name="power" value="<%=rs("paperno")%>" <%
idlistt=power
dim idarra
idArra=split(idlistt,",")
if instr(idlistt,",")>0 then
for i = 0 to ubound(idarra)
idd=clng(idarra(i))
if rs("paperno")=idd then
%>checked<%
end if
next
else
if rs("paperno")=clng(idlistt) then
%>checked<%
end if
end if %>><%=rs("info")%>
<%
kcm1=kcm
rs.movenext
loop %> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" height="25" bgcolor="#FFFDE8" bordercolor="#799AE1">
<p align="center">
<input type="submit" value="保存" name="B1" class="s02"><span lang="en-us">
</span>
<input type="button" value="关闭窗口" name="B2" onclick="self.close()" class="s02"></td>
</tr></form>
</table>
</center>
</div>
<p align="center">
</p>
<%
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -