File Manager

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ICT</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<link href="bsri2006.css" rel="stylesheet" type="text/css">
</head>
	
<body>
<table width="100%" border="0" cellspacing="1">
  <tr> 
    <td><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif"><div align="center"><strong>�����š���ͺ����ç/�ҡ����</strong></div></td>
  </tr>
  <tr> 
    <td valign="top"> 
      <table width="100%" border="1" cellspacing="0" cellpadding="1" bordercolor="#CCFFCC">
        <tr bgcolor="#66CC00"> 
          <td><div align="center">�ӴѺ���</div></td>
          <td><div align="center">�ѹ��͹��</div></td>
          <td><div align="center">����</div></td>
          <td><div align="center">��ͧ</div></td>
          <td><div align="center">����������ͺ</div></td>
          <td><div align="center">���͹��Ե</div></td>
          <td><div align="center">�ӹǹ���Ѵ����§</div></td>
          <td><div align="center">��С�������ͺ</div></td>
        </tr>
        	<%
			date1=datepart("d",date)
			month1=month(now())
			y=year(now())
			y=543+y

if date1=1 then
							date1="01" 
							elseif date1=2 then
							date1="02"
							elseif date1=3 then
							date1="03"
							elseif date1=4 then
							date1="04"
							elseif date1=5 then
							date1="05"
							elseif date1=6 then
							date1="06"
							elseif date1=7 then
							date1="07"
							elseif date1=8 then
							date1="08"
							elseif date1=9 then
							date1="09"
							end if
		if month1=1 then
							month1="01" 
							elseif month1=2 then
							month1="02"
							elseif month1=3 then
							month1="03"
							elseif month1=4 then
							month1="04"
							elseif month1=5 then
							month1="05"
							elseif month1=6 then
							month1="06"
							elseif month1=7 then
							month1="07"
							elseif mreceive=8 then
							mreceive="08"
							elseif month1=9 then
							month1="09"
							end if
			dcheck=y&""&month1&""&date1
		'	response.write int(dcheck)
	sql="select * from thesis_test order by dtest desc"
	'sql="select * from thesis_test where dtest='"&dcheck&"'"
	'response.write sql
	set ors=server.createobject("adodb.recordset")
	ors.open sql,conn,1,3
				if not ors.eof then
				   ors.movefirst
					a=1
					do while not ors.eof
					response.write "<tr><td>"&a
					response.write "<td><div align=center>"&ors("date1")&"-"&ors("month1")&"-"&ors("year1")	
					id_time=ors("id_time")
							sqlti="select * from time_test where id_time='"&id_time&"'"
							set orsti=server.createobject("adodb.recordset")
							orsti.open sqlti,conn,1,3
									if not orsti.eof then
									response.write "<td><div align=center>"&orsti("time_name")
									end if
						id_room=ors("id_room")
							sqlro="select * from room where id_room='"&id_room&"'"
							set orsro=server.createobject("adodb.recordset")
							orsro.open sqlro,conn,1,3
								if not orsro.eof then
								response.write "<td><div align=center>"&orsro("room")
								end if						
						id_type_test=ors("id_type_test")
									sql1="select * from type_test_thesis where id_type_test='"&id_type_test&"'"
									set ors1=server.createobject("adodb.recordset")
									ors1.open sql1,conn,1,3
												if not ors1.eof then
														type_test=ors1("test_name")
														response.write "<td><div align=center>"&type_test
												end if
						id_thesis=ors("id_thesis")
								sqlth="select * from thesis where id_thesis ='"&id_thesis&"'"
								set orsth=server.createobject("adodb.recordset")
								orsth.open sqlth,conn,1,3
										if not orsth.eof then
										'response.write orsth("id_stu")

id_stu=orsth("id_stu")
												     sqlst="select * from student where id_stu='"&id_stu&"'"
													 set orsst=server.createobject("adodb.recordset")
													 orsst.open sqlst,conn,1,3
															if not orsst.eof then
															    response.write "<td><div align=center>"&orsst("name_stu")&" "&orsst("sur_stu")&"<br>"&orsth("thesis_th")
															end if
												
										end if
				
				response.write "<td><div align=center>"&ors("amonth")
				id=ors("id")
					sqll="select * from committee_thesis where id ='"&id&"'"
						set orsl=server.createobject("adodb.recordset")
						orsl.open sqll,conn,1,3
								if not orsl.eof then	
								    orsl.movefirst
									response.write "<td>"
									do while not orsl.eof
									     
											'response.write "<td>"&id_lecturer&""&sqll
												  id_lecturer=orsl("id_lecturer")
												  if id_lecturer="000" then
												  response.write orsl("oral_out")
												  else
												  sql1="select * from lecturer where id_lecturer='"&id_lecturer&"'"
												  set ors1=server.createobject("adodb.recordset")
												  ors1.open sql1,conn,1,3
												      if not ors1.eof then
													     response.write ors1("name_lec")&"  "&ors1("sur_lec")&"<br>"
													  end if
											      end if
											orsl.movenext
									loop
								end if
				a=a+1
				ors.movenext
				loop
				end if
			%>	
      </table> </td>
  </tr>
  <tr> 
    <td background="Image/bggreen.gif">&nbsp;</td>
  </tr>

</table>
</body>
</html>

File Manager

Editing: list_thesis_test_all.asp