File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />

<title>�������ҡ���Ե ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</title>

<style type="text/css">

</style>

</head>

<body>
<table width="100%" border="0" cellspacing="0">
  <tr>
    <td><div align="center"><img src="head.jpg" width="800" height="191" /></div></td>
  </tr>
  <tr>
    <td>
      <div align="center">
        
        </div></td></tr>
  <tr>
    <td align="center" valign="top">
      <p><strong>�觡�ú�ҹ<br />
        �ͧ����Ԫ� 
		
		<%
		course_no=request("course_no")
		session("course_no")=course_no
		response.write course_no
		
			sql_c = "select * from course where course_no="&course_no&""
	 Set ors_c = Server.CreateObject("ADODB.Recordset")
    ors_c.Open sql_c, Conn, 1, 3
	'response.write sql_c
	if not ors_c.eof then

id_course=ors_c("id_course")
	end if
		
		%> </strong><br />
      �ͧ
	  <%
	  response.write session("username")
	  username_stu=session("username")
	  %>
	  <br />
      </p>

<table width="800" border="0" cellspacing="1">
        <tr>
          <td bgcolor="#FFFFCC"><strong>�ӴѺ���</strong></td>
          <td bgcolor="#FFFFCC"><strong>��������Ԫ�</strong></td>
          <td bgcolor="#FFFFCC"><strong>���͡�ú�ҹ</strong></td>
          <td bgcolor="#FFFFCC" width="200" ><strong>.........�ѹ������ҧ.........</strong></td>
          <td bgcolor="#FFFFCC"><strong>��˹���</strong></td>
          <td bgcolor="#FFFFCC"><strong>�ѹ�֡���ͺ�����</strong></td>
		  <td bgcolor="#FFFFCC"><strong>��õ�Ǩ</strong></td>
		  <td bgcolor="#FFFFCC"><strong>File</strong></td>
        </tr>
		
		<%
		sql_allh="select * from home_work where course_no='"&course_no&"'"
	 Set ors_allh = Server.CreateObject("ADODB.Recordset")
    ors_allh.Open sql_allh, Conn, 1, 3
	'response.write sql_c
	if not ors_allh.eof then
	ors_allh.movefirst
	id_work=ors_allh("id_work")
	
	'course_no=ors_allh("id_course")
	work_name=ors_allh("work_name")
	d_create=ors_allh("d_create")
	m_expire=ors_allh("m_expire")
	y_expire=ors_allh("y_expire")
	
	do while not ors_allh.eof
		response.write "<tr><td>"&ors_allh("id_work")&"<td>"&id_course&"<td>"&ors_allh("work_name")&"<td width=200>"&ors_allh("d_create")&"<td>"&ors_allh("d_expire")&"/"&ors_allh("m_expire")&"/"&ors_allh("y_expire")

sqlch1="select * from send_homework where id_work='"&ors_allh("id_work")&"' and username_stu='"&username_stu&"'"
		set orsch1=server.createobject("adodb.recordset")
		orsch1.open sqlch1, conn, 1, 3
			
		
							if  orsch1.eof then
							'chec=orsch1("file_upload")
											
													'if chec="" then
													
												response.write "<td><a href=send_homework_form.asp?id_work="&ors_allh("id_work")&">+++</a>"
												else
												'response.write chec
												response.write "<td>"&orsch1("homework_name")
													'end if
													c=orsch1("status_online")
													if c=0 then
							response.write "<td>No"&orsch1("status_online")&"<td>"
													else
							response.write "<td>Yes"&orsch1("status_online")&"<td>"
													end if
													b=orsch1("file_upload")
													'response.write b
													if b="0" then
													session("id_work")=ors_allh("id_work")		
													response.write "[<a href=upload.asp?id_work="&ors_allh("id_work")&">Upload File</a>]"
												else
													response.write b&"aaa"
													end if

end if
		
		
		%>

<%
		response.write "</tr>"
		ors_allh.movenext
		loop
	else
		response.write "<tr colspan=6><td>No Data</td></tr>"
	end if

%>
		 <tr>
          <td bgcolor="#FFFFCC"></td>
          <td bgcolor="#FFFFCC"></td>
          <td bgcolor="#FFFFCC"></td>
          <td bgcolor="#FFFFCC" ></td>
          <td bgcolor="#FFFFCC"></td>
          <td bgcolor="#FFFFCC"></td>
        </tr>
      </table>
      <p>&nbsp;</p>
    </td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: homework/work_course.asp.bak