?? 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("對不起,該系統(tǒng)目前該功能只對教師開放,如有需要,請自建一個(gè)教師帳號!--><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>無標(biāo)題文檔</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("出現(xiàn)未知錯(cuò)誤,請與系統(tǒng)管理員聯(lián)系!")
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 "你當(dāng)前沒有管理的班級!"
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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -