📄 re_submit.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=session("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
%>
<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>
<%
'*******************************************************************************************
'现在重新递交作业
'*******************************************************************************************
submit_homework_type=rs("submit_homework_type")
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
%>
<p class=zhushi>该作业要求在线做，请在下面框中输入您的作业
<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>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'递交超链接网址
if submit_homework_type="L" then
%>
<p class=zhushi>该作业要求递交超链接网址,请保证能正确链接
<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><INPUT TYPE="text" NAME="body" size=50 value="<%=rs("body")%>">
</td>
</tr>
</table>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'用email交
if submit_homework_type="E" then
%>
<p class=zhushi>该作业要求用email交，为便于统计，先发送email后，还必须在此处交
<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 teacher.email from teacher,user_lesson"
sql=sql + " WHERE user_lesson.lesson_id = '"&lesson_id&"'"
sql=sql + " and user_lesson.user_id = teacher.user_id"
sql=sql + " and user_lesson.user_TYPE = 'T'"
set rs=db.execute(sql)
response.write "<p> <p><a href='mailto:" & rs("email") & "?subject=作业：学号  姓名  '><b>" & rs("email") & "</b></a>"
response.write "  (别忘了email主题写上学号、姓名)<p> "
%>
</td>
</tr>
<tr>
<td >给教师留短信</td>
<td>
<textarea name="body" rows=5 cols=50 >老师，我上次已经交过了，但我又重新改了一下，我想重交，请原谅</textarea>
</td>
</tr>
</table>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'当面交
if submit_homework_type="D" then
%>
<p class=zhushi>该作业要求当面交给老师，为便于统计，交作业后，还必须在此处交
<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 >老师，我上次已经交过了，但我又重新改了一下，我想重交，请原谅</textarea>
</td>
</tr>
</table>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'其他方式交
if submit_homework_type="Z" then
%>
<p class=zhushi>该作业要求其他方式交，为便于统计，交作业后，还必须在此处交
<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>
<textarea name="body" rows=5 cols=50 >老师，我已经交了,告诉您一声</textarea>
</td>
</tr>
</table>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'交文件
if submit_homework_type="F" then
%>
<p class=zhushi>该作业要求交文件，请准备您的文件，可以给老师留短信
<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">原来的文件</a>，你现在可以选择新的文件
<p><input type=file name="upfile" size=45>
</td>
</tr>
<tr>
<td width=20%>给老师短信</td>
<td>
<textarea name="fieldname" rows=5 cols=50 ><%=rs("body")%></textarea>
</td>
</tr>
</table>
<p align="center"><INPUT TYPE="Submit" VALUE=" 交作业 ">  <a href="index.asp" ><<返回</a>
</form>
<%end if%>
<%
'结束了
end if
db.close
set db=nothing
%>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -