📄 index.asp
字号:
<%
if session("user_type")<>"T" then
response.redirect "../../../index.asp"
end if
%>
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
<TITLE> 我的作业台 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
<%
'函数，计算已交人数，
private function count_submit(homework_id)
sql="select count(*) as temp_number from homework_answer,user_lesson where homework_id =" & homework_id
sql=sql & " and homework_answer.user_id=user_lesson.user_id"
sql=sql & " and user_lesson.permit=1"
sql=sql & " and user_lesson.user_type='S'"
set rs2=db.execute(sql)
count_submit = rs2("temp_number")
rs2.close
set rs2=nothing
end function
'函数，计算未交人数，
private function count_not_submit(lesson_id,homework_id)
'先计算总人数
sql="select count(*) as temp_number from user_lesson where lesson_id = '" & lesson_id & "'"
sql=sql & " and user_type='S'"
sql=sql & " and permit=1"
set rs2=db.execute(sql)
dim all_number
all_number = rs2("temp_number")
'调用上面程序，计算已交人数
count_not_submit=all_number-count_submit(homework_id)
rs2.close
set rs2=nothing
end function
'函数，计算已批作业数，
'
private function count_look(homework_id)
sql="select count(*) as temp_number from homework_answer where homework_id =" & homework_id
sql=sql + " and look_flag = 1 "
set rs2=db.execute(sql)
count_look = rs2("temp_number")
rs2.close
set rs2=nothing
end function
'函数，计算未批作业数，
private function count_not_look(homework_id)
sql="select count(*) as temp_number from homework_answer where homework_id = " & homework_id
sql=sql + " and look_flag = 0 "
set rs2=db.execute(sql)
count_not_look = rs2("temp_number")
rs2.close
set rs2=nothing
end function
%>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<h4 align="left">  作业本</h4>
<%
dim user_id,lesson_id
user_id=session("user_id")
lesson_id=session("lesson_id")
'作业列表
SQL="SELECT title,homework_id,end_date,open_flag FROM homework"
SQL=SQL + " WHERE lesson_id = '" & lesson_id & "'"
SQL=SQL + " and homework_type = 'H'"
SQL=SQL + " order by submit_date desc,homework_id desc"
SET RS=db.EXECUTE(SQL)
%>
<CENTER>
<TABLE border="0" width="95%">
<tr>
<td style="background-color: #FFFFFF">作业列表</td>
<td colspan=10 align=right style="background-color: #FFFFFF">
<a href="open_all.asp?lesson_id=<%=lesson_id%>">全部开放</a>
  <a href="close_all.asp?lesson_id=<%=lesson_id%>">全部停止</a>
  <a href="add.asp?lesson_id=<%=lesson_id%>">添加</a>
</td>
</tr>
<TR bgcolor=#E9E9E9 align="center">
<TD width=20%>主题</TD>
<TD width=8%>截止</TD>
<TD width=8%>状态</td>
<TD width=24% colspan="3">管理</td>
<TD width=8%>已交</TD>
<TD width=8%>未交</TD>
<TD width=8%>已批</TD>
<TD width=8%>未批</TD>
<TD width=8%>操作</td>
</TR>
<%
dim homework_id
DO WHILE NOT RS.EOF
homework_id=rs("homework_id")
%>
<TR align="center">
<TD><a href="particular.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>" ><%=RS("title")%></TD>
<TD><%=RS("end_date")%></TD>
<%
IF rs("open_flag")=1 Then
Response.Write "<td>√</td>"
Response.Write "<td><a href='close.asp?lesson_id="& lesson_id & "&homework_id=" & homework_id & "'>停止</a></td>"
Else
Response.Write "<td><font color=red>×</font></td>"
Response.Write "<td><a href='open.asp?lesson_id="& lesson_id & "&homework_id=" & homework_id & "'>开放</a></td>"
End If
%>
<TD align=center><a href="update.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">修改</a></TD>
<TD align=center><a href="delete_pre.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">删除</a></TD>
<TD><%=count_submit(homework_id)%></TD>
<TD><%=count_not_submit(lesson_id,homework_id)%></TD>
<TD><%=count_look(homework_id)%></TD>
<TD><%=count_not_look(homework_id)%></TD>
<TD><a href="look.asp?homework_id=<%=homework_id%>">批作业</a></TD>
</TR>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
%>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -