📄 index.asp
字号:
<%
if session("user_type")<>"S" 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 user_id
user_id=session("user_id")
lesson_id=session("lesson_id")
'如果课程ID为空，就算了
if lesson_id<>"" then
SQL="SELECT title,homework_id,end_date FROM homework"
SQL=SQL + " WHERE lesson_id = '" & lesson_id & "'"
SQL=SQL + " and homework_type = 'H'"
SQL=SQL + " and open_flag = 1"
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: rgb(255,255,255)">作业列表</td>
<td colspan=7 align=right style="background-color: rgb(255,255,255)"></td>
</tr>
<TR bgcolor=#E9E9E9 align="center">
<TD width=30%>作业主题</TD>
<TD width=20%>截止时间</TD>
<TD width=10%>交否</TD>
<TD width=10%>批否</TD>
<TD width=10%>分数</TD>
<TD width=20% colspan=2>操作</TD>
</TR>
<%
DO WHILE NOT RS.EOF
dim sql2,rs2
sql2="select submit_flag,look_flag,grade from homework_answer where homework_id =" & rs("homework_id")
sql2=sql2+ " and user_id = '" & user_id & "'"
set rs2=db.execute(sql2)
%>
<TR bgcolor=#00CCFF align=center>
<TD align=left><a href="particular.asp?homework_id=<%=rs("homework_id")%>&lesson_id=<%=lesson_id%>"><%=RS("title")%></TD>
<TD><%=RS("end_date")%></TD>
<TD>
<%
if not rs2.bof and not rs2.eof then
if rs2("submit_flag")=1 then
response.write "√"
end if
end if
%>
</TD>
<TD>
<%
if not rs2.bof and not rs2.eof then
if rs2("look_flag")=1 then
response.write "√"
end if
end if
%>
</TD>
<TD>
<%
if not rs2.bof and not rs2.eof then
if rs2("look_flag")=1 then
response.write rs2("grade")
end if
end if
%>
</TD>
<TD width=10%>
<%if not rs2.bof and not rs2.eof then%>
<a href="view.asp?homework_id=<%=rs("homework_id")%>&lesson_id=<%=lesson_id%>">看看</a>
<%end If%>
</TD>
<TD >
<%if not rs2.bof and not rs2.eof then%>
<%If rs2("submit_flag")<>1 Then%>
<a href="submit.asp?homework_id=<%=rs("homework_id")%>&lesson_id=<%=lesson_id%>">交作业</a>
<%elseif rs2("submit_flag")=1 and rs2("look_flag")<>1 then%>
<a href="re_submit.asp?homework_id=<%=rs("homework_id")%>&lesson_id=<%=lesson_id%>">重新交</a>
<%end if %>
<%else%>
<a href="submit.asp?homework_id=<%=rs("homework_id")%>&lesson_id=<%=lesson_id%>">交作业</a>
<%end If%>
</TD>
</TR>
<%
RS.MOVENEXT
rs2.close
set rs2=nothing
LOOP
rs.close
set rs=nothing
db.close
set db=nothing
%>
</TABLE>
</CENTER>
<%end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -