📄 update.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>
<%
dim lesson_id,homework_id,upload_file_name
homework_id=request("homework_id")
lesson_id=session("lesson_id")
sql="select * from homework where homework_id=" & homework_id
sql=sql & " and lesson_id='" & session("lesson_id") & "'"
set rs=db.execute(sql)
upload_file_name=rs("upload_file_name")
end_date=rs("end_date")
%>
<center>
<h2 align="center"> 修改作业 </h2>
<form name="form1" method="post" action="">
<table border="0" width=80%>
<tr>
<td width=20%>主题</td>
<td><input type="text" name="title" size=60 value="<%=rs("title")%>"></td>
</tr>
<tr>
<td width=20%>内容</td>
<td><textarea name="body" rows=5 cols=60 ><%=rs("body")%></textarea></td>
</tr>
<tr>
<td width=20%>附件</td>
<td>
<%
If rs("upload_file_name")="" or isnull(rs("upload_file_name")) Then
response.write "<p class=zhushi>原来没有附件，现在可以选择添加"
response.write "<p><input type='radio' name='append' value='Y'>需要附件"
response.write "<input type='radio' name='append' value='N' checked >不需要"
Else
Dim upload_file_path
upload_file_path="../../../../uploadfile/" & lesson_id & "/homework/" & upload_file_name
response.write "<p class=zhushi>原来有附件，可以<a href='"& upload_file_path & "' target='new'>查看附件</a>"
response.write "<p><input type='radio' name='append' value='O' checked>维持原来附件"
response.write "<input type='radio' name='append' value='Y' >更新附件"
response.write "<input type='radio' name='append' value='N' >不需要"
End If
%>
</td>
</tr>
</table>
<p>
<table border="0" width=80%>
<tr><td style="background-color: #FFFFFF" colspan=2>对学生作业的要求</td></tr>
<tr>
<td width=20%>递交方式</td>
<td>
<select name="submit_homework_type">
<%If rs("submit_homework_type")="F" Then%>
<option value="F" selected>交文件</option>
<%else%>
<option value="F">交文件</option>
<%end If%>
<%If rs("submit_homework_type")="W" Then%>
<option value="W" selected>在线做</option>
<%else%>
<option value="W">在线做</option>
<%end If%>
<%If rs("submit_homework_type")="L" Then%>
<option value="L" selected>交超链接网址</option>
<%else%>
<option value="L">交超链接网址</option>
<%end If%>
<%If rs("submit_homework_type")="E" Then%>
<option value="E" selected>email交</option>
<%else%>
<option value="E">email交</option>
<%end If%>
<%If rs("submit_homework_type")="Z" Then%>
<option value="Z" selected>其它方式</option>
<%else%>
<option value="Z">其它方式</option>
<%end If%>
</select>
</td>
</tr>
<tr>
<td>文件大小</td>
<td>
<input type="text" name="file_size" value="<%=rs("file_size")%>" size=10>M （如要学生在线交文件，请选择要求文件最大容量,数字）
</td>
</tr>
<tr>
<td>截止时间</td>
<td><input type="text" name="end_date" size=10 value="<%=end_date%>">（格式年-月-日）</td>
</tr>
</table>
<p><input type="submit" name="submit" value=" 提 交 " >  <input type=submit name=submit value=" 取 消 ">
</form>
</center>
<%
If request("submit")=" 取 消 " Then
response.redirect "index.asp?lesson_id=" &lesson_id
End If
If request("title")<>"" Then
dim title,body,submit_date,homework_type
dim submit_homework_type,file_size,end_date
title=request.form("title")
body=request.form("body")
submit_date=now
homework_type="H"
submit_homework_type=request("submit_homework_type")
If request("file_size")="" Then
file_size=1
Else
file_size=request("file_size")
End If
If request("end_date")="" Then
end_date=cdate(date()+7)
else
end_date=cdate(request("end_date"))
End If
Dim SQL,sValues
Sql="update homework set title='" & title & "'"
If request("body")<>"" Then
sql=sql & ",body='" & body & "'"
End If
If request("submit_homework_type")<>"" Then
sql=sql & ",submit_homework_type='" & submit_homework_type & "'"
End If
If request("file_size")<>"" Then
sql=sql & ",file_size=" & cInt(file_size )
End If
If request("end_date")<>"" Then
sql=sql & ",end_date='" & end_date &"'"
End If
if request.form("append")="N" Then
sql=sql & ",upload_file_name=NUll"
End If
SQL = SQL & ",submit_date='"& submit_date & "'"
SQL = SQL & ",homework_type='" & homework_type & "'"
sql=sql & " where homework_id=" & homework_id
sql=sql & " and lesson_id='" & session("lesson_id") & "'"
DB.Execute(SQL)
if request.form("append")="Y" then
'不过原来有没有，先删掉upload_file表里的
sql="delete from upload_file where upload_file_name='" & upload_file_name & "'"
response.write sql
db.execute(sql)
'先继续添加
dim temp_url
temp_url="add_file.asp?homework_id=" & homework_id & "&lesson_id=" & lesson_id
db.close
set db=nothing
response.redirect temp_url
Else
db.close
set db=nothing
response.redirect "index.asp?lesson_id="&lesson_id
end if
End If
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -