📄 look.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">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<h4 align="left">  批作业</h4>
<%
dim homework_id
homework_id= request.querystring("homework_id")
lesson_id=session("lesson_id")
SQL="SELECT distinct student.user_id,student.user_name,homework.submit_homework_type FROM homework,student,user_lesson"
SQL=SQL + " WHERE homework.homework_id = " & homework_id
SQL=SQL + " and homework.lesson_id = user_lesson.lesson_id "
SQL=SQL + " and user_lesson.user_id = student.user_id "
SQL=SQL + " and user_lesson.user_type ='S' and user_lesson.permit=1 "
sql=sql & " and homework.lesson_id='" & session("lesson_id") & "'"
SQL=SQL + " order by student.user_id"
SET RS=db.EXECUTE(SQL)
%>
<CENTER>
<TABLE border="0" width="95%">
<tr>
<td style="background-color: #FFFFFF" >学生列表</td>
<td colspan=5 align=right style="background-color: #FFFFFF"><a href="index.asp"><<返回</a></td>
</tr>
<TR align="center">
<TD width=20%>学生用户名</TD>
<TD width=20%>学生姓名</TD>
<TD width=15%>交否</TD>
<TD width=15%>批否</TD>
<TD width=15%>分数</TD>
<TD width=15%>操作</TD>
</TR>
<%
do while not rs.eof
dim sql2
sql2="select look_flag,grade from homework_answer where homework_id =" & homework_id
sql2=sql2+ " and user_id = '" & rs("user_id") & "'"
set rs2=db.execute(sql2)
%>
<tr align="center">
<td><%=rs("user_id")%></td>
<td><%=rs("user_name")%></td>
<td>
<%
if not rs2.eof and not rs2.bof then
response.write "√"
end if
%>
</td>
<td>
<%
if not rs2.eof and not rs2.bof then
if rs2("look_flag")=1 then
response.write "√"
end if
end if
%>
</td>
<td>
<%
if not rs2.eof and not rs2.bof then
if rs2("grade")<>0 then
response.write rs2("grade")
end if
end if
%>
</td>
<td>
<%
if not rs2.eof and not rs2.bof then
if rs2("look_flag")=1 then
response.write "<a href='pigai.asp?homework_id=" & homework_id & "&user_id=" & rs("user_id") &"'>再看看</a>"
elseif rs2("look_flag")=0 then
response.write "<a href='pigai.asp?homework_id=" & homework_id & "&user_id=" & rs("user_id") &"'>马上批</a>"
end if
end if
%>
</td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -