📄 manage_homework.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%const need_purview=2%>
<!--#include file="../localhost.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="show_error.asp"-->
<!--#include file="../purview.asp"-->
<%
response.expires=0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../eric.css" rel="stylesheet" type="text/css">
<SCRIPT language=javascript>
function openScript(url, width, height) {
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=0,scrollbars=yes,menubar=no,status=n0' );
}
</SCRIPT>
</head>
<body>
<%
'dim action,class_got,homework_name
action=lcase(trim(request.querystring("action")))
'过滤字符
if action="" then
call opendb()
set rs=conn.execute("select * from eric_manager where teacher='" & session("teacher_name") & "' and class_e<>''")
if not rs.eof then
dim class_e
class_e=rs("class_e")
call closers()
if instr(class_e,"|")=0 then%>
<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>
<tr>
<td><%response.write "<a href='?action=class_detail&class=" & class_e & "'>" & class_e & "</a>"%></td>
<td> </td>
<td> </td>
</tr>
</table>
<%elseif instr(class_e,"|")>0 then%>
<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>
<% array_class_e=split(class_e,"|")
for i=0 to ubound(array_class_e)%>
<tr>
<td><%response.write "<a href='?action=class_detail&class=" & array_class_e(i) & "'>" & array_class_e(i) & "</a>"%></td>
<td> </td>
<td> </td>
</tr>
<%next%>
</table>
<%
end if
else
response.write "当前你没有授课的班级！"
end if
call closedb()
else
select case action
case "class_detail"
class_got=lcase(trim(request.querystring("class")))
'过滤字符
if class_got<>"" then
call opendb()
set rs=conn.execute("select * from homework where teacher_name='" & session("teacher_name") & "' and object_class='" & class_got & "'")
if rs.eof then
call closers()
call closedb()
response.write "当前你没有给该班级布置作业！"
response.end
else
%>
<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>
<td class="white_bold_blue">操作：</td>
</tr>
<%do while not rs.eof%>
<tr>
<td><%response.write "<a href='?action=homework_detail&homework_name=" & rs("homework_name") & "&class_object=" & class_got & "'>" & rs("homework_name") & "</a>"%></td>
<td><a title="点击查看该次作业内容！" href=javascript:openScript('../detail.asp?id=<%=rs("id")%>',418,300)>作业内容</a> <a title="编辑作业内容！" href="edit_homework.asp?id=<%=rs("id")%>">编辑</a></td>
<td><%=rs("add_time")%></td>
<td><%response.write "<a href='?action=delete_homework&id=" & rs("id") & "&class=" & class_got & "&homework_name=" & rs("homework_name") & "'>删除该次作业</a>"%></td>
</tr>
<%
rs.movenext
loop
call closers()
call closedb()
end if%>
</table>
<% end if
case "homework_detail"
homework_name=trim(request.querystring("homework_name"))
class_object=trim(request.querystring("class_object"))
'过滤字符
if homework_name<>"" and class_object<>"" then
call opendb()
'response.write class_object
'response.write "<br>" & homework_name
'response.write "<br>" & session("teacher_name")
'response.end
set rs=conn.execute("select * from upload_info where class_e='" & class_object & "' and teacher='" & session("teacher_name") & "' and upload_homework_name='" & homework_name & "' order by num asc")'按学号升序排列
if rs.eof then
call closers()
call closedb()
response.write "当前还没有学生提交作业！"
response.end
else%>
<table width="600" border="0" align="center" cellpadding="4" cellspacing="1" id="table_01">
<tr>
<td colspan="2" class="white_bold_blue"><%=class_object%>--<%=homework_name%>次作业：</td>
<td width="77" class="white_bold_blue">上传时间：</td>
<td width="81" class="white_bold_blue">下载该作业</td>
<td width="65" class="white_bold_blue">批阅时间：</td>
<td width="113" class="white_bold_blue">是否批阅：(评分)</td>
</tr>
<%do while not rs.eof%>
<tr>
<td width="16"><%=rs("num")%></td>
<td width="92"><%
name=right(rs("upload_path"),len(rs("upload_path"))-instrRev(rs("upload_path"),"/"))
array_name=split(name,"_")
response.write array_name(1)%></td>
<td><%=rs("upload_time")%></td>
<td><%response.write "<a target='_blank' href='../" & rs("upload_path") & "'>下载</a>"%></td>
<td> </td>
<td align="right"><input name="textfield" type="text" class="input_text_01" size="2" maxlength="2">
<input type="submit" name="Submit2" value="提交"></td>
</tr>
<%
rs.movenext
loop
call closers()
call closedb()
response.write "</table>"
end if
else
call error("出现非法参数！")
call Iserror()
response.end
end if
case "delete_homework"
id=trim(request.querystring("id"))
class_got=lcase(trim(request.querystring("class")))
homework_name=trim(request.querystring("homework_name"))
if isnumeric("id") then
call error("非法参数！")
call Iserror()
response.end
else
call opendb()
set rs=conn.execute("select * from homework where id=" & id)
homework_id=rs("classid")'取得class表中相关的内容
if rs.eof then
call error("出现未知错误！")
call Iserror()
response.end
end if
call closers()
'从homework表中删除该次作业的相关内容
conn.execute("delete * from homework where id=" & id)
'从class表中删除该次作业的相关内容
set rs=conn.execute("select * from class where id=" & homework_id)
class_id=rs("parentid")'该次作业对应的班级的id
call closers()
conn.execute("delete * from class where id=" & homework_id)
set rs=conn.execute("select * from class where parentid='" & class_id & "'")
if rs.eof then
call closers()
conn.execute("update class set childid='' where id=" & class_id)
else
'response.write "dd"
'response.end
array_id=rs.getrows(1)'取一列
call closers()
rows=ubound(array_id,2)'取得第二维下界
if rows=0 then'rows=0表示有一条记录
conn.execute("update class set childid='" & array_id(0,i) & "' where id=" & class_id)
elseif rows>0 then
new_childid=join(array_id,",")
conn.execute("update class set childid='" & new_childid & "' where id=" & class_id)
else
call error("出现未知错误！")
call Iserror()
response.end
end if
end if
'删除upload_info中的相关内容
conn.execute("delete * from upload_info where teacher='" & session("teacher_name") & "' and class_e='" & class_got & "' and upload_homework_name='" & homework_name & "'")
'删除相关作业文件夹
'生成文件夹路径
folder_path=server.mappath("..\upload\" & session("teacher_name") & "\" & class_got & "\" & homework_name)
Set fs=CreateObject("Scripting.FileSystemObject")
fs.DeleteFolder(folder_path)
set fs=nothing
response.redirect "../show_success.asp?info=删除该次作业操作成功！--><a href='control/admin_main.asp' target='_parent'>返回管理首页</a>"
response.end
end if
case else
call error("出现未知错误！，请与管理员联系！")
call Iserror()
end select
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -