📄 admin_class.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%const need_purview=2%>
<!--#include file="conn.asp"-->
<!--#include file="show_error.asp"-->
<!--#include file="../purview.asp"-->
<%
response.expires=0
Response.CacheControl = "no-cache"
if session("purview")>2 then
call error("对不起，该系统目前该功能只对教师开放，如有需要，请自建一个教师帐号！--><a href='control/admin_main.asp' target='_parent'>返回管理首页</a>")
call Iserror()
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../eric.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td class="white_bold_blue">管理班级：</td>
<td class="white_bold_blue">操作：</td>
<td class="white_bold_blue"> </td>
</tr>
<%
call opendb()
set rs=conn.execute("select * from eric_manager where eric_manager='" & session("teacher") & "'")
if rs.eof then
call error("出现未知错误，请与系统管理员联系！")
call Iserror()
response.end
else
dim class_e
class_e=rs("class_e")
if class_e="" or isnull(class_e) then
response.clear
response.write "你当前没有管理的班级！"
response.end
else
if instr(class_e,"|")=0 then
response.write "<tr><td>" & class_e & "</td><td><a href='admin_check.asp?action=delete_class&id=" & rs("id") & "&class=" & class_e & "'>删除</a></td><td> </td></tr>"
elseif instr(class_e,"|")>0 then
array_class_e=split(class_e,"|")
for i=0 to ubound(array_class_e)
response.write "<tr><td>" & array_class_e(i) & "</td><td><a href='admin_check.asp?action=delete_class&id=" & rs("id") & "&class=" & array_class_e(i) & "'>删除</a></td><td> </td></tr>"
next
end if
end if
end if
call closers()
call closedb()
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -