📄 view.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">
<h2 align="center">查看作业</h2>
<%
dim user_id,homework_id,submit_homework_type,lesson_id
user_id = session("user_id")
homework_id= request("homework_id")
lesson_id=request("lesson_id")
SQL="SELECT title,body,upload_file_name,submit_date,end_date,submit_homework_type FROM homework"
SQL=SQL + " WHERE homework_id = " & homework_id
sql=sql & " and lesson_id='" & session("lesson_id") & "'"
SET RS=db.EXECUTE(SQL)
dim upload_file_path
submit_homework_type=rs("submit_homework_type")
%>
<CENTER>
<table border='0' width='80%' cellpadding='0' >
<TR>
<TD align=right style="background-color: rgb(255,255,255)" colspan=2>
</TD>
</TR>
<TR>
<td width=20%>作业主题</td>
<TD ><%=RS("title")%></TD>
</TR>
</TABLE>
<p>
<%
'*******************************************************************************************
'现在看作业
'*******************************************************************************************
sql="select user_lesson.user_type,user_lesson.permit from user_lesson,homework"
sql=sql + " where user_lesson.lesson_id = homework.lesson_id "
sql=sql + " and user_lesson.user_id = '" & user_id & "'"
sql=sql + " and homework.homework_id = " & homework_id
set rs=db.execute(sql)
if rs("user_type")="G" or rs("user_type")="SP" then
response.write "<p align=center class=zhushi>您是普通访客或往届学生，不能交作业"
elseif rs("user_type")="S" and rs("permit")=0 then
response.write "<p align=center class=zhushi>您申请成为正式学生，还没被批准，不能交作业"
else
'当然可以交作业了
%>
<%
'在线做
if submit_homework_type="W" then
%>
<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%>您的作业</td>
<td>
<%
sql="select body from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
%>
<p><textarea name="body" rows=10 cols=50><%=rs("body")%></textarea>
</td>
</tr>
</table>
</form>
<%end if%>
<%
'递交超链接网址
if submit_homework_type="L" then
%>
<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%>您的超链</td>
<td>
<%
sql="select body from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
body=rs("body")
%>
<p><a href="<%=body%>" target="_new"><%=body%></a>
</td>
</tr>
</table>
</form>
<%end if%>
<%
'用email交
if submit_homework_type="E" then
%>
<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%></td>
<td>
您的作业已经用email发给教师
</td>
</tr>
<tr>
<td >给教师留短信</td>
<td>
<%
sql="select body from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
%>
<textarea name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
</td>
</tr>
</table>
</form>
<%end if%>
<%
'当面交
if submit_homework_type="D" then
%>
<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%></td>
<td>
<p> <p>您的作业已经当面交给老师<p> 
</td>
</tr>
<tr>
<td >给教师留短信</td>
<td>
<%
sql="select body from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
%>
<textarea name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
</td>
</tr>
</table>
</form>
<%end if%>
<%
'其它方式交
if submit_homework_type="Z" then
%>
<form name="form1" method="post" action="update_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%></td>
<td>
<p> <p>您的作业已经放到帐号下了<p> 
</td>
</tr>
<tr>
<td >给教师留短信</td>
<td>
<%
sql="select body from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
%>
<textarea name="body" rows=5 cols=50 ><%=rs("body")%></textarea>
</td>
</tr>
</table>
</form>
<%end if%>
<%
'交文件
if submit_homework_type="F" then
%>
<form name="frmUpload" Method="Post" Enctype="multipart/form-data" Action="submit_F.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td>作业文件</td>
<td>
<%
sql="select body,upload_file_name from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
set rs=db.execute(sql)
%>
<P>请看您的<a href="../../../../uploadfile/<%=lesson_id%>/<%= rs("upload_file_name")%>" target="new"><b>文件</b></a>
</td>
</tr>
<tr>
<td width=20%>给老师留短信</td>
<td>
<textarea name="fieldname" rows=5 cols=50 ><%=rs("body")%></textarea>
</td>
</tr>
</table>
</form>
<%end if%>
<p>
<%
'现在看一下，如果老师已经批了，则看看评语
sql="select pingyu,grade from homework_answer where homework_id=" & homework_id
sql=sql & " and user_id='" & user_id & "'"
sql=sql & " and look_flag=1"
set rs=db.execute(sql)
If not rs.bof and not rs.eof Then
%>
<table border='0' width='80%' >
<tr>
<td width=20%>评语</td>
<td><%=rs("pingyu")%></td>
</tr>
<tr>
<td>分数</td>
<td><%=rs("grade")%></td>
</tr>
</table>
<%
else
response.write "<p align=center class=zhushi>老师还没来得及批</p>"
end if
%>
<%
'结束了
end if
db.close
set db=nothing
%>
<p align="center"><a href="index.asp" ><<返回</a>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -