📄 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=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
%>
<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="submit_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%>您的作业</td>
<td>
<p><textarea name="body" rows=10 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="L" then
%>
<p class=zhushi>该作业要求递交超链接网址,请保证能正确链接
<form name="form1" method="post" action="submit_WLED.asp?homework_id=<%=homework_id%>&lesson_id=<%=lesson_id%>">
<table border='0' width='80%' >
<tr>
<td width=20%>您的超链</td>
<td>
<p><INPUT TYPE="text" NAME="body" size=50 value="http://">
</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="submit_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="Z" then
%>
<p class=zhushi>该作业要求用其它方式交，为便于统计，交作业后，还必须在此处交
<form name="form1" method="post" action="submit_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>
<input type=file name="upfile" size=45>
</td>
</tr>
<tr>
<td width=20%>给老师短信</td>
<td>
<textarea name="fieldname" rows=5 cols=50 >老师，这是我的作业，请您审阅</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 + -