📄 adminbanjipower1.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
nianji=request("nianji")
banji=request("banji")
sql4="select * from tbnianji order by nianjiid"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
sql5="select * from tbbanji order by banjiid"
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
if nianji="--选择科目--" or nianji="" then
nianji=rs4("nianji")
end if
if banji="--题型--" or banji="" then
banji=rs5("banji")
end if
%>
<html>
<head><meta http-equiv='refresh' content='<%=refreshtime%>; url=adminbanjipower1.asp'>
<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>
<script language="javascript">
function editit(id)
{
page="adminbanjipoweredit.asp?powerid="+id
window.open (page,'编辑用户','width=500,height=400,resizable=1,scrollbars=1')
}
function viewit(myform)
{
myform.action="adminnianji.asp";
myform.submit();
}
function searchit(myform)
{
myform.action="adminbanjipower1.asp";
myform.submit();
}
function add(myform)
{
myform.action="adminbanjipoweradd1.asp";
myform.submit();
}
function addit(myform)
{
myform.action="adminbanji.asp";
myform.submit();
}
function delit(myform)
{
if (confirm("将删除此班级下所有用户的所有数据？"))
{
myform.action="adminbanjipowerdel11.asp";
myform.submit();
}
}
function database(myform)
{
myform.action="adminsubject1.asp";
myform.submit();
}
function FanAll(form){
for (var i=0;i<form.elements.length;i++){
var e = form.elements[i];
if (e.checked == false){ e.checked = true; }
else { e.checked = false;}
}}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置： 系统管理 >
班级权限管理</td>
</tr>
</table>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%" background="images/admin_bg_1.gif" bordercolor="#799AE1">
<form name="viewaddform" method="POST" action="adminadmin.asp">
<tr>
<td><center>
<select size="1" name="nianji">
<%
do while not rs4.eof
%><option value="<%=rs4("nianji")%>" <%if rs4("nianji")= nianji then %> selected <%end if%>><%=rs4("nianji")%></option>
<%
rs4.movenext
loop %>
</select><select size="1" name="banji">
<%
do while not rs5.eof
%><option value="<%=rs5("banji")%>" <%if rs5("banji")= banji then %> selected <%end if%>><%=rs5("banji")%></option>
<%
rs5.movenext
loop %>
</select><span lang="en-us"> </span><input type="submit" value="添加" name="I19" onclick="add(viewaddform)" class="s02"> </center>
</td>
</tr>
</table></center>
<%
sql1="SELECT tbpower.id, tbnianji.nianji, tbbanji.banji, tbpower.power FROM tbbanji INNER JOIN (tbnianji INNER JOIN tbpower ON tbnianji.nianjiid = tbpower.nianjiid) ON tbbanji.banjiid = tbpower.banjiid order by tbnianji.nianji, tbbanji.banji ; "
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%><%
if rs1.eof then
%><p>
<br><br>
</p>
<center>
<h4>没有班级</h4></center>
<%
else%><br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1" height="48">
<tr class="trh">
<td width="44" align="center" bgcolor="#799AE1" height="22"><input type="submit" value="删除" name="del" onclick="delit(viewaddform)" class="s02"></td>
<td width="44" align="center" bgcolor="#799AE1" height="22">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="left" bgcolor="#799AE1" width="152" height="22">
<p align="center"><font color="#FFFFFF"><b>年 级</b></font></td>
<td align="left" bgcolor="#799AE1" width="165" height="22">
<p align="center"><font color="#FFFFFF"><b>班 级</b></font></td>
<td align="left" bgcolor="#799AE1" width="278" height="22">
<p align="center"><font color="#FFFFFF"><b>权 限</b></font></td>
<td align="left" bgcolor="#799AE1" width="50" height="22">
<p align="center"><font color="#FFFFFF"><b>操作</b></font></td>
</tr>
<%
i=1
For iPage = 0 To rs1.recordcount
%>
<tr class="trh1">
<td align="center" width="44" height="23"><input type="checkbox" name="id" value="<%=rs1("id")%>"></td>
<td align="center" width="44" height="23"><%=i%></td>
<td align="center" width="152" height="23"><%=rs1("nianji")%> </td>
<td align="center" width="165" height="23"><%=rs1("banji")%> </td>
<td align="center" width="278" height="23"><%
idlistt=rs1("power")
if instr(idlistt,",")>0 then
idArra=split(idlistt)
dim idd
for j = 0 to ubound(idarra)
idd=clng(idarra(j))
set rs3=server.createobject("adodb.recordset")
sql3="select * from tbpaper where paperno="&idd
rs3.open sql3,conn,3,2
sqlkc="select * from tbkc where kcid="&rs3("kcid")
set rskc=server.createobject("adodb.recordset")
rskc.open sqlkc,conn,3,2
response.write "<li><font color=red>"&rskc("kcm")&"</font>——"&rs3("info")
next
else
if idlistt="0" then
response.write "请添加试卷——>"
else
set rs3=server.createobject("adodb.recordset")
sql3="select * from tbpaper where paperno="&rs1("power")
rs3.open sql3,conn,3,2
sqlkc="select * from tbkc where kcid="&rs3("kcid")
set rskc=server.createobject("adodb.recordset")
rskc.open sqlkc,conn,3,2
response.write "<li><font color=red>"&rskc("kcm")&"</font>——"&rs3("info")
end if
end if
%> </td>
<td align="left" width="50" height="23">
<p align="center"><a href="javascript:editit(<%=rs1("id")%>)">
<img border="0" src="images/edit.gif" alt="查看/编辑"></a></td>
</tr>
<%
i=i+1
rs1.MoveNext
If rs1.EOF Then Exit For
Next
%>
<caption></caption>
</table>
</center>
</form>
<%end if
%></td></tr></table><p align="center"> <input type=checkbox name=del_all1 value=1 onclick=FanAll(viewaddform)>全选<span lang="en-us"> </span>
<input type="submit" value="刷 新" name="I7" onclick="searchit(viewaddform)" class="s02"><span lang="en-us">
</span> <input type="submit" value="科目管理" name="I18" onclick="database(viewaddform)" class="s02"></p>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -