📄 particular.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 BGCOLOR="#FFFFFF">
<h2 align="center">详细作业内容</h2>
<%
dim homework_id,lesson_id
lesson_id=session("lesson_id")
homework_id= request("homework_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%">
<TR>
<TD width=20%>主题</TD>
<TD><%=RS("title")%></TD>
</TR>
<TR>
<TD>内容</TD>
<TD>
<%
response.write RS("body")
if not isnull(rs("upload_file_name")) then
upload_file_path="../../../../uploadfile/" & lesson_id & "/" & rs("upload_file_name")
response.write "<p><a href='"& upload_file_path & "' target='new'>请参看附件</a>"
end if
%>
</TD>
</TR>
<TR>
<TD>布置时间</TD>
<TD><%=RS("submit_date")%></TD>
</TR>
<TR>
<TD>截止时间</TD>
<TD><p class=zhushi><%=RS("end_date")%></p></TD>
</TR>
<TR>
<TD>递交方式</TD>
<TD>
<%
If rs("submit_homework_type")="W" Then
response.write "在线做"
elseIf rs("submit_homework_type")="F" Then
response.write "交文件"
elseIf rs("submit_homework_type")="L" Then
response.write "交超链接网址"
elseIf rs("submit_homework_type")="E" Then
response.write "email交"
elseIf rs("submit_homework_type")="D" Then
response.write "当面交"
end If
%>
</TD>
</TR>
</TABLE>
<%
RS.close
set rs=nothing
%>
</center>
<p>
<p>
<p align="center"><a href="index.asp?lesson_id=<%=lesson_id%>">返回</a>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -