?? 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 + -